Word Vba | ExcelOffice

如何用vba为word文档中的所有表格自动插入题注和交叉引用？

2018年12月10日作者：exceloffice

暂无评论

在长篇的word文档排版中，往往需要在文档中表格的上方插入题注，同时在题注上方插入一个“XXX如YYY所示”的交叉引用。

可以使用如下的vba代码实现:

Sub QQ1722187970()
    Word.Application.ScreenUpdating = False
    Dim oRng As Range
    Dim oDoc As Document
    Dim oCL As CaptionLabel
    Dim oT As Table
    Set oDoc = Word.ActiveDocument
    With oDoc
        Set oCL = Word.CaptionLabels.Add("表")
        '设置新增的题注样式
        With oCL
            .ChapterStyleLevel = 1
            .IncludeChapterNumber = True
            .NumberStyle = wdCaptionNumberStyleArabic
        End With
        i = 1
        For Each oT In .Tables
            Set oRng = .Range(oT.Range.Start - 2, oT.Range.Start - 1)
                With oRng
        '            将oRng对象按照整个段落选中 , oRng对象自动变为整个段落的Range对象
                    oRng.Expand wdParagraph
                    '如果有自动编号，删除
                    oRng.ListFormat.RemoveNumbers
'                    读取标题的文本内容
                    sText = VBA.Replace(oRng.Text, Chr(13), "")
                    .Delete
                    '插入题注
                    .InsertCaption "表", sText
                    '插入XX如YY所示的交叉引用
                    .InsertBefore "所示:" & Chr(13)
                    '重新定义区域
                    .SetRange .Start, .Start
                    .InsertCrossReference "表", wdOnlyLabelAndNumber, i
                    oRng.Expand wdParagraph
                    .SetRange .Start, .Start
                    .InsertBefore sText & "如"
                End With
                i = i + 1
        Next
    End With
    Word.Application.ScreenUpdating = True
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

33

34

35

36

37

38

39

40

41

42

Sub QQ1722187970()

Word.Application.ScreenUpdating = False

Dim oRng As Range

Dim oDoc As Document

Dim oCL As CaptionLabel

Dim oT As Table

Set oDoc = Word.ActiveDocument

With oDoc

Set oCL = Word.CaptionLabels.Add("表")

'设置新增的题注样式

With oCL

.ChapterStyleLevel = 1

.IncludeChapterNumber = True

.NumberStyle = wdCaptionNumberStyleArabic

End With

i = 1

For Each oT In .Tables

Set oRng = .Range(oT.Range.Start - 2, oT.Range.Start - 1)

With oRng

' 将oRng对象按照整个段落选中 , oRng对象自动变为整个段落的Range对象

oRng.Expand wdParagraph

'如果有自动编号，删除

oRng.ListFormat.RemoveNumbers

' 读取标题的文本内容

sText = VBA.Replace(oRng.Text, Chr(13), "")

.Delete

'插入题注

.InsertCaption "表", sText

'插入XX如YY所示的交叉引用

.InsertBefore "所示:" & Chr(13)

'重新定义区域

.SetRange .Start, .Start

.InsertCrossReference "表", wdOnlyLabelAndNumber, i

oRng.Expand wdParagraph

.SetRange .Start, .Start

.InsertBefore sText & "如"

End With

i = i + 1

Word.Application.ScreenUpdating = True

End Sub

如何用vba获取word文档的Selection对象所在的标题样式级别？

2018年12月10日作者：exceloffice

暂无评论

如下图所示为某个word文档中的当前选中内容

如果要用vba获取当前选中内容所在的标题样式所在的级别，也就是上图中的“2.3.2 整合性”，可以使用如下的vba代码：

Sub QQ1722187970()
    Dim oRng As Range
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oBM As Bookmark
    Dim oP As Paragraph
    '定位当前的Selection对象所在的所有标题及其子标题的文本所在的区域
    Set oBM = oDoc.Bookmarks("\HeadingLevel")
    Set oRng = oBM.Range
    With oRng
       '获取所在的标题样式级别的第一个段落
       Set oP = .ListParagraphs(1)
       '获取所在的标题样式级别的编号
       sNum = .ListFormat.ListString
       '整个标题样式级别所包含的所有文本
       sText = .Text
       '输出"2.32 整合性"
       Debug.Print sNum & " " & oP.Range.Text
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Sub QQ1722187970()

