CodeItBetter Programming Another VB Programming Blog

'MS Office - How to add text to Microsoft Word documents from VB
'This code uses Microsoft Word to add text to documents, from VB.
'First, don't forget to set a reference to the Word 8.0/9.0/10.0/11.0/12.0 Object Model.

Public Function AddTextToWordDoc(ByVal strFileName As String, ByVal strText As String)
    Dim oWordApp As Word.Application
    Dim oWordDoc As Word.Document
    Dim oWordSel As Word.Selection
 
    On Error Resume Next
    Set oWordApp = GetObject(, "Word.Application")  'Look For a running copy of Word.
    If Err.Number <> 0 Then    'If Word is Not running then, run it.
        Set oWordApp = CreateObject("Word.Application")
    End If
 
    oWordApp.Documents.Open strFileName, False, False, False
    'To show Microsoft word application
    'oWordApp.Visible = True
    Set oWordDoc = oWordApp.Documents(Right$(strFileName, Len(strFileName) - _
        InStrRev(strFileName, "\")))
    'To goto top of the document
    oWordDoc.Bookmarks("\StartOfDoc").Range.Select
 
    Set oWordSel = Word.Selection
 
    oWordDoc.Range.InsertBefore strText
 
    'To save the document
    oWordDoc.Save
 
    'To quit the word application
    oWordApp.Quit True
 
    Set oWordApp = Nothing
    Set oWordDoc = Nothing
    Set oWordSel = Nothing
End Function