format the contents of word file thru coding

Originally Posted by Darius

Dim WRD As Word.Document


Function IsRunning(EXE_FILE As String)
Dim wmi As Object, sQuery As String, Processes As Collection
Set wmi = GetObject("winmgmts:")
sQuery = "select * from win32_process where name='" & EXE_FILE & "'"
IsRunning = (wmi.execquery(sQuery).Count > 0)
End Function

Function StartApp(AppName As String) As Object
Dim olApp As Object
If IsRunning(AppName & ".exe") Then
If AppName = "WINWORD" Then
Set olApp = GetObject(, "WORD.Application")
Else
Set olApp = GetObject(, AppName & ".Application")
End If
Else
If AppName = "WINWORD" Then
Set olApp = CreateObject("WORD.Application")
Else
Set olApp = CreateObject(AppName & ".Application")
End If
End If
Set StartApp = olApp
Set olApp = Nothing
End Function

Private Sub Command1_Click()
Set WRD = CreateWordDocument("test.doc")
With WRD
LNG = Len(.Content)
.Content.Italic = True
.Content.Bold = True
.Content = .Content & "To,"
.Content = .Content & vbNewLine
.Content = .Content & Space(3) & "hi there" & Space(1) & "How r u"
.Range(LNG, Len(.Content)).Font.Bold = True
.Range(LNG, Len(.Content)).Font.Italic = True
LNG = Len(.Content)
.Content = .Content & Space(1) & "Yours truly"

.Range(LNG, Len(.Content)).Font.Bold = False
.Range(LNG, Len(.Content)).Font.Italic = False
.Range(LNG, Len(.Content)).Font.Color = wdColorBlue
.Range(Len(.Content) - 1, Len(.Content)).Font.Color = wdColorBlack
End With

End Sub

Function CreateWordDocument(NAME As String) As Word.Document
Dim objWord As Word.Application
Dim WordDoc As Word.Document
Set objWord = StartApp("WINWORD")
objWord.Visible = True

If objWord.Documents.Count = 0 Then
Set WordDoc = objWord.Documents.Add
Else
Set WordDoc = objWord.ActiveDocument
End If
objWord.DisplayAlerts = False

'delete content if word doc is opened before.
For i = 1 To objWord.Documents.Count
If objWord.Documents.Item(i).NAME = NAME Then
objWord.Documents.Item(i).Content = ""
End If
Next i

WordDoc.Select
WordDoc.SaveAs NAME

'Turn back on alerts so user will be notified to save on exit.
objWord.DisplayAlerts = False
Set objWord = Nothing
Set objDocuments = Nothing

Set CreateWordDocument = WordDoc
End Function

But still why not richtextbox (it's easer and IMO less memory loss >> object on the form, not opening an application etc.)?