Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

882 / 886

←次へ　｜　前へ→


	【5】2002で差込印刷

Rinko - 02/9/9(月) 23:27 -


	引用なし

	パスワード

はじめまして。はじめて過去の質問箱からお邪魔しました。
エクセルの住所録を差し込んで宛名ラベルを作成するマクロを自動記録
したのですが、実行できません。
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

1,683 hits

▼

【5】2002で差込印刷 Rinko 02/9/9(月) 23:27

≪