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

2019年7月25日作者：exceloffice

暂无评论

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

比如如下所示的word表格中

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

Sub QQ1722187970()
    Dim oTable As Table
    Dim oCell As Cell
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    For Each oTable In oDoc.Tables
        With oTable
            For Each oCell In .Range.Cells
                oCell.Select
                Word.Selection.Collapse
                Word.Selection.Delete wdCharacter, 4
            Next
        End With
    Next
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

Sub QQ1722187970()

Dim oTable As Table

Dim oCell As Cell

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

For Each oTable In oDoc.Tables

With oTable

For Each oCell In .Range.Cells

oCell.Select

Word.Selection.Collapse

Word.Selection.Delete wdCharacter, 4

此类问题的关键点是要用[……]

阅读全文

如何用vba设置word文档的段落行距，但是排除表格和嵌入式图片？

2019年7月18日作者：exceloffice

暂无评论

在word中可以设置段落的行距为单倍行距、双倍行距、固定行距等。

当对所有的段落都设置行距时，word文档中的表格中的行距也会相应的一起变化。如果文档中还含有嵌入式图片，嵌入式图片所在的段落的行距也会一起变化。

如下所示为尚未设置段落行距为固定值之前：

当设置段落行距为固定[……]

阅读全文

如何用vba在word文档中插入图片？

2019年7月15日作者：exceloffice

暂无评论

要用vba在word文档中插入图片，需要用到InlineShapes对象的 AddPicture 方法。

它的语法如下：

.InlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)

1	.InlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)

其中FileName参数表示要插入的图片的完整路径, LinkToFile参数表示是否将图片与文档链接[……]

阅读全文

如何用vba设置word段落的行间距、段前、段后间距等？

2019年7月12日作者：exceloffice

暂无评论

在word中可以设置段落的行间距，也可以设置一个段落的前面空几行，也可以设置一个段落的后面空几行，如下图所示：

在vba中可以用Paragraph对象或者ParagraphFormat对象设置各种段落间距。

一、设置段落的行间距（行距）

要设置段落的行间距（行距）可以使用LineS[……]

阅读全文

如何用vba单击执行excel、word的内置菜单命令？

2019年7月10日作者：exceloffice

暂无评论

在如何用vba列举word中所有的内置菜单栏、工具栏、菜单命令？一文中介绍了如何通过VBA列举word应用程序中的所有内置的菜单栏、工具栏、以及对应的命令。

在如何用vba返回excel所有的菜单命令栏控件的id、标题、类型等信息？一文中介绍了如何通过VBA列举excel应用程序中的所有[……]

阅读全文

如何用vba设置word文档的字体为透明色？

2019年7月9日作者：exceloffice

暂无评论

要设置word文档的字体为透明色，需要office的版本为2007（含）以上。

一、通过“文字效果”对话框设置字体为透明色

如下图所示，选中要设置为透明色的字符，然后打开“字体”设置对话框，单击“文字效果”

然后在设置“文本效果格式”中选择“文本填充”，然后设置透明度为“100%”[……]

阅读全文

如何用vba设置word文档中的表格当插入图片时，表格不变形？

2019年7月7日作者：exceloffice

暂无评论

在word文档中经常需要使用到表格。

在word表格中有时候需要插入图片。

当在word表格中插入图片后，word的表格经常会变形，本文主要就是介绍如何通过设置来实现插入图片后word表格不变形：

一、手动设置

如下所示为一个word文档中的表格：

当在这个表格中插入一[……]

阅读全文

如何用vba设置word文档默认制表位的字符数？

2019年7月4日作者：exceloffice

暂无评论

如下图所示，默认制表位的字符数为2。

如果要用vba修改默认制表位的字符数，可以使用Document对象的DefaultTabStop属性。

但是Document对象的DefaultTabStop属性的设定值是以point为单位的，如果要换成以字符为单位，首先要知道1个字符代表多[……]

阅读全文

如何用vba设置word文档段落的各种缩进？

2019年7月4日作者：exceloffice

暂无评论

在word中可以设置word文档段落的各种缩进格式，比如首行缩进、悬挂缩进、整体缩进等。

接下来介绍如何用vba设置段落的各种缩进格式：

一、首行缩进N个字符

要设置段落的首行缩进为N个字符，可以使用Paragraph对象的IndentFirstLineCharWidth方法。[……]

阅读全文

如何用vba给word文档的奇偶页设置页码？

2019年7月3日作者：exceloffice

暂无评论

在word排版中经常要给奇偶页设置不同的页码对齐方式，奇左偶右或者奇右偶左页码。

这时候就要设置word文档的页脚要奇偶页不同。

在vba中如果要给奇偶页添加页码，并且设置不同的对齐方式，可以使用如下的代码快速地实现：

Sub QQ1722187970()
    Dim oSection As Section
    Dim oHF As HeaderFooter
    Debug.Print Word.ActiveDocument.Sections.Count
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oPN As PageNumber
    With oDoc
        For Each oSection In .Sections
            With oSection
                With .PageSetup
                    '首页不同
                    .DifferentFirstPageHeaderFooter = True
                    '奇偶页不同
                    .OddAndEvenPagesHeaderFooter = False
                End With
                Set oHF = .Footers(wdHeaderFooterPrimary)
                With oHF.PageNumbers
                    .NumberStyle = wdPageNumberStyleArabicFullWidth
'                    不续前节 '
                    .RestartNumberingAtSection = True
                    '从1开始编号
                    .StartingNumber = 1
                     Set oPN = .Add
                With oPN
                    '奇右偶左
                    .Alignment = wdAlignPageNumberOutside
                    '奇左偶右
                    .Alignment = wdAlignPageNumberInside
                End With
                End With
                With .PageSetup
                    .OddAndEvenPagesHeaderFooter = True
                End With
            End With
        Next
    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

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

Sub QQ1722187970()

Dim oSection As Section

Dim oHF As HeaderFooter

Debug.Print Word.ActiveDocument.Sections.Count

Dim oDoc As Document

Set oDoc = Word.ActiveDocument

Dim oPN As PageNumber

With oDoc

For Each oSection In .Sections

With oSection

With .PageSetup

'首页不同

.DifferentFirstPageHeaderFooter = True

'奇偶页不同

.OddAndEvenPagesHeaderFooter = False

End With

Set oHF = .Footers(wdHeaderFooterPrimary)

With oHF.PageNumbers

.NumberStyle = wdPageNumberStyleArabicFullWidth

' 不续前节 '

.RestartNumberingAtSection = True

'从1开始编号

.StartingNumber = 1

Set oPN = .Add

With oPN

'奇右偶左

.Alignment = wdAlignPageNumberOutside

'奇左偶右

.Alignment = wdAlignPageNumberInside

End With

With .PageSetup

.OddAndEvenPagesHeaderFooter = True

End With

End Sub

[……]

阅读全文

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

如何用vba设置word文档的段落行距，但是排除表格和嵌入式图片？

如何用vba在word文档中插入图片？

如何用vba设置word段落的行间距、段前、段后间距等？

一、设置段落的行间距（行距）

如何用vba单击执行excel、word的内置菜单命令？

如何用vba设置word文档的字体为透明色？

一、通过“文字效果”对话框设置字体为透明色

如何用vba设置word文档中的表格当插入图片时，表格不变形？

一、手动设置

如何用vba设置word文档默认制表位的字符数？

如何用vba设置word文档段落的各种缩进？

如何用vba给word文档的奇偶页设置页码？

加站长微信

功能

一、设置段落的行间距（行距）

一、通过“文字效果”对话框设置字体为透明色

一、手动设置

加站长微信

关键字

功能