Dim WdObj As Object
Dim WdERR
'===================================================================================
Public Sub test()
    Call WORDOPEN(Application.CurrentProject.Path & "\" & "TEST.DOC")
    Call WORDEXCHANGE("あ", "□")
    WdObj.ActiveDocument.Content.InsertAfter "「追加する文字」"
    Call WORDPRINT
    Call WORDCLOSE
End Sub
'===================================================================================
Public Sub WORDOPEN(F) 'ワードアプリケーション起動、ワードファイルOPEN
    '引数=docファイルのフルパス
    'ファイルが存在しない場合はWdERR=true
    WdERR = False
    On Error GoTo e
    Set WdObj = CreateObject("Word.Application")
    WdObj.Visible = False 'True
    WdObj.Documents.Open F 'ファイルを開く
    'WdObj.Documents.Add '新規ファイル
    Exit Sub
e:
    WdERR = True
    WdObj.Quit: Set WdObj = Nothing
End Sub
'===================================================================================
Public Sub WORDCLOSE() 'ワードアプリケーション終了、オブジェクト変数開放
    On Error Resume Next
    'WdObj.ActiveDocument.Close SaveChanges:=True '上書き保存
    'WdObj.ActiveDocument.SaveAs Filename:="C:\sample.doc"  '別名で保存
    WdObj.ActiveDocument.Close SaveChanges:=False '保存しない
    WdObj.Quit: Set WdObj = Nothing
End Sub
'===================================================================================
Public Sub WORDEXCHANGE(K1, K2) 'K1をK2に置換
    WdObj.Selection.Find.Forward = True '検索方向
    'WdObj.Selection.Find.Replacement.Font.Color = 255 '色を変える
    WdObj.Selection.Find.Execute FindText:=K1, ReplaceWith:=K2, Replace:=2 'wdReplaceAll
End Sub
'===================================================================================
Public Sub WORDPRINT()
    WdObj.PrintOut
End Sub
'===================================================================================

    '***************
    '* その他の操作
    '***************
    '文章の最後に、新たに文字を追加する
    'WdObj.ActiveDocument.Content.InsertAfter "「追加する文字」"