作者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/cn.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