Home |
Search |
Today's Posts |
#1
|
|||
|
|||
I'm not sure which NG I should ask this question.
I'm very new at templates and macros. I would like to edit the vba command code to only show and print "This is What Typeface will Look Like" instead of the "ABCDE..., abcde...,etc. (keeping it simple).Would someone "in the know" show me how to edit this portion of the command to generate the desitrd result?
Sub FontSampleGenerator() Dim oDoc As Document, SampleText As String, FontName As String, _ MyRange As Range, StartRange As Range, i As Long Set oDoc = Documents.Add SampleText = Chr$(147) & "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _ Chr$(148) & ", " & _ Chr$(147) & "abcdefghijklmnopqrstuvwxyz" & Chr$(148) & ", " & _ Chr$(147) & "0123456789" & Chr$(148) & ", " & _ Chr$(147) & "The quick brown fox jumps over the lazy dog" & Chr$(148) & ", " & _ Chr$(145) & "Ã*áâéêëìÃ*îòóôùúû" & Chr$(146) & ", " & _ Chr$(145) & "(;,.:£‚¬$?!)" & Chr$(146) System.Cursor = wdCursorWait Thanks, anyone! |
#2
|
|||
|
|||
On Fri, 14 Jan 2005 17:28:41 -0500, "billybob"
wrote: I'm very new at templates and macros. I would like to edit the vba command code to only show and print "This is What Typeface will Look Like" instead of the "ABCDE..., abcde...,etc. (keeping it simple). Would someone "in the know" show me how to edit this portion of the command to generate the desitrd result? Sub FontSampleGenerator() Dim oDoc As Document, SampleText As String, FontName As String, _ MyRange As Range, StartRange As Range, i As Long Set oDoc = Documents.Add SampleText = Chr$(147) & "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _ Chr$(148) & ", " & _ Chr$(147) & "abcdefghijklmnopqrstuvwxyz" & Chr$(148) & ", " & _ Chr$(147) & "0123456789" & Chr$(148) & ", " & _ Chr$(147) & "The quick brown fox jumps over the lazy dog" & Chr$(148) & ", " & _ Chr$(145) & "àáéêëìíîòóôùúû" & Chr$(146) & ", " & _ Chr$(145) & "(;,.:£€$?!)" & Chr$(146) System.Cursor = wdCursorWait Thanks, anyone! You code in this part of the macro should look like this: Sub FontSampleGenerator() Dim oDoc As Document, SampleText As String, FontName As String, _ MyRange As Range, StartRange As Range, i As Long Set oDoc = Documents.Add SampleText = "This is What Typeface will Look Like" System.Cursor = wdCursorWait -- Regards, Jay Freedman Microsoft Word MVP FAQ: http://word.mvps.org |
#3
|
|||
|
|||
Thank you so much Jay. Just the response needed. You've answered quite a
few of my questions over the years and you always give a very professional, yet very easy to understand response. |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Access to Word Mail Merge; symbols change to question marks | Mailmerge | |||
use a 'question mark cursor' to get help | Microsoft Word Help | |||
Newbie document question please | New Users | |||
Font question? | Microsoft Word Help | |||
Yet another DDE question! | Mailmerge |