【原创】'一个"cp大法"宏. 一次cp100次.

zzabccn

pdf文档在桌面上不能被汉化,(至少我的是这样),于是我想了一个办法,将文档中的内容粘贴到word中,然后另存为网页即可在桌面上汉化
对于protoolkit user guid这样大的pdf档,只能用宏来做了,手工cp那就苦了,不知有无其它好方法.
我用的是adobe Acrobat Reader3.0,若用其它程序,要适当修改.程序已作了详细注释.
'=====================
'一个"cp大法"宏. 一次cp100次.
Sub Macro3()
'
Dim i
'Dim Retac
'Retac = Shell("E:\Acrobat3\Reader\AcroRd32.exe", 1)
  
For i = 1 To 101
AppActivate "Acrobat Reader" '激活 adobe Acrobat Reader
SendKeys "^a", True          '发送键盘 [ctrl]+a   在acrobat reader上选中当前页所有文本
SendKeys "^c", True          '发送键盘 [ctrl]+c   考贝
SendKeys "{DOWN}", True      '发送方向键 [向下]   在acrobat reader上翻到下一页
AppActivate "Microsoft Word" ' 激活 Microsoft word  
SendKeys "^v", True          '发送键盘 [ctrl]+v   粘贴
SendKeys "^x", True          '发送键盘 [ctrl]+x   在word上插入一换页符.
Next i                       '循环一百次.
  
End Sub
'=====================
  
新建一个word文档,打开tkuse.pdf,然后,在word中运行这个宏.
最后,不要笑我的方法水.