次の方法で共有

Document.RunLetterWizard メソッド (Word)

  • [アーティクル]

指定された文書でレター ウィザードを実行します。

構文

expression. RunLetterWizard( _LetterContent_ , _WizardMode_ )

expression 必須です。 Document オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
LetterContent 省略可能 バリアント型 (Variant) LetterContent オブジェクトの場合です。 LetterContent オブジェクトのプロパティは、[レター ウィザード] ダイアログ ボックスで指定済みの要素として表示されます。 この引数を省略すると、指定された文書から LetterContent オブジェクトを取得する GetLetterContent メソッドが自動的に使用します。
WizardMode 省略可能 バリアント型 (Variant) True の 一連の手順で、[ 次へ、 戻る、および [ 完了] ボタンとして、[ レター ウィザード] ダイアログ ボックスを表示します。 False (のプロパティ] ダイアログ ボックスで、[ OK ] ボタンおよび [キャンセル] ボタン) の [ ツール] メニューから開かれたかのよかのように、[ レター ウィザード] ダイアログ ボックスを表示します。 既定値は True です。

注釈

CreateLetterContent メソッドを使用すると、さまざまな文字要素のプロパティを指定した LetterContent オブジェクトを返します。 GetLetterContent メソッドを使用すると、指定したドキュメントの内容に基づいて、 LetterContent オブジェクトを取得します。 結果の LetterContent オブジェクトを RunLetterWizard メソッドと共に使用して、[ レター ウィザード ] ダイアログ ボックスの要素を事前設定します。

例

次の使用例は新しい LetterContent オブジェクトを作成、いくつかのプロパティを設定、および 1 を使用して、レター ウィザードを実行します。

Set myContent = New LetterContent 
With myContent 
 .Salutation ="Hello" 
 .SalutationType = wdSalutationOther 
 .SenderName = Application.UserName 
 .SenderInitials =Application.UserInitials 
End With 
Documents.Add.RunLetterWizard _ 
 LetterContent:=myContent, WizardMode:=True

次の使用例は、 CreateLetterContent メソッドを使用して、作業中の文書では、新しい LetterContent オブジェクトを作成して、 1 でこのオブジェクトを使用します。

Set myLetter = ActiveDocument _ 
 .CreateLetterContent(DateFormat:="July 31, 1999", _ 
 IncludeHeaderFooter:=False, _ 
 PageDesign:="C:\MSOffice\Templates" _ 
 & "\Letters & Faxes\Contemporary Letter.dot", _ 
 LetterStyle:=wdFullBlock, Letterhead:=True, _ 
 LetterheadLocation:=wdLetterTop, _ 
 LetterheadSize:=InchesToPoints(1.5), _ 
 RecipientName:="Dave Edson", _ 
 RecipientAddress:="436 SE Main St." _ 
 & vbCr & "Bellevue, WA 98004", _ 
 Salutation:="Dear Dave,", _ 
 SalutationType:=wdSalutationInformal, _ 
 RecipientReference:="", MailingInstructions:="", _ 
 AttentionLine:="", Subject:="End of year report", _ 
 CCList:="", ReturnAddress:="", SenderName:="", _ 
 Closing:="Sincerely yours,", SenderCompany:="", _ 
 SenderJobTitle:="", SenderInitials:="", _ 
 EnclosureNumber:=0) 
ActiveDocument.RunLetterWizard LetterContent:=myLetter

関連項目

ドキュメント オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。