PDF文件转换为word文档后的图片格式怎么变为真正的文字格式？

苏阳湖wzy

论坛的各位老师，大家好！今天我求助的问题是：PDF文件转换为word文档后的图片格式怎么变为真正的文字格式？详情亲请见附件，谢谢！

413191246se

1. Sub test()
   
2.     Dim doc As Document
   
3.     Set doc = ActiveDocument
   
4. '文本框转换为图文框
   
5.     Dim s As Shape
   
6.     For Each s In doc.Shapes
   
7.         s.Select
   
8.         Selection.ShapeRange(1).ConvertToFrame
   
9.     Next
   
10. '删除图文框
    
11.     Dim i As Frame
    
12.     For Each i In doc.Frames
    
13.         i.Delete
    
14.     Next
    
15.    
    
16. '每节都变为一栏
    
17.     Dim e As Section
    
18.     For Each e In doc.Sections
    
19.         e.PageSetup.TextColumns.SetCount NumColumns:=1
    
20.     Next
    
21. 
    
22. '删除空行
    
23.     doc.Content.Find.Execute "^p^p", , , 0, , , , , , "", 2
    
24. 
    
25. '页面设置(上下左右=1cm)-->(代码略)
    
26. '    PageSetup
    
27.    
    
28. '    切换页码
    
29.     Selection.HomeKey unit:=wdStory
    
30. End Sub

复制代码

2017年国民经济行业分类(已排版).rar (220.09 KB, 下载次数: 11)

2018-4-22 21:25 上传

点击文件名下载附件