Question

我正在尝试创建一个查找和替换宏以用作加载项。我想用一个包含两个多行文本框的用户表单，用户可以输入他们想要查找和替换的字符串。我已经想出如何将这些字符串放入数组中，但无法弄清楚如何将'find'数组与'replace'数组匹配并运行Replace命令。

是否有某种方法可以为每个数组中的每个条目赋值，并将它们匹配起来？即“查找”文本框中的第一个字符串获取值1，第二个字符串获取值2，“替换”文本框中的值相同。然后宏将'find'字符串值1的任何实例替换为'replace'字符串值1，依此类推。

这是我到目前为止已经找到的代码，提前感谢您的帮助。

Private Sub CommandButton1_Click()
Dim Find_text As String
Dim Replace_text As String
Dim Find_lines As Variant
Dim x As Integer
Dim Replace_Lines As Variant
Dim y As Integer
Dim find As String
Dim Replace2 As String


Find_text = Find1.Text
Replace_text = Replace1.Text



Find_lines = Split(FindReplace2.Find1, vbCrLf)
Replace_Lines = Split(FindReplace2.Replace1, vbCrLf)
For x = LBound(Find_lines) To UBound(Find_lines)
    find = Find_lines(x)


    For y = LBound(Replace_Lines) To UBound(Replace_Lines)
    Replace2 = Replace_Lines(y)

    Next y
Next x



End Sub

如何创建查找/替换添加两个多行文本框

0 个答案: