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

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

2019年7月25日作者：水星Excel
2,748 次浏览暂无评论

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

比如如下所示的word表格中

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

阅读全文>>>

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

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

3,391 次浏览暂无评论

经常在编写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
2,140 次浏览暂无评论

要用vba在空白的word文档中逐段落的添加文本内容，可以使用word的Selection对象的TypeText方法和TypeParagraph方法。

其中TypeText方法是在当前光标所在的位置入插[……]

阅读全文>>>

如何用vba对选中的word表格单元格的数字进行求和？

2018年3月13日作者：水星Excel

2,548 次浏览暂无评论

在一个word表格的任意单元格中存储有数字，当任意选中不同的单元格时，希望可以对其中的数字进行求和，并弹窗显示结果，可以使用如下的代码：

Sub QQ1722187970()
    Dim oRng As Range
    Dim oCell As Cell
    Dim oTable As Table
    Dim dSum As Double
    Dim sCellValue
    Dim arr()
    Dim i, j
    With Word.Application.Selection
        For Each oCell In .Cells
        sCellValue = oCell.Range.Text
        '把单元格结尾字符去掉
        sCellValue = VBA.Replace(sCellValue, Chr(13) & Chr(7), "")
            '判断单元格内容是否是数值
            If VBA.IsNumeric(sCellValue) Then
                ReDim Preserve arr(i)
                arr(i) = sCellValue
                dSum = dSum + arr(i)
                i = i + 1
            End If
        Next
    End With
    MsgBox "选择的数据是：" & Join(arr, " ") & vbCrLf & "共" & i & "个数据" & vbCrLf & "求和结果为：" & dSum
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

Sub QQ1722187970()

Dim oRng As Range

Dim oCell As Cell

Dim oTable As Table

Dim dSum As Double

Dim sCellValue

Dim arr()

Dim i, j

With Word.Application.Selection

For Each oCell In .Cells

sCellValue = oCell.Range.Text

'把单元格结尾字符去掉

sCellValue = VBA.Replace(sCellValue, Chr(13) & Chr(7), "")

'判断单元格内容是否是数值

If VBA.IsNumeric(sCellValue) Then

ReDim Preserve arr(i)

arr(i) = sCellValue

dSum = dSum + arr(i)

i = i + 1

End If

Next

End With

MsgBox "选择的数据是：" & Join(arr, " ") & vbCrLf & "共" & i & "个数据" & vbCrLf & "求和结果为：" & dSum

End Sub

[……]

阅读全文>>>

如何用vba实现word的查找和替换功能？

2016年10月14日作者：水星Excel
6,085 次浏览暂无评论

在word中可以使用查找和替换功能批量替换文本、批量替换格式等等。

要在vba中实现word中的查找和替换功能，需要用到Find对象。

如果要执行某个查找动作，可以使用Find对象的Execute[……]

阅读全文>>>