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的取代宏去执行取代任务