在MS Word中使用VBA中的函数查找/替换数组中的字符串

在MS Word中使用VBA中的函数查找/替换数组中的字符串，可以通过以下步骤实现：

1. 首先，打开MS Word并按下Alt + F11打开VBA编辑器。
2. 在VBA编辑器中，选择插入菜单中的模块，以创建一个新的模块。
3. 在新的模块中，编写一个自定义的VBA函数来查找/替换数组中的字符串。以下是一个示例函数：

Function FindReplaceArray(arr() As String, findStr As String, replaceStr As String) As String()
    Dim i As Long
    Dim result() As String
    ReDim result(LBound(arr) To UBound(arr))
    For i = LBound(arr) To UBound(arr)
        result(i) = Replace(arr(i), findStr, replaceStr)
    Next i
    FindReplaceArray = result
End Function

1. 在函数中，我们首先定义了一个名为 FindReplaceArray 的函数，它接受一个字符串数组 arr ，要查找的字符串 findStr 和要替换的字符串 replaceStr 作为参数。
2. 然后，我们使用 ReDim 语句重新定义了一个与输入数组相同大小的结果数组 result 。
3. 接下来，我们使用一个循环遍历输入数组中的每个元素，并使用 Replace 函数将其中的目标字符串替换为指定的替换字符串。
4. 最后，我们将替换后的结果存储在结果数组中，并通过 FindReplaceArray 函数返回该数组。

使用这个自定义的VBA函数，你可以在MS Word中轻松地查找/替换数组中的字符串。以下是一个示例的VBA代码，演示如何调用这个函数：

Sub FindReplaceArrayExample()
    Dim myArray() As String
    Dim resultArray() As String
    ' 假设我们有一个字符串数组
    myArray = Split("apple,banana,orange", ",")