[求助]关于WORD中的格式替换问题？

hlrong

请教高手一个问题： 我在Word中录制了一个自动排版的宏，前一过程是全部选定文字，然后用"格式"菜单中"段落..."设定“首行缩进"，后一过程是用"编辑"菜单中的"替换..."命令选择相应的查找内容，然后替换"段落 "格式为不首行缩进，居中。执行宏后，不知什么原因，查找的段落虽然居中，但仍然缩进字符，替换不了，请各位高手指点（用VBA的方法）。 VBA代码如下： ' 格式设置 ' 首行缩进、1.5倍行距、 Selection.WholeStory With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpace1pt5 .Alignment = wdAlignParagraphJustify .WidowControl = False .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(0.35) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 2 .LineUnitBefore = 0 .LineUnitAfter = 0 .AutoAdjustRightIndent = True .DisableLineHeightGrid = False .FarEastLineBreakControl = True .WordWrap = True .HangingPunctuation = True .HalfWidthPunctuationOnTopOfLine = False .AddSpaceBetweenFarEastAndAlpha = True .AddSpaceBetweenFarEastAndDigit = True .BaseLineAlignment = wdBaselineAlignAuto End With ' 章节居中 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .Alignment = wdAlignParagraphCenter .FirstLineIndent = CentimetersToPoints(0) .CharacterUnitFirstLineIndent = 0 .WordWrap = True End With Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False With Selection.Find .Text = "第?章" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll

txzxk

不敢问津，难啊！真是“用到老、学到老，一生到老学不了”！