Vba Add WaterMarkText in Pdf(未找到支持中文的参数)

https://community.adobe.com/t5/acrobat/how-to-add-text-to-a-pdf-file-using-access-vba/td-p/5330269

https://www.mrexcel.com/board/threads/adding-text-to-pdfs-in-a-folder.954395/

 

Public Sub AddText()

    Dim pdApp As Acrobat.AcroApp

    Dim pdDoc As Acrobat.AcroPDDoc

    Dim pdPage As Acrobat.AcroPDPage

    Dim jso As Object

    Dim doc As Variant

    Dim oColor As Object

 

    Set pdApp = CreateObject("AcroExch.App")

    Set pdDoc = CreateObject("AcroExch.PDDoc")

    pdDoc.Open ("C:\Users\jtang20\Desktop\a.pdf")

    Set jso = pdDoc.GetJSObject

    'Call jso.addWaterMarkFromText("WTF", 0, "Helvetica", 16, , 0, 0, True, True, True, 0, 0, 100, 100, False, 1, False, , , 1)

    'Call jso.addWatermarkFromText(ChrW(20320), jso.app.Constants.Align.Center, jso.Font.Helv, 20, jso.Color.Black, 0, 0, True, True, True, jso.app.Constants.Align.Center, jso.app.Constants.Align.Center, 0, 0, False, 1, False, 45, 1)

    'Call jso.addWatermarkFromText(ChrW(20320), jso.app.Constants.Align.Center, jso.Font.Helv, 20, jso.Color.Black, 0, 0, True, True, True, jso.app.Constants.Align.Center, jso.app.Constants.Align.Center, 0, 0, False, 1, False, 45, 1)

    Call jso.addWatermarkFromText("\u4f60", jso.app.Constants.Align.Center, jso.Font.Helv, 20, jso.Color.Black, 0, 0, True, True, True, jso.app.Constants.Align.Center, jso.app.Constants.Align.Center, 0, 0, False, 1, False, 45, 1)

    pdDoc.Save 1, "C:\Users\jtang20\Desktop\a2.pdf"

    pdDoc.Close

    Set pdDoc = Nothing

End Sub

Sub method2()

Dim pdApp As Acrobat.AcroApp

Dim pdDoc As Acrobat.AcroPDDoc

Dim pdPage As Acrobat.AcroPDPage

Dim jso As Object

Set pdApp = CreateObject("AcroExch.App")

Set pdDoc = CreateObject("AcroExch.PDDoc")

pdDoc.Open ("C:\Users\jtang20\Desktop\a.pdf")

Set jso = pdDoc.GetJSObject

jso.addWatermarkFromText ("\u4f60")

pdDoc.Save 1, "C:\Users\jtang20\Desktop\a2.pdf"

pdDoc.Close

Set pdDoc = Nothing

Set pdApp = Nothing

End Sub