1. Abra o word;
  2. Se a aba “DESENVOLVEDOR” não estiver aparecendo, Vá em Arquivos, Opções. Clique em “Personalizar Faixa de Opções”, Marque a caixa “Desenvolvedor”;
  3. Vá na aba “Desenvolvedor” e clique icone “Macros”:
 
 
  1. Coloque o nome da macro “Inserir_quebra” e clique em criar:
 
 
  1. Copiei o código abaixo:
 
Sub Inserir_quebra()
    Dim tbl As Table
    Dim cel As Cell
    Dim rng As Range
    Dim txtOriginal As String
    Dim txtCorrigido As String
 
    ' Processa todas as células de todas as tabelas
    For Each tbl In ActiveDocument.Tables
        For Each cel In tbl.Range.Cells
            Set rng = cel.Range
            txtOriginal = rng.Text
 
            ' Remove o final invisível da célula
            txtOriginal = Left(txtOriginal, Len(txtOriginal) - 2)
 
            ' Só aplica substituição se houver ponto seguido diretamente de letra maiúscula
            If InStr(txtOriginal, ".") > 0 Then
                txtCorrigido = InserirQuebrasAposPontoColado(txtOriginal)
            Else
                txtCorrigido = txtOriginal ' mantém como está
            End If
 
            ' Só reescreve se houve mudança real (pra evitar inserir quebras do nada)
            If txtCorrigido <> txtOriginal Then
                rng.Text = txtCorrigido
            End If
        Next cel
    Next tbl
End Sub
 
Function InserirQuebrasAposPontoColado(texto As String) As String
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    With re
        .Global = True
        .IgnoreCase = False
        .Pattern = "\.([A-ZÁÉÍÓÚÂÊÔÃÕ])"
    End With
    InserirQuebrasAposPontoColado = re.Replace(texto, "." & vbCrLf & "$1")
End Function
 
  1. Vá em Arquivos, Opções, Barra de Ferramentas de Acesso Rápido, Escolher Comando em e escolha Macro e clique em Adicionar:
 
 
  1. Modifique o nome (Acertar espaços, por exemplo), escolha um icone, clique em OK e depois novamente em OK: