七月, 2017 | ExcelOffice

如何用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年7月9日作者：exceloffice

暂无评论

在word vba 中并没有行对象，因此如果要对word文档的逐行内容进行访问和处理的话，需要进行一些变通。

在word 中可以使用定位（GoTo）功能定位到具体的行，利用这个功能可以实现对word 的逐行访问。

比如以下代码将逐行遍历Word文档的内容，然后将含有字符“元”的行内容删除[……]

阅读全文

如何用vba返回word文档的总行数？

2017年7月9日作者：exceloffice

暂无评论

word vba 里面有页（Page）、段落（Paragraph）对象，但是却没有行对象。

在对word文档进行逐行遍历时，需要知道word文档内容的总行数。

word vba 中提供了一个便捷的方法可以快速地获得word文档内容的总行数。
在word vba 中利用Document对[……]

阅读全文

如何用vba快速地生成罗马数字1到10？

2017年7月4日作者：exceloffice

暂无评论

罗马数字1到10分别为Ⅰ、Ⅱ、Ⅲ、Ⅳ、Ⅴ、Ⅵ、Ⅶ、Ⅷ、Ⅸ、Ⅹ。

有时候我们需要在vba中快速地获取这10个字符，根据标准GB 18030-2005 信息技术中文编码字符集，可以找到罗马数字对应的字符编码，如下图所示

其中罗马数字Ⅰ对应的双字节十六进制编码为2160，由于chrw[……]

阅读全文

如何在excel实现进制之间的转换？

2017年7月2日作者：exceloffice

暂无评论

在excel中内置了excel函数可以实现各种进制之间的转换，比如十进制转换为二进制，十进制转换为十六进制。

比如要把十进制的数200转换为二进制数可以使用如下的工作表函数

=DEC2BIN(200,8)

如果要把十进制的数200转换为十六进制数可以使用如下的工作表函数

=D[……]

阅读全文

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

如何用vba访问使用word的“行对象”？

如何用vba返回word文档的总行数？

如何用vba快速地生成罗马数字1到10？

如何在excel实现进制之间的转换？

近期文章

关键字

功能