Output text bold & upper case?

[air1jcw]

Below is code that works just fine. It outputs text from a form into a MSWord template. I would like to have the output type the text in uppercase & bold.

Any help??

Private Sub MergeButton_Click()

On Error GoTo MergeButton_Err

Dim objWord As Word.Application

Set objWord = CreateObject("Word.Application&quot

With objWord
.Visible = True

.Documents.Open ("D:\Documents and Settings\air1jcw\Desktop\Access VB Fun Practice\Ch1114.dot&quot
.ActiveDocument.ShowSpellingErrors = False

'Move to each bookmark and insert text from the form.
.ActiveDocument.Bookmarks("WWReviewGTWYs&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!ATTN))
.ActiveDocument.Bookmarks("IID&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!IID1))
.ActiveDocument.Bookmarks("Fleettype&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!FleetType))
.ActiveDocument.Bookmarks("Nomenclature&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!Nomenclature))
.ActiveDocument.Bookmarks("PN&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!PN))
.ActiveDocument.Bookmarks("GTWY1&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!GTWY1))
.ActiveDocument.Bookmarks("Hashave&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!hashave))
.ActiveDocument.Bookmarks("Deallocationreason&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!DeAllocationReason))
.ActiveDocument.Bookmarks("GTWY2&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!GTWY2))
.ActiveDocument.Bookmarks("GTWY3&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!GTWY3))
.ActiveDocument.Bookmarks("TotAlloc&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!TotalAllocations))
.ActiveDocument.Bookmarks("BOstatement&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!BO))
.ActiveDocument.Bookmarks("Summary&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!Summary))
.ActiveDocument.Bookmarks("IID2&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!IID1))
.ActiveDocument.Bookmarks("Totalcost&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!TotalCost))
.ActiveDocument.Bookmarks("email&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!emailcontact))
.ActiveDocument.Bookmarks("Atlas&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!ATLAS))
.ActiveDocument.Bookmarks("Phone&quot.Select
.Selection.Text = (CStr(Forms!WWRDataEntry!PHONE))


End With

MergeButton_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue.
If Err.Number = 94 Then
objWord.Selection.Text = ""
Resume Next

End If


End Sub

 

[vbajock]

Bold:
ActiveDocument.Content.Font.Bold = False/False
Selection.Font.Bold =true/false

Upper Case: Ucase$ example

.Selection.Text = Ucase$((CStr(Forms!WWRDataEntry!GTWY1)))

 

[rdodge]

For the all upper case, you can use the UCase function like:

.Selection.Text = UCase(CStr(Forms!WWRDataEntry!ATTN))

For the bold, try using the the Font object on the selection like:

.Selection.Font.Bold = True

Ronald R. Dodge, Jr.
Production Statistician
Master MOUS 2000
When the going gets tough, the tough gets going.

 

[GeekGirlau]

Quick suggestion - you can streamline your code quite a bit by giving your bookmarks the same name as the text boxes in your form.

Private Sub MergeButton_Click()
Dim objWord As Word.Application
Dim bkmk As Word.Bookmark


On Error GoTo MergeButton_Err

Set objWord = CreateObject("Word.Application&quot

With objWord
.Visible = True

.Documents.Open ("D:\Documents and Settings\air1jcw\Desktop\Access VB Fun Practice\Ch1114.dot&quot
.ActiveDocument.ShowSpellingErrors = False

'Move to each bookmark and insert text from the form.
For Each bkmk In .ActiveDocument.Bookmarks
.ActiveDocument.Bookmarks(bkmk.Name).Select
.Selection.Text = UCase(CStr(Forms!WWRDataEntry.Controls(bkmk.Name)))
.Selection.Font.Bold = True
Next bkmk
End With

MergeButton_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue.
If Err.Number = 94 Then
objWord.Selection.Text = ""
Resume Next
End If
End Sub

 

[tunsarod]

Good question.

At the risk of telling you something obvious. Using:

.Documents.Open ("filename.dot&quot

means that you are working directly with the template and risk making undesired changes if the save button is clicked in Word.

Whereas, using:

.Documents.Add Template:=("filename.dot&quot

means you are adding text to a new document and your users cannot stuff up a carefully prepared template.