作者usanhuang (呱呱)
看板Visual_Basic
標題[VBA ] 雙面列印及文字取代問題
時間Wed Mar 23 19:15:21 2016
1. 公司的印表機有支援自動雙面列印的功能
因此想在一些文件上加上程式碼
但查了一下printout只有ManualDuplexPrint而不能自動雙面列印
請問各位前輩有其他方式能辦到嗎
2. 之前有自己寫Word取代功能的程式
With myDoc.Selection.Find
.Text = "123"
.Replacement.Text = "456"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
後來想將各項程式統合在excel來開啟
而寫了下面這段
Dim myWord As Object
Set myWord = CreateObject("Word.Application")
myWord.Visible = True
Set myDoc = myWord.Documents.Open("D:\xxx\test.docx").Content
myWord.Activate
With myDoc.Selection.Find
.Text = "123"
.Replacement.Text = "456"
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
雖然成功打開word，但是取代的部分卻沒有成功
請問是哪裡出問題了
感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.225.122.119
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1458731724.A.35C.html
1F：推 potawei: 我的做法是把EXCEL裡面要取代和被取代的字輸出成TXT 03/23 22:00
2F：→ potawei: WORD在範本裡面塞取代的巨集指令 用EXCEL開啟指定的WORD 03/23 22:02
3F：→ potawei: 呼叫WORD的取代巨集去執行取代任務 03/23 22:03
4F：→ usanhuang: 啊啊 對耶 我太執著於程式碼能順利執行了 03/23 22:52
5F：→ usanhuang: 只要繞個彎就可以達到同樣效果 03/23 22:52
6F：→ usanhuang: 非常感謝 03/23 22:53