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

下面的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英寸

我们什么都没有，唯一的本钱就是青春。