font change

[ted medin]

I use the following code to insert a template with 'times new roman' font.
When I get thru the font is 'arial'. So what do I do to keep the 'times new
roman' font. TIA

Selection.InsertFile FileName:="c:\program files\microsoft
office\templates\newnewsletterrpl.dot", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
Selection.GoTo What:=wdGoToBookmark, Name:="region"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=rstProj![project region]
Selection.TypeParagraph
Selection.TypeBackspace
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
End If

 

[Charles Kenyon]

Learn how to use styles. Virtually all of your recorded macro has nothing to
do with inserting text, only the following:

Selection.InsertFile FileName:="c:\program files\microsoft
office\templates\newnewsletterrpl.dot", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False

See the IncludeText Field Tutorial at
http://addbalance.com/word/download.htm#Tutorials for details on what is
happening.

I use the following code to insert a template with 'times new roman' font.
When I get thru the font is 'arial'. So what do I do to keep the 'times
new
roman' font. TIA

Selection.InsertFile FileName:="c:\program files\microsoft
office\templates\newnewsletterrpl.dot", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
Selection.GoTo What:=wdGoToBookmark, Name:="region"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=rstProj![project region]
Selection.TypeParagraph
Selection.TypeBackspace
Selection.MoveDown Unit:=wdLine, Count:=1
Selection.HomeKey Unit:=wdLine
End If
--
_________________________________
in Christ's matchless name
73 ted & colleen
n6trf kc6rue