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

如何用vba定位word表格的单元格，并且删除单元格中的特定字符？

2019年7月25日作者：水星Excel

1,743 次浏览暂无评论

在用vba处理word表格时，经常会遇到需要遍历word单元格的内容。

比如如下所示的word表格中

需要定位每个单元格，并删除单元格内容中的前4个字符，这时候可以使用如下的vba代码：[……]

阅读全文>>>

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

2018年6月14日作者：水星Excel

2,087 次浏览暂无评论

经常在编写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

原理是使用Sel[……]

阅读全文>>>

如何用vba在word中快速移动或选中内容区域？

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

5,003 次浏览暂无评论

在word中经常需要操作特定位置的文本内容，定位文本内容就显得尤为重要。

在word vba中Range、 Selection 对象有多种移动、定位、选择文本内容的方法和属性。

在这些方法和属性中[……]

阅读全文>>>

如何用vba定位word表格的单元格，并且删除单元格中的特定字符？

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

如何用vba在word中快速移动或选中内容区域？

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

热门文章

最近文章

微信公众号