#ワード内の文章を置換
Sub mojiretuhenkan()
    
    Dim rbook As Object, rrow As Object
    Set rbook = GetObject(ActiveDocument.Path & "\置換テーブル.xlsx")
    
    With ActiveDocument.Content.Find
        For Each rrow In rbook.Worksheets(1).Range("検索置換セット").Rows
            If rrow.Cells(1).Value = "" Then Exit For
            
            .Text = rrow.Cells(1).Value
            .Replacement.Text = rrow.Cells(2).Value
            .Execute Replace:=wdReplaceAll
            
        Next rrow
    End With 'ActiveDocument.Content.Find
    
    rbook.Application.Quit
    Set rbook = Nothing
    
End Sub