OFFICEのWORDに関する質問です。

質問

OFFICEのWORDに関する質問です。

ある部署全体に対して、WORDのマクロを配布して、
その部署全社員がそのマクロを使えるようにしたいと考えています。

EXCELやPPTでは、アドインを配布し、それを適用してもらうことで実現できると思いますが、
WORDでのやり方がわからず、困っています。

マクロとしては、
・ツールバー上に、ボタンがひとつできる。
・できたボタンを押すと、フォントの設定と表のプロパティを変更するマクロが走る。
という内容です。

どなたか、WORDのマクロが詳しい方がいらっしゃいましたら、回答お願いいたします。

よろしくお願いいたします。

回答No.1

1050 円（@1050YEN） · ベストアンサー

マクロのセキュリティを下げてくださいね。
簡単なサンプルです。

罫線を引く処理などは、マクロを記録してください。

「文書1.ThisDocument」
Option Explicit
Const DEF_TITLE As String = "おりじなる"

Private Sub Document_Close()
　　If Not ExistsCmdBar Then
　　　　Exit Sub
　　End If

　　Dim l_objCmdBar As CommandBar
　　Set l_objCmdBar = CommandBars(DEF_TITLE)
　　Call l_objCmdBar.Delete
End Sub

Private Sub Document_Open()
　　Dim l_objCmdBar As CommandBar

　　If ExistsCmdBar Then
　　　　Set l_objCmdBar = CommandBars(DEF_TITLE)
　　Else
　　　　Set l_objCmdBar = CommandBars.Add(DEF_TITLE)
　　　　Call SetBtn(l_objCmdBar)
　　End If

　　l_objCmdBar.Visible = True
End Sub

Private Function ExistsCmdBar() As Boolean
　　On Error Resume Next

　　Dim l_objCmdBar As CommandBar
　　Set l_objCmdBar = CommandBars(DEF_TITLE)

　　ExistsCmdBar = (Err.Number = 0&)
End Function

Private Sub SetBtn(p_objCmdBar As CommandBar)
　　Dim l_objCtn As CommandBarButton

　　Set l_objCtn = p_objCmdBar.Controls.Add(msoControlButton)
　　l_objCtn.Style = msoButtonCaption
　　l_objCtn.Caption = "てすとぼたん"
　　l_objCtn.TooltipText = "もじゅる1.まくろ1"
　　l_objCtn.OnAction = "Module1.まくろ1"
End Sub

「文書1.Module1」
Option Explicit
Public Sub まくろ1()
　　MsgBox "まくろ1起動"
End Sub

お礼

＞1050YENさん

早速の回答、ありがとうございます。
サンプルのマクロを「normal」の"thisworkbook"と"module1"にコピペしました。
wordファイルを開いて、コマンドボタンが表示されることを確認できました。

ありがとうございます！！

ただ、全部署に展開するのであれば、
この「コピペ」行為を全社員にさせる必要があると思うのですが、
他に上手な展開方法はあるでしょうか？

重ね重ねの質問になり、申しわけありませんが、
もし展開方法をご存知でしたら、ご教授いただけたらと思います。

よろしくお願いいたします。

回答No.2

1050 円（@1050YEN）

http://msdn.microsoft.com/ja-jp/library/dd313948.aspx

Wordはあまり使用しないので、よくわかっておりません^^;;;;

いまちょっと試したら、Wordのテンプレートって、あまり便利がよくなさそう。。。
（私が無知なだけかもしれません。）

私の場合は、
http://msdn.microsoft.com/ja-jp/library/dd313948.aspx
のようなCOMの配布しか思いつかなのです。(for .NET)

このカテゴリはプログラミングのカテゴリです。
もしかしたらOfficeカテゴリで質問したら、わざわざ作らなくてもいい方法やツールを紹介してくれるかもしれませんよ。

お礼

＞1050YENさん

再度、ご回答ありがとうございます！！

＞いまちょっと試したら、Wordのテンプレートって、あまり便利がよくなさそう。。。
私の印象も同じです。
ExcelやPowerPointとは、挙動が異なり、取っ付きにくいですね。。。

＞http://msdn.microsoft.com/ja-jp/library/dd313948.aspx
＞のようなCOMの配布しか思いつかなのです。(for .NET)

紹介していただいた「COMの配布」は、いまの私にはハードルが高そうです。
（そもそも、Microsoft Visual Studio .NETがPCに入っておりません。。）

＞このカテゴリはプログラミングのカテゴリです。
＞もしかしたらOfficeカテゴリで質問したら、
＞わざわざ作らなくてもいい方法やツールを紹介してくれるかもしれませんよ。

アドバイスいただき、ありがとうございます。
調べさせていただきます。

丁寧に回答していただき、
誠にありがとうございました！！