Word Vba | ExcelOffice

如何用vba开启word文档的修订功能？

2019年6月7日作者：exceloffice

暂无评论

当在word的“审阅”选项卡下的”修订“组中开启“修订”功能后，所有对word文档的修改都将被记录下来。

在vba中可以设置Document对象的TrackRevisions属性为True，开始修订功能。

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    oDoc.TrackRevisions = True
End Sub

1

2

3

4

5

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

oDoc.TrackRevisions = True

End Sub

如何用vba遍历word文档的修订？

2019年6月7日作者：exceloffice

暂无评论

在word文档中可以通过开启修订功能来追踪文档的修改记录。

在vba中可以通过Revision对象访问文档中每一处的修订。

比如如下的代码将遍历当前文档中的所有修改，并列出修改者的姓名等信息：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oRevision As Revision
    Dim oRng As Range
    For Each oRevision In oDoc.Revisions
        With oRevision
            '返回修订者的名字
            sAuthor = .Author
            '返回修改的日期
            dDate = .Date
            '返回修订的类型
            iType = .Type
            '返回修改的格式描述
            sFD = .FormatDescription
            '返回包含了修订记录的Range对象
            Set oRng = .Range
            Debug.Print sAuthor, sFD
        End With
    Next
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oRevision As Revision

Dim oRng As Range

For Each oRevision In oDoc.Revisions

With oRevision

'返回修订者的名字

sAuthor = .Author

'返回修改的日期

dDate = .Date

'返回修订的类型

iType = .Type

'返回修改的格式描述

sFD = .FormatDescription

'返回包含了修订记录的Range对象

Set oRng = .Range

Debug.Print sAuthor, sFD

End With

其中Revision对象[……]

阅读全文

如何用vba给word文档中的文字添加背景填充色高亮显示？

2019年6月1日作者：exceloffice

暂无评论

在word中可以通过“开始”选项卡下的“字体”工作组中的“文本突出显示颜色”命令给文档中的文本添加高亮显示的背景填充色，如下图所示：

在word vba中，可以使用Range对象的HighlightColorIndex属性获取或者设置高亮的背景填充色。

以下vba代码举例演示了如[……]

阅读全文

如何在word中用vba实现InlineShape和Shape对象的转换？

2019年5月22日作者：exceloffice

暂无评论

在word vba中 shape对象表示位于文字上方的位于图层的图片，InlineShape对象表示位于一段文字中间的，就像是字符一样的图片，但是有个特别要注意的就是 An inline shape can only be a picture, an OLE object, or an Active[……]

阅读全文