Word VBA-通过“ AND”循环删除书签

Question

我在VBA Word中编写了一个宏，该宏正在从Excel文件复制数据，并使用预定义的书签将数据粘贴到Word文件中。 我在Word中有两组不同的书签，根据要执行的操作，宏首先删除该特定操作不需要的书签，然后将数据粘贴到其余书签所在的位置。

到目前为止，代码在这两种情况下均有效，但由于不是熟练的程序员，我不得不写出几行代码来执行特定任务，并且希望您的帮助来“清理”这部分代码，使其不那么“复杂”，并且如果将来需要更改，也更容易进行修改。 正如我所说，您可以在下面找到有效的代码，但它并不漂亮。

Dim arr As Variant
Dim bookmark As Bookmarks
Dim i As Long

arr = Array("a", "b", "c")

For Each bookmark In ActiveDocument.Bookmarks
    If bookmark <> arr(0) And bookmark <> arr(1) _
    And bookmark <> arr(2) Then
    bookmark.Delete
    Else
    bookmark.Select 'this is just to give a "useless" alternative to vba
    End If
Next bookmark  

我只在这里放置了数组的3个元素，而实际上有3个元素，但是其思想是使“ AND”功能自动化，范围如下：如果Word文件中已经存在的每个书签都不同于ANY元素删除数组“ arr”，则必须删除该书签，否则不会发生任何反应。 因此，我不想在数组的每个元素上使用一个AND函数，而是想遍历数组，以便将每个书签与数组的所有元素进行比较，并且前提是要删除所有不同的书签。 我不知道是否有某种方式可以循环“ AND”功能，但是向数组中添加更多元素将意味着添加相同数量的“ AND”。

希望您精疲力尽，并且您可以帮助我。

在此先多谢！

Answer 1

循环数组，并使用布尔值跟踪是否找到。

Dim arr As Variant
Dim bookmark As Bookmarks
Dim i As Long
Dim bln As Boolean

arr = Array("a", "b", "c")

For Each bookmark In ActiveDocument.Bookmarks
    bln = False
    For i = LBound(arr) To UBound(arr)
        If bookmark = arr(i) Then
            bln = True
            Exit For
        End If
    Next i
    If Not bln Then bookmark.Delete
Next bookmark

Answer 2

如果只有几个元素，则可以使用“ If”和遍历数组的方式来使用Select Case

Select bookmark
Case Is <> "a","b","c"
bookmark.Delete
Case Else
'Whatever code
End Select

但是根据阵列的大小，循环解决方案可能会更好。

Answer 3

您可以使用Join（）函数从所有书签数组值中获取一个字符串，然后使用Instr（）函数检查当前的书签是否存在

Dim arr As Variant
Dim bookmark As Bookmark

arr = Array("a", "b", "c")

For Each bookmark In ActiveDocument.Bookmarks
    If Instr(Join(arr, "|"), bookmark) = 0 Then bookmark.Delete
Next bookmark