1. 请教高手：VBA中如何实现选择word中第二段到最后一段的文本。急呀！！！
ActiveDocument.Range(ActiveDocument.Paragraphs(2).Range.Start, ActiveDocument.Range.End).Select
2. word 中如何运用vba将文档中高亮的句段全部选中
“高亮”——是加粗吧？这么简单，用“查找”不行吗？Ctrl+F——高级——格式——字体——字体——字形：加粗——确定——突出显示所有在该范围查找的项目（勾选）——查找全部——关闭。
3. VBA如何选中Word文档中的文本、表格
使用VBA来选定Word文档中的文字，可使用Select方法选定文档中的对象。 Select方法可用于多种对象，例如Bookmark、Field、Range 和Table对象。 Ａ：下列示例选定活动文档中的第一个表格 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()
4. word用vba选中某一段中某几个字符怎么写
提供一个方案给楼主参考，可以批量修改多个文档中某个指定文字的属性：1、启动Word后，键入Alt+F11打开VBA编辑窗口；2、选择菜单“插入->模块”，然后在代码编辑区中粘贴如下代码： Option ExplicitConst g_strRootPath = "c:\Docs\" ' 指定存放所有文件的目录，可以有子目录 Const g_strTextToFind = "茶" ' 需要批量查找修改格式的文字内容Dim g_oTargetFont As New Font' 主函数 Sub Main()Dim fso, oFolder' 设置需要修改的字体属性g_oTargetFont.Size = 18 ' 字号g_oTargetFont.Color = wdColorRed ' 颜色g_oTargetFont.Bold = True ' 是否加粗（True加粗，False正常）g_oTargetFont.Italic = True ' 是否斜体（True斜体，False正常）g_oTargetFont.Underline = wdUnderlineDash ' 下划线风格'… 设置其他字体属性Set fso = CreateObject("Scripting.FileSystemObject")Set oFolder = fso.GetFolder(g_strRootPath) fso, oFolderMsgBox "完成！"End Sub' 修改指定文件夹（递归）下面的所有Word文件中指定文字的格式 Sub (fso, oFolder)Dim oSubFolder, oFileFor Each oSubFolder In oFolder.SubFolders fso, oSubFolderNextFor Each oFile In oFolder.FilesDocuments.Open oFile.PathActiveDocument.Close TrueNextEnd Sub' 修改当前打开文档里面所有指定文字的格式 Sub ()Selection.StartOf wdStorySelection.Find.ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = g_strTextToFind.Replacement.Text = "^&".Replacement.Font = g_oTargetFont.Forward = True.Wrap = wdFindContinue.Format = True.MatchCase = False.MatchWholeWord = False.MatchByte = False.MatchAllWordForms = False.MatchSoundsLike = False.MatchWildcards = TrueEnd WithSelection.Find.Execute Replace:=wdReplaceAll End Sub3、修改代码开始处的两个参数：存放所有需要批量修改文档的根目录（下面可以包含子目录，比如“C:\Docs”），需要修改的文字（比如“茶”字，也可以是一个词或者句子）；4、修改“主函数”里面想要设置的字体属性，如字号、颜色、加粗、斜体、下划线，等等；4、键入F5运行，直到看到“完成！”。5、检查各个文档里面指定的文字是否已经被设置成了指定的格式。
5. excel vba 获取word 段落内容
Sub test()Dim fso, fp, arr, wd, f, n%, fname$Set fso = CreateObject("scripting.filesystemobject")Set fp = fso.getfolder(ThisWorkbook.Path)ReDim arr(1 To fp.Files.Count, 1 To 2)arr(1, 1) = "文件号": arr(1, 2) = "标题"Set wd = CreateObject("word.application")n = 1For Each f In fp.FilesIf Right(f, 3) = "doc" Or Right(f, 4) = "docx" Thenn = n + 1: arr(n, 1) = fso.getbasename(f)fname = fso.getfilename(f)With wd.Documents.Open(ThisWorkbook.Path & "\" & fname, True, True)wd.Visible = Truearr(n, 2) = .Paragraphs(2).Range.CloseEnd WithEnd IfNextwd.QuitSheets(1).[a1].Resize(UBound(arr), UBound(arr, 2)) = arrEnd Sub现在有一个文件夹下有N个Word文件，要将他们的文件名和文档内的第二段提取到Excel表格，如何通过VBA实现
6. 如何用vba判断word文档中所选择的段落中含有用公式编辑器编辑的公式
DimfldAsField,bHaveEqFldAsBooleanbHaveEqFld=FalseForEachfldInSelection.FieldsIfLeft(Trim(fld.Code),14)="EMBEDEquation"ThenbHaveEqFld=TrueExitForEndIfNextIfbHaveEqFldThenMsgBox"选区内有公式编辑器对象"ElseMsgBox"选区内没有公式编辑器对象"EndIfEndSub
7. VBA取word段落，引用时有什么变化规律
Sub test() Dim myRange As Range Dim num as String, title as String 'Set ps = Selection.Bookmarks("\headinglevel").Range.Paragraphs Set ps = ActiveDocument.Bookmarks("\headinglevel").Range.Paragraphs For Each p In ps Set myRange = p.Range num = myRange.ListFormat.ListString title = myRange.Text MsgBox "编号：" & num & vbCrLf & "标题内容：" & title Next p 'Set myRange = Selection.Bookmarks("\headinglevel").Range.Paragraphs(1).Range 'MsgBox "编号：" & myRange.ListFormat.ListString & vbCrLf & "标题内容：" & myRange.Text End Sub 另外附上一段把标题(Heading)序号取出并附加在标题内容后面的代码：Sub ReplaceHeadingContent() Dim myRange As Word.Range Dim num As String, content As String '取得所有书签 Set ps = ActiveDocument.Bookmarks("\headinglevel").Range.Paragraphs '对书签中每一个段落进行处理 For Each p In ps Set myRange = p.Range With myRange '把Range结束范围往前移一个字符，目的是为了不包括换行符 .MoveEnd Unit:=wdWord, Count:=-1 '取出段落序号 num = Trim(.ListFormat.ListString) '取出Heading的内容 content = Trim(.Text) '如果段落序号不为空，则把段落序号取出附加的标题内容后面 If Trim(num) <> "" Then If num = "1.1.1.1.1." Or num = "1.1.1.1.1" Then MsgBox "到目标点了。" End If If Right(num, 1) = "." Then num = Left(num, Len(num) – 1) '不需段落序号最后面的“.” .Text = content & "<" & num & ">" End If 'MsgBox "编号：" & num & vbCrLf & "标题内容：" & content End With Next p End Sub
8. word vba 文本 变量 选取特定段落
我不知你的问题是什么？你这段代码没有写完。 .Text = g+CStr(k) //此条语句是将二个变量（g,k)变成文本”lesson 1",不知是否有误这一句返回额结果是lesson1，不是lesson 1 差一个空格，如果要空格，应该=g & “ ” & k
9. wordvba如何提取文章段落
ThisDocument.Paragraphs(3)ThisDocument.Paragraphs(3).Range.SelectSelection.Font.Size = 12Selection.Font.ColorIndex = wdRed上面语句表示文档的第三段落的内容，供你参考。
10. 如何通过VBA选取word中不连续的几段文本
我不知你的问题是什么？你这段代码没有写完。.text=g+cstr(k)//此条语句是将二个变量（g,k)变成文本”lesson1",不知是否有误这一句返回额结果是lesson1，不是lesson1差一个空格，如果要空格，应该=g&“”&k
