| |
はじめまして。はじめて過去の質問箱からお邪魔しました。
エクセルの住所録を差し込んで宛名ラベルを作成するマクロを自動記録
したのですが、実行できません。
XP、2002で差込印刷ウィザードを印刷終了までしました。
マクロでお使いの方がいらっしゃいましたら、教えてください！
2000ではできたんですが。。
←のところで実行時エラー509 このコマンドは使用できません。
となります。１件目に入っているだけでした。どう修正したらいいのでしょうか。
印刷終了まで記録しています。差し込んだラベルがレイアウトされれば、あとは
手動で印刷してもいいのですが、エラーまでではそれができていません。
ちなみにこの１行を消したところ、１件づつラベルシートの１件目を使って印刷され、連続では差し込まれていませんでした。
〜省略
Selection.TypeText Text:=" 〒"
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""郵便番号"""
Selection.TypeParagraph
Selection.TypeText Text:=" "
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""住所１"""
Selection.TypeParagraph
Selection.TypeText Text:=" "
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""住所２"""
Selection.TypeParagraph
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.TypeText Text:=" "
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""氏名"""
Selection.TypeText Text:=" 様"
WordBasic.MailMergePropagateLabel ←ここで実行時エラー509
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
CommandBars("Task Pane").Visible = False
End Sub
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
