iCAx开思工具箱

标题: 【原创】'一个"cp大法"宏. 一次cp100次. [打印本页]

作者: zzabccn 时间: 2003-5-26 13:12
标题: 【原创】'一个"cp大法"宏. 一次cp100次.
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中运行这个宏.
最后,不要笑我的方法水.

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)