range | ExcelOffice【微信公众号：水星Excel】

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

原理是使用Sel[……]

阅读全文>>>

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

2018年5月20日作者：水星Excel

2,692 次浏览暂无评论

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

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

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

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

它[……]

阅读全文>>>

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

2017年11月7日作者：水星Excel

3,428 次浏览暂无评论

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

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

代码如下：
[crayon-5f8fead1764175964899[……]

阅读全文>>>

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

2017年8月21日作者：水星Excel

1,728 次浏览暂无评论

在一些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日作者：水星Excel

2,539 次浏览暂无评论

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

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

阅读全文>>>

如何在python中使用range？

如何用vba在excel中插入多个空行、多个空列、多个单元格区域？

如何彻底解决用vba批量删除ppt幻灯片中的图形等对象？

excel vba Range对象的Characters属性无效的解决办法

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

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

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

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

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

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号