Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to "crop" charts created in Excel and moved to Word | Charts and Charting in Excel | |||
how do i format a textbox on a userform created in excel | New Users to Excel | |||
SOS!!! Excel 2007 - Pivot tables created in 2003 format | Excel Discussion (Misc queries) | |||
Printing Problem in Word Document Created from Excel VBA | Excel Programming | |||
Excel-created Word instance hanging on thru Outlook? | Excel Programming |