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，但是取代的部分卻沒有成功
請問是哪裡出問題了
感謝

啊啊 對耶 我太執著於程式碼能順利執行了只要繞個彎就可以達到同樣效果非常感謝

我的做法是把EXCEL裡面要取代和被取代的字輸出成TXTWORD在範本裡面塞取代的巨集指令 用EXCEL開啟指定的WORD呼叫WORD的取代巨集去執行取代任務