大众计算机学习网

专门提供各种电脑教程

word vba 选中段落

Admin | 2016-5-13 5:54:54 | 被阅次数 | 10609

  使用下面的代码,可以选中WORD的段落。

  一、选中某些字或段落

  ActiveDocument.Words(3).Select
  ActiveDocument.Paragraphs(3).Range.Select

  二、选中某个范围的内容

  以下代码可选定两个【例子】之间的内容   
            
  Selection.Find.ClearFormatting   
          With Selection.Find   
                  .Text   =   "【例子】"   
                  .Forward   =   True   
                  .Wrap   =   wdFindContinue   
          End With   
  Selection.Find.Execute   
  range1   =   Selection.End   
  Selection.Find.Execute   
  range2   =   Selection.Start   
  ActiveDocument.Range(range1,range2).Select

  三、选中红色文字所在的段落

  Dim myRange As Range
  Set myRange = ActiveDocument.Content
  '定义myRange为主文档文章
  With myRange.Find
  '在里面主文档里面查找东西
     .Format = True
     .Font.Color = wdColorBlue '字体为蓝色
     If .Execute = True Then myRange.Paragraphs(1).Range.Select
     '运行指定的查找操作,如果查找成功,则选取
  End With