瀏覽量:37次
下面的VBA代碼功能,第一步,word當(dāng)前文檔的上面添加文字dzwebs文字。然后,又設(shè)置第一段居中對(duì)齊,并在該段落之后添加半英寸的間距。將dzwebs的格式設(shè)為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)設(shè)置rngFormat變量的位置,位于文檔的最上面
With rngFormat 里面的代碼功能是設(shè)置字體字號(hào)等屬性 End With
With ActiveDocument.Paragraphs(1) .Alignment = wdAlignParagraphCenter .SpaceAfter = InchesToPoints(0.5) End With 該代碼代碼功能是添加段后距離為0.5英寸
[聲明]本網(wǎng)轉(zhuǎn)載網(wǎng)絡(luò)媒體稿件是為了傳播更多的信息,此類稿件不代表本網(wǎng)觀點(diǎn),本網(wǎng)不承擔(dān)此類稿件侵權(quán)行為的連帶責(zé)任。故此,如果您發(fā)現(xiàn)本網(wǎng)站的內(nèi)容侵犯了您的版權(quán),請(qǐng)您的相關(guān)內(nèi)容發(fā)至此郵箱【779898168@qq.com】,我們?cè)诖_認(rèn)后,會(huì)立即刪除,保證您的版權(quán)。
官網(wǎng)優(yōu)化
整站優(yōu)化
渠道代理
400-655-5776