Como Usar VBA para Formatando Títulos com Estilos Personalizados

Aplicar estilos de título personalizados manualmente em um documento longo do Word é demorado e sujeito a erros. Macros VBA automatizam essa formatação em segundos, garantindo que cada título use sua fonte, tamanho, cor e espaçamento exatos. Este artigo explica como escrever e executar uma macro VBA que formata todos os títulos do seu documento com um estilo personalizado.

Você aprenderá os objetos VBA essenciais para segmentar títulos, como criar uma macro que aplica um estilo personalizado e como lidar com problemas comuns, como níveis de título mistos. Nenhuma experiência prévia em programação é necessária — cada etapa é explicada em linguagem clara.

Como as Macros VBA Funcionam com Estilos de Título

O Word atribui um estilo interno a cada nível de título: Título 1, Título 2, Título 3 e assim por diante. Uma macro VBA pode percorrer todos os parágrafos do documento e verificar se um parágrafo usa um desses estilos de título internos. Quando encontra um parágrafo de título, a macro pode aplicar um estilo diferente — por exemplo, um estilo personalizado que você já definiu chamado “MeuTituloPersonalizado”.

Antes de escrever a macro, você deve criar o estilo personalizado no seu documento. Vá para a guia Página Inicial, abra o painel Estilos e clique no botão Novo Estilo na parte inferior. Nomeie o estilo como “TituloPersonalizado1” e defina a fonte, tamanho, cor, negrito, espaçamento e qualquer outra formatação necessária. Salve o estilo no documento atual ou no modelo se quiser que ele esteja disponível para todos os novos documentos.

A macro usa a coleção Paragraphs e a propriedade Style. A constante interna chave para identificar parágrafos de título é wdStyleHeading1 a wdStyleHeading9. Para uma verificação mais ampla que captura qualquer nível de título, use a propriedade ParagraphFormat.HeadingLevel. Se HeadingLevel for maior que zero, o parágrafo é um título.

Passos para Escrever e Executar a Macro VBA

1. Habilitar a guia Desenvolvedor
   Clique em Arquivo > Opções > Personalizar Faixa de Opções. Em Guias Principais, marque a caixa para Desenvolvedor e clique em OK. A guia Desenvolvedor agora aparece na faixa de opções.
2. Abrir o editor VBA
   Na guia Desenvolvedor, clique em Visual Basic. Como alternativa, pressione Alt+F11 no teclado. A janela do editor VBA é aberta.
3. Inserir um novo módulo
   No editor VBA, clique com o botão direito em qualquer item no painel Explorador de Projetos sob Normal ou o nome do seu documento. Escolha Inserir > Módulo. Uma janela de código em branco aparece.
4. Copiar o código da macro
   Copie o código a seguir e cole-o na janela do módulo:

   Sub FormatHeadingsWithCustomStyle()
       Dim para As Paragraph
       Dim customStyleName As String
       customStyleName = "TituloPersonalizado1"
       For Each para In ActiveDocument.Paragraphs
           If para.HeadingLevel > 0 Then
               para.Style = customStyleName
           End If
       Next para
       MsgBox "Todos os títulos formatados com " & customStyleName
   End Sub

   Substitua "TituloPersonalizado1" pelo nome exato do estilo personalizado que você criou anteriormente.

5. Executar a macro
   Pressione F5 enquanto o cursor estiver dentro do código da macro, ou feche o editor VBA e vá para Desenvolvedor > Macros. Selecione FormatHeadingsWithCustomStyle e clique em Executar. O Word aplica seu estilo personalizado a todos os parágrafos de título no documento.

Erros Comuns ao Usar VBA para Formatação de Títulos

A macro não faz nada após a execução

Se a macro for executada, mas os títulos não mudarem, o nome do estilo personalizado na macro não corresponde ao nome exato do estilo no documento. Abra o painel Estilos, clique com o botão direito no seu estilo personalizado e escolha Modificar. Copie o nome do estilo exatamente, incluindo espaços e maiúsculas. Atualize a variável customStyleName na macro e execute-a novamente.

Apenas parágrafos de Título 1 são formatados

O código mostrado acima usa HeadingLevel > 0, que captura todos os níveis de título. Se você alterou a condição para para.Style = "Título 1", a macro afetará apenas parágrafos de Título 1. Para formatar vários níveis de título com estilos personalizados diferentes, crie macros separadas ou use uma estrutura Select Case dentro do loop. Por exemplo:

Select Case para.Style
    Case "Título 1"
        para.Style = "TituloPersonalizado1"
    Case "Título 2"
        para.Style = "TituloPersonalizado2"
End Select

A macro formata texto do corpo como títulos

Isso acontece quando os parágrafos não estão realmente estilizados com um estilo de título, mas têm formatação semelhante. A macro verifica a propriedade HeadingLevel, que retorna zero para parágrafos que não são títulos. Se você estiver usando níveis de estrutura de tópicos (Parágrafo > Recuos e Espaçamento > Nível de estrutura de tópicos) em vez de estilos de título, a macro não os detectará. Converta esses parágrafos para estilos de título internos antes de executar a macro, ou modifique a macro para verificar a propriedade OutlineLevel.

Macro VBA vs Formatação Manual: Comparação de Eficiência

Item	Macro VBA	Formatação Manual
Tempo para 100 títulos	Menos de 2 segundos	5 a 10 minutos
Consistência	Mesmo estilo aplicado a todos os títulos	Risco de pular um título ou aplicar fonte errada
Taxa de erro	Nenhuma se o nome do estilo estiver correto	Alta — fácil pular ou formatar errado um título
Reutilização	Macro pode ser salva no modelo e reutilizada	Deve repetir etapas para cada documento
Requer programação	Sim — configuração única	Nenhuma programação necessária

As macros VBA são a melhor escolha quando você precisa formatar títulos em documentos grandes ou muitos documentos. A formatação manual é aceitável para um único documento curto com menos de dez títulos.

Após executar a macro, verifique a formatação percorrendo o documento e verificando alguns títulos em diferentes níveis. Se o estilo personalizado incluir numeração, confirme se a sequência de numeração está correta — o VBA não atualiza automaticamente a numeração de lista. Pressione Ctrl+A e depois F9 para atualizar todos os campos, se necessário.

Para uso avançado, salve a macro no seu modelo Normal.dotm para que ela esteja disponível em todos os novos documentos. No editor VBA, arraste o módulo do seu documento para o projeto Normal. Em seguida, exporte o módulo como um arquivo .bas para backup ou compartilhamento com colegas.