deustim
08-15-2011, 11:00 AM
I use access 2007 data to push to a word template. The merge function works fine but I cannot figure how to use .Case to format indivdual bookmarks. Here is an excerpt of my code:
Dim Word As New Word.Application
Set Word = CreateObject("Word.Application")
Dim MergeDoc As String
MergeDoc = Application.CurrentProject.Path
MergeDoc = MergeDoc + "\DIAKanswer.dotx"
Word.Documents.Add MergeDoc
Word.Visible = True
With Word.ActiveDocument.Bookmarks
.Item("txtSAUSAName").Range.Text = Nz(Me.txtSAUSAName)
.Item("txtSAUSAName3").Range.Text = Nz(Me.txtSAUSAName)
.Item("txtSAUSAName4").Range.Text = Nz(Me.txtSAUSAName)
I wish to format the txtSAUSAName3 bookmark to always output the data as uppercase, ideally using something like wdUpperCase.
Thank You.
Dim Word As New Word.Application
Set Word = CreateObject("Word.Application")
Dim MergeDoc As String
MergeDoc = Application.CurrentProject.Path
MergeDoc = MergeDoc + "\DIAKanswer.dotx"
Word.Documents.Add MergeDoc
Word.Visible = True
With Word.ActiveDocument.Bookmarks
.Item("txtSAUSAName").Range.Text = Nz(Me.txtSAUSAName)
.Item("txtSAUSAName3").Range.Text = Nz(Me.txtSAUSAName)
.Item("txtSAUSAName4").Range.Text = Nz(Me.txtSAUSAName)
I wish to format the txtSAUSAName3 bookmark to always output the data as uppercase, ideally using something like wdUpperCase.
Thank You.