VB Word文書のヘッダーとフッターのテキストを置き換えます

情報を検索し、置換テキストページのコンテンツの唯一の成功を置き換えます

サブドキュメント（）点心wordapp 
　　設定し wordapp = のCreateObject（" Word.Application " ）
    でwordapp 
        .documents.Open（ThisWorkbook.Path＆" テストの.docx " ）
        .Visible = Trueの
        ：.activedocument.content.Find.Execute FINDTEXT = テキスト1、ReplaceWith：=テキスト2、交換してください：= 2 
        .documents.Close 
    エンド で
　　wordapp.Quit 
　　セット wordapp = 何も
End Subの

プラス書き込みC＃のテストが成功したDOM APIを使用しました

サブドキュメント（）
 点心wordapp
　　設定し wordapp = のCreateObject（" Word.Application " ）
     でwordapp 
        .documents.Open（ThisWorkbook.Path＆" test.docx " ）
        .Visible = Trueの
        .ActiveWindow.ActivePane.View.SeekView = 9 
        .Selection .Find.Execute FINDTEXT： = " visit_name "、ReplaceWith：= Sheet1.Cells（1、I）.Valueのは、交換：= 2
        .ActiveWindow.ActivePane.View.SeekView = 0 
        .documents.Close 
    エンド で
　　wordapp.Quit 
　　セット wordapp = 何も
End Subの