400-099-0376

在线试用
微信扫码联系专属客服
安企神软件官网
首页
下载中心
客户列表
关于安企神

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

2024-10-31

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

  • TAG: