[求助]如何用VBA直接给页面添加“- 1 -”的页码

pwkduke

如题，一般的页码都是1，我想在左右都加上短横线，然后居中，这样好看些。如何用VBA实现。

守柔

QUOTE:

以下是引用pwkduke在2007-3-14 11:16:23的发言：
如题，一般的页码都是1，我想在左右都加上短横线，然后居中，这样好看些。如何用VBA实现。

Sub Example()
    Dim myRange As Range
    Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
    NormalTemplate.AutoTextEntries("- 页码 -").Insert Where:=myRange, RichText:=True
    Set myRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
    NormalTemplate.AutoTextEntries("- 页码 -").Insert Where:=myRange, RichText:=True
End Sub

pwkduke

谢谢，版主的代码基本可以达到要求，但是还存在两个问题

1.我只想加页码在底下，我删除了第三四行，运行代码，发现页眉处多了一条线。

2.页脚的页码没有居中。

cxz008

QUOTE:

以下是引用pwkduke在2007-3-15 8:15:19的发言：

谢谢，版主的代码基本可以达到要求，但是还存在两个问题

1.我只想加页码在底下，我删除了第三四行，运行代码，发现页眉处多了一条线。

2.页脚的页码没有居中。

默认设置下，添加页眉页脚 后，页眉处都会出现一横线。

我是黄马甲

在样式里面去掉横线就可以了

pwkduke

我使用VBA是为了方便，如果还要去横线的话，还不如直接手工加页。

守柔

QUOTE:

以下是引用pwkduke在2007-3-15 8:15:19的发言：

谢谢，版主的代码基本可以达到要求，但是还存在两个问题

1.我只想加页码在底下，我删除了第三四行，运行代码，发现页眉处多了一条线。

2.页脚的页码没有居中。

我希望楼主在提问时能更多明确你的要求,以及在已有代码的前提下进行自己的探索.

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-3-16 6:41:05
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0180^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
'页脚中
    Dim myRange As Range
    Set myRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
    If Len(myRange.Text) = 1 Then
        NormalTemplate.AutoTextEntries("- 页码 -").Insert Where:=myRange, RichText:=True
    Else
        myRange.InsertAfter Chr(13)
        myRange.SetRange myRange.End, myRange.End
        NormalTemplate.AutoTextEntries("- 页码 -").Insert Where:=myRange, RichText:=True
    End If
    myRange.Paragraphs(1).Alignment = wdAlignParagraphCenter
End Sub
'----------------------

Sub Example2()
'页眉中
    Dim myRange As Range
    Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
    If Len(myRange.Text) = 1 Then
        NormalTemplate.AutoTextEntries("- 页码 -").Insert Where:=myRange, RichText:=True
    Else
        myRange.InsertAfter Chr(13)
        myRange.SetRange myRange.End, myRange.End
        NormalTemplate.AutoTextEntries("- 页码 -").Insert Where:=myRange, RichText:=True
    End If
    myRange.Paragraphs(1).Alignment = wdAlignParagraphCenter
    myRange.Paragraphs(1).Borders(wdBorderBottom).LineStyle = wdLineStyleNone
End Sub
'----------------------

XXC

留个记号，谢谢楼主