Objeto StyleSheet (Word)
Representa uma única folha de estilos 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.
Use o método Item ou folhas de estilo (Index), onde Index é o nome ou número da folha de estilos, da coleção StyleSheets, para retornar um objeto StyleSheet. O exemplo a seguir remove a segunda folha de estilo da coleção StyleSheets.
Sub WebStyleSheets()
ActiveDocument.StyleSheets.Item(2).Delete
End Sub
Use a propriedade Index para determinar a precedência de folhas de estilo em cascata. O exemplo a seguir cria uma tabela de anexo em cascata folhas de estilo, ordenadas e indexadas de acordo com a qual estilo folha é mais importante.
Sub CSSTable()
Dim styCSS As StyleSheet
With ActiveDocument.Range(Start:=0, End:=0)
.InsertAfter "CSS Name" & vbTab & "Index"
.InsertParagraphAfter
For Each styCSS In ActiveDocument.StyleSheets
.InsertAfter styCSS.Name & vbTab & styCSS.Index
.InsertParagraphAfter
Next styCSS
.ConvertToTable
End With
End Sub
Use o método Move para reordenar a precedência de folhas de estilos anexada. O exemplo a seguir move a folha de estilos mais importante para a menos importante de todas folhas de estilo em cascata de anexado.
Sub MoveCSS()
ActiveDocument.StyleSheets(1) _
.Move wdStyleSheetPrecedenceLowest
End Sub
Referência do modelo de objeto do Word
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.