Dim oRng As Range

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oBM As Bookmark

Dim oP As Paragraph

'定位当前的Selection对象所在的所有标题及其子标题的文本所在的区域

Set oBM = oDoc.Bookmarks("\HeadingLevel")

Set oRng = oBM.Range

With oRng

'获取所在的标题样式级别的第一个段落

Set oP = .ListParagraphs(1)

'获取所在的标题样式级别的编号

sNum = .ListFormat.ListString

'整个标题样式级别所包含的所有文本

sText = .Text

'输出"2.32 整合性"

Debug.Print sNum & " " & oP.Range.Text

End With

End Sub

上述代码，使用了word中的预定义书签“\Hea[……]

阅读全文

如何用vba操作word的项目符号、编号列表、多级列表？

2018年12月9日作者：exceloffice

暂无评论

在word中可以为段落添加项目符号或者编号列表。

项目符合或者编号列表都属于一级列表，此外还可以为word段落添加多级列表。

在vba中，每个连续的项目符号或者编号列表或者多级列表构成了一个List对象。

所有List对象组合在一起构成了Lists集合对象。

当用For Ea[……]

阅读全文

如何用vba在word文档中插入交叉引用？

2018年12月8日作者：exceloffice

暂无评论

在word中用vba插入交叉引用，可以使用Range对象或Selection对象的IInsertCrossReference方法。

它的语法如下：

Sub InsertCrossReference(ReferenceType, ReferenceKind As WdReferenceKind, ReferenceItem, [InsertAsHyperlink], [IncludePosition], [SeparateNumbers], [SeparatorString])

1	Sub InsertCrossReference(ReferenceType, ReferenceKind As WdReferenceKind, ReferenceItem, [InsertAsHyperlink], [IncludePosition], [SeparateNumbers], [SeparatorString])

其中各个参数的说明如下：

Name
Required/Opt[……]

阅读全文

如何用vba在word文档中实现文本内容的修改、删除、添加等各种操作？

2018年12月8日作者：exceloffice

暂无评论

用word vba 最经常的一个操作就是对word文档中的文本内容进行修改、删除、添加等。

本文将举例说明各种情况的文本内容的修改、删除、添加，其中段落分隔符为一个字符。

1.在word文档的开头添加文本内容

Sub QQ1722187970()
   Dim oRng As Range
   Dim oDoc As Document
   Set oDoc = Word.ActiveDocument
   Set oRng = oDoc.Range(0, 0)
   With oRng
        '在文档的开头插入插入字符,oRng对象将扩展为包含新插入的的字符
        .InsertBefore "test" & Chr(13)
        '获取现在的oRng对象的文本内容，含刚才插入的内容。
        sText = .Text
        Debug.Print sText, Len(sText)
   End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

Sub QQ1722187970()

Dim oRng As Range

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Set oRng = oDoc.Range(0, 0)

With oRng

'在文档的开头插入插入字符,oRng对象将扩展为包含新插入的的字符

.InsertBefore "test" & Chr(13)

'获取现在的oRng对象的文本内容，含刚才插入的内容。

sText = .Text

Debug.Print sText, Len(sText)

End With

End Sub

2.在w[……]

阅读全文

如何用vba操作word的题注？

2018年12月8日作者：exceloffice

暂无评论

如下图所示

在word中可以为表格、图形、公式等插入题注。

题注有自动插入的题注和手动插入的题注两种，自动插入的题注是指预先设置好，当插入某个具体的对象时，自动添加的题注。

题注有题注标签，在word中内置了3种题注标签，分别是Figure（图形）、Table（表格）、Eq[……]

阅读全文

如何用vba查找替换word文档中的英文引号为空，而不包含中文引号？

2018年11月2日作者：exceloffice

暂无评论

当word 文档中即有英文引号也有中文引号，当用查找替换查找英文引号替换为空时，会把中文引号也一起替换。

这时候我们可以借助word查找替换中可以直接按照unicode编码查找字符的功能，将英文引号的unicode编码找出来，然后再在查找框中输入形如”^uXXXX”这样的查找内容，只查找英文的[……]

