MS Wordマクロによるファイル名挿入

ファイルオープン時の処理

以下のマクロをThisDocument内に記述する。
このサンプルコードでは、ファイルオープン時に

1. メッセージボックスにHello!を表示
2. 文書先頭にファイル名の先頭8文字を抽出して表示

を自動実行する。

Private Sub Document_Open()
'
' Document_Open Macro
'
'
MsgBox ("hello!")
'ActiveDocument.Range(Start:=0, End:=0).Text = "テスト"
ActiveDocument.Range(Start:=0, End:=0).InsertBefore Text:=Left(ActiveDocument.Name, 8)

End Sub

参考サイト

https://word.tips.net/T000292_Inserting_a_File_Name_without_an_Extension.html
http://stabucky.com/wp/archives/3416
https://goo.gl/MBB3Bg
https://msdn.microsoft.com/ja-jp/library/office/ff195067.aspx

演算子

http://office-qa.com/Word/wd67.htm

文書中にマクロボタン

https://aoten.jp/1721/snack/word/m10_8.html