[求助]插入页码

smhf_6 · 发表于 2006-10-28 19:13

插入页码，默认居右，但我喜欢居中，虽然可以在选项中处理，但每次都要处理也烦，能否更改默认设置？

守柔 · 发表于 2006-10-28 19:19

QUOTE:

以下是引用smhf_6在2006-10-28 19:13:51的发言：
插入页码，默认居右，但我喜欢居中，虽然可以在选项中处理，但每次都要处理也烦，能否更改默认设置？

你是指这个对话框吗？

smhf_6 · 发表于 2006-10-28 19:35

是的，因为我经常要写东西，或者上级下发的没有页码需要加上，放在角上看好象要累一点，放在中间醒目，但每次都要手工去设置。

因为这个是系统自带的，我没办法解决，但我猜想是否可以用VBA、或API、或修改注册表等办法来处理？当然这些方法即使能行，也要请教守版主了，因为对我来讲难度太大了。

[此贴子已经被作者于2006-10-28 19:38:16编辑过]

守柔 · 发表于 2006-10-28 19:39

可以使用修改WORD命令来做到，（修改WORD命令的方式或者原理请参见本版或者拙著）

Sub InsertPageNumbers()
'修改WORD命令,请将此过程粘贴于Normal工程的THISDOCUMENT类模块或者标准模块中即可
    Dim myDialog As Dialog
    Set myDialog = Word.Dialogs(wdDialogInsertPageNumbers)
    With myDialog
        .Position = 1 '(0为左侧,1为居中,2为右侧,3为内侧,4为外侧)
        .Display
    End With
End Sub

cxffxc · 发表于 2006-10-28 19:41

最简单的方法是制作一个模板,把页码插入到其中。

smhf_6 · 发表于 2006-10-28 19:53

守版主，不行啊：

有2个问题

1、加入这段宏后，页码提示框中的对齐方式出现“居中”，但其它的WORD文档未加这段宏的没效果，这样岂不比本来更麻烦了

2、是个小问题，按确定键后，页脚找不到页码

守柔 · 发表于 2006-10-28 20:03

请楼主注意我的叙述：

1,将此宏粘贴于NORMAL工程的THISDOCUMENT类模块或者,是NORMAL工程,不是当前文档,它将作用于全局.

2,此宏无需运行,当你单击插入/页码命令时,自动运行该宏(即修改WORD命令).

如有任何问题,请贴图.

		自动登录	找回密码
密码			免费注册