word vba中在FindText中采用InputBox输入的内容，在ReplaceWith中使用InputBox输入的内容

在 Word VBA 中，可以使用 InputBox 函数弹出一个输入框，让用户输入一些内容，然后将输入的内容赋值给一个变量，从而在程序中引用这个输入的内容。

如果您需要在 FindText 中采用 InputBox 输入的内容，并在 ReplaceWith 中使用 InputBox 输入的内容，可以按照以下步骤操作：

1. 使用 InputBox 函数弹出第一个输入框，让用户输入需要查找的内容，并将输入内容保存在一个变量中，例如：

Dim findText As String
findText = InputBox("请输入需要查找的内容：")

2. 使用 InputBox 函数弹出第二个输入框，让用户输入需要替换的内容，并将输入内容保存在一个变量中，例如：

Dim replaceText As String
replaceText = InputBox("请输入需要替换的内容：")

3. 使用 Find 和 Replace 函数，在文档中查找并替换内容，例如：

With ActiveDocument.Content.Find
    .Text = findText
    .Replacement.Text = replaceText
    .Execute Replace:=wdReplaceAll
End With

其中，findText 和 replaceText 分别是第一步和第二步中输入的内容，wdReplaceAll 表示替换所有匹配的内容。

需要注意的是，在使用 Find 和 Replace 函数时，需要考虑用户输入的内容是否合法，例如是否符合要求的格式。另外，需要注意输入框的标题和提示信息，让用户能够清楚地知道需要输入什么样的内容。