跪求用VBA另存为PDF，并且给PDF加上页码

ChinaSai

各位大神，用VBA另存为PDF这个功能我实现了，但是要怎么给这个PDF加上页码？比如：“第*页，共*页”，跪求跪求。。。

Yalishanda30

额。。。。。。加脚注吧

opiona

最简单的是: 生成之前加入页码
直接向PDF加页码 可参考:https://club.excelhome.net/thread-1654951-1-1.html

ChinaSai

Yalishanda30 发表于 2023-3-19 20:47
额。。。。。。加脚注吧

对。。就是加脚注。。大神能否教教小白我？

ChinaSai

opiona 发表于 2023-3-19 21:33
最简单的是: 生成之前加入页码
直接向PDF加页码 可参考:https://club.excelhome.net/thread-1654951-1-1.h ...

感谢大神提供的插件，就是添加页码的时候能不能替换原来的文件？

smsn

录制宏，再看看代码

vistababy

肯定是导出之前加页码啊，，难道导出之后再加？？那只能靠pdf编辑器了，随便加。

mmwwdd

Sub SaveAsPDFWithPageNumber()
   
    '定义变量
    Dim ws As Worksheet
    Dim pdfName As String, pdfPath As String
    Dim pageNumber As Integer, totalPages As Integer
   
    '选择要另存为PDF的工作表
    Set ws = ActiveSheet
   
    '设置PDF的保存路径和文件名
    pdfPath = "C:\Users\UserName\Desktop\"
    pdfName = "MyPDFFile.pdf"
   
    '将工作表保存为PDF
    ws.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=pdfPath & pdfName, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
   
    '打开保存的PDF文件
    Dim acrApp As Object, acrDoc As Object
    Set acrApp = CreateObject("AcroExch.App")
    Set acrDoc = CreateObject("AcroExch.AVDoc")
    acrDoc.Open pdfPath & pdfName, "Acrobat"
    acrDoc.BringToFront
   
    '获取PDF的总页数
    totalPages = acrDoc.GetNumPages()
   
    '在每页的页脚添加页码
    For pageNumber = 1 To totalPages
        acrDoc.gotoPage pageNumber
        acrDoc.SelectText "Page ", pageNumber
        acrDoc.AddText "第" & pageNumber & "页，共" & totalPages & "页"
    Next pageNumber
   
    '保存并关闭PDF文件
    acrDoc.Save PDSaveFull, pdfPath & pdfName
    acrDoc.Close False
   
    '释放对象
    Set acrDoc = Nothing
    Set acrApp = Nothing
   
End Sub

mmwwdd

给你提供个思路

Yanxi2021

totalPages = acrDoc.GetNumPages() 和totalPages = acrDoc.GetNumPages 都有报错，对象不支持该属性或方法