word ヘッダーフッターを置換

先のものをヘッダーフッター変換用にしたのがこれ。

Sub autoopen()
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooterFor Each i In Selection.HeaderFooter.Shapes ' すべてのシェープを検索If i.Type = msoShapeRectangle Theni.TextFrame.TextRange.Find.Execute FindText:="ＶＴＲ機材（ＶＴＲ，テープ", ReplaceWith:="ＶＴＲ機材（ビデオカメラ、テープ", Replace:=wdReplaceAll
End IfNextActiveDocument.SaveActiveDocument.Close
End Sub