[ワードを開く]

ワードを開いて、テキストを入力 C:\Temp\Test.doc に保存して終了しています。
ファイルが存在する場合は、上書きされますので注意してください。

【ソースコード】
[tips0173.vbs]
Option Explicit
On Error Resume Next

Dim objWdApp        ' Word オブジェクト
Dim objWdDoc        ' Document オブジェクト

Set objWdApp = WScript.CreateObject("Word.Application")
If Err.Number = 0 Then
    Set objWdDoc = objWdApp.Documents.Add
    If Err.Number = 0 Then
        objWdApp.Selection.TypeParagraph
        objWdApp.Selection.TypeText "真中のテキスト"
        objWdApp.Selection.TypeParagraph

        objWdDoc.Range.InsertBefore "前に挿入"
        objWdDoc.Range.InsertAfter "後ろに挿入"
        objWdDoc.Range.Font.Bold = True

        objWdDoc.SaveAs "C:\Temp\Test.doc"
        objWdDoc.Close
        objWdApp.Quit
    Else
        WScript.Echo "エラー:" & Err.Description
    End If
Else
    WScript.Echo "エラー:" & Err.Description
End If

Set objWdDoc = Nothing
Set objWdApp = Nothing