Como alterar em lote vários nomes de favoritos em seu documento do Word

No artigo de hoje, forneceremos a você a maneira de alterar em lote vários nomes de favoritos em seu documento do Word.

É um pouco complicado alterar o nome de um marcador em um documento do Word. E em um de nossos artigos anteriores, explicamos maneiras para você. Para informações detalhadas, você pode consultar este link: 2 maneiras corretas de alterar um nome de marcador em seu documento do Word

Desta vez, queremos oferecer a você a maneira de alterar em lote vários nomes de favoritos em seu documento.

Alterar em lote vários nomes de favoritos via VBA

1. primeiro e primeiroost, insira uma tabela de 2 colunas com várias linhas no final de sua tarobter documento. Na tabela, digite os nomes dos marcadores originais na primeira coluna. E insira novos nomes no segundo. Certifique-se também de colocar o cursor dentro da tabela. Aqui está o exemplo:
2. Em seguida, chame o editor VBA no Word pressionando “Alt + F11”.
3. Em seguida, no editor, clique em "Normal" na coluna da esquerda.
4. E na barra de menu acima, clique na guia "Inserir".
5. No menu suspenso de “Inserir”, escolha “Módulo”.
6. Clique duas vezes no novo módulo para abri-lo e cole os seguintes códigos na área de codificação:

Sub BatchChangeTheBookMarkNameAndUpdateCrossReference() Dim nCurrentTableIndex As Integer Dim objTable As Table Dim nRowNumber As Integer Dim objOriBookMarkList As Cell Dim objOriBookMarkListR As Range Dim objNewBookMarkListR As Range Dim strBookMarkName As String Dim strNewName As String Dim objBookMarkRange As Range Dim objField As Field Dim strFieldCode As String nCurrentTableIndex = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count Definir objTable = ActiveDocument.Tables(nCurrentTableIndex) nRowNumber = 1 para cada objOriBookMarkList em objTable.Columns(1).Cells Definir objOriBookMarkListR = objOriBookMarkList. Range objOriBookMarkListR.MoveEnd Unit:=wdCharacter, Count:=-1 Set objNewBookMarkListR = objTable.Cell(nRowNumber, 2).Range objNewBookMarkListR.MoveEnd Unit:=wdCharacter, Count:=-1 If objOriBookMarkListR.Text <> "" Then strBookMarkName = objOriBookMarkListR.Text strNewName = objNewBookMarkListR.Text End If With ActiveDocument If .Bookmarks.Exists(strBookMarkName) Then Set objBookMarkRange = .Bookmarks(strBookMarkName).Range .Bookmarks(strBookMarkName).Delete .Bookmarks.Add Name:=strNewName, Range: =objBookMarkRange ' Atualize a referência cruzada If .Fields.Count >= 1 Then For Each objField In .Fields strFieldCode = objField.Code.Text If strFieldCode = " REF " & strBookMarkName & " \h " Then objField.Code.Text = Replace(strFieldCode, strBookMarkName, strNewName, , 1, vbTextCompare) objField.Update End If Próximo objField End If Else MsgBox ("O marcador: " & strBookMarkName & " não foi encontrado.") End If End With Set objBookMarkRange = Nada nRowNumber = nRowNumber + 1 Next MsgBox ("Todos os favoritos na lista da tabela foram renomeados.") End Sub

7. Por último, mas não menos importante, clique em “Executar” ou pressione “F5” para executar os códigos.

Ao final do processo, aparecerá uma caixa de mensagem, conforme abaixo:

Você também pode clicar na guia “Inserir” e depois em “Marcador” para acionar a caixa de diálogo “Marcador”. Agora você pode ver que os nomes dos favoritos foram alterados.

Lidar com erros de palavras

Como o Word não está imune a erros, é preciso tomar as devidas providências ao Corrupção de palavras acontece. Most Na maioria das vezes, você pode recuperar os dados escolhendo uma ferramenta de reparo competente.

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 corrigir Excel e pdf reparar produtos de software. Para mais informações visite www.datanumen.com