word 如何选定某样式的文字

bd123456789

我的文档中运用某个样式的文字,有三段
请问如何用VBA自动选定?

菜的不行了

一个高人给的代码，请楼主参考。下面的代码可以选择【正文】样式的所有文字。楼主只需修改Set myStyle = myDoc.Styles(wdStyleNormal)中的wdStyleNormal为其他样式即可。

1. Sub 选择某一样式的所有内容()
   
2.     Dim myDoc As Document
   
3.     Dim myPara As Paragraph
   
4.     Dim myStyle As Style
   
5.     Set myDoc = ActiveDocument
   
6.     Set myStyle = myDoc.Styles(wdStyleNormal)
   
7.     Application.ScreenUpdating = False
   
8.     myDoc.DeleteAllEditableRanges wdEditorEveryone
   
9.     For Each myPara In myDoc.Paragraphs
   
10.         If myPara.Style = myStyle Then
    
11.             myPara.Range.Editors.Add wdEditorEveryone
    
12.         End If
    
13.     Next myPara
    
14.     myDoc.SelectAllEditableRanges wdEditorEveryone
    
15.     myDoc.DeleteAllEditableRanges wdEditorEveryone
    
16.     Application.ScreenUpdating = True
    
17. End Sub

复制代码