鞠勇鸿的技术专栏

Word不知道从哪个版本开始，有个阅读模式。代码控制很简单：

'工具-引用Microsoft Word 16.0 Object Library (16会因为机器安装的版本不一)WordApp.Selection.Find.ClearFormattingWordDoc.Range.Find.Execute findtext:="被替换掉啥", ReplaceWith:="替换成啥", MatchWildcards:=True, Forward:=True, Replace:=wdReplaceAll, Wrap:=wdFindContinue如果不引用，.

Selection.Range.ListFormat.RemoveNumbers

Dim WordApp As ObjectSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueDim WordDoc As ObjectSet WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\TEST.docx")PicPath="图片地址"WordApp.ActiveDocument.Bookmarks("BM1_1").Range.Se.