账号密码登录
微信安全登录
微信扫描二维码登录

登录后绑定QQ、微信即可实现信息互通

手机验证码登录
找回密码返回
邮箱找回 手机找回
注册账号返回
其他登录方式
分享
  • 收藏
    X
    关于VBA格式化的问题
    31
    0

    问题描述

    我就像整成奇数页在右,偶数页在左的 “-n-”的页码格式该咋改
    这是网上找的代码

    问题出现的环境背景及自己尝试过哪些方法

    想格式化word文件,包括字体,页边距,页码等需要

    相关代码

    // 请把代码文本粘贴到下方(请勿用图片代替代码)
    With docFile.Sections(1).Footers(wdHeaderFooterPrimary)

       Set rng = .Range
       rng.Font.Name = "Times New Roman"
       rng.Font.Size = "14"
       rng.Text = "第"
       rng.Collapse wdCollapseEnd
       ActiveDocument.Fields.Add rng, wdFieldPage, "Page"
       Set rng = .Range
       rng.Collapse wdCollapseEnd
       rng.Text = " 页 / 共 "
       rng.Collapse wdCollapseEnd
       ActiveDocument.Fields.Add rng, wdFieldNumPages, "Pages"
       Set rng = .Range
       rng.Collapse wdCollapseEnd
       rng.Text = " 页 "
       .Range.Fields.Update
       .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

    End With

    你期待的结果是什么?实际看到的错误信息又是什么?

    0
    打赏
    收藏
    点击回答
        全部回答
    • 0
    更多回答
    扫一扫访问手机版
    • 回到顶部
    • 回到顶部