返回目录：word文档
====57132899====
都是直接读取到数组里的，还选择什么劲
使用VBA来选定Word文档中的文字，可使用Select方法选定文档中的对象。 Select方法可用于多种对象，例如Bookmark、Field、Range 和Table对象。 Ａ：下列示例选定活动文档中的第一个7a64e59b9ee7ad94361表格 Sub SelectTable()ActiveDocument.Tables(1).SelectEnd Sub Ｂ：下列示例选定活动文档中的第一个域 Sub SelectField()ActiveDocument.Fields(1).SelectEnd Sub Ｃ：下列示例选定活动文档中的前四个段落 Range方法用于创建一个引用前四个段落的 Range对象，然后将 Select方法应用于 Range对象。 Sub SelectRange()Dim rngParagraphs As RangeSet rngParagraphs = ActiveDocument.Range( Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(4).Range.End)rngParagraphs.SelectEnd Sub Ｄ：下列命令选定活动文档中的第一个单词 Sub SelectFirstWord()
使用“宏”功能选择，方法如下：
复制以下脚本：
Sub SelectAllTables()
Dim tempTable As Table
Application.ScreenUpdating = False
'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
'删除所有可编辑的e79fa5e98193e58685e5aeb9364区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
2.打开word-视图-宏（查看宏）
3.在“宏”对话框中，输入宏名“SelectAllTables”(自定义)点击【创建】按钮
4. 删除默认脚本，粘贴复制的脚本，保存并关闭“宏”对话框
5. 视图-宏-查看宏-运行
6. 稍等，word将选择该文档中全部的表格
只能选中单个表格，或者全选，也就是文中所有内容。