Prev: Visualbasic userform to appear automatically
Next: Cannot Change Protection With VBA In Word 2007
From: Graham Mayor on 27 May 2010 16:36
I suggest something along the lines of

Dim intLoop1 As Long
Dim txtName As String
Dim txtTitleA As String
Dim txtTitleB As String
Dim txtTitleC As String
Dim oRng As Range
With ActiveDocument
For intLoop1 = 1 To 10
Set oRng = .Bookmarks("Name" & Right("0" & intLoop1, 2)).Range
oRng.Text = txtName
oRng.Case = wdTitleWord
Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & "a").Range
oRng.Text = txtTitleA
oRng.Case = wdTitleWord
Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & "b").Range
oRng.Text = txtTitleB
oRng.Case = wdTitleWord
Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & "c").Range
oRng.Text = txtTitleC
oRng.Case = wdTitleWord
Next intLoop1
End With

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>



"lallen" wrote:

> I have a template that allows users to print business cards. It displays a
> form where they enter their name and three other lines of text. I would like
> to increase the font size of the first character in each word if the user
> enters the text in upper case.
>
> The code I'm using to capture the text from the form is:
>
> With ActiveDocument
> For intLoop1 = 1 To 10
> .Bookmarks("Name" & Right("0" & intLoop1, 2)).Range.InsertBefore txtName
> .Bookmarks("Title" & Right("0" & intLoop1, 2) & "a").Range.InsertBefore
> xtTitleA
> .Bookmarks("Title" & Right("0" & intLoop1, 2) & "b").Range.InsertBefore
> txtTitleB
> .Bookmarks("Title" & Right("0" & intLoop1, 2) & "c").Range.InsertBefore
> txtTitleC
> Next intLoop1
> End With
>
> How do I go about changing the font size of selective characters in each
> string?
>
> Thanks for any help you can provide. ...Larry
 | 
Pages: 1
Prev: Visualbasic userform to appear automatically
Next: Cannot Change Protection With VBA In Word 2007