如何让每次新建word文档时，底部都有第几页，共几页的页码格式

zzpsx

如何让每次新建word文档时，底部都有第几页，共几页的页码格式？

wdpfox

编辑你的模板文件，插入页码后保存，退出，再打开word即可

lss001

'Word模块中写入以下代码保存关闭重启即可
'注意:AutoOpen是Word用来自动运行的宏
'该名称修改后可能无法达到效果！！！

Sub AutoOpen() '连续0/不连续1
    Dim r, s, t, st, xLeft
    With ActiveDocument
        For Each st In .Sections
            Set t = st.Footers(1)
            Set s = t.PageNumbers
            s.RestartNumberingAtSection = 0 '连续
            s.StartingNumber = 1 '起始编号
            t.LinkToPrevious = False '不链接
            
            Set r = t.Range
            r.Font.Name = "微软雅黑" '字体
            r.Font.Size = 18 '字号
            r.Font.Color = vbRed '颜色/红
            xLeft = Space$(35) '离左边/35字节
            r.Text = xLeft & "第 "
            r.Collapse 0
            
            .Fields.Add r, 33, "Page"
            Set r = t.Range
            r.Collapse 0
            r.Text = " 页 , 共 "
            r.Collapse 0
            
            .Fields.Add r, -1, "SectionPages"
            Set r = t.Range
            r.Collapse 0
            r.Text = " 页"
            t.Range.Fields.Update
        Next
    End With
End Sub