word文档批处理 用vba

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说明：使用该方法的好处是灵活，不用指定固定的目录来搜寻目标文档，直接运行代码，会自动弹出选择目录或哪些文档的对话框，非常方便。

只需修改要加入的内容即可。

excel用vba自动生成word

Sub GenDocfromExcel()"excel控制word，生成新文件，插入图片和文件名，保存"office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library"office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library"...Range(＂A1:B13＂).Copy "复制当前内容Dim WordApp As Word.Application "定义变量Set WordApp = CreateObject(＂Word.Application＂) "生成WORD对象WordApp.Documents.Add "新建文件WordApp.Selection.Paste "粘贴fn$ = ＂D:\＂ & Range(＂b1＂) "生成文件名WordApp.ActiveDocument.SaveAs fn$ "保存文件WordApp.Quit "退出Set WordApp = Nothing "取消变量End Sub...

如何应用vba打开word文档 再关闭

假如WORD文档放在D盘里，名为ABC.docx。

下面代码能打开并关闭。

With CreateObject(＂word.application＂).Visible = True.documents.Open ＂D:\ABC.docx＂MsgBox ＂Word文档已打开，点击“确定”后将关闭＂.QuitEnd With

excel vba 启动word 宏

直接读写WORD文档是非常复杂的，基本上自己写不可行.但可以调用WORD来处理，要求就是电脑上要安装有WORD. 基本思路就是创建一个Word.application对象，再设置为对象可见，再打开某某文件. 其实代码可以在WORD中用宏录制，再移植到EXCEL中来即可.当然，要修改成WORD对象执行这些语句的形式（在WORD VBA中Application对象是默认的）.你可以在网上搜索一下创建WORD对象并使用的代码.