Office365|VBA教程|Excel教程|Word教程|WPS-ExcelOffice

如何用vba获取excel工作表中数据在任意位置的单元格区域range?

2018年12月17日作者：exceloffice

暂无评论

在编写vba的解决方案时，excel工作表的数据所在的单元格区域未必在以A1单元格作为开始，有可能以任意一个单元格所在的位置作为开始，如下图所示：

为了精准地定位到excel工作表中的唯一的数据区域，需要灵活使用Range对象的各种属性。

以下是一个通用的获取excel工作表中唯一的数据区域Range对象的vba代码：
[crayon-5c18cb24b5db71720686[……]

阅读全文

如何用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中的预定义书签“\HeadingLevel”定位当前的选择区域所在的标题及其所有子标题的文本。

由于上图word文档中[……]

阅读全文

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

2018年12月9日作者：exceloffice

暂无评论

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

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

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

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

当用For Each ..In语句遍历Lists集合对象时，它是按照从文档的末尾到开头的方向进行遍历的，这点要特别注[……]

阅读全文

如何用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/Optional
Data type
Description

ReferenceTy[……]

阅读全文

如何用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.在word文档的末尾添加文本内容

Sub QQ1722187970()
   Dim oRng As Range
   Dim oDoc As Document
   Set oDoc = Word.ActiveDocument
   Set oRng = oDoc.Content
   With oRng
        '在文档的末尾插入插入字符,oRng对象将扩展为包含新插入的的字符
        .InsertAfter "test"
        '获取文档末尾的5个字符，最后一个字符为段落分隔符，看是否是刚刚插入的test。
        sText = Right(.Text, 5)
        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.Content

With oRng

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

.InsertAfter "test"

'获取文档末尾的5个字符，最后一个字符为段落分隔符，看是否是刚刚插入的test。

sText = Right(.Text, 5)

Debug.Print sText, Len(sText)

End With

End Sub

[……]

阅读全文

如何用vba操作word的题注？

2018年12月8日作者：exceloffice

暂无评论

如下图所示

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

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

题注有题注标签，在word中内置了3种题注标签，分别是Figure（图形）、Table（表格）、Equation（公式），这3种题注标签是不可删除的。

在vba中CaptionLabel对象代表[……]

阅读全文

如何用vba操作ppt幻灯片的动画？

2018年12月6日作者：exceloffice

暂无评论

要用vba操作ppt幻灯片的动画，首先要理解ppt vba中幻灯片的动画对象的层级关系。

在ppt vba 中TimeLine对象保存着所有动画的信息，属于动画的最顶级对象，然后通过TimeLine对象的MainSequence属性可以返回一个代表所有动画效果Effect对象对应的集合对象Sequence。

如果具有触发动画，也就是需要通过单击某个图形才能触发具体的动画，可以通过Tim[……]

阅读全文

如何用vba根据ppt幻灯片中的已有图形插入生成一个N×M的相同图形？

2018年12月6日作者：exceloffice

暂无评论

如下图所示为ppt幻灯片中已有的一个椭圆形：

现在希望快速地在当前幻灯片中插入一个75个同尺寸大小的椭圆形，如下图所示排列：

这是一个典型的根据已有图形插入一个N×M型图形的问题

可以使用如下的vba通用代码:

Sub QQ1722187970()
    Dim oPPT As Presentation
    Dim oSlide As Slide
    Dim oOldShape As Shape
    Dim oNewShape As Shape
    '当前ppt演示文稿
    Set oPPT = PowerPoint.ActivePresentation
    With oPPT
        '在第一个幻灯片上操作
        Set oSlide = .Slides(1)
            With oSlide
                '总共80个
                iTotalNum = 75
                '每行放10个
                iPerNum = 10
                '已有图形的名称为Num1
                Set oOldShape = .Shapes("Num1")
                '先设置已有图形的尺寸
                With oOldShape
                    .Width = 20
                    .Height = 20
                End With
                For i = 1 To iTotalNum - 1
                    sName = "Num" & i + 1
                    '插入新的椭圆
                    Set oNewShape = .Shapes.AddShape(msoShapeOval, 0, 0, 0, 0)
                    With oNewShape
                        .Name = sName
                        '长宽一样
                        .Width = oOldShape.Width
                        .Height = oOldShape.Height
                        '左边依次递增,此处的10为图形之间的横向间隔
                        .Left = oOldShape.Left + (oOldShape.Width + 10) * (i Mod iPerNum)
                        '上下依次递增,此处的5为图形之间的上下间隔
                        .Top = oOldShape.Top + (oOldShape.Height + 5) * Int(i / iPerNum)
                    End With
                Next i
            End With
    End With
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

Sub QQ1722187970()

Dim oPPT As Presentation

Dim oSlide As Slide

Dim oOldShape As Shape

Dim oNewShape As Shape

'当前ppt演示文稿

Set oPPT = PowerPoint.ActivePresentation

With oPPT

'在第一个幻灯片上操作

Set oSlide = .Slides(1)

With oSlide

'总共80个

iTotalNum = 75

'每行放10个

iPerNum = 10

'已有图形的名称为Num1

Set oOldShape = .Shapes("Num1")

'先设置已有图形的尺寸

With oOldShape

.Width = 20

.Height = 20

End With

For i = 1 To iTotalNum - 1

sName = "Num" & i + 1

'插入新的椭圆

Set oNewShape = .Shapes.AddShape(msoShapeOval, 0, 0, 0, 0)

With oNewShape

.Name = sName

'长宽一样

.Width = oOldShape.Width

.Height = oOldShape.Height

'左边依次递增,此处的10为图形之间的横向间隔

.Left = oOldShape.Left + (oOldShape.Width + 10) * (i Mod iPerNum)

'上下依次递增,此处的5为图形之间的上下间隔

.Top = oOldShape.Top + (oOldShape.Height + 5) * Int(i / iPerNum)

End With

Next i

End With

End Sub

如何用vba批量修改ppt幻灯片图形中的文本？

2018年12月5日作者：exceloffice

暂无评论

要用vba操作ppt幻灯片图形中的文本，需要先使用Shape对象的HasTextFrame属性判断图形是否含有文本框架，然后再用HasText属性判断文本框架中是否含有文本，最后用TextRange对象的Text属性返回图形中的文本。

以下是一个批量操作ppt幻灯片中所有图形的文本的通用代码：

Sub QQ1722187970()
    Dim oPPT As Presentation
    Dim oSlide As Slide
    Dim oCL As CustomLayout
    Dim oP As Shape
    '当前ppt演示文稿
    Set oPPT = PowerPoint.ActivePresentation
    With oPPT
        '遍历每一个幻灯片
        For Each oSlide In .Slides
            With oSlide
                '遍历每一个图形
                For Each oP In .Shapes
                    With oP
                        If .HasTextFrame Then
                            If .TextFrame.HasText Then
                                sText = .TextFrame.TextRange.Text
                                '************************'
                                '接下来是操作代码
                                 '************************'
                            End If
                        End If
                    End With
                Next
            End With
        Next
    End With
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

Sub QQ1722187970()

Dim oPPT As Presentation

Dim oSlide As Slide

Dim oCL As CustomLayout

Dim oP As Shape

'当前ppt演示文稿

Set oPPT = PowerPoint.ActivePresentation

With oPPT

'遍历每一个幻灯片

For Each oSlide In .Slides

With oSlide

'遍历每一个图形

For Each oP In .Shapes

With oP

If .HasTextFrame Then

If .TextFrame.HasText Then

sText = .TextFrame.TextRange.Text

'************************'

'接下来是操作代码

'************************'

End If

End With

End Sub

ExcelOffice

如何用vba获取excel工作表中数据在任意位置的单元格区域range?

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

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

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

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

如何用vba操作word的题注？

如何用vba操作ppt幻灯片的动画？

如何用vba根据ppt幻灯片中的已有图形插入生成一个N×M的相同图形？

如何用vba批量修改ppt幻灯片图形中的文本？

近期文章

功能

近期文章

关键字

功能