VBA如何对查找替换对话窗的内容赋值？

4461 · 发表于 2022-3-15 14:33

我想通过VBA打开“查找和替换”对话窗，并赋值“查找内容”=“四书”，“替换为”=“论语”。
我使用下面代码，只对“查找内容”进行了赋值，请问如何给“替换为”的内容赋值？

With Application.Dialogs(wdDialogEditReplace)
.Find = "四书"
.Show
End With

谢谢了！

zhanglei1371 · 发表于 2022-3-15 17:05

本帖最后由 zhanglei1371 于 2022-3-15 21:11 编辑

操作思路：自己做个窗体，然后赋值，执行查找替换就可以了。

4461 · 发表于 2022-3-15 20:59

zhanglei1371 发表于 2022-3-15 17:05
操作思路：自己做个窗体，然后赋值，执行查找替换就可以了。
若对这块不熟悉，建议先花一到两周时间去b站 ...

很简单的问题，被你想得那么复杂！

zhanglei1371 · 发表于 2022-3-15 21:19

4461 发表于 2022-3-15 20:59
很简单的问题，被你想得那么复杂！

哦，我的确想复杂了。确实很简单：
Sub sdf()
With Application.Dialogs(wdDialogEditReplace)
      .Find = "四书"
      .Replace = "替换为"
      .Show
End With
End Sub

limonet · 发表于 2022-3-15 21:22

本帖最后由 limonet 于 2022-3-15 21:36 编辑

Sub 输入替换()
With Selection.Find
      .Text = "四书"
      .Replacement.Text = InputBox("请输入替换为的内容", , "论语")
      .Forward = True
      .Wrap = wdFindContinue
      .Execute Replace:=wdReplaceAll
End With
End Sub

4461 · 发表于 2022-3-15 21:50

zhanglei1371 发表于 2022-3-15 21:19
哦，我的确想复杂了。确实很简单：
Sub sdf()
With Application.Dialogs(wdDialogEditReplace)

谢谢老师！

4461 · 发表于 2022-3-15 22:43

limonet 发表于 2022-3-15 21:22
Sub 输入替换()
With Selection.Find
.Text = "四书"

谢谢老师！

		自动登录	找回密码
密码			免费注册

[求助] VBA如何对查找替换对话窗的内容赋值？