Word文档批量处理大师
VBA代码如下:Sub AddStr()Dim myDialog As FileDialog, oFile As Variant, oDoc As DocumentSet myDialog = Application.FileDialog(msoFileDialogFilePicker) With myDialog.Filters.Clear.Filters.Add "所有 WORD 文件", "*.doc", 1.AllowMultiSelect = TrueIf .Show -1 Then Exit Sub For Each oFile In .SelectedItemsSet oDoc = Documents.Open(FileName:=oFile, Visible:=False, PasswordDocument:=OldPW)With oDoc.Content.InsertBefore "这是加入的文本" & vbCr.Close True '关闭文档End WithNext oFileEnd WithEnd Sub说明:使用该方法的好处是灵活,不用指定固定的目录来搜寻目标文档,直接运行代码,会自动弹出选择目录或哪些文档的对话框,非常方便。
只需修改要加入的内容即可。
如何把word文档进行批处理更名现在电脑里有很多word文档,但
单单是通过批处理来做的话好想是不行的楼主可以试下用记事本打开Word文档.doc文件看到的是乱码也就是说这些并非文本文件批处理很难知道文件的第一行是什么词语也就是说它很难得到"第一章"这个信息但是如果是txt文件就好说了for 命令的/F参数可以取得第一行的内容进而完成重命名的工作但是Word稳当真的很难如果楼主的是txt文件我可以提供解决办法
怎么实现WORD批处理文件?我有一批文件 想把里边的一些东西替换...
用这个吧:word文档批量处理大师,我用过几次,感觉功能还是挺强大的,最新的是8.3的版本,我没用过,我原来用过7.3的,但是都差不多,新版的更能更强大。
如果用宏的话,比较麻烦,建议你操作前把所有文档都保存一下。
以下是宏的语句:1、打开word,工具-宏-宏(或者直接按Alt+F8)进入宏的界面,如下面所示,输入一个宏名,宏名自己起,能记住就行!2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub3、返回word,工具-宏-宏(或者直接按Alt+F8),再次进入宏的界面,选择刚才编辑好的宏,并单击“运行”按钮,就可以了
转载请注明出处51数据库 » word文档批处理大师