VB直接打开word文档
用VBA操作Word
用VBA操作Word(转）在所有Office 应用程序中，Microsoft Word 可能是应用最广泛的应用程序，它还经常在自定义Office 解决方案中扮演重要的角色。
开发人员用各种不同的方式使用Word，有一些方式很简单，而另一些极其复杂。
无论涉及何种自定义解决方案，用Visual Basic for Applications (VBA) 处理Word 文档的基本方法都是一样的。
在本栏目中，我将概括地介绍如何使用Word，并提供一些关于如何运用Range 对象处理Word 文档内容的详细资料。
理解基本方法在Word 中，几乎所有的操作都要调用Document 对象本身或其内容。
当您用VBA 操作Word 时，Document 对象表示一个打开的文档，而且所有的Document 对象都是Application 对象的Documents 集合的成员。
文档是一个由字符、单词、句子和段落组成的集合，字符组成单词，单词组成句子，句子组成段落，等等。
因此，每一个Document 对象都具有Characters、Words、Sentences 和Paragraghs 四个集合。
此外，每个文档具有一个包含一个或多个节的Sections 集合，每一个节都有一个包含该节页眉和页脚的HeadersFooters 集合。
注意：您可以在Microsoft Office 2000 开发人员对象模型指南（英文）中查阅完整的Word 对象模型。
另外，您也可以使用对象浏览器和Microsoft Word Visual Basic 参考帮助来学习有关具体某个对象、属性、方法和事件的详细内容。
通过VBA 使用Word 时，Document 对象处于中心位置。
如果您要打开文档或创建新文档，就要创建新的Document 对象。
每个打开或新创建的文档均被添加至Documents 集合。
具有焦点的文档称为活动文档，由ActiveDocument 属性表示。
vb操作word详解
vb操作(cāozuò)word详解vb操作(cāozuò)word详解vb操作(cāozuò)word详解Visual Basic支持一个对象集合，该集合中的对象直接对应于Microsoft Word 97中的元素，并且通过用户界面，用户熟悉这些元素中的绝大多数。
例如，Document 对象代表了一个打开的文档，Bookmark对象代表了一个文档中的书签，而Selection对象则代表了在一个文档窗口窗格(chuānɡ ɡé)中的选定内容。
在Word中，每一类元素－文档、表格、段落、书签、域等等－都可以用Visual Basic的对象来表示。
要在Word中自动执行任务，可以使用这些对象的方法和属性。
关于理解和使用Microsoft Office 97对象模型的一般性内容，请参阅本书的第二章“理解对象模型”。
在Microsoft Office 97中的对象模型相当丰富(fēngfù)，其中包含了大约180个对象。
要查看Word对象模型的层次关系图，请参阅“帮助”中的“Microsoft Word 对象”。
要获得对某种特定对象的详细描述，可以在此图中单击该对象的名字，或是在“帮助”的索引中对特定对象进行搜索。
怎样(zěnyàng)显示Word Visual Basic帮助要使用Word Visual Basic帮助，必须在安装过程中选择“自定义”的安装方式，并且为Word选中“Visual Basic在线(zàixiàn)帮助”复选框。
否则，安装程序不会安装Visual Basic帮助。
如果用户已经安装好了Word，那么可以再次运行Setup程序来安装Visual Basic帮助。
要查看Word Visual Basic 帮助，可以在“Visual Basic 编辑器里的“帮助”菜单中点击“目录和索引(suǒyǐn)”一项。
vb操作word全
End WithEnd WithnewDoc.SaveAs filePathnewDoc.CloseEnd Function2、VB程序操作word表格（文字、图片）很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。
到是搜索到了很多问这个问题的记录。
没办法，索性只有自己去尝试了。
下面把一些代码发上来，给需要的朋友一点提示。
打开一个已经存在的wrod文件（这个文件包含了表格）Dim WordAppDim WordSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueSet Word = WordApp.Documents.Open("c:\record.dot")知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容Word.Tables(1).cell(1, 2)="内容"VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是这样，不信自己试一下就知道了。
所以上面那句话的意思就是对整个word 文档中的第一个表格的第一行第二列的内容改变为“内容”。
很简单吧？网上有些人在问是不是Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。
试一下就发现这2种都不对。
VBA宏操作Word文档的常用技巧与函数解析
VBA宏操作Word文档的常用技巧与函数解析Word文档是办公工作中最常用的工具之一，它提供了丰富的功能和设计选项。
VBA（Visual Basic for Applications）是一种用于自动化任务和增强功能的编程语言，通过使用VBA宏，我们可以进一步扩展和自定义Word文档的功能。
本文将介绍一些VBA宏操作Word文档的常用技巧和函数，帮助您更高效地利用VBA宏完成各种任务。
一、了解VBA宏VBA宏是一种编程语言，可用于创建自定义的Word文档操作和功能。
使用VBA宏，您可以自动执行重复的任务，增加文档的互动性，并提高办公效率。
为了运行VBA宏，您需要在Word文档中打开VBA 编辑器，这样就可以编写和运行VBA代码了。
二、创建宏录制Word提供了宏录制功能，可以根据您在文档中的操作记录VBA宏代码。
这是学习和入门VBA宏的好方法。
1. 打开Word文档，点击"开发工具"选项卡，然后点击"宏"按钮。
2. 在出现的对话框中，输入宏的名称，并点击"创建"按钮。
3. 在宏录制器窗口中，开始执行您想要录制的操作，例如字体样式调整、插入图片、为文本设置格式等。
4. 完成操作后，点击宏录制器窗口中的"停止录制"按钮。
三、常用VBA宏技巧VBA宏提供了许多强大的功能和技巧，以下是一些常用的技巧，可以帮助您更好地利用VBA宏操作Word文档。
1. 循环和条件语句：使用循环和条件语句可以实现自动化任务，比如在文档中查找和替换特定文本。
2. 创建用户界面：通过使用VBA宏，您可以创建自定义的用户界面，以便用户输入参数或执行特定的功能。
3. 处理表格数据：VBA宏可以帮助您处理Word文档中的表格数据，例如自动计算和合并单元格。
4. 控制Word应用程序：使用VBA宏可以控制Word应用程序的各个方面，例如打开、关闭和保存文档，设置页面布局等。
网页或VB中操作word的方法
⽹页或VB中操作word的⽅法这段代码给我帮了很⼤的忙，希望他能帮到更多的⼈！1Public Function copy_mb(file1, file2path) As String2Dim fso As Object3Dim name4name = Date & ((Timer() - 0.0001)) * 100005Set fso = CreateObject("Scripting.FileSystemObject"[img]/images/wink.gif[/img]6Set f2 = fso.getfile(file1)7f2.Copy (file2path & name & ".doc"[img]/images/wink.gif[/img]8Set f2 = Nothing9Set fso = Nothing10copy_mb = file2path & name & ".doc"11End Function121314Public Function del_file(filename) As Boolean15Dim fso As Object16Set fso = CreateObject("Scripting.FileSystemObject"[img]/images/wink.gif[/img]17Set f2 = fso.getfile(filename)18f2.Delete19Set f2 = Nothing20Set fso = Nothing21End Function222324Public Function word_exe(filename, find_str, change_str) As String25Dim wdapp As New Word.Application26On Error GoTo e127Dim f_str() As String, c_str() As String, i As Integer28wdapp.Visible = True29wdapp.Documents.Open filename30f_str = Split(find_str, "|"[img]/images/wink.gif[/img]31c_str = Split(change_str, "|"[img]/images/wink.gif[/img]32For i = 0 To UBound(f_str)33If Len(c_str(i)) < 255 Then34wdapp.ActiveDocument.Content.Find.Execute f_str(i), , True, , , , , , , c_str(i), 235Else36Dim j As Integer, n As Integer37If (Len(c_str(i)) Mod (254 - Len(f_str(i)))) > 0 Then38 j = Int(Len(c_str(i)) / (254 - Len(f_str(i)))) + 139Else40 j = Int(Len(c_str(i)) / (254 - Len(f_str(i))))41End If4243For n = 1 To j44If n <> j Then45 wdapp.ActiveDocument.Content.Find.Execute f_str(i), , True, , , , , , , Mid(c_str(i), (n - 1) * (254 - Len(f_str(i))) + 1, 254 - Len(f_str(i))) & f_str(i), 246Else47 wdapp.ActiveDocument.Content.Find.Execute f_str(i), , True, , , , , , , Mid(c_str(i), (n - 1) * (254 - Len(f_str(i))) + 1, Len(c_str(i)) - (n - 1) * (254 - Len(f_s tr(i)))), 248End If49Next n50End If5152Next i5354wdapp.ActiveDocument.Save55wdapp.ActiveDocument.Close56wdapp.Quit5758Set wdapp = Nothing59word_exe = "OK"60Exit Function6162e1:63wdapp.Quit64Set wdapp = Nothing65Dim ErrMsg As String66ErrMsg = "Error Number:" & Err.Number & "<br><br>"67ErrMsg = ErrMsg & "Error Source:" & Err.Source & "<br><br>"68ErrMsg = ErrMsg & "Error Description:" & Err.Description & "<br><br>"69word_exe = ErrMsg70Exit Function7172End Function73747576Public Function open_word(filename)77Dim wdapp As New Word.Application78wdapp.Visible = True79wdapp.Documents.Open filename80End Function81828384Public Function copy_file(file1, file2, openstr) As String85Dim fso As Object86Set fso = CreateObject("Scripting.FileSystemObject"[img]/images/wink.gif[/img] 87Set f2 = fso.getfile(file1)88f2.Copy (file2)89Set f2 = Nothing90Set fso = Nothing91copy_file = file292If openstr = "yes" Then93Call open_word(file2)94End If95End Function96979899Public Function open_new(filename) As String100Dim wpsapp As New Word.Application101wpsapp.Documents.Add102wpsapp.Documents(1).SaveAs filename103wpsapp.Documents.Open filename104wpsapp.Visible = True105open_new = filename106End Function107108109110Public Function copy_content(filename) As String111Dim wdapp As New Word.Application112wdapp.Visible = False113wdapp.Documents.Open filename114wdapp.Selection.WholeStory115copy_content = wdapp.Selection.Text116wdapp.ActiveDocument.Close117wdapp.Quit118Set wdapp = Nothing119End Function120121122123Public Function copy_content2(filename) As String124Dim wdapp As New Word.Application125wdapp.Visible = False126wdapp.Documents.Open filename127wdapp.Selection.WholeStory128wdapp.Selection.Copy129copy_content2 = "已复制内容到剪贴板!!"130wdapp.ActiveDocument.Close131wdapp.Quit132Set wdapp = Nothing133End Function134135136137138Public Sub create_obj(a, b, c)139Dim obj As New WebFile140Call obj.HTTPPutFileEx(a, b, c)141Set obj = Nothing142End Sub143144145146Public Sub get_obj(a, b, c)147Dim obj As New WebFile148Call obj.HTTPGetFile(a, b, c)149End Sub150151152153154vbscript中的处理⽅法：155=========================================156157以下内容为程序代码:158159<script language="vbscript">160161On Error Resume Next162163Dim wApp164165Set wApp = CreateObject("Word.Application"[img]/images/wink.gif[/img] 166If Err.number > 0 Then167Alert "没法保存为Word⽂件,请正确安装Word软件"168else169wApp.visible = True170//.操作代码！171end if172173174。
用VB操作word方法.docx
1.'先引用Microsoft Word 11.0 Object Library2.Option Explicit3.4.Dim WordApp As Word.Application '创建Word应用程序5.6.Private Sub Command1_Click()7.Dim i As Long8.On Error GoTo Errhandler9. CommonDialog1.Filter = "Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"10. CommonDialog1.FilterIndex = 111. CommonDialog1.ShowOpen12.Set WordApp = New Word.Application '实例化13. WordApp.Documents.Open CommonDialog1.FileName '打开Word文件14. WordApp.Visible = True'显示 Office Word 界面15.'或者Application.Visible = True16. WordApp.DisplayAlerts = False'不提示保存对话框17.18.'返回段落文字，返回的段落文字在文本框控件中19. Text1.Text = ""20.For i = 1 To ActiveDocument.Paragraphs.Count21. Text1.Text = Text1.Text & (ActiveDocument.Paragraphs(i).Range.Text &vbCrLf & vbCrLf)22.Next23.24.'控制分页25. WordApp.Selection.EndKey unit:=wdStory '将光标移到文档末尾26. WordApp.Selection.InsertBreak wdPageBreak '在文档末尾插入一页27.28.'设置图片格式的页眉29.If ActiveWindow.View.SplitSpecial <> wdPaneNone Then30. ActiveWindow.Panes(2).Close31.End If32.If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then33. ActiveWindow.ActivePane.View.Type = wdPrintView34.End If35. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader36. Selection.InlineShapes.AddPicture FileName:="F:\资料\My Pictures\2013年元旦.gif", LinkToFile:=False, SaveWithDocument:=True'加载一图片文件作为页眉37. Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft38. ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument39.40.'设置文本格式的页眉41.If ActiveWindow.View.SplitSpecial <> wdPaneNone Then42. ActiveWindow.Panes(2).Close43.End If44.If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then45. ActiveWindow.ActivePane.View.Type = wdPrintView46.End If47. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader48. Selection.TypeText Text:="办公室常用工具"49. ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument50.51.'隐藏页眉的横线52. WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Borders(wdBorderBottom).Visible = False53.54.'取得页眉的内容55. Debug.Print WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text '获取WORD第一节的页眉的文字内容56.57.58.'设置页脚59.If ActiveWindow.View.SplitSpecial <> wdPaneNone Then60. ActiveWindow.Panes(2).Close61.End If62.If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow.ActivePane.View.Type = wdOutlineView Then63. ActiveWindow.ActivePane.View.Type = wdPrintView64.End If65. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader66.If Selection.HeaderFooter.IsHeader = True Then67. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter68.Else69. ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader70.End If71. Selection.TypeText Text:="2013年"'设置页脚72. Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages73. ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument74.75. ActiveDocument.SaveAs "c:\MyWord.doc"'保存最后生成的word文档76.77.Errhandler:78.Exit Sub79.End Sub80.81.Private Sub Form_Unload(Cancel As Integer)82.On Error Resume Next83. WordApp.Quit84.Set WordApp = Nothing85.End Sub效果图如下：2、控制Word文档中的文本框对象[vb] view plaincopy1.'先引用Microsoft Word 11.0 Object Library2.Option Explicit3.4.Dim WordApp As Word.Application '创建Word应用程序5.6.Private Sub Command1_Click()7.On Error GoTo Errhandler8. CommonDialog1.Filter = "MS Office Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"9. CommonDialog1.FilterIndex = 110. CommonDialog1.ShowOpen11.Set WordApp = New Word.Application '实例化12. WordApp.Documents.Open CommonDialog1.FileName '打开Word文件13.If Documents.Count >= 1 Then14. Text1.Text = "打开的Word文件是：" & & vbCrLf & vbCrLf15.End If16. WordApp.Visible = True'显示 Office Word 界面17.'或者Application.Visible = True18. WordApp.DisplayAlerts = False'不提示保存对话框19.20. WordApp.Selection.EndKey unit:=wdStory '将光标移到文档末尾21. WordApp.Selection.Font.Bold = 122. = "黑体"23. WordApp.Selection.Font.Size = 1824. WordApp.Selection.TypeText Text:="在Word文件中插入文本框对象"25. WordApp.Selection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter '居中显示26.27.'创建文本框对象,座标（100，100），宽度200，高度20028.With ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 400, 300).Fill29.'.Transparency = 1 '设置透明色30. .ForeColor = vbRed '设置前景颜色31. .UserPicture ("F:\资料\My Pictures\758254_960x1000_0.jpg") '设置文本框对象的背景图片32.End With33. ActiveDocument.Shapes(1).TextFrame.TextRange.Text = "这是一个美女"'给文本框赋值34.'ActiveDocument.Shapes(1).Line.Transparency = 1 '设置透明边框线条35.36.'再创建一个透明背景的文本框对象37.With ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 400, 400, 300).Fill38. .Transparency = 1 '设置透明色背景39. .ForeColor = vbRed '设置前景颜色40.End With41. ActiveDocument.Shapes(2).TextFrame.TextRange.Text = "这是一个透明背景的文本框"'给文本框赋值42.'ActiveDocument.Shapes(2).Line.Transparency = 1 '设置透明边框线条43.44.'下面是获取文本框对象的内容45.Dim i As Long46.For i = 1 To ActiveDocument.Shapes.Count47. Text1.Text = Text1.Text & ("第" & i & "个文本框的内容：" & ActiveDocument.Shapes(i).TextFrame.TextRange.Text & vbCrLf)48.Next49.50. ActiveDocument.SaveAs "c:\MyWord.doc"'保存最后生成的word文档51.52.Errhandler:53.Exit Sub54.End Sub55.56.Private Sub Form_Unload(Cancel As Integer)57.On Error Resume Next58. WordApp.Quit59.Set WordApp = Nothing60.End Sub效果图如下：3、在Word文档中设置Excel风格的页码[vb] view plaincopy1.'先引用Microsoft Word 11.0 Object Library2.Option Explicit3.4.Dim WordApp As Word.Application '创建Word应用程序5.Dim WordDoc As Word.Document '创建Word文档对象6.7.Private Sub Command1_Click()8.Dim i As Long9.On Error GoTo Errhandler10. CommonDialog1.Filter = "Word(*.Doc)|*.Doc|AllFile(*.*)|*.*"11. CommonDialog1.FilterIndex = 112. CommonDialog1.ShowOpen13.Set WordApp = New Word.Application '实例化14.Set WordDoc = WordApp.Documents.Open(CommonDialog1.FileName) '选择并打开Word文件15. WordApp.Visible = True'显示 Office Word 界面16.'或者Application.Visible = True17. WordApp.DisplayAlerts = False'不提示保存对话框18.19.'设置Word文档第一页页码20.Dim WordRange As Range21.Set WordRange = WordApp.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range22.23.With WordRange24. .InsertAfter "第"25. .Font.Size = 1426. .Collapse Direction:=wdCollapseEnd27.28.'插入页码域29. .Fields.Add Range:=WordRange, Type:=wdFieldEmpty, Text:="PAGE \* Arabic ", PreserveFormatting:=True30. .Expand unit:=wdWord31. .InsertAfter "页 "32.33. .InsertAfter "共"34. .Collapse Direction:=wdCollapseEnd35.36.'插入页数域37. .Fields.Add Range:=WordRange, Type:=wdFieldEmpty, Text:="NUMPAGES \* Arabic ", PreserveFormatting:=True38. .Expand unit:=wdWord39. .InsertAfter "页"40.41. .InsertAfter "【我的Word文件作者：ChenJL1031（东方之珠）】"42. .ParagraphFormat.Alignment = wdAlignParagraphRight '右对齐43.End With44.45.'Text1.Text = WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text46.47.Set WordRange = Nothing48. ActiveDocument.SaveAs "c:\MyWord.doc"'保存最后生成的word文档49.50.Errhandler:51.Exit Sub52.End Sub53.54.Private Sub Form_Unload(Cancel As Integer)55.On Error Resume Next56. WordApp.Quit57.Set WordApp = Nothing58.End Sub效果图如下：。
vb操作word详解
vb操作WORD大全很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。
到是搜索到了很多问这个问题的记录。
没办法，索性只有自己去尝试了。
下面把一些代码发上来，给需要的朋友一点提示。
打开一个已经存在的wrod文件（这个文件包含了表格）Dim WordAppDim WordSet WordApp = CreateObject("Word.Application")WordApp.Vi s ible = TrueSet Word = WordApp.Documents.Open("c:\record.dot")知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容Word.Tables(1).cell(1, 2)="内容"VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是这样，不信自己试一下就知道了。
所以上面那句话的意思就是对整个word文档中的第一个表格的第一行第二列的内容改变为“内容”。
很简单吧？网上有些人在问是不是Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。
试一下就发现这2种都不对。
插入图片其实也很简单，代码如下：说到这，肯定又有人会问怎么在一个word里插入一个表格。
其实很简单：如果你的程序里涉及到合并及拆分单元格，那么你可能试一下这段代码：dim Tableset Table = w dApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRow s:=27, NumColumn s _:=7, DefaultTableBehavior:=w dWord9TableBehavior, AutoFitBehavior:= _wdAutoFitFixed)Set mySelection = w dApp.Documents.Application.SelectionmySelection.Cells.Borders(-7).LineStyle = 1'选中表格的第2行第3列table.Cell(2, 3).Select'向下移动6格，第1个参数和第3个是常数Call w dBook.Application.Selection.MoveDow n(5, 6, 1)'合并wdBook.Application.Selection.Cells.Merge'拆分成7行2列Call w dBook.Application.Selection.Cells.Split(7, 2, True)如果大家碰到了更复杂的程序，用程序生成起来比较麻烦，那么你就可以用模板来实现了？你可以先用word做一个模板，把表格什么的全都先写好，然后保存成模板文件。
vb操作word全
End WithEnd WithnewDoc.SaveAs filePathnewDoc.CloseEnd Function2、VB程序操作word表格（文字、图片）很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。
到是搜索到了很多问这个问题的记录。
没办法，索性只有自己去尝试了。
下面把一些代码发上来，给需要的朋友一点提示。
打开一个已经存在的wrod文件（这个文件包含了表格）Dim WordAppDim WordSet WordApp = CreateObject("Word.Application")WordApp.Visible = TrueSet Word = WordApp.Documents.Open("c:\record.dot")知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容Word.Tables(1).cell(1, 2)="内容"VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是这样，不信自己试一下就知道了。
所以上面那句话的意思就是对整个word 文档中的第一个表格的第一行第二列的内容改变为“内容”。
很简单吧？网上有些人在问是不是Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。
试一下就发现这2种都不对。
使用VBA自动化处理Word文档的技巧分享
使用VBA自动化处理Word文档的技巧分享在使用Microsoft Word处理文档时，我们经常需要进行重复性的操作，比如搜索替换特定文本、生成标准化报告、插入图片或表格等。
为了提高效率和节省时间，我们可以利用VBA（Visual Basic for Applications）来自动化处理这些任务。
本文将分享一些使用VBA自动化处理Word文档的技巧，帮助您更高效地处理文档。
1. 启用开发者选项在使用VBA之前，我们需要先启用Word的开发者选项。
打开Word，点击顶部菜单栏中的“文件”，并选择“选项”。
在弹出的窗口中，选择“自定义功能区”选项，并勾选“开发人员”复选框。
点击“确定”以关闭窗口，此时会在菜单栏中看到“开发人员”选项卡。
2. 打开VBA编辑器在开发人员选项卡中，点击“Visual Basic”按钮，即可打开VBA编辑器。
在编辑器中，我们可以编写、编辑和运行VBA 代码。
3. 使用录制宏功能如果您不熟悉VBA编程，可以使用Word的录制宏功能来快速生成VBA代码。
打开VBA编辑器后，点击“录制宏”按钮，弹出录制宏对话框。
在对话框中，为宏命名并选择宏存储的位置（默认存储在个人文档中）。
开始录制宏后，您可以进行Word中的操作，所有操作都会被录制并转换为VBA代码。
完成操作后，点击停止录制按钮，即可停止录制宏。
4. 编写VBA代码在VBA编辑器中，我们可以查看和编辑录制的宏代码。
对于一些简单的任务，直接使用录制宏生成的代码可能已经足够。
但对于一些复杂的操作，可能需要手动编写VBA代码。
以下是一些常见的VBA代码示例：(1) 搜索替换文本:```Sub ReplaceText()Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "旧文本".Replacement.Text = "新文本".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = True.MatchWholeWord = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAll End Sub```(2) 插入图片:```Sub InsertPicture()Dim myPicture As InlineShapeSet myPicture = ActiveDocument.InlineShapes.AddPicture("图片路径")myPicture.SelectWith myPicture.Width = 200.Height = 150.LockAspectRatio = msoFalseEnd WithEnd Sub```(3) 创建表格:```Sub CreateTable()Dim myTable As TableSet myTable =ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=3, NumColumns:=3)With myTable.AutoFitBehavior (wdAutoFitContent).Rows.Height = CentimetersToPoints(1).Borders.InsideLineStyle = wdLineStyleSingle.Borders.OutsideLineStyle = wdLineStyleSingleEnd WithEnd Sub```5. 自定义快捷键为了更便捷地使用VBA代码，我们可以为常用的宏指定快捷键。
在VB开发中直接打开Word文档的应用技术
在VB开发中直接打开Word文档的应用技术使用API函数ShellexecuteDeclare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (By Val hwnd As Long, ByVal lpOperation As String, ByVal lpFile As S tring, ByVal lpParameters As String, ByVal lpDirectory As String, ByVa l nShowCmd As Long) As Long参数类型及说明hwnd Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它lpFile String，想用关联程序打印或打开一个程序名或文件名lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数lpDirectory String，想使用的完整路径nShowCmd Long，定义了如何显示启动程序的常数值。
参考ShowWindow函数的nCmdShow参数把hwnd=me.hwnd,lpoperation="open",lpfile=你想打开的文件，lpparameters = vbnullstring,就可以了。
'定义变量Option ExplicitDim oWord As ObjectDim sOpenfilename As StringPrivate Sub macrodemo_Click()'创建oWord对象Set oWord = CreateObject("Word.Application")oWord.Visible = True '让WORD 可见'调用宏MacroEnd Sub'改编的宏代码Sub Macro()On Error GoTo errorControlWith oWord' 宏在00-9-14 由录制.Documents.Add Template:= _"C:\Program Files\Microsoft Office\Templates\Normal.dot", NewTe mplate:= _False.Selection.TypeText Text:="Word文档插入MP3文件一法".Selection.TypeParagraph.Selection.TypeText Text:="在Word文档中插入声音文件。
VB：成功打开word文件并提取信息
Do While myfile <> ""
Set wrddoc = wrdapp.documents.Open(myfile)
wrdapp.Visible = True
ActiveWorkbook.Sheets(1).Cells(i, 2) = wrddoc.tables(1).cell(5, 4)
ActiveWorkbook.Sheets(1).Cells(i, 5) = wrddoc.tables(1).cell(8, 2)
ActiveWorkbook.Sheets(1).Cells(i, 6) = wrddoc.tables(1).cell(9, 2)
ActiveWorkbook.Sheets(1).Cells(i, 7) = wrddoc.tables(1).cell(9, 4)
Dim mypath, myfile
Dim i As Integer
i = 1
Set wrdapp = CreateObject("word.application")
mypath = ("C:\Documents and Settings\Administrator\桌面\sales.doc")
Sub 提取信息表数据()
Dim wrdapp As Object
Dim wrddoc As Object
Dim mypath
Dim myfile As String
Dim i As Integer
i = 1
【精品文献】vb操作word
[追加500分求教] VB操作WORD问题悬赏分：200 - 解决时间：2007-7-28 11:42说明，用VB操作WORD,以下源码第一次操作完全正常，正常打开，正常替换，正常退出。
进程中并没有留下windword的进程，但第二次继续操作时就出问题，运行到ReplaceWord()就出现462错误，关闭程序重新开始又正常。
请指教出错及解决原因，追加到500分'=============打开word==============Function OpenWord(FileName) '打开指定word文档Dim wordApp As New Word.ApplicationDim wordDoc As New Word.DocumentSet wordApp = CreateObject("Word.Application")wordApp.Visible = FalseSet wordDoc = wordApp.Documents.Open(FileName)End Function============替换关键字===========Function ReplaceWord(SearchStr, ReplaceStr) '全部替换函数Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = SearchStr.Replacement.Text = ReplaceStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Replace:=wdReplaceAllEnd Function'==================另存为===================Function SaveAsWord(DiskStr, NameStr)ChangeFileOpenDirectory DiskStrActiveDocument.SaveAs FileName:=NameStr, FileFormat:=wdFormatDocument _ , LockComments:=False, Password:="", AddToRecentFiles:=True, _ WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ FalseApplication.Documents.CloseApplication.QuitEnd Function'===================清除对象============Function CloseWord()Set wordDoc = Nothing '清除文件实例Set wordApp = Nothing '清除WORD实例End Function问题补充：根据《小fisher》的答案，已经解决问题，另外在SaveAsWord过程中，ChangeFileOPenDirectory DiskStr更改为ChangeFileOpenDirectory DiskStr ，ActiveDocument.SaveAs更改为wordDoc.SaveAs，再加上原先《小fisher》提到要更改的地方，已经完美解决，谢谢！！PS：由于百度只能2次提高悬赏，每次50分，所以现在只有200分，未能对现500分的诺言，所以只有另开贴来加送300分！提问者：有野问 - 经理五级最佳答案1) Function ReplaceWord(SearchStr, ReplaceStr) '全部替换函数Selection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.......这个函数过程有错误！因为Selection是word的对象而不是VB的对象，所以不能在VB中直接引用，必须用wordApp.Selection替换掉Selection才行！这段代码在word VBA中调试不会出问题，但移植到VB中时要注意。
VBA在Word中的应用指南
VBA在Word中的应用指南Microsoft Visual Basic for Applications（VBA）是一种用于Microsoft Office应用程序的编程语言。
在这篇文章中，我将介绍如何使用VBA在Word中实现一些常见任务，以帮助您提高工作效率。
第一部分：基本操作1. 打开和关闭文档：使用VBA可以通过编写简单的代码来打开和关闭Word文档。
例如，以下代码将打开名为"Sample.docx"的文档。
```vbaDocuments.Open "C:\Path\Sample.docx"```用以下代码来关闭打开的文档。
```vbaActiveDocument.Close```2. 插入文本和格式化：使用VBA可以插入文本并对其进行格式化。
以下代码将在当前光标位置插入文本"Hello, World!"。
```vbaSelection.TypeText "Hello, World!"```可以修改字体、大小、颜色等文本格式。
例如，以下代码将将文本设置为粗体，字号设置为14，颜色设置为红色。
```vbaSelection.Font.Bold = TrueSelection.Font.Size = 14Selection.Font.Color = wdColorRed```3. 插入段落和样式：VBA还可以插入段落和应用样式。
以下代码将在文档末尾插入一个新的段落，并将其样式设置为"标题1"。
Selection.InsertParagraphAfterst.Style = wdStyleHeading1```4. 复制、剪切和粘贴文本：VBA可以实现在文档中的不同位置之间复制、剪切和粘贴文本。
以下代码将复制选定文本。
```vbaSelection.Copy```以下代码将选定文本剪切到剪贴板。
VB中直接打开Word文档
使用API函数ShellexecuteDeclare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowC md As Long) As Long参数类型及说明hwnd Long，指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框lpOperation String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它lpFile String，想用关联程序打印或打开一个程序名或文件名lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数lpDirectory String，想使用的完整路径nShowCmd Long，定义了如何显示启动程序的常数值。
参考ShowWindow函数的nCmdShow 参数把hwnd=me.hwnd,lpoperation="open",lpfile=你想打开的文件，lpparameters = vbnullstring,就可以了。
'定义变量Option ExplicitDim oWord As ObjectDim sOpenfilename As StringPrivate Sub macrodemo_Click()'创建oWord对象Set oWord = CreateObject("Word.Application")oWord.Visible = True '让WORD 可见'调用宏MacroEnd Sub'改编的宏代码Sub Macro()On Error GoTo errorControlWith oWord' 宏在00-9-14 由录制.Documents.Add Template:= _"C:\Program Files\Microsoft Office\Templates\Normal.dot", NewTempl ate:= _False.Selection.TypeText Text:="Word文档插入MP3文件一法".Selection.TypeParagraph.Selection.TypeText Text:="在Word文档中插入声音文件。