几十个文档如何统一修改
几十个文档如何统一修改
企服解答
以office为例：
【注意】：MS Office2003中测试通过。2007可能无法运行。
一、前期准备 下面是具体操作步骤。
1、首先将需要批量替换的多个Word文档放在同一文件夹下面。
2、新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。
3、在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。
4、双击该按钮，进入VB代码编写模式，将以下代码复制进去。
二、命令按钮的代码 Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim myPas As String, myPath As String, i As Integer, myDoc As Document With Application.FileDialog(msoFileDialogFolderPicker) .Title = "选择目标文件夹" If .Show = -1 Then myPath = .SelectedItems(1) Else Exit Sub End If End With myPas = InputBox("请输入打开密码，如果没有就不填：") With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "原文字" .Replacement.Text = "新文字" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End If End With Application.ScreenUpdating = True End Sub 保存上面代码，退出VB编辑模式，返回Word文档界面。 单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。 最后，就可以进行测试：再次点击按钮，就会发现该文件夹下面的所有WORD文档中的"原文字"被替换为"新文字"了。
相关信息
- 腾讯文档上线获马化腾点赞，石墨文档：我们被长期研究和重点参考
36氪讯，2018年4月20日。石墨文档回应称，腾讯文档一直在长期研究和重点参考石墨文档，并且很大程度上借鉴了石墨文档的产品设计和技术框架。腾讯文档很早就盯住了石墨文档，作为竞品目标。近期更是购买了石墨文档，作为百度搜索关键词，准备在这一领域后来居上，抢占份额。（雷帝触网）
- “微软Office文档”小程序推出语音评论功能
36氪讯，2019年2月15日。“微软Office文档”小程序推出语音评论功能。用户在“微软Office文档”小程序中添加文件分享记录，文档转发后，语音评论将会随同文档同时被转发，所有权限内的好友都可聆听其他人的语音评论。
- 腾讯文档发布：可实现QQ微信双平台编辑
36氪讯，2018年4月18日。腾讯推出了专注多人协作的在线文档产品——腾讯文档，支持随时随地创建、编辑的多人协作式在线文档工具，拥有一键翻译、实时股票函数和浏览权限安全可控等智能化操作，以及打通QQ、微信等多个平台编辑和分享的能力。腾讯文档的推出标志着腾讯正式进军文档办公领域。
