Format word created from Excel VBA
 

Hello,
I have the following code to create word from excel VBA. I cant find a
way to formatsome of the text with BOLD or font size. Any help will be
great!

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = False
Set wrdDoc = wrdApp.Documents.Add ' create a new document

With wrdDoc

.Content.InsertAfter "Date " & Me.DTPicker1.Value & vbCr & vbCr

' How to format font ????

..Content.InsertAfter vbTab & "^B Return Material Authorization" & vbCr
& vbCr
.SaveAs Range("Info!G2").Text & "\RMA report for " &
Me.TextBox17_PartNumber & ".doc"
.Close ' close the document
End With

wrdApp.Quit ' close the Word application

Set wrdDoc = Nothing
Set wrdApp = Nothing


Thanls!!!

Eran

Format word created from Excel VBA
 

You did not specify which font so here is a simple example setting the font
to bold. I changed the create object to just instantiating a new instance of
word since you referenced the Word library anyway...

Sub Test()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document

Set wrdApp = New Word.Application
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Add ' create a new document

With wrdDoc
.Characters(1).Font.Bold = wdToggle
.Content.InsertAfter "Date " & vbCr & vbCr

' How to format font ????

.Close ' close the document
End With

wrdApp.Quit ' close the Word application

Set wrdDoc = Nothing
Set wrdApp = Nothing

End Sub
--
HTH...

Jim Thomlinson


" wrote:

Hello,
I have the following code to create word from excel VBA. I cant find a
way to formatsome of the text with BOLD or font size. Any help will be
great!

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = False
Set wrdDoc = wrdApp.Documents.Add ' create a new document

With wrdDoc

.Content.InsertAfter "Date " & Me.DTPicker1.Value & vbCr & vbCr

' How to format font ????

..Content.InsertAfter vbTab & "^B Return Material Authorization" & vbCr
& vbCr
.SaveAs Range("Info!G2").Text & "\RMA report for " &
Me.TextBox17_PartNumber & ".doc"
.Close ' close the document
End With

wrdApp.Quit ' close the Word application

Set wrdDoc = Nothing
Set wrdApp = Nothing


Thanls!!!

Eran