阅读全文

如何用vba给word文档的右键快捷菜单添加命令？

2018年10月23日作者：exceloffice

暂无评论

如下图所示：

当在word文档中单击鼠标右键时，为弹出的快捷菜单中添加一个自定义的命令“给加粗的字符添加括号”，可以使用以下的代码：

Sub CreateMenu()
      '命令栏
    Dim oCB As CommandBar
    '通用的命令栏控件
    Dim oCBC As CommandBarControl
    '命令按钮控件
    Dim oCBB As CommandBarButton
    '组合框控件
    Dim oCBCom As CommandBarComboBox
    '组合框控件
    Dim oCBCom1 As CommandBarComboBox
    '弹出式菜单
    Dim oCBPop As CommandBarPopup
    Set oCB = Word.Application.CommandBars("Text")
    With oCB
        .Reset
        Set oCBB = .Controls.Add(Before:=1)
        With oCBB
            .Caption = "给加粗的字符添加括号"
            .FaceId = 19
            .OnAction = "xyf"
        End With
    End With
End Sub
Sub xyf()
    MsgBox "测试成功"
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

Sub CreateMenu()

'命令栏

Dim oCB As CommandBar

'通用的命令栏控件

Dim oCBC As CommandBarControl

'命令按钮控件

Dim oCBB As CommandBarButton

'组合框控件

Dim oCBCom As CommandBarComboBox

'组合框控件

Dim oCBCom1 As CommandBarComboBox

'弹出式菜单

Dim oCBPop As CommandBarPopup

Set oCB = Word.Application.CommandBars("Text")

With oCB

.Reset

Set oCBB = .Controls.Add(Before:=1)

With oCBB

.Caption = "给加粗的字符添加括号"

.FaceId = 19

.OnAction = "xyf"

End With

End Sub

Sub xyf()

MsgBox "测试成功"

End Sub

这里特别要注意的是，给word 文档的右键快捷菜单添加自定义命令对应的命令栏是[……]

阅读全文

如何用word vba列举word应用程序中所有内置命令菜单栏的名称？

2018年10月23日作者：exceloffice

暂无评论

如下图所示

如果要在word文档中列出word应用程序中所有的内置命令菜单栏的名称，可以使用以下的代码：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oCB As CommandBar
    Dim oT As Table
    With oDoc
        For Each oT In .Tables
            oT.Delete
        Next
        Set oT = .Tables.Add(.Range, 1, 2)
        With oT
            .Style = "网格型"
            .Cell(1, 1).Range = "命令栏名称"
            .Cell(1, 2).Range = "命令栏中文名称"
            I = 2
            For Each oCB In Word.Application.CommandBars
                .Rows.Add
                .Cell(I, 1).Range = oCB.Name
                .Cell(I, 2).Range = oCB.NameLocal
                I = I + 1
            Next
        End With
    End With
    Set oT = Nothing
    Set oDoc = Nothing
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

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oCB As CommandBar

Dim oT As Table

With oDoc

For Each oT In .Tables

oT.Delete

With oT

.Style = "网格型"

.Cell(1, 1).Range = "命令栏名称"

.Cell(1, 2).Range = "命令栏中文名称"

I = 2

For Each oCB In Word.Application.CommandBars

.Rows.Add

.Cell(I, 1).Range = oCB.Name

.Cell(I, 2).Range = oCB.NameLocal

I = I + 1

End With

Set oT = Nothing

Set oDoc = Nothing

End Sub

如何用word vba 给word文档插入指定行列的表格？

2018年10月23日作者：exceloffice

暂无评论

要用用word vba 给word文档插入指定行列的表格，需要用到Tables对象的Add方法。

以下示例代码可以在当前的word文档中插入一个3×3的表格，表格的样式套用“网格型”：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    With oDoc
        Set oT = .Tables.Add(.Range(0, 0), 3, 3)
        With oT
            .Style = "网格型"
        End With
    End With
    Set oT = Nothing
    Set oDoc = Nothing
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

With oDoc

Set oT = .Tables.Add(.Range(0, 0), 3, 3)

With oT

.Style = "网格型"

End With

Set oT = Nothing

Set oDoc = Nothing

End Sub

近期文章

关键字

功能