WPS文字VBA中页脚从第*页开始

2019-12-14 22:31:38  阅读 517 次 评论 0 条

存下,暂时未测试

myPages = yms

strfield = "第" & "=PAGE+" & myPages & "页"

CodesLenth = VBA.Len(strfield)

PageLenth = Len(CStr(myPages))With pwrdname

'添加页脚页码

    Set wdRange = .Sections(1).Footers(wdHeaderFooterPrimary).Range

    wdRange.Text = strfield

    wdRange.SetRange 2, 2 + 4

   .Fields.Add Range:=wdRange, Type:=wdFieldEmpty, PreserveFormatting:=False

   EndRange = wdRange.Paragraphs(1).Range.End - 2

   wdRange.SetRange wdRange.Start - 1, EndRange

   .Fields.Add Range:=wdRange, Type:=wdFieldEmpty, PreserveFormatting:=False

   wdRange.Fields.Update

End With


WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS表格数据付费处理请加QQ:3247742

发表评论


表情

还没有留言,还不快点抢沙发?