次の方法で共有

Template.OpenAsDocument メソッド (Word)

  • [アーティクル]

ドキュメントとして指定したテンプレートを開き、 Document オブジェクトを返します。

構文

式。 OpenAsDocument

expression 必須です。 'Template' オブジェクトを表す変数。

戻り値

Document

注釈

文書としてテンプレートを開くことができます、テンプレートの内容を編集します。 プロパティまたはメソッド (、 スタイル プロパティなど) は、 テンプレート オブジェクトから使用できない場合があります。

例

次の使用例は、作業中の文書に添付したテンプレートを開き、テンプレートに 1 つの段落記号以外のものが含まれている場合はメッセージ ボックスを表示し、テンプレートを閉じます。

Dim docNew As Document 
 
Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument 
 
If docNew.Content.Text <> Chr(13) Then 
 MsgBox "Template is not empty" 
Else 
 MsgBox "Template is empty" 
End If 
docNew.Close SaveChanges:=wdDoNotSaveChanges

次の使用例は、標準テンプレートのコピーを "Backup.dot" として保存します。

Dim docNew As Document 
 
Set docNew = NormalTemplate.OpenAsDocument 
 
With docNew 
 .SaveAs FileName:="Backup.dot" 
 .Close SaveChanges:=wdDoNotSaveChanges 
End With

この例では、作業中の文書に添付されたテンプレートの [見出し 1] スタイルの書式を変更します。 UpdateStyles メソッドは、作業中の文書内のスタイルを更新します。

Dim docNew As Document 
 
Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument 
 
With docNew.Styles(wdStyleHeading1).Font 
 .Name = "Arial" 
 .Size = 16 
 .Bold = False 
End With 
docNew.Close SaveChanges:=wdSaveChanges 
ActiveDocument.UpdateStyles

関連項目

テンプレート オブジェクト

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

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