关于vba在word文档中插入文字并设置相应的文字属性介绍

来源：本站整理作者：梦在深巷时间：2013-02-28 01:45:47

下面的VBA代码功能，第一步，word当前文档的上面添加文字dzwebs文字。然后，又设置第一段居中对齐，并在该段落之后添加半英寸的间距。将dzwebs的格式设为36磅，隶书字体。

Dim rngFormat As Range
Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)
With rngFormat
.InsertAfter Text:="dzwebs"
.InsertParagraphAfter
With .Font
.Name = "隶书"
.Size = 36
.Bold = True
End With
End With
With ActiveDocument.Paragraphs(1)
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.5)
End With

部分代码解释：

Dim rngFormat As Range定义变量

Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)设置rngFormat变量的位置，位于文档的最上面

With rngFormat
里面的代码功能是设置字体字号等属性
End With

With ActiveDocument.Paragraphs(1)
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.5)
End With
该代码代码功能是添加段后距离为0.5英寸

本周热门

1

如何将word改为 utf-8编码? 2016/11/07
2

如何删除Word中"删不掉"的空白页 2016/10/29
3

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
4

Word中各种通配符^?.^#.^$.^&等等的使用 2013/06/01
5

word校对更正怎么关闭 2017/04/08
6

word字体间距太大而且调整不了是什么原因? 2016/07/21
7

word中长破折号怎么打 2015/01/05
8

word小抄排版怎么缩印 2017/02/27

本月热门

1

如何删除Word中"删不掉"的空白页 2016/10/29
2

如何将word改为 utf-8编码? 2016/11/07
3

WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
4

word表格不能编辑的原因,怎么解决? 2016/07/11
5

word字体间距太大而且调整不了是什么原因? 2016/07/21
6

WORD文档怎么在字母的正上方加上符号 2016/07/30
7

word中不用回车怎么换行 2017/04/06
8

Word中各种通配符^?.^#.^$.^&等等的使用 2013/06/01
9

word左键无法选择文字怎么办? 2016/07/29
10

word中的网格对齐是什么意思 2016/08/15

关于vba在word文档中插入文字并设置相应的文字属性介绍

相关推荐

本周热门

本月热门