Classe StyleSheets (Word VBA)

Uma coleção de objetos StyleSheet que representa as folhas de estilos em cascata anexadas a um documento. Coleção StyleSheets inclui todas as folhas de estilo em cascata, exibidas na caixa de diálogo Folhas de estilo CSS vinculadas. Para usar uma variável de classe StyleSheets, ela primeiro precisa ser instanciada por exemplo

Dim sss as StyleSheets
Set sss = ActiveDocument.StyleSheets

For Each

Aqui está um exemplo de processamento dos itens StyleSheets em uma coleção.

Dim sst As StyleSheet
For Each sst In ActiveDocument.StyleSheets
	
Next sst

Add

Retorna um objeto StyleSheet que representa uma nova folha de estilos adicionada a um documento da Web.

Add (FileName, LinkType, Title, Precedence)

Sub NewStylesheet() 
 ActiveDocument.StyleSheets.Add _ 
 FileName:="c:\WebSite.css", _ 
 Precedence:=wdStyleSheetPrecedenceHighest, _ 
 LinkType:=wdStyleSheetLinkTypeLinked, _ 
 Title:="Test Stylesheet" 
End Sub

Arguments

O seguinte argumento é opcional

FileName (String) - O caminho e o nome de arquivo da folha de estilos em cascata.

LinkType (WdStyleSheetLinkType) - Indica se a folha de estilos deve ser adicionada como um link ou importada para o documento da Web.

Os valores de retorno possíveis são wdStyleSheetLinkTypeImported - Folha de estilo interna importada, wdStyleSheetLinkTypeLinked - Folha de estilo externa vinculada.

Title (String) - O nome da folha de estilos.

Precedence (WdStyleSheetPrecedence) - Indica o nível de importância comparado com outras folhas de estilos em cascata anexadas ao documento da Web.

Os valores possíveis são

Count

Retorna um Long que representa o número de folhas de estilo na coleção. Somente leitura.

Dim lngCount As Long
lngCount = ActiveDocument.StyleSheets.Count

Item

Retorna um objeto StyleSheet individual em uma coleção.

Item (Index)

Index: O objeto individual a ser retornado. Pode ser um Long que indica a posição ordinal ou uma cadeia de caracteres que representa o nome do objeto individual.

Dim sst As StyleSheet
Set sst = ActiveDocument.StyleSheets(Index:=1)