关于WORD中的居中，不居中？

守柔

SORRY，请再运行此命令：

Sub CenterPara() ' On Error Resume Next '忽略错误 Application.ScreenUpdating = False With Selection.ParagraphFormat '针对选定对象 .LeftIndent = 0 '删除左缩进 .RightIndent = 0 '删除右缩进 .FirstLineIndent = 0 '删除首行缩时 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .Alignment = wdAlignParagraphCenter '段落居中 End With Application.ScreenUpdating = True End Sub '----------------------以后你只要点击居中命令或者CTRL+E,即自动执行此宏.有问题再交流.

konggs

守兄,现在可以了,不过好像要按两次才行啊!

我就想: 把你中间的代码了两次看行不,结果行了, 不知何原因?

即:

On Error Resume Next '忽略错误 Application.ScreenUpdating = False With Selection.ParagraphFormat '针对选定对象 .LeftIndent = 0 '删除左缩进 .RightIndent = 0 '删除右缩进 .FirstLineIndent = 0 '删除首行缩时 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .Alignment = wdAlignParagraphCenter '段落居中 End With Application.ScreenUpdating = True

来了个两遍!

wan_shan

以下是引用konggs在2005-6-2 16:33:00的发言：

向大家请教一下问题（谢守兄了）：

首行缩进如果定义是空2字符，选居中时，wps2000可以把首行缩进的空2字符去掉，即首行缩进自动变为0，word不行，仍然是首行缩进2个字符。所以不是左缩进和右缩进的居中，而是首行缩进和右缩进的居中。 能否，把它的这个功能改一下！改为与wps2000一样的。

望守兄指正一下！清凉一夏嘛！

如果只是为了设置对齐、缩进等排版操作，可以试试下面的方法：

找耳朵的雷

我的word2003，可以居中后去掉首行缩进中多于2字符的空格。保留2字符空格