VBA Word -查找单词的一部分，扩展所选内容，同时用新单词替换新选择内容

Question

我想写一个子例程来查找子字符串的所有出现，然后用指定数量的字符扩展选择，并立即在所有文档主体中替换这个新文本。这可能吗?

doc.Range.Find.Execute findtext:="T04-WPA-"
Selection.MoveRight Unit:=wdCharacter, Count:=6, Extend:=wdExtend
'(Replacing procedure)     

Answer 1

你甚至不需要VBA !你只需要一个通配符查找/替换

Find = T04-WPA-??????
Replace = new string

甚至是普通的查找/替换，其中:

Find = T04-WPA-^?^?^?^?^?^?
Replace = new string