返回列表 上一主題 發帖

pdf另存新檔( 文字檔)可以用vba操作嗎

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
1# 跳轉到 »
發表於 2010-9-29 16:43 | 顯示全部帖子
回復 1# y663258

是開啟 PDF 後,另存為 txt 檔案嗎? 試試SendKey方式
  1. Sub test()

  3.     Set WSh = CreateObject("WScript.Shell")
  4.     WSh.Run "D:\作業\公文\新系統\BrCl029mView4.PDF"      '開啟 pdf 檔案
  5.    
  6.     Application.Wait (Now + TimeValue("0:00:5"))    '暫停5秒(等候開啟檔案)
  7.    
  8.     SendKeys "%F"  '開啟檔案功能選項
  9.    
  10.     Application.Wait (Now + TimeValue("0:00:1"))    '暫停1秒
  11.    
  12.     SendKeys "V"   '存成文字檔
  13.    
  14.     Application.Wait (Now + TimeValue("0:00:1"))    '暫停1秒
  15.    
  16.     SendKeys "D:\作業\公文\新系統\BrCl029mView4.txt"
  17.    
  18.     Application.Wait (Now + TimeValue("0:00:1"))    '暫停1秒
  19.    
  20.     SendKeys "{Enter}"  '按下 Enter 開始存檔(.txt)

  22. End Sub
複製代碼

TOP

        靜思自在 : 君子如水，隨方就圓，無處不自在。
返回列表 上一主題