分类：电脑/网络-软件-办公软件
问题：一级标题缩进设置为0字符不起作用？office
以下宏对一级标题的颜色与字体能起作用，但对首行缩进不起作用。能否修改一下宏，如何运行宏一级标题的缩进设置为0字符？  word 宏Sub 一级标题缩进设置为0()With Selection.Find    .ClearFormatting '清除格式    .Style = ActiveDocument.Styles(wdStyleHeading1)  '查找标题 1     .Wrap = wdFindContinue '找到尾后重头找    .Text = ""    .Replacement.Cl以下宏对一级标题的颜色与字体能起作用，但对首行缩进不起作用。能否修改一下宏，如何运行宏一级标题的缩进设置为0字符？  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 WithEnd Sub
回答：Sub 前123级标题()  '测试结果 1 重复运行1次才能调整好。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磅（只对单位是磅的缩进有效）      If p.Style = "标题 2" Then p.LeftIndent = 0             '段落的绝对左缩进量（以磅为单位）   If p.Style = "标题 2" Then p.RightIndent = 0            '段落的绝对左缩进量（以磅为单位）   If p.Style = "标题 2" Then p.FirstLineIndent = CentimetersToPoints(0)    '首行缩进0cm（只对单位是cm的缩进有效）   If p.Style = "标题 2" Then p.CharacterUnitFirstLineIndent = 0            '首行缩进0磅（只对单位是磅的缩进有效）           If p.Style = "标题 3" Then p.LeftIndent = 0           '段落的绝对左缩进量（以磅为单位）   If p.Style = "标题 3" Then p.RightIndent = 0           '段落的绝对左缩进量（以磅为单位）   If p.Style = "标题 3" Then p.FirstLineIndent = CentimetersToPoints(0)   '  '首行缩进0cm   If p.Style = "标题 3" Then p.CharacterUnitFirstLineIndent = 0              '首行缩进0磅（只对单位是磅的缩进有效）      If p.Style = "标题 1" Then p.FirstLineIndent = CentimetersToPoints(0)    '首行缩进0cm（只对单位是cm的缩进有效）   If p.Style = "标题 1" Then p.CharacterUnitFirstLineIndent = 0            '首行缩进0磅（只对单位是磅的缩进有效）      If p.Style = "标题 2" Then p.FirstLineIndent = CentimetersToPoints(0)    '首行缩进0cm（只对单位是cm的缩进有效）   If p.Style = "标题 2" Then p.CharacterUnitFirstLineIndent = 0            '首行缩进0磅（只对单位是磅的缩进有效）      If p.Style = "标题 3" Then p.FirstLineIndent = CentimetersToPoints(0)   '  '首行缩进0cm   If p.Style = "标题 3" Then p.CharacterUnitFirstLineIndent = 0              '首行缩进0磅（只对单位是磅的缩进有效）   Next    Selection.Move  ' If p.Style = "标题 1" Then p.Range.Font.Color = vbBlack                    'blue ' If p.Style = "标题 1" Then p.Format.LineSpacingRule = wdLineSpaceExactly   '行距固定值 ' If p.Style = "标题 1" Then p.Format.LineSpacing = 20                       '行距固定值= 20 ' If p.Style = "标题 1" Then p.Format.SpaceBefore = 0                        '段前距为0 ' If p.Style = "标题 1" Then p.Format.SpaceAfter = 0                         '段后距为0 ' If p.Style = "标题 1" Then p.LeftIndent = 0                                '段落的绝对左缩进量（以磅为单位） ' If p.Style = "标题 1" Then p.RightIndent = 0                               '段落的绝对右缩进量（以磅为单位） ' If p.Style = "标题 1" Then p.Range.Bold = True                             '加粗 ' If p.Style = "标题 1" Then p.CharacterUnitFirstLineIndent = InchesToPoints(0)   '度量单位从英寸转换为磅PointsSelection.HomeKey wdStory '光标移到最前面。' D图片居中End Sub