Office Word 中的宏

简介

宏是一个批量处理程序命令，微软的office软件允许用户自己编写，叫VBA的脚本来增加其灵活性，进一步扩充它的能力，具体做法是在“工具”菜单“宏”－“宏”弹出的对话框输入宏名，然后按“创建”按钮会打开visual basic编辑器，你就可以编程了，这个就是宏。

宏的使用

将自定义创建的宏放入文档标题栏中的“自定义快速访问工具栏”

如下图所示



若需要修改宏的图标，可以在添加该宏后 在右侧“自定义快速访问工具栏”中 选中该宏，然后点击下方的修改按钮，如下图所示。

点击确定后，完成宏在快速访问工具栏中的添加。

插入指定格式、内容的字符

Sub InsertWords()
'	
' InsertWords 宏
'
' FormatText 宏1 //在注释中插入自己想要描述的内容
'
	Selection.Font.Bold = True		//若在插入文字的代码前设置是否为粗体，则对接下来插入的字体起到设置作用
	Selection.Font.Italic = True	//设置是否为斜体
	Selection.Font.Name = "Calibri"
    Selection.Font.Size = 16
    
	//此段代码会在当前光标的位置插入"Hello World!"
    Selection.TypeText Text:="Hello World!"	//设置要插入字体
    
    //Selection.Font.Bold = True		//若在插入文字的代码后设置是否为粗体，则对下一次插入的字体起到设置作用；请注意，一旦鼠标点击将会导致【加粗下一次插入字体的设置取消】
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

选中word中的指定文字

Sub 宏1()
'
' 宏1 宏
'
' 选取Word文档中的文本
    Dim WordDoc As Word.Document
    Set WordDoc = ActiveDocument
    Dim WordRange As Word.Range
    Set WordRange = WordDoc.Range(Start:=0, End:=10)
    WordRange.Select
End Sub
1
2
3
4
5
6
7
8
9
10
11

查找word中的指定文字A，并替换为指定文字B

Sub WordExchanger()		//此处定义的函数名需与添加按钮时一致
1: Selection.Find.ClearFormatting
2: Selection.Find.Replacement.ClearFormatting
3: With Selection.Find //此处需要分行才能连续调用“.方法名”，即左侧的3：、4：
4: .Text = "home"
5: .Replacement.Text = "替换后的字符"
6: .Forward = True
7: .Wrap = wdFindContinue
8: .Format = Flase
9: .MatchCase = False
10: .MatchWholeWord = False
11: .MatchWildcards = False
12: .MatchSoundsLike = False
13: .MatchAllWordForms = False
14: End With			//使用With时，需要使用End With结束
15: Selection.Find.Execute Replace:=wdReplaceAll
End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

插入文本框并向内插入文字

Sub InsertWords()
' 插入文本框 宏

   Dim myTextbox As Shape
   With ActiveDocument
      Set myTextbox = .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
      Left:=50, Top:=50, Width:=100, Height:=50)
      With myTextbox.TextFrame
         .TextRange.Text = "Hello, World"
         .HorizontalAnchor = msoAnchorCenter
         .VerticalAnchor = msoAnchorMiddle
      End With
      With myTextbox.Line
         .Visible = msoTrue
         .ForeColor.RGB = RGB(0, 0, 255)
         .Weight = 1
      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

word 表格中的宏操作

遍历表格中的所有内容

Sub ReadTableData()

Dim wdApp As Word.Application

Dim wdDoc As Word.Document

Dim wdTable As Word.Table

Dim i As Long, j As Long

Set wdApp = New Word.Application

'此处要填写 要读取的word文档中的内容'
Set wdDoc = wdApp.Documents.Open("C:\Data\test.docx")

'选中第一张表格

Set wdTable = wdDoc.Tables(1)

'遍历表格数据

For i = 1 To wdTable.Rows.Count

For j = 1 To wdTable.Columns.Count

Debug.Print wdTable.Cell(i, j).Range.Text

Next j

Next i

wdDoc.Close SaveChanges:=False

wdApp.Quit

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

批量设置表格中所有内容文字为居中对齐

Sub 表格内容文字居中对齐()

Dim biaoge As Table

For Each biaoge In ActiveDocument.Tables

biaoge.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

biaoge.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter

Next biaoge

End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13

支持flowchart的流程图：

• 关于 Flowchart流程图 语法，参考 这儿.