PDF文本输出的相关问题

范德萨

1. Private Sub CommandButton1_Click()
   
2. Set 工作表 = ThisWorkbook.Sheets("Sheet2")
   
3. 
   
4. 
   
5. '    Acrobat 4,5,6 时
   
6. '    Dim objAcroPDDoc   As Acrobat.CAcroPDDoc
   
7. '    Set objAcroPDDoc = CreateObject(“AcroExch.PDDoc”)
   
8. '   Acrobat 7,8,9,10,11  时
   
9.     Dim objAcroPDDoc    As New Acrobat.AcroPDDoc
   
10.    
    
11. 
    
12.     Dim lRet                As Long
    
13.    
    
14.     Dim strGetFileName      As String
    
15.     Dim strGetFlags         As String
    
16.     Dim strGetInfo          As String
    
17.     Dim strGetNumPages      As String
    
18.     Dim strGetPageMode      As String
    
19.     Dim strGetPermanentID   As String
    
20.     Dim i                   As Long
    
21.      
    
22.     i = 1
    
23.     Const CON_NAME = "C:\222.pdf"
    
24. 
    
25. 
    
26.     lRet = objAcroPDDoc.Open(CON_NAME)
    
27.     Debug.Print "lRet = " & lRet
    
28.      
    
29.     'PDF文件名
    
30.     strGetFileName = objAcroPDDoc.GetFileName
    
31.     工作表.Cells(i, 1).Value = "GetFileName = " & strGetFileName
    
32.     i = i + 1
    
33.      
    
34. 
    
35.     strGetFlags = objAcroPDDoc.GetFlags
    
36.     工作表.Cells(i, 1).Value = "GetFlags = " & strGetFlags
    
37.     i = i + 1
    
38.      
    
39.     'PDF文件总页数
    
40.     strGetNumPages = objAcroPDDoc.GetNumPages
    
41.     工作表.Cells(i, 1).Value = "GetNumPages = " & strGetNumPages
    
42.     i = i + 1
    
43.      
    
44.     'PDF文件显示模式
    
45. 
    
46.     strGetPageMode = objAcroPDDoc.GetPageMode
    
47.     工作表.Cells(i, 1).Value = "GetPageMode = " & strGetPageMode
    
48.     i = i + 1
    
49.      
    
50.     '参数ID
    
51.     strGetPermanentID = objAcroPDDoc.GetPermanentID
    
52.     工作表.Cells(i, 1).Value = "GetPermanentID = " & strGetPermanentID
    
53.     i = i + 1
    
54. 
    
55.     strGetInfo = objAcroPDDoc.GetInfo("Title")
    
56.     工作表.Cells(i, 1).Value = "GetInfo(""Title"") = " & strGetInfo
    
57.     i = i + 1
    
58.      
    
59.     '文档属性标题
    
60.     strGetInfo = objAcroPDDoc.GetInfo("Subject")
    
61.     工作表.Cells(i, 1).Value = "GetInfo(""Subject"") = " & strGetInfo
    
62.     i = i + 1
    
63.      
    
64.     '文档作者
    
65.     strGetInfo = objAcroPDDoc.GetInfo("Author")
    
66.     工作表.Cells(i, 1).Value = "GetInfo(""Author"") = " & strGetInfo
    
67.     i = i + 1
    
68.      
    
69.     '文档属性标题
    
70.     strGetInfo = objAcroPDDoc.GetInfo("Keywords")
    
71.     工作表.Cells(i, 1).Value = "GetInfo(""Keywords"") = " & strGetInfo
    
72.     i = i + 1
    
73.      
    
74.     '文档作者
    
75.     strGetInfo = objAcroPDDoc.GetInfo("Creator")
    
76.     工作表.Cells(i, 1).Value = "GetInfo(""Creator"") = " & strGetInfo
    
77.     i = i + 1
    
78.      
    
79.     '文档创建日期
    
80.     strGetInfo = objAcroPDDoc.GetInfo("CreationDate")
    
81.     工作表.Cells(i, 1).Value = "GetInfo(""CreationDate"") = " & strGetInfo
    
82.     i = i + 1
    
83.      
    
84.     '文档修改日期
    
85.     strGetInfo = objAcroPDDoc.GetInfo("ModDate")
    
86.     工作表.Cells(i, 1).Value = "GetInfo(""ModDate"") = " & strGetInfo
    
87.     i = i + 1
    
88.      
    
89.     'PDF制作程序
    
90.     strGetInfo = objAcroPDDoc.GetInfo("Producer")
    
91.     工作表.Cells(i, 1).Value = "GetInfo(""Producer"") = " & strGetInfo
    
92.      
    
93.     'PDF释放对象
    
94.     objAcroPDDoc.Close
    
95.     Set objAcroPDDoc = Nothing
    
96.    
    
97. End Sub
    
98. 
    

复制代码

范德萨

1.     将PDF文件第一页拷贝到剪贴板(图片形式)
   
2.     Dim objAcroPDDoc    As New Acrobat.AcroPDDoc
   
3.     Dim objAcroPDPage   As Acrobat.AcroPDPage
   
4.     Dim objAcroPoint    As Acrobat.AcroPoint
   
5.     Dim objAcroRect     As New Acrobat.AcroRect
   
6.     Dim lRet            As Long
   
7.    
   
8. 
   
9.     lRet = objAcroPDDoc.Open(测试文件1)
   
10. 
    
11.     Set objAcroPDPage = objAcroPDDoc.AcquirePage(0)
    
12. 
    
13.     Set objAcroPoint = objAcroPDPage.GetSize
    
14. 
    
15.     objAcroRect.Top = 0
    
16.     objAcroRect.bottom = objAcroPoint.y
    
17.     objAcroRect.Left = 0
    
18.     objAcroRect.Right = objAcroPoint.x
    
19. 
    
20.     lRet = objAcroPDPage.CopyToClipboard(objAcroRect, 0, 0, 100)
    
21. 
    
22.     lRet = objAcroPDDoc.Close
    
23. 
    
24.     Set objAcroRect = Nothing
    
25.     Set objAcroPoint = Nothing
    
26.     Set objAcroPDPage = Nothing
    
27.     Set objAcroPDDoc = Nothing
    

复制代码

范德萨

请教大神出手 实现对文本 字体 大小 位置 颜色等以及对边框的位置 尺寸等信息的判断，不胜感激

lion21369

好东西,收藏了,用来做大数据!!!