我终于搞定vba PDF文件的水印支持中文的问题

bluesky_0

关于用EXCEL vba操作PDF打水印的代码。请参见我另外的帖子：
https://club.excelhome.net/thread-1559488-1-1.html

我一直没有解决中文水印问题，GOOGLE很久，没有解决。
倒是发现网上有很多的人一直在问这个问题。
PDF API官方文档关于水印函数addWaterMarkFromText，说明如下图：





今天经过我们公司IT部的程序员启发，终于搞定了。
参数写法不一致居然也可以，我一直以为函数的参数写法必需要一致！！！！
搞定方法如下：


Call jso.addWaterMarkFromText(watermark, jso.app.Constants.Align.Right, jso.Font.Helv, 20, jso.Color.Black, watermarkID, watermarkID, True, True, True, jso.app.Constants.Align.Left, jso.app.Constants.Align.Top, 0, 0, False, 1, False, 0, 1)

改成这个样子就可以支持中文
    Call jso.addWatermarkFromText("\u4f60", jso.app.Constants.Align.Center, "宋体", 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)

----------------------------------------------------------------------------------------
下面是添加水印范本:()
Sub pdfwatermark()
'添加PDF水印
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 ("D:\160.pdf") '这里加个循环变量就可以实现动态的打开指定的pdf文件
Set jso = pdDoc.GetJSObject

下面这个用法是添加系统日期时间,带各种水印参数:（注意不支持中文水印,如果要支持中文的，更改见上面的）
Call jso.addWaterMarkFromText(Date, jso.app.Constants.Align.Center, jso.Font.Helv, 16, jso.Color.Black, 0, 0, True, True, True, jso.app.Constants.Align.Center, jso.app.Constants.Align.Center, 100, 100, False, 1, False, 0, 1)

下面这个用法是添加字符水印(watermarks TEST),带各种水印参数:（注意不支持中文水印,如果要支持中文的，更改见上面的）
Call jso.addWaterMarkFromText("watermarks TEST", 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)

下面这个用法是 加字符水印(AP-100),水印系统参数全部使用系统默认的:
jso.addWaterMarkFromText ("AP-100")

pdDoc.Save 1, "D:\160.pdf"   '这里可以是不同于打开的pdf文件名,相当于另存为;如果是和打开的pdf文件名相同,自动保存不提示
pdDoc.Close
Set pdDoc = Nothing
Set pdApp = Nothing

End Sub

约定的童话

这是VBA语言吗？

bluesky_0

约定的童话 发表于 2022-5-8 09:07
这是VBA语言吗？

这个是VBA 操作PDF文件的一个函数。

opel-wong

就一个函数名，有啥有？
完整的代码放出来瞅瞅？