Word Vba | ExcelOffice

如何用vba不保存关闭所有打开的word文档？

2018年8月16日作者：exceloffice

暂无评论

在用vba遍历文件夹中的word文档时，可以选择每个文档打开后关闭，也可以选择全部文档打开后再批量关闭。

要关闭word文档，需要用到Document.Close方法。

它的语法如下：

expression . Close( SaveChanges , OriginalFormat , RouteDocument )

1	expression . Close( SaveChanges , OriginalFormat , RouteDocument )

其中SaveChanges参数是[……]

阅读全文

如何用vba操作word文档的邮件合并？

2018年8月15日作者：exceloffice

暂无评论

word vba中MailMerge对象代表邮件合并。

一个word文档中有且仅有一个MailMerge对象。

所有与邮件合并相关的操作都可以通过操作MailMerge对象来实现。

以下是一个显示邮件合并连接字符串的代码：
[crayon-5b7b057d2ff799708172[……]

阅读全文

如何用vba把word文档的每页单独保存为一个word文档？

2018年8月7日作者：exceloffice

暂无评论

要将word文档的每页单独保存为一个word文档，首先需要能够逐页遍历word文档。

逐页遍历word文档可以使用word的定位功能。

代码如下：

Sub QQ1722187970()
    Const wdNumberOfPagesInDocument = 4
    Const wdGoToPage = 1
    Const wdGoToAbsolute = 1
    Dim oDoc As Document
    Dim oRng As Range
    Dim oDocTemp As Document
    Set oDoc = Word.ActiveDocument
    Dim sPath As String
    sPath = Word.ActiveDocument.Path
    Dim iPageNo As Long
    '获取总页数
    With oDoc
    iPageNo = .Range.Information(wdNumberOfPagesInDocument)
        For I = 1 To iPageNo
            '定位到页开始
            Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)
            oRng.Select
            '定位整个页面区域
            oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
            oRng.Copy
            Set oDocTemp = Word.Documents.Add
            With oDocTemp.Application.Selection
                .Paste
            End With
            oDocTemp.SaveAs2 sPath & "\" & I & ".docx"
            oDocTemp.Close
        Next I
    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

Sub QQ1722187970()

Const wdNumberOfPagesInDocument = 4

Const wdGoToPage = 1

Const wdGoToAbsolute = 1

Dim oDoc As Document

Dim oRng As Range

Dim oDocTemp As Document

Set oDoc = Word.ActiveDocument

Dim sPath As String

sPath = Word.ActiveDocument.Path

Dim iPageNo As Long

'获取总页数

With oDoc

iPageNo = .Range.Information(wdNumberOfPagesInDocument)

For I = 1 To iPageNo

'定位到页开始

Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=I)

oRng.Select

'定位整个页面区域

oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End

oRng.Copy

Set oDocTemp = Word.Documents.Add

With oDocTemp.Application.Selection

.Paste

End With

oDocTemp.SaveAs2 sPath & "\" & I & ".docx"

oDocTemp.Close

Next I

End With

End Sub

如何用vba遍历word文档中的文本框？

2018年8月1日作者：exceloffice

暂无评论

word文档中可以插入文本框。

如果要遍历word文档中的文本框可以先遍历word中的shape对象，然后通过shape对象的type属性判断是否等于msoTextBox，如果是，则表示为文本框。

之后可以用TextFrame属性返回文本框的文字部分对象，并对其进行操作。

如下的代[……]

阅读全文

如何用vba将word文档的自动编号列表项转换为手动编号文本？

2018年6月23日作者：exceloffice

暂无评论

word文档的列表项可以在输入内容的时候自动变化，有项目符合列表和编号列表两种。

word 文档的列表项并不属于域。

有时候我们希望将自动编号转化为文本状态，不再自动编号，这时候可以使用List对象或者Document对象的ConvertNumbersToText方法。

代码如下：[……]

阅读全文

如何用vba批量删除Word文档中的空白页？

2018年6月21日作者：exceloffice

暂无评论

word文档中的空白页，可以是没有任何内容只含有段落分隔符的页面，也可以是含有任意多个无效字符的页面。

为了批量删除Word文档中的空白页，可以使用如下的代码：

Sub QQ1722187970()
    Const wdPageBreak = 7
    Const wdSectionBreakContinuous = 3
    Const wdSectionBreakNextPage = 2
    Const wdGoToPage = 1
    Const wdGoToAbsolute = 1
    Dim oDoc As Document
    Dim oRng As Range
    Set oDoc = Word.ActiveDocument
    Dim iPageNo As Long
    '获取总页数
    With oDoc
    iPageNo = .Range.Information(wdNumberOfPagesInDocument)
        For i = iPageNo To 1 Step -1
            '定位到页开始
            Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=i)
            oRng.Select
            oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End
            sText = oRng.Text
            '判断当前页面是否含有有效的字符
            If Not (sText Like "*[0-9]*" Or sText Like "*[a-z]*" Or sText Like "*[A-Z]*" Or sText Like "*[一-龥]*") Then
                oRng.Delete
            End If
        Next i
    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

Sub QQ1722187970()

Const wdPageBreak = 7

Const wdSectionBreakContinuous = 3

Const wdSectionBreakNextPage = 2

Const wdGoToPage = 1

Const wdGoToAbsolute = 1

Dim oDoc As Document

Dim oRng As Range

Set oDoc = Word.ActiveDocument

Dim iPageNo As Long

'获取总页数

With oDoc

iPageNo = .Range.Information(wdNumberOfPagesInDocument)

For i = iPageNo To 1 Step -1

'定位到页开始

Set oRng = .GoTo(wdGoToPage, Which:=wdGoToAbsolute, Count:=i)

oRng.Select

oRng.SetRange oRng.Start, oRng.Bookmarks("\page").End

sText = oRng.Text

'判断当前页面是否含有有效的字符

If Not (sText Like "*[0-9]*" Or sText Like "*[a-z]*" Or sText Like "*[A-Z]*" Or sText Like "*[一-龥]*") Then

oRng.Delete

End If

Next i

End With

End Sub

如何用vba在word文档的每页结尾插入分节、分页符？

2018年6月21日作者：exceloffice

暂无评论

用vba在word文档中插入分隔符，可以使用Range或者Selection对象的InsertBreak方法。

定位word的每页可以使用Document、Range、Selection对象的GoTo方法。

由于GoTo方法将返回一个Range对象，该对象表示定位的对象的起始位置。[……]

阅读全文

如何用vba在word文档的开头或结尾插入任意的空白页？

2018年6月21日作者：exceloffice

暂无评论

插入空白页可以使用Selection对象的InsertNewPage方法。

定位文档的开头或结尾可以使用Range对象的Start和End属性。

基于以上的知识，可以使用如下的代码在word文档的开头或结尾插入任意的空白页。

Sub QQ1722187970()
    Dim oRng As Range
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    With oDoc
        .Range(.Range.End - 1).Select
    End With
    '在文档的结尾插入2页空白页
    For i = 1 To 2
        Word.Selection.InsertNewPage
    Next i
    With oDoc
        .Range(0).Select
    End With
    '在文档的开头插入2页空白页
    For i = 1 To 2
        Word.Selection.InsertNewPage
    Next i
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

Sub QQ1722187970()

Dim oRng As Range

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

With oDoc

.Range(.Range.End - 1).Select

End With

'在文档的结尾插入2页空白页

For i = 1 To 2

Word.Selection.InsertNewPage

Next i

With oDoc

.Range(0).Select

End With

'在文档的开头插入2页空白页

For i = 1 To 2

Word.Selection.InsertNewPage

Next i

End Sub

阅读全文

如何用vba获得word range对象所在的行的文本内容？

2018年6月14日作者：exceloffice

暂无评论

经常在编写word vba 解决方案时会遇到需要获取range对象所在的行的文本内容。

这时候可以使用如下的代码：

Sub QQ1722187970()
    Const wdLine = 5
    Dim oDoc As Document
    Dim oRng As Range
    Dim oWord As Word.Application
    Set oDoc = Word.ActiveDocument
    Set oRng = oDoc.Range(1, 100)
    oRng.Select
    With oWord.Selection
        '取消选择区域
        .Collapse
        '定位到行的开头
        .HomeKey wdLine
        iStart = .Start
        '定位到行的结尾
        .EndKey wdLine
        iEnd = .End
    End With
    '返回所在行的Range对象
    Set oRng = oDoc.Range(iStart, iEnd)
    '获取行的内容
    sText = oRng.Text
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

Sub QQ1722187970()

Const wdLine = 5

Dim oDoc As Document

Dim oRng As Range

Dim oWord As Word.Application

Set oDoc = Word.ActiveDocument

Set oRng = oDoc.Range(1, 100)

oRng.Select

With oWord.Selection

'取消选择区域

.Collapse

'定位到行的开头

.HomeKey wdLine

iStart = .Start

'定位到行的结尾

.EndKey wdLine

iEnd = .End

End With

'返回所在行的Range对象

Set oRng = oDoc.Range(iStart, iEnd)

'获取行的内容

sText = oRng.Text

End Sub

原理是使用Selection对象的HomeKey和EndKey方法定位到行的开头和结尾，再重新定义Range[……]

阅读全文

如何使得word中的金额大写中的繁体萬字变成简体万字?

2018年6月11日作者：exceloffice

暂无评论

当在word中用插入→符号→编号→壹、贰、叁、肆..时，可以将小写数字转换为大写数字。

比如12345会转换为壹萬贰仟叁佰肆拾伍，但是我们平时要的大写金额一般是壹万贰仟叁佰肆拾伍。

也就是繁体的萬字要改成简体的万字。

其实通过插入→符号→编号→壹、贰、叁、肆.. 这个动作是添加了一[……]

阅读全文

近期文章

关键字

功能