[VBA ] 雙面列印及文字取代問題

[usanhuang (呱呱)]

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://www.ptt.cc/bbs/Visual_Basic/M.1458731724.A.35C.html
推 potawei: 我的做法是把EXCEL裡面要取代和被取代的字輸出成TXT
→ potawei: WORD在範本裡面塞取代的巨集指令 用EXCEL開啟指定的WORD
→ potawei: 呼叫WORD的取代巨集去執行取代任務
→ usanhuang: 啊啊 對耶   我太執著於程式碼能順利執行了
→ usanhuang: 只要繞個彎就可以達到同樣效果
→ usanhuang: 非常感謝