摘要：VBA excel调用word内容在有word文件的文件夹中新建一个excel工作簿，打开工作簿，按Alt+F11，把下面的代码复制进去，按F5执行。代码会复制work文件的前300个字符到excel...

VBA excel调用word内容

在有word文件的文件夹中新建一个excel工作簿，打开工作簿，按Alt+F11，把下面的代码复制进去，按F5执行。

代码会复制work文件的前300个字符到excel中。

Sub test() Dim i%, myName$, myPath$, AppWord As Object Set AppWord = CreateObject(＂Word.Application＂) myPath = ThisWorkbook.Path & ＂\＂ myName = Dir(myPath & ＂*.doc*＂) With ActiveSheet .Columns(＂A:B＂).ClearContents Do While myName ＂＂ AppWord.Documents.Open Filename:=myPath & myName i = i + 1 .Cells(i, 1) = myName .Cells(i, 2) = AppWord.ActiveDocument.Range(Start:=0, End:=300).Text AppWord.ActiveDocument.Close False myName = Dir Loop End With AppWord.Quit Set AppWord = Nothing MsgBox ＂已完成。

＂End Sub...

如何在Excel VBA 中读写word文档 步骤

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

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将excel中的数据转化成word文档

我是使用OFFICE 2003来做的，不知道你那好使不好使Private Sub CommandButton2_Click()"防止重复打开同一Word文档导致错误If Not WordDocIsOpen(＂F：\总工月报表.doc＂) Then"创建Word对象Set objWordApp = CreateObject(＂Word.Application＂)objWordApp.Visible = True"打开指定文档Set objDocument = objWordApp.Documents.Open(＂F：\总工月报表.doc＂)"获取当前Excel的SHEET1的单元格C2数据strName = ThisWorkbook.Sheets(1).Cells(2, 3).Value"将取得得值设定到Word表格的1行2列中objDocument.Tables(1).Cell(1, 2).Range.Text = strNameEnd IfEnd Sub"判断Word文档是否被重复打开Function WordDocIsOpen(ByVal strDocName As String) As BooleanDim objWordApp As ObjectDim objWordDoc As ObjectWordDocIsOpen = FalseSet objWordApp = NothingOn Error Resume NextstrDocName = UCase(strDocName)"判断是否有Word程序被打开Set objWordApp = GetObject(, ＂Word.Application＂)If Not objWordApp Is Nothing Then"判断指定Word文件是否被打开For Each objWordDoc In objWordApp.DocumentsIf UCase(objWordDoc.FullName) = strDocName ThenWordDocIsOpen = TrueExit ForEnd IfNextEnd IfSet objWordDoc = NothingSet objWordApp = NothingEnd Function

如何用VBA提取word中的指定文本到excel

Sub abc()Dim App, WrdDoc, MyPath, MyFile, BM, StrMypath = ＂文件实际路径\*.doc＂ "请修改实际储存路径！Set App = CreateObject(＂Word.Application＂) "用Set关键字创建Word应用成序对象！MyFile = Dir(Mypath) " 获得第一个WORD文档do while MyFile ＂＂ " 遍历Mypath下面的所有WORD文档 App.Visible = True Set WrdDoc = App.Documents.Open(MyFile) "打开这个Word文件！ for each BM in WrdDoc.Bookmarks " 遍历文档中的所有书签 Str = BM.Range " 读取书签内容 next BM WrdDoc.Close " 关闭文件 MyFile = Dir " 下一个WORD文档LoopSet App = NothingEnd Sub...

如何用VBA提取word中的指定文本到excel

Sub abc()Dim App, WrdDoc, MyPath, MyFile, BM, StrMypath = ＂文件实际路径\*.doc＂ "请修改实际储存路径！Set App = CreateObject(＂Word.Application＂) "用Set关键字创建Word应用成序对象！MyFile = Dir(Mypath) " 获得第一个WORD文档do while MyFile ＂＂ " 遍历Mypath下面的所有WORD文档App.Visible = TrueSet WrdDoc = App.Documents.Open(MyFile) "打开这个Word文件！for each BM in WrdDoc.Bookmarks " 遍历文档中的所有书签Str = BM.Range " 读取书签内容next BMWrdDoc.Close " 关闭文件MyFile = Dir " 下一个WORD文档LoopSet App = NothingEnd Sub

怎么在excel 里用vba新建word文档并写入文字,表格,图片

Dim Worddocument As Word.ApplicationSet Worddocument = CreateObject(＂word.application＂)With Worddocument.Documents.Add "打开一份文档.Visible = True "汇话状态打开end with以上打开一个新的word文档