ワードで書式は固定である、ひな型を作りたい

質問

ワードで文章のひな型を作りたいと考えています。
但し、そのひな型は文章全てを編集出来る物ではなく、例えば【文章の最初は一文字開ける、書式、フォントサイズは標題は１２Ｐｔ、明朝体】等、書式自体は固定したいのです。
そういった場合、ワードではどのようにすればよいのでしょうか。
文章の中身は誰でも編集できて、書式自体は固定したいのです。宜しくご教授下さい。

回答No.2

Wendy02 · ベストアンサー

こんばんは。

書式の固定というのは、どうしても、VBAを使うしかありませんが、よろしいのでしょうか？個人的には、Wordの作成中に、書式－フォントの制限を受けるのはストレスを感じます。

最初に、

ドキュメントに
「書式、フォントサイズは標題は１２Ｐｔ、明朝体」
として設定してください。

「文章の最初は一文字開け、フォントを変更できなくする。」

ThisDocument に以下のように貼り付けます。そして、次に、テンプレートファイルに変更し保存します。

Private Sub Document_Close()
'フォントの変更を出来るように解除する
With Application
　　 .CommandBars("Formatting").FindControl(, 1728).Enabled = True
　　 .CommandBars("Formatting").FindControl(, 1731).Enabled = True
　　 .CommandBars("Menu Bar").Controls("書式(&O)").Controls(1).Enabled = True
　　 .CommandBars("Text").FindControl(, 253).Enabled = True
End With
End Sub

Private Sub Document_Open()
'文章の最初は一文字開け、フォントを変更できなくする。
　ThisDocument.Range(Start:=0).Words(1).Text = "　"
With Application
　　 .CommandBars("Formatting").FindControl(, 1728).Enabled = False
　　 .CommandBars("Formatting").FindControl(, 1731).Enabled = False

　　 .CommandBars("Menu Bar").Controls("書式(&O)").Controls(1).Enabled = False
　　 .CommandBars("Text").FindControl(, 253).Enabled = False

End With
End Sub

回答No.1

OsieteG00

テンプレートを作成すればよいと思います。

新規作成->書式設定後、文書テンプレートを保存。

次から、作成時にこのテンプレートを読み込めばよいです。

参考URL：

http://www.mccoy.jp/chie/zaitaku/word_template.html

補足

ありがとうございます。ただ、テンプレートだと編集が可能ですよね。内容以外は編集できないようにしたいのですが・・・。