Table | ExcelOffice

如何用vba批量修改ppt中表格的字体格式？

2018年4月3日作者：exceloffice

暂无评论

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

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

在vba中，excel的表格是以range对象存在的，word中的表格是以table对象存在的，同样的ppt中的表格也是以table对象存在的。

不同的是ppt中的[……]

阅读全文

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

2018年3月13日作者：exceloffice

暂无评论

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

以上代码只能针对选中的第一个word表格中的任意单元格，跨多个表格时，将只返回第一个表格中选[……]

阅读全文

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

2017年12月31日作者：exceloffice

暂无评论

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

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

如下图所示

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

Sub QQ1722187970()
    Const wdParagraph = 4
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRng As Range
    With oDoc
        For Each oT In .Tables
            Set oRng = .Range(oT.Range.Start - 2, oT.Range.Start - 1)
            '将oRng对象按照整个段落选中,oRng对象自动变为整个段落的Range对象
            oRng.Expand wdParagraph
            '读取标题的文本内容
            MsgBox oRng.Text
        Next
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

Sub QQ1722187970()

Const wdParagraph = 4

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

Dim oRng As Range

With oDoc

For Each oT In .Tables

Set oRng = .Range(oT.Range.Start - 2, oT.Range.Start - 1)

'将oRng对象按照整个段落选中,oRng对象自动变为整个段落的Range对象

oRng.Expand wdParagraph

'读取标题的文本内容

MsgBox oRng.Text

End Sub

实现的关键点在于用R[……]

阅读全文

如何用vba使word表格的行高自动匹配单元格内容？

2017年7月11日作者：exceloffice

暂无评论

在excel中可以使用range对象的AutoFit属性使单元格的行高和列宽自动匹配单元格的内容。

但是word的表格没有这个属性，只能通过逐行设置word表格的行高为0才能使得行高自动调整为匹配单元格内容的高度。

代码如下

Sub QQ1722187970()
    Dim oTable As Word.Table
    Dim oRow As Word.Row
    For Each oTable In Word.ActiveDocument.Tables
        oTable.AutoFitBehavior (wdAutoFitWindow)
        For Each oRow In oTable.Rows
            oRow.Height = 0
        Next
    Next
End Sub

1

2

3

4

5

6

7

8

9

10

Sub QQ1722187970()

Dim oTable As Word.Table

Dim oRow As Word.Row

For Each oTable In Word.ActiveDocument.Tables

oTable.AutoFitBehavior (wdAutoFitWindow)

For Each oRow In oTable.Rows

oRow.Height = 0

End Sub

阅读全文

如何用vba处理word表格？

2017年1月11日作者：exceloffice

暂无评论

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

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

在给单元格赋值时，不能直接用cell.value而是要用cell.[……]

阅读全文

如何用vba批量修改ppt中表格的字体格式？

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

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

如何用vba使word表格的行高自动匹配单元格内容？

如何用vba处理word表格？

分类目录

近期文章

功能

如何用vba批量修改ppt中表格的字体格式？

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

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

如何用vba使word表格的行高自动匹配单元格内容？

如何用vba处理word表格？

分类目录

近期文章

标签

功能