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

如何用vba获取word文档中的表格数量?

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

291 次浏览暂无评论

在word vba中表格用Table对象表示。

如果要获取一个word文档中的表格数量，可以使用如下的vba代码：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    With oDoc
        MsgBox .Tables.Count
    End With
End Sub

1

2

3

4

5

6

7

8

9

Sub exceloffice()

'作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

With oDoc

MsgBox .Tables.Count

End With

End Sub

如果要遍历每一个[……]

阅读全文>>>

如何用vba批量调整word表格的大小？

2020年1月2日作者：水星Excel

861 次浏览暂无评论

Word 由于一般人都只用来打打字，所以用到VBA的场景不多。但是对于写手、科研工作者，经常要用Word写文章，遇到一个长篇文章，需要批量调整格式内容时，VBA就有用武之地了。比如最近拿到了一个91页[……]

阅读全文>>>

如何用vba给word新增、插入表格？

2018年10月23日作者：水星Excel

892 次浏览暂无评论

要用vba 给word文档插入表格，可以用Tables对象的Add方法。

它的语法如下：

expression.Add (Range, NumRows, NumColumns, DefaultTabl[……]

阅读全文>>>

如何用vba批量修改ppt中表格的文字字体、边框、单元格填充色的格式？

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

2,764 次浏览暂无评论

表格在office的不同组件中都存在。

在excel中所有都是表格，word中可以插入表格，ppt中也可以插入表格。

在vba中，excel的表格是以range对象存在的，word中的表格是以ta[……]

阅读全文>>>

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

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

1,120 次浏览暂无评论

在一个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

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

End Sub

[……]

阅读全文>>>

如何用vba获取word文档中表格的标题段落文字？

2017年12月31日作者：水星Excel

1,533 次浏览暂无评论

一篇word文档经常会有很多表格，每个表格一般都会有标题。

标题或者是在表格的第一行或者是独立于表格之外位于表格之上的一个段落行。

如下图所示

可以使用如下的代码获得表格的标题内容：[……]

阅读全文>>>

如何用vba处理word表格？

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

1,085 次浏览暂无评论

在word中可以插入表格，这个表格与excel的表格很相似，但是在用vba处理word表格时，还是有所区别。

每一个word表格就是一个table对象，行列分别属于row、column对象，每一个单元格[……]

阅读全文>>>

如何用vba获取word文档中的表格数量?

如何用vba批量调整word表格的大小？

如何用vba给word新增、插入表格？

如何用vba批量修改ppt中表格的文字字体、边框、单元格填充色的格式？

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

如何用vba获取word文档中表格的标题段落文字？

如何用vba处理word表格？

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

热门文章

最近文章

微信公众号