Classe StyleSheet - folha de estilo em cascata (Word VBA)

A classe StyleSheet representa uma única folha de estilo em cascata anexada a um documento da Web. O objeto StyleSheet é um membro da coleção StyleSheets. Coleção StyleSheets contém todas as folhas de estilos em cascata anexadas a um documento especificado. Para usar uma variável de classe StyleSheet, ela primeiro precisa ser instanciada por exemplo

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

For Each

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

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

Delete

Exclui a folha de estilo em cascata especificada.

ActiveDocument.StyleSheets(1).Delete

FullName

Especifica o nome de uma folha de estilo em cascata, incluindo a unidade ou o caminho da Web. Cadeia de caracteressomente leitura.

Usar esta propriedade equivale a usar as propriedades Path, PathSeparator e Name na sequência.

Sub CSSName() 
 MsgBox ActiveDocument.StyleSheets(1).FullName 
End Sub

Index

Retorna um Long que representa a posição de um item em uma coleção. Somente leitura.

Dim lngIndex As Long
lngIndex = ActiveDocument.StyleSheets(1).Index

Move

Move a ordem de precedência de uma folha de estilos.

Move (Precedence)

Precedence: O nível de precedência.

ActiveDocument.StyleSheets(1).Move Precedence:=wdStyleSheetPrecedenceHigher

Name

Retorna o nome do objeto especificado. Cadeia de caracteressomente leitura.

Dim strName As String
strName = ActiveDocument.StyleSheets(1).Name

Path

Retorna o disco ou o caminho da Web à folha de estilo especificado. Cadeia de caracteressomente leitura.

O caminho não inclui um caractere precedente — por exemplo, "C:\MSOffice" ou "https://MyServer". Use a propriedade PathSeparator para adicionar o caractere que separa pastas e letras de unidade e use a propriedade Name para retornar o nome de arquivo sem o caminho.

Dim strPath As String
strPath = ActiveDocument.StyleSheets(1).Path

Title

Retorna ou define um String que representa o título de uma folha de estilos da Web. Leitura/gravação.

Sub AssignCSSTitle() 
 ActiveDocument.StyleSheets.Item(1).Title = "New Look Stylesheet" 
 ActiveDocument.StyleSheets.Item(2).Title = "Standard Web Stylesheet" 
 ActiveDocument.StyleSheets.Item(3).Title = "Definitions Stylesheets" 
End Sub

Type

Retorna ou define o estilo do tipo de folha. Leitura/gravação WdStyleSheetLinkType. Os valores de retorno possíveis são wdStyleSheetLinkTypeImported - Folha de estilo interna importada, wdStyleSheetLinkTypeLinked - Folha de estilo externa vinculada.

ActiveDocument.StyleSheets(1).Type = wdStyleSheetLinkTypeImported