word vba | ExcelOffice

如何用vba获取word文档中某个段落的前、后段落的内容？

2019年10月19日作者：exceloffice

326 次浏览暂无评论

在word vba 中，Paragraph对象代表word段落。

可以使用如下的代码获取任意一个段落的文本内容：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oP As Paragraph
    Set oP = oDoc.Paragraphs(1)
    With oP
        MsgBox .Range.Text
    End With
End Sub

1

2

3

4

5

6

7

8

9

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oP As Paragraph

Set oP = oDoc.Paragraphs(1)

With oP

MsgBox .Range.Text

End With

End Sub

如果要获取指定段[……]

阅读全文>>>

如何用vba遍历word文档中的所有标题样式？

2019年10月17日作者：exceloffice

291 次浏览暂无评论

在word文档中，如果套用了很多标题样式，有时候需要遍历同一级的标题，对其进行后续处理。

在vba 中可以使用定位的方法快速地定位标题，但是这个定位是定位所有标题样式，不分层级的。

为此，可以使用[……]

阅读全文>>>

如何用vba新增、修改、删除word中的制表位？

2019年9月20日作者：exceloffice

158 次浏览暂无评论

在word中制表位可以用于快速地定位、排版字符。

打开“制表位”对话框，如下图所示：

可以看到当前的默认制表位为2个字符单位，可以通过Document 对象的 DefaultTabStop[……]

阅读全文>>>

如何用vba遍历word文档的中文词组、英语单词？

2019年9月19日作者：exceloffice

161 次浏览暂无评论

在word中都是由中文、英文组成的文本。

所有内容都是由词组组成的。

比如word中这样的一段文字：

视频提供了功能强大的方法帮助您证明您的观点。

1	视频提供了功能强大的方法帮助您证明您的观点。

可以分解成的词组有：[……]

阅读全文>>>

如何用vba新增、修改、删除word构建基块或自动图文集？

2019年9月9日作者：exceloffice

133 次浏览暂无评论

word构建基块、自动图文集可以将常用的文本、段落、表格、图表、图片等储存起来。

如下图所示：

通过构建基块、自动图文集，可以快速地添加常用的文本、段落、表格、图表、图片。

比如一个[……]

阅读全文>>>

如何用vba获取当前word打开了哪些模板？

2019年9月9日作者：exceloffice

97 次浏览暂无评论

在word vba 中Template对象表示模板。Templates对象表示当前打开的所有模板的集合。

以下代码可以获取当前word打开了哪些模板：
[crayon-5df42b74b34a7237[……]

阅读全文>>>

如何用vba选中所有word文档中的某个格式的文本？

2019年8月27日作者：exceloffice

155 次浏览暂无评论

用vba可以查找word文档中满足格式的内容，如果想要一次性选中所有这些满足格式的内容，可以使用如下的代码：

Sub QQ1722187970()
    Const wdReplaceAll = 2
    Const wdFindStop = 0
    Const wdEditorCurrent = -6
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    oDoc.Windows(1).View.ShadeEditableRanges = False
    Dim oEditor As Editor
    Dim oRng As Range
    Set oRng = Word.Selection.Range
    '先判断是否有选中区域，没有选中则表示整个文档
    If oRng.Start = oRng.End Then
        Set oRng = oDoc.Content
    End If
    With oRng.Find
        .ClearFormatting
        '要查找的格式
        .Font.Bold = True
        .Text = ""
        Do
           '先执行一次查找
            bResult = .Execute(FindText:="", Format:=True)
            '如果找到了
            If bResult = True Then
                '为找到的内容单元格区域添加Editor
                 oRng.Editors.Add (wdEditorCurrent)
            End If
        Loop Until bResult = False
    End With
    '选中所有可以编辑的区域
    oDoc.Content.GoToEditableRange(wdEditorCurrent).Editors(1).SelectAll
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

Sub QQ1722187970()

Const wdReplaceAll = 2

Const wdFindStop = 0

Const wdEditorCurrent = -6

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

oDoc.Windows(1).View.ShadeEditableRanges = False

Dim oEditor As Editor

Dim oRng As Range

Set oRng = Word.Selection.Range

'先判断是否有选中区域，没有选中则表示整个文档

If oRng.Start = oRng.End Then

Set oRng = oDoc.Content

End If

With oRng.Find

.ClearFormatting

'要查找的格式

.Font.Bold = True

.Text = ""

Do

'先执行一次查找

bResult = .Execute(FindText:="", Format:=True)

'如果找到了

If bResult = True Then

'为找到的内容单元格区域添加Editor

oRng.Editors.Add (wdEditorCurrent)

End If

Loop Until bResult = False

End With

'选中所有可以编辑的区域

oDoc.Content.GoToEditableRange(wdEditorCurrent).Editors(1).SelectAll

End Sub

[……]

阅读全文>>>

如何用vba给word文档添加可以编辑的内容区域？

2019年8月27日作者：exceloffice

97 次浏览暂无评论

在word中可以通过“审阅”选项卡下的“保护”组中的“限制编辑”命令限制对word文档内容的修改，如下图所示：

如果要将某个word内容区域添加为可以编辑的区域，可以用Range对象的Edito[……]

阅读全文>>>

如何用vba按照文本查找word文档并高亮显示？

2019年8月27日作者：exceloffice

248 次浏览暂无评论

在word文档中，当我们要查找某个文本字符串时，如果需要将所有找到的字符串高亮显示，可以使用Find对象的HitHighlight方法。

如下图所示

如果要查找文档中的“主题”两个字，并且[……]

阅读全文>>>

如何用vba定位word表格的单元格，并且删除单元格中的特定字符？

2019年7月25日作者：exceloffice

270 次浏览暂无评论

在用vba处理word表格时，经常会遇到需要遍历word单元格的内容。

比如如下所示的word表格中

需要定位每个单元格，并删除单元格内容中的前4个字符，这时候可以使用如下的vba代码：[……]

阅读全文>>>

如何用vba获取word文档中某个段落的前、后段落的内容？

如何用vba遍历word文档中的所有标题样式？

如何用vba新增、修改、删除word中的制表位？

如何用vba遍历word文档的中文词组、英语单词？

如何用vba新增、修改、删除word构建基块或自动图文集？

如何用vba获取当前word打开了哪些模板？

如何用vba选中所有word文档中的某个格式的文本？

如何用vba给word文档添加可以编辑的内容区域？

如何用vba按照文本查找word文档并高亮显示？

如何用vba定位word表格的单元格，并且删除单元格中的特定字符？

站长强烈推荐学习VBA必备书籍

热门文章

友情链接

微信公众号

站长强烈推荐学习VBA必备书籍

热门文章

标签云

友情链接

微信公众号