VBA Word ParagraphFormat.FirstLineIndent

winkey_tseng

1256人浏览 · 2021-10-15 07:03:43

winkey_tseng · 2021-10-15 07:03:43 发布

WordD.Paragraphs(Dls).Range.Text = Bt & vbCrLf            '写标题
WordD.Paragraphs(Dls).Range.InsertAfter (vbCrLf)        '插入回车符，增加一段
WordD.Paragraphs(Dls).OutlineLevel = wdOutlineLevel2      '设置大纲级别，2级
WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = CentimetersToPoints(0)
WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent = 0       '取消首行缩进
WordD.Paragraphs(Dls).Range.Font.Name = "宋体"             '字体
WordD.Paragraphs(Dls).Range.Font.Size = 10                 '字号
WordD.Paragraphs(Dls).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter  '居中排列
WordD.Paragraphs(Dls).Range.Font.Bold = wdToggle           '加粗

乐奇 Rokid 开放社区

更多推荐