ActiveDocument.MailMerge.DataSource.QueryString = _
"SELECT * FROM [連接dbase] WHERE (([DEPNO] = '099')_
AND ([form格式] = '2'))" & ""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
上面是word 的合併列印VBA的程式碼
簡單說就是把depno="099"及form格式="2"的資料抓出來合併列印想請問可不可以用變數及迴圈方式將"099"用變數取代
我想"001"印到"100"
變數是文字或是數字的語法是不是不同....???
各位大大...請指導小弟..感謝不儘....
"SELECT * FROM [連接dbase] WHERE (([DEPNO] = '099')_
AND ([form格式] = '2'))" & ""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
上面是word 的合併列印VBA的程式碼
簡單說就是把depno="099"及form格式="2"的資料抓出來合併列印想請問可不可以用變數及迴圈方式將"099"用變數取代
我想"001"印到"100"
變數是文字或是數字的語法是不是不同....???
各位大大...請指導小弟..感謝不儘....
全站熱搜
留言列表