Office中国论坛/Access中国论坛

标题: word 如何选定某样式的文字 [打印本页]

---

作者: bd123456789    时间: 2009-12-30 10:37
标题: word 如何选定某样式的文字
我的文档中运用某个样式的文字,有三段
请问如何用VBA自动选定?

---

作者: 菜的不行了    时间: 2010-7-19 12:17
一个高人给的代码，请楼主参考。下面的代码可以选择【正文】样式的所有文字。楼主只需修改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

复制代码

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3