用EXCELvba对PDF文件进行批量裁剪操作

薛定谔233

高度保密 发表于 2023-6-10 20:08
我怎么觉得安装和使用python更麻烦呢

可能是因为我电脑本身安装了IDE和python环境，python语法也简单

三流高手

老师您好，能不能给一个代码，实现打开一个PDF文件，然后在指定位置插入文本的功能呢？

bluesky_0

三流高手 发表于 2024-4-10 20:52
老师您好，能不能给一个代码，实现打开一个PDF文件，然后在指定位置插入文本的功能呢？

你说这个,没搞过,可以试一试.
是插入文本,还是加上文本注释?

三流高手

bluesky_0 发表于 2024-4-10 21:58
你说这个,没搞过,可以试一试.
是插入文本,还是加上文本注释?

是在PDF文件的第一页的指定位置插入文本。单位经常需要这样处理数百个PDF文件，手工修改太累了，麻烦老师帮看看，给个代码，谢谢了！！

bluesky_0

三流高手 发表于 2024-4-11 20:46
是在PDF文件的第一页的指定位置插入文本。单位经常需要这样处理数百个PDF文件，手工修改太累了，麻烦老师 ...

你给我一个PDF范例,你这样子描述,我不知道怎么下手解决
你发来一个处理前的PDF,再发一个处理后的PDF文件.
如果有复杂的逻辑,要描述下,
然后我研究下

三流高手

bluesky_0 发表于 2024-4-12 10:58
你给我一个PDF范例,你这样子描述,我不知道怎么下手解决
你发来一个处理前的PDF,再发一个处理后的PDF文件 ...

附件1是一个示例文件，附件2是修改后的结果。
我想在VBA中修改“艾叶配方颗粒”这个内容。麻烦您给看看，非常感谢！。

jjmysjg

先留个记号

三流高手

bluesky_0 发表于 2024-4-12 10:58
你给我一个PDF范例,你这样子描述,我不知道怎么下手解决
你发来一个处理前的PDF,再发一个处理后的PDF文件 ...

王老师您好，我找到一段代码，可以在PDF文件中插入水印文字，可以间接解决前面的那个问题。但是这个代码是在页面的顶端、中间或者底部插入水印，我想要在任意位置（指定位置）插入水印文字，不知道怎么修改这个代码，请您帮看看。
另外，这段代码插入中文显示不出，大概是字体设置的问题吧？怎么设置中文字体呢？

1. Sub addWaterMark()
   
2. sTime = Timer
   
3. '根据需要动态添加水印
   
4. Dim pdApp As Acrobat.AcroApp
   
5. Dim pdDoc As Acrobat.AcroPDDoc
   
6. Dim pdPage As Acrobat.AcroPDPage
   
7. Dim jso As Object
   
8. Dim watermark As String, watermarkID As Integer, watermarkfile As String, watermarkpos As String
   
9. Dim II As Integer
   
10. 
    
11. Set pdApp = CreateObject("AcroExch.App")
    
12. Set pdDoc = CreateObject("AcroExch.PDDoc")
    
13.         
    
14. watermarkfile = "z:\11.pdf"
    
15.         
    
16.         
    
17. pdDoc.Open (watermarkfile) '打开PDF文件
    
18. Set jso = pdDoc.GetJSObject
    
19.    
    
20.     watermark = "Test 广西桂林市"
    
21.     watermarkID = 0
    
22.     watermarkpos = "Top"        'Center|bottom
    
23.     If watermarkpos = "Top" Then
    
24.         
    
25.         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)
    
26.     ElseIf watermarkpos = "Bottom" Then
    
27.         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.bottom, 0, 0, False, 1, False, 0, 1)
    
28.     Else
    
29.         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.Center, 0, 0, False, 1, False, 0, 1)
    
30.     End If
    
31.    
    
32. pdDoc.Save 1, watermarkfile '保存文件,覆盖不提示
    
33. pdDoc.Close '关闭文件
    
34. Set pdDoc = Nothing
    
35. Set pdApp = Nothing
    
36. MsgBox "数据计算完毕!用时" & Round(Timer - sTime, 2) & "秒。" & Round((Timer - sTime) / 60, 4) & "分钟。"
    
37. End Sub

复制代码

三流高手

三流高手 发表于 2024-4-20 20:23
王老师您好，我找到一段代码，可以在PDF文件中插入水印文字，可以间接解决前面的那个问题。但是这个代码 ...

经过一个晚上的学习，终于搞定水印的问题了。

liuxin12

我对这个功能不感冒，但是，从搜索关键词到获取解决方案的过程，楼主可以分享一下