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

答案:4 悬赏:50 手机版

解决时间 2021-10-16 14:58

提问者网友：贪了杯
2021-10-16 02:11

以下宏对一级标题的颜色与字体能起作用，但对首行缩进不起作用。能否修改一下宏，如何运行宏一级标题的缩进设置为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

最佳答案

五星知识达人网友：爱难随人意
2021-04-20 21:42

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

全部回答

1楼网友：青灯有味
2021-06-19 17:05

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

2楼网友：猎心人
2019-09-17 06:30

段落

3楼网友：雾月
2020-12-04 18:29

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息