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

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRow As Row
    Dim oColumn As Column
    With oDoc
        Dim oPS As PageSetup
        Set oPS = .PageSetup
        With oPS
            '左边距
            .LeftMargin = Word.CentimetersToPoints(2)
            '上边距
            .TopMargin = Word.CentimetersToPoints(2)
            '右边距
            .RightMargin = Word.CentimetersToPoints(1)
            '下边距
            .BottomMargin = Word.CentimetersToPoints(3)
        End With
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

Sub exceloffice()

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

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

Dim oRow As Row

Dim oColumn As Column

With oDoc

Dim oPS As PageSetup

Set oPS = .PageSetup

With oPS

'左边距

.LeftMargin = Word.CentimetersToPoints(2)

'上边距

.TopMargin = Word.CentimetersToPoints(2)

'右边距

.RightMargin = Word.CentimetersToPoints(1)

'下边距

.BottomMargin = Word.CentimetersToPoints(3)

End With

End Sub

[……]

阅读全文>>>

如何用vba允许word表格跨页断行？

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

587 次浏览暂无评论

woor表格跨页断行的意思是指word表格中的某行内容可以一部分在一个页面，另一部分在另一个页面。

如果不允许跨页断行，则如果该表格的某行内容特别长，则会全部出现在下一个页面。

在vba中可以一次[……]

阅读全文>>>

如何用vba设置word表格的在各页的顶端以标题行的形式重复出现？

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

788 次浏览暂无评论

在word中可以设置表格的标题行在多个页面重复出现。

在vba中可以通过设置Row对象或者Rows对象的HeadingFormat属性为True来重复表格的标题行。

但是不管是设置哪一行的Row对[……]

阅读全文>>>

如何用vba调整word表格的行高、列宽？

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

1,572 次浏览暂无评论

word表格的行高、列宽既可以单独设置，也可以全部一次性设置为统一的值。

要在vba中单独的调整word表格的行高、列宽，可以使用如下的vba代码：
[crayon-5f6a3c0fc28cb1717[……]

阅读全文>>>

如何用vba删除word表格中的行列？

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

696 次浏览暂无评论

在vba中，Row对象表示word表格的行，Column对象表示word表格的列。

要删除word表格行、列只需使用对应的Delete方法即可。

代码如下：
[crayon-5f6a3c0fc2[……]

阅读全文>>>

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

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

552 次浏览暂无评论

在word 表格中可以插入行列。

如果要用vba给word表格插入行或者列，可以使用如下的代码：

Sub exceloffice()
    '作者QQ：1722187970，微信：xycgenius，微信公众号exceloffice
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oT As Table
    Dim oRow As Row
    Dim oColumn As Column
    With oDoc
            Set oT = .Tables(1)
            With oT
                '设置要在第几行前面插入行，这里是第2行
                Set oRow = .Rows(2)
                '在第2行前面插入行
                .Rows.Add oRow
                Set oColumn = .Columns(3)
                '在第3列左边插入一个空列
                .Columns.Add oColumn
            End With
    End With
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Sub exceloffice()

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

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

Dim oRow As Row

Dim oColumn As Column

With oDoc

Set oT = .Tables(1)

With oT

'设置要在第几行前面插入行，这里是第2行

Set oRow = .Rows(2)

'在第2行前面插入行

.Rows.Add oRow

Set oColumn = .Columns(3)

'在第3列左边插入一个空列

.Columns.Add oColumn

End With

End Sub

其中Rows.Add方法和Colu[……]

阅读全文>>>

如何用vba批量删除word文档中的表格？

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

493 次浏览暂无评论

要用vba批量删除word文档中的表格，可以使用如下的代码：

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

1

2

3

4

5

6

7

8

9

10

11

Sub exceloffice()

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

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oT As Table

With oDoc

For Each oT In .Tables

oT.Delete

End Sub

[……]

阅读全文>>>

如何用vba获取word某个段落的上个或下个段落的内容？

如何用vba拆分word表格的单元格？

如何用vba合并word表格的单元格?

如何用vba设置word文档的页边距？

如何用vba允许word表格跨页断行？

如何用vba设置word表格的在各页的顶端以标题行的形式重复出现？

如何用vba调整word表格的行高、列宽？

如何用vba删除word表格中的行列？

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

如何用vba批量删除word文档中的表格？

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

热门文章

最近文章

微信公众号