在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", ",")
    
    ' 调用自定义的函数来查找/替换数组中的字符串
    resultArray = FindReplaceArray(myArray, "a", "e")
    
    ' 输出替换后的结果
    MsgBox Join(resultArray, ",")
End Sub

在这个示例中，我们首先定义了一个字符串数组myArray，其中包含了三个水果名称。然后，我们调用了自定义的FindReplaceArray函数，将目标字符串"a"替换为"e"。最后，我们使用Join函数将替换后的结果数组转换为一个字符串，并通过MsgBox函数将其显示在一个消息框中。

这是一个简单的示例，演示了如何在MS Word中使用VBA中的函数查找/替换数组中的字符串。根据实际需求，你可以根据这个示例进行修改和扩展。