在MS Word中用字段替换文本
在MS Word中用字段替换文本
提问于 2019-09-30 03:11:12
我想替换每一个
图X
使用正确的字段：
图1
相当于
图{ SEQ图*阿拉伯文}
我可以本地做这个吗?还是需要一个宏？我怎么能做这样的宏观呢？
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-09-30 23:56:55
这可能有助于：
Sub InsertSeqNo()
Dim Rng As Range
Set Rng = ActiveDocument.Range
Do While Rng.Find.Execute(FindText:="Figure X", Forward:=True, Format:=False, Wrap:=wdFindStop) = True
Rng.MoveStart Unit:=wdCharacter, Count:=7
Rng.Fields.Add Range:=Rng, Type:=wdFieldEmpty, Text:="SEQ Fig \* ARABIC", PreserveFormatting:=True
Loop
ActiveDocument.Fields.Update
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/58161083
复制相关文章
相似问题
腾讯云开发者
