Você pode ver que os estilos estão disponíveis em um documento clicando na guia "Home" do Word. Mas a mudança para este guia pode puxá-lo para longe da guia que você está actualmente a trabalhar, o que interrompe o seu fluxo de trabalho. Você pode evitar esse problema por ter uma lista impressa de nomes de estilo do seu documento . É possível criar esta lista , digitando-o , mas a linguagem de programação Visual Basic do Word pode criá-lo mais rapidamente. Instruções
1
Clique comando "Open" do menu " Arquivo", em seguida, navegue para e clique duas vezes em um arquivo cujo estilos que você deseja listar. Palavra vai abrir o arquivo.
2
Clique comando da guia "Desenvolvedor" " Visual Basic" , em seguida, cole o seguinte fragmento de programa para a janela no centro da tela. Itera este fragmento através de cada um dos estilos no documento atual . O Word armazena esses estilos em um objeto virtual chamado "Estilos ", que faz parte do " ActiveDocument " objeto virtual.
Public Sub showStyles2 ()
Dim inString , outString , s, i, pos
s = " "
Para i = 1 To ActiveDocument.Styles.Count
Next i
Documents.Add
ActiveDocument.Content = s
End Sub
3
Copie o seguinte declarações após o " Para i" declaração listados na etapa anterior. Estas novas declarações ler o estilo base do estilo atual , e gravar o estilo base em uma string , a não ser que o estilo já está na cadeia . Cada estilo no " Estilos " coleção tem seu próprio nome . No entanto, esse nome é apenas um nome de código. O verdadeiro nome do estilo é a propriedade " BaseStyle "
inString = ActiveDocument.Styles (i). BaseStyle
outString = s
pos = InStr ( 1. , outString , inString )
Se ( pos = 0) Então
s = s & inString & " , "
End If
4
Clique em qualquer das declarações no programa que você acabou de colar , clique em comando "Executar" do menu " Executar" para executar o programa. Clique no ícone do novo documento do Word que apareceu em barra de tarefas do Windows. A janela do documento vai aparecer e exibir os nomes de estilo de todos os estilos no documento que você abriu no passo 1.
5
Pressione "Control " e " P " ao mesmo tempo para imprimir o número de nomes de estilo .
