如何在 Word 中批量添加或删除多个自动图文集条目

词解法 2025 年 9 月 28 日

在这个post，我们很高兴向您演示如何在 Word 中批量添加或删除多个自动图文集条目。

对于您经常使用的文本，您可以使用将它们添加到自动图文集库。所以下次您将不需要再次手动键入所有这些文本。相反，您可以找到 tar获取文本条目并单击它。您会将它们插入光标所在的位置。

现在正如我们的主题所暗示的那样，我们想向您展示批量添加或删除多个自动图文集条目的方法，以节省您的宝贵时间。

批量添加多个自动图文集条目

首先，您需要创建一个包含 2 列的表。将自动图文集条目名称放入第一列。并将录入内容放入第二列。这是演示：
接下来打开 VBA 编辑器，按“Alt+F11”。
然后单击“正常”项目。
接下来单击菜单栏上的“插入”选项卡，然后选择“模块”。
现在双击新模块将其打开。
粘贴以下代码：

Sub BatchAddAutoTextEntries()
  Dim objTable As Table
  Dim objEntry As Cell
  Dim objEntryRange As Range
  Dim objEntryNameRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objEntry In objTable.Columns(2).Cells 
    Set objEntryNameRange = objTable.Cell(nRowNumber, 1).Range
    objEntryNameRange.MoveEnd Unit:=wdCharacter, Count:=-1 
    Set objEntryRange = objEntry.Range
    objEntryRange.MoveEnd Unit:=wdCharacter, Count:=-1
    objEntryRange.Select 
    NormalTemplate.AutoTextEntries.Add Name:=objEntryNameRange.Text, _
                                             Range:=Selection.Range
    nRowNumber = nRowNumber + 1
  Next objEntry
  MsgBox "All entries in the table are added to the gallery."
End Sub

最后，单击“运行”或按“F5”。

完成后，您将收到一个消息框，如下所示：

您将无法在当前和所有已打开的文档中看到添加的条目。要查看效果，您需要打开一个新文档。然后您可以通过单击“插入”选项卡下的“快速零件”来检查结果。接下来选择“自动图文集”，您将看到表格中的所有条目都已添加到图库中。

批量删除多个自动文本条目

在下面的内容中，我们将向您展示批量删除多个自动图文集条目的方法。

首先，创建一个一列的表。并将每个条目名称放在一个单元格中。
然后重复上述步骤 2 至 7。但请记住用这个替换宏：

Sub BatchDeleteAutoTextEntries()
  Dim objTable As Table
  Dim objEntry As Cell
  Dim objEntryNameRange As Range
  Dim objEntryRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objEntry In objTable.Columns(1).Cells
    Set objEntryNameRange = objTable.Cell(nRowNumber, 1).Range
    objEntryNameRange.MoveEnd Unit:=wdCharacter, Count:=-1
    On Error Resume Next
    NormalTemplate.AutoTextEntries.Item(objEntryNameRange.Text).Delete
    nRowNumber = nRowNumber + 1
  Next objEntry
  MsgBox "All entries in the table are deleted from the gallery."
End Sub

同理，对之后打开的新文档生效。

发生数据丢失时保持冷静

随着计算机使用的增加，数据丢失也每年都在膨胀。数据丢失可能会危及您的职业生涯。这是一种令人沮丧的经历，人们再也不想遇到了。那么重要性就来了文档修复. 您应该始终提前准备好修理工具。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 Excel恢复和 pdf 修复软件产品。欲了解更多信息，请访问 datanumen.com