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
|