Range | ExcelOffice

如何在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-5b0b54[……]

阅读全文

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

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

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

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

分类目录

近期文章

功能

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

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

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

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

分类目录

近期文章

标签

功能