2 métodos rápidos para adicionar colchetes em lote aos números das notas em seu documento do Word

Na publicação de hoje, temos o prazer de mostrar dois métodos rápidos para adicionar colchetes em lote aos números de notas em seu documento do Word.

Sempre que redigimos um documento longo, é provável que insiramos notas de rodapé e notas de fim. Sabemos que existem opções para o formato de número mote. No entanto, não há nenhum estilo de número interno com colchetes. O que discutiremos nos próximos textos são as 2 soluções para resolver tal questão.

Método 1: Utilize a função “Localizar e substituir”

1. Para começar, clique na guia “Página Inicial” no documento desejado.
2. Em seguida, clique no comando “Substituir” no grupo “Edição” para abrir a caixa de diálogo “Localizar e substituir”.
3. Agora, se você estiver trabalhando com notas de rodapé, digite “^f” na caixa de texto “Localizar”.
4. Digite “[^&]” na caixa de texto “Substituir por”.
5. Em seguida, clique em “Substituir tudo”.
6. A próxima coisa que você vê é que todos os números das notas de rodapé estão entre colchetes. Clique em “OK” para fechar a caixa de mensagem.

Além disso, para adicionar colchetes às notas finais, basta substituir “^f” por “^e” nas caixas de texto “Localizar”.

Método 2: Executar Macro do Word

1. Em primeiro lugar, pressione “Alt + F11” no Word para abrir o editor VBA.
2. Em seguida, clique em “Normal” e depois na guia “Inserir”.
3. No menu suspenso, escolha “Módulo”.
4. Em seguida, clique duas vezes no módulo recém-inserido para abrir a área de edição no lado direito.
5. E cole a macro abaixo lá:

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. Agora coloque o ponteiro de inserção dentro da primeira macro e clique em “Executar”.
7. Então, primeiro há uma caixa de mensagem dizendo que colchetes foram adicionados a todos os números de notas de rodapé.
8. Em seguida, há o segundo dizendo que a conversão está completa em todos os números de notas finais.

Aqui está o resultado que obtivemos:

Evitar a perda de documentos

Com dados tão valiosos quanto os que armazenamos, não podíamos correr nenhum risco. Portanto, seria sensato fazer backup de arquivos importantes antes de fazer qualquer movimento com risco potencial de arruiná-los, a menos que você queira obter um documento danificado.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo corrupção de xls e pdf reparar produtos de software. Para mais informações visite www.datanumen.com