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种都不对。