Range | ExcelOffice

如何用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[……]

阅读全文

如何在vba中返回单元格Range对象的地址？

2018年5月20日作者：exceloffice

暂无评论

在编写vba解决方案时，有时候会遇到需要获得单元格的地址。

在vba中可以使用range对象的Address属性，它的语法如下：

expression . Address( RowAbsolute , ColumnAbsolute , ReferenceStyle , External , RelativeTo )

1	expression . Address( RowAbsolute , ColumnAbsolute , ReferenceStyle , External , RelativeTo )

它的5个参数都是可选的，其中RowAbsolute , ColumnAbsolute参数默认为[……]

阅读全文

如何用vba获取word文档的总页数？

2017年11月7日作者：exceloffice

暂无评论

在word中经常要以页为单位处理文档，本文介绍两种获取word文档总页数的方法。

一、用pages集合对象获得文档的总页数。

代码如下：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    '获取当前文档的总页数
    MsgBox oDoc.Windows(1).Panes(1).Pages.Count
End Sub

1

2

3

4

5

6

Sub QQ1722187970()

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

'获取当前文档的总页数

MsgBox oDoc.Windows(1).Panes(1).Pages.Count

End Sub

二、用range对象的Information属性来获取总页数

代码如下：[……]

阅读全文

如何用vba逐字符遍历word文档？

2017年8月21日作者：exceloffice

暂无评论

在一些WORD文档的处理案例中，有时候需要逐字符遍历WORD文档的内容。

这时候可以使用如下的代码实现逐字符遍历WORD文档的内容。

Sub QQ1722187970()
    Dim oRng As Range
    Dim oDoc As Document
    Dim iEnd As Long
    Set oDoc = Word.ActiveDocument
    iEnd = oDoc.Range.End
    For i = 0 To iEnd
    Set oRng = oDoc.Range(i, i + 1)
    '***************************************
    '以下是要执行的代码
    '***************************************
    Next
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

Dim iEnd As Long

Set oDoc = Word.ActiveDocument

iEnd = oDoc.Range.End

For i = 0 To iEnd

Set oRng = oDoc.Range(i, i + 1)

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

'以下是要执行的代码

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

如何用vba在word文档的末尾或者开头插入内容？

2016年10月14日作者：exceloffice

暂无评论

在用vba操作word文档的内容时，经常会遇到需要定位到word文档的末尾或者开头的时候。

如果要在word文档的末尾操作，可以使用如下代码

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oRng As Range
    With oDoc
        'oDoc.Content表示整个word文档
        Set oRng = oDoc.Content
        'oRng.InsertAfter将在文档末尾插入字符
        oRng.InsertAfter "asdf"
        'oRng.InsertParagraphAfter将在文档末尾插入一个段落
        oRng.InsertParagraphAfter
    End With
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 oRng As Range

With oDoc

'oDoc.Content表示整个word文档

Set oRng = oDoc.Content

'oRng.InsertAfter将在文档末尾插入字符

oRng.InsertAfter "asdf"

'oRng.InsertParagraphAfter将在文档末尾插入一个段落

oRng.InsertParagraphAfter

End With

End Sub

如果要在word文档的开头操作，可以使用如下的代码
[crayon-5b7b05[……]

阅读全文

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

如何在vba中返回单元格Range对象的地址？

如何用vba获取word文档的总页数？

如何用vba逐字符遍历word文档？

如何用vba在word文档的末尾或者开头插入内容？

近期文章

功能

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

如何在vba中返回单元格Range对象的地址？

如何用vba获取word文档的总页数？

如何用vba逐字符遍历word文档？

如何用vba在word文档的末尾或者开头插入内容？

近期文章

关键字

功能