一级标题缩进设置为0字符不起作用？office-word-宏

以下宏对一级标题的颜色与字体能起作用，但对首行缩进不起作用。能否修改一下宏，如何运行宏一级标题的缩进设置为0字符？ -office-word-宏 Sub 一级标题缩进设置为0()With Selection.Find .ClearFormatting '清除格式 .Style = ActiveDocument.Styles(wdStyleHeading1) '查找标题 1 .Wrap = wdFindContinue '找到尾后重头找 .Text = "" .Replacement.ClearFormatting .Replacement.Text = "" .Replacement.Font.Color = vbBlue ‘颜色为蓝色 .Replacement.ParagraphFormat.CharacterUnitFirstLineIndent = 0 '1级标题缩进设置为0 .Execute Replace:=wdReplaceAll '全部替换End WithEnd Sub

Sub 前123级标题() Selection.HomeKey wdStory '有可能光标不在最前面，先移到最前面。 Dim p As Paragraph For Each p In ActiveDocument.Paragraphs If p.Style = "标题 1" Then p.LeftIndent = 0 '段落的绝对左缩进量（以磅为单位） If p.Style = "标题 1" Then p.RightIndent = 0 '段落的绝对左缩进量（以磅为单位） If p.Style = "标题 1" Then p.FirstLineIndent = CentimetersToPoints(0) '首行缩进0cm（只对单位是cm的缩进有效） If p.Style = "标题 1" Then p.CharacterUnitFirstLineIndent = 0 '首行缩进0磅（只对单位是磅的缩进有效） Selection.HomeKey wdStory '有可能光标不在最前面，先移到最前面。End Sub

把.Replacement.ParagraphFormat.CharacterUnitFirstLineIndent = 0 改为 .Replacement.ParagraphFormat.FirstLineIndent = 0 就可以了。

段落

当 ParagraphFormat.Alignment = wdAlignParagraphJustify 即“两端对齐”时设置缩进没有作用可以加上这么一句：.Replacement.ParagraphFormat.Alignment = wdAlignParagraphThaiJustify 可能还是对齐方式的问题，可以考虑设置一个变量，先将段落本身的对齐方式赋值给它，然后把段落“左对齐”，再设置缩进（这个时候应该都管用了），最后再从变量那里把原对齐方式恢复。