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 '加粗
VBA Word ParagraphFormat.FirstLineIndent
最新推荐文章于 2023-07-27 16:50:12 发布