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

konggs

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

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

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

办公之星

做了个录像。用没有“首行缩进”的段落激活（双击，录像上看不清楚）格式刷，刷一下有缩进的段落，再回到两端对齐，不是都没有缩进了吗？

同样，有些网文是用若干个空格“缩进”的。全选文档，居中，再两端对齐，空格没了。对WORD的操作，灵活是核心。

守柔

我用VBA简单地做了一个，只针对段落的居中。

你将以下代码粘贴于活动文档或者NORMAL.DOT的THISDOCUMENT下.

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-2 17:15:58 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Sub CenterPara() Dim i As Paragraph On Error Resume Next '忽略错误 Application.ScreenUpdating = False With Selection '针对选定对象 For Each i In .Paragraphs '在选定的段落中循环 With i.Range.ParagraphFormat '针对指定段落的格式 .LeftIndent = 0 '删除左缩进 .RightIndent = 0 '删除右缩进 .FirstLineIndent = 0 '删除首行缩时 .Alignment = wdAlignParagraphCenter '段落居中 End With Next End With Application.ScreenUpdating = True End Sub '----------------------以后你只要点击居中命令或者CTRL+E,即自动执行此宏.有问题再交流.

konggs

谢办公兄了！

守兄更利害啊！你的代码基本能看懂（因为你柔哥好，每个都有注释[em04]），

可有一点我不明白，为什么要放在THISDOCUMENT下，

难道说每个命令都可以定制？！

[em02][em02][em02][em08][em08]

守柔

在WORD中，代码通常会有三种情况下放置：

一个活动文档的THISDCOUMENT下，通常我们称之为作用于活动文档；

一个是置于NORMAL.DOT的THISDOCUMENT下,通常我们称为作用于全局中.

如果置于活动文档或者全局模板的标准模块中,适用范围同上.

(窗体中另算),但通常在THISDOCUMENT中更方便一些.

上述功能,称之为修改WORD命令,关于修改WORD命令,你可以搜索本论坛及置顶贴子<守柔WORD编程代码集>

konggs

又谢了，不过，我刚才试了，好像不行啊！

我不知哪里犯了错！望柔哥再看看！

henterwu

我这里正常，相关的快捷键还有：

CTRL + R 右对齐

CTRL + L 左对齐

konggs

不会吧，我的是word2003，你呢？

如果确认，请把你的normal打包发上来看看！

守柔

请konggs兄注意:

本代码中的命令,只作用于活动文档的SELECTION对象.

比如,你打开的二个文档,你先前选定的是文档1中的内容,但你又切换到了文档2中,而你又直接在VBE条件下运行的本宏,则会对文档2起作用(也许文档2你什么也没有选定).

你再检查一下.

konggs

上传上来,帮忙看一下?

[此贴子已经被作者于2005-6-3 8:21:29编辑过]