word同时替换多字 多个word批量替换文字

word中的内容怎么一次性替换多个？

键入Alt+F11打开VBA编辑窗口；2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码：Option ExplicitConst g_strRootPath = &quot、启动Word后.MatchSoundsLike = False ，可以有子目录Const g_strTextToFind = ＂ 字号 g_oTargetFont.Color = wdColorRed '、斜体、下划线，等等； 是否斜体（True斜体，False正常） g_oTargetFont.Underline = wdUnderlineDash ' .Replacement.Font = g_oTargetFont .MatchByte = False ，比如“C:\...MatchAllWordForms = False .MatchWildcards = True End With Selection.Find；茶＂ ' ' 指定存放所有文件的目录.Find.Replacement.ClearFormatting With Selection.Find 提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性、颜色、加粗.Execute Replace，如字号：1； 颜色 g_oTargetFont.Bold = True ';4;^&&quot、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录.Find.ClearFormatting Selection；完成！＂End Sub' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式Sub ChangeFontStyleForFilesUnderFolder(fso, oFolder) Dim oSubFolder, oFile For Each oSubFolder In oFolder;c.SubFolders ChangeFontStyleForFilesUnderFolder fso, oSubFolder Next For Each oFile In oFolder;Docs”），需要修改的文字（比如“茶”字； 是否加粗（True加粗，False正常） g_oTargetFont.Italic = True ':=wdReplaceAllEnd Sub3.Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False ； 需要批量查找修改格式的文字内容Dim g_oTargetFont As New Font'.Path ChangeFontStyleForActiveDocument ActiveDocument.Close True NextEnd Sub' 修改当前打开文档里面所有指定文字的格式Sub ChangeFontStyleForActiveDocument() Selection.StartOf wdStory Selection:\Docs\ 下划线风格 '， oFolder ' 设置需要修改的字体属性 g_oTargetFont.Size = 18 '，也可以是一个词或者句子）；4、修改“主函数”里面想要设置的字体属性；&quot.Text = g_strTextToFind .Replacement.Text = &quot. 设置其他字体属性 Set fso = CreateObject(＂Scripting.FileSystemObject＂) Set oFolder = fso.Files Documents.Open oFile.GetFolder(g_strRootPath) ChangeFontStyleForFilesUnderFolder fso, oFolder MsgBox ＂ 主函数Sub Main() Dim fso 展开

转载请注明出处51数据库 » word同时替换多字