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"
變數是文字或是數字的語法是不是不同....???
各位大大...請指導小弟..感謝不儘....
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()