MSGROUPS.NET | Search | Post Question | Groups | Stream | About | Register

change font size of first character

  • Follow


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
0
Reply Utf 5/27/2010 10:01:37 PM 

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
0
Reply Utf 5/27/2010 8:36:38 PM 


Thanks Graham, but that's not exactly what I was looking for. I want to 
change the font size, not the case, of the first letter of each word. I'm not 
sure if it's doable or not.

....Larry

"Graham Mayor" wrote:

> 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
0
Reply Utf 5/28/2010 11:14:01 PM 

Use

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
        If oRng.Case = 1 Then
            For i = 1 To oRng.Words.Count
                With oRng.Words(1)
                    If .Case <> -1 Then 'The word is numeric
                        With .Characters(1).Font
                            .Size = .Size + 2 'Increase size by 2 points, 
vary to suit
                        End With
                    Else    'Increase the size of all numerals
                        With .Font
                            .Size = .Size + 2
                        End With
                    End If
                End With
            Next i
        End If
        Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & 
"a").Range
        oRng.Text = txtTitleA
        If oRng.Case = 1 Then
            For i = 1 To oRng.Words.Count
                With oRng.Words(1)
                    If .Case <> -1 Then 'The word is numeric
                        With .Characters(1).Font
                            .Size = .Size + 2 'Increase size by 2 points, 
vary to suit
                        End With
                    Else    'Increase the size of all numerals
                        With .Font
                            .Size = .Size + 2
                        End With
                    End If
                End With
            Next i
        End If
        Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & 
"b").Range
        oRng.Text = txtTitleB
        If oRng.Case = 1 Then 'The text is upper case, but it could also 
include numerals
            For i = 1 To oRng.Words.Count
                With oRng.Words(1)
                    If .Case <> -1 Then 'The word is numeric
                        With .Characters(1).Font
                            .Size = .Size + 2 'Increase size by 2 points, 
vary to suit
                        End With
                    Else    'Increase the size of all numerals
                        With .Font
                            .Size = .Size + 2
                        End With
                    End If
                End With
            Next i
        End If
        Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & 
"c").Range
        oRng.Text = txtTitleC
        If oRng.Case = 1 Then
            For i = 1 To oRng.Words.Count
                With oRng.Words(1)
                    If .Case <> -1 Then 'The word is numeric
                        With .Characters(1).Font
                            .Size = .Size + 2 'Increase size by 2 points, 
vary to suit
                        End With
                    Else    'Increase the size of all numerals
                        With .Font
                            .Size = .Size + 2
                        End With
                    End If
                End With
            Next i
        End If
   Next intLoop1
End With


Or, you may want to check the case of each word in the range in case there 
is a mixture

-- 
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

"lallen" <lallen@discussions.microsoft.com> wrote in message 
news:12453254-DECD-4FFE-9305-181120ADEABF@microsoft.com...
> Thanks Graham, but that's not exactly what I was looking for. I want to
> change the font size, not the case, of the first letter of each word. I'm 
> not
> sure if it's doable or not.
>
> ...Larry
>
> "Graham Mayor" wrote:
>
>> 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
0
Reply Doug 5/29/2010 3:56:54 AM 

Thanks Doug. That works like a charm.

....Larry

"Doug Robbins - Word MVP" wrote:

> Use
> 
> 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
>         If oRng.Case = 1 Then
>             For i = 1 To oRng.Words.Count
>                 With oRng.Words(1)
>                     If .Case <> -1 Then 'The word is numeric
>                         With .Characters(1).Font
>                             .Size = .Size + 2 'Increase size by 2 points, 
> vary to suit
>                         End With
>                     Else    'Increase the size of all numerals
>                         With .Font
>                             .Size = .Size + 2
>                         End With
>                     End If
>                 End With
>             Next i
>         End If
>         Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & 
> "a").Range
>         oRng.Text = txtTitleA
>         If oRng.Case = 1 Then
>             For i = 1 To oRng.Words.Count
>                 With oRng.Words(1)
>                     If .Case <> -1 Then 'The word is numeric
>                         With .Characters(1).Font
>                             .Size = .Size + 2 'Increase size by 2 points, 
> vary to suit
>                         End With
>                     Else    'Increase the size of all numerals
>                         With .Font
>                             .Size = .Size + 2
>                         End With
>                     End If
>                 End With
>             Next i
>         End If
>         Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & 
> "b").Range
>         oRng.Text = txtTitleB
>         If oRng.Case = 1 Then 'The text is upper case, but it could also 
> include numerals
>             For i = 1 To oRng.Words.Count
>                 With oRng.Words(1)
>                     If .Case <> -1 Then 'The word is numeric
>                         With .Characters(1).Font
>                             .Size = .Size + 2 'Increase size by 2 points, 
> vary to suit
>                         End With
>                     Else    'Increase the size of all numerals
>                         With .Font
>                             .Size = .Size + 2
>                         End With
>                     End If
>                 End With
>             Next i
>         End If
>         Set oRng = .Bookmarks("Title" & Right("0" & intLoop1, 2) & 
> "c").Range
>         oRng.Text = txtTitleC
>         If oRng.Case = 1 Then
>             For i = 1 To oRng.Words.Count
>                 With oRng.Words(1)
>                     If .Case <> -1 Then 'The word is numeric
>                         With .Characters(1).Font
>                             .Size = .Size + 2 'Increase size by 2 points, 
> vary to suit
>                         End With
>                     Else    'Increase the size of all numerals
>                         With .Font
>                             .Size = .Size + 2
>                         End With
>                     End If
>                 End With
>             Next i
>         End If
>    Next intLoop1
> End With
> 
> 
> Or, you may want to check the case of each word in the range in case there 
> is a mixture
> 
> -- 
> Hope this helps.
> 
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
> 
> Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
> 
> "lallen" <lallen@discussions.microsoft.com> wrote in message 
> news:12453254-DECD-4FFE-9305-181120ADEABF@microsoft.com...
> > Thanks Graham, but that's not exactly what I was looking for. I want to
> > change the font size, not the case, of the first letter of each word. I'm 
> > not
> > sure if it's doable or not.
> >
> > ...Larry
> >
> > "Graham Mayor" wrote:
> >
> >> 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 
>
0
Reply Utf 5/29/2010 8:15:01 PM
microsoft.public.word.vba.general 1023 articles. 5 followers.

4 Replies
711 Views

(page loaded in 0.123 seconds)

Similiar Articles:

change font size of first character - microsoft.public.word.vba ...
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 l...

VBA code to set two different font sizes in a textframe ...
change font size of first character - microsoft.public.word.vba ... VBA code to set two different font sizes in a textframe ..... TextRange.Font.Size = 36 oShape.TextFrame ...

Change font or increase size of spellcheck box - microsoft.public ...
change font size of first character - microsoft.public.word.vba ... I would like to increase the font size of the first character in ... the relationship first.

Font size in Query Design view - microsoft.public.access ...
change font size of first character - microsoft.public.word.vba ... Font size in Query Design view - microsoft.public.access ... creating join with only the first 4 ...

Why did my font size change? - microsoft.public.outlook.general ...
change font size of first character - microsoft.public.word.vba ... Twips, Pixels, and Font size - microsoft.public.vb.general ..... 120 Why did it change my font size ...

VBA - Change fonts of all objects? - microsoft.public.powerpoint ...
change font size of first character - microsoft.public.word.vba ... Excel :: VBA Change Font Size Of A Character Or Letter Within Any ... Copy, Paste, Change Font Size ...

Word 2007 - Font Size Error - Incorrect Character Size/Spacing ...
Sorry error in my first ... depends on the font and font size. I'm guessing the bullet character changes the line spacing ... how to change bullet size in MS Word 2007 ...

Can I increase the weight of a font in Excel? - microsoft.public ...
change font size of first character - microsoft.public.word.vba ... I would like to increase the font size of the first character in each word if ...

Character Index - microsoft.public.excel.misc
I would like to increase the font size of the first character in each word if ... Character Index - microsoft.public.excel.misc change font size of first character ...

Word font size difference between Times New Roman and Arial ...
My understanding of "points" is that > they > fix the actual size of a character, so why does the size change when I > change > font face?

change font size of first character - microsoft.public.word.vba ...
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 l...

How to Change Text Color Character by Character (Internet Explorer)
Changing text effects at the character level requires that each ... whole word in the first cell and a single character in each ... Comic Sans MS"; font-size ...

Visual Basic :: Change Text Color And Font Character By Character
I need to change the first character in a string to uppercase. I tried using the LEN ... if any body know API or how to change the font size and change the background ...

Excel :: VBA Change Font Size Of A Character Or Letter Within Any ...
Draw An Arrow Equal The Size Of The Selected Cells; Evaluate First Character Of String In VBA; VBA Function For Finding A Character In A Text String; Change Cell And Font Color ...

Font - Wikipedia, the free encyclopedia
One individual font character might be referred to ... 14A 34a, meaning that it would be a size 12-point font ... left-to-right scripts—the lowercase character shapes change ...

7/24/2012 7:27:44 AM


Reply:



Privacy Policy | All Times Are GMT(UTC) | powered by