I have a macro that creates a RTF file based on information in a database in the background and saves it. It formats the text with bold and font size, etc. I format the text with 12 point font size and other parts 10 point. If I open the rtf I created it has all the formatting I told it to use. The problem is that when I insert it into the an existing document it changes the font size to 10 point on all the text in the inserted document. I need it to hold the existing formatting after it is inserted. I have in the Options/Advanced/Cut, Copy and Paste to keep Source formatting but it does not.
Any idea what might be going on?

Here is a portion of the macro..

' open document


Set objDoc = objWord.Documents.Open(StrTempPic)

Set objSelection = objWord.Selection

' if not the first report, double space
If rownum > 1 Then
objSelection.TypeText (vbNewLine & vbNewLine)
End If

objSelection.Font.Bold = True
objSelection.Font.Size = "12"

objSelection.TypeText ("Report Name: ")

' format Report Name
objSelection.Font.Bold = False
objSelection.Font.Size = "10"
objSelection.Font.Underline = True

' Report Name, underlined
'objSelection.TypeText (rs(1) & ", ")
objSelection.TypeText (rs(1)) & ","

' turn off underline
objSelection.Font.Underline = False



' the rest of the line is not underlined, titles will be bold

' Version
objSelection.Font.Bold = True
objSelection.TypeText (" Version: ")
objSelection.Font.Bold = False

objSelection.TypeText (rs(2) & ", ")

'Instance number
objSelection.Font.Bold = True
objSelection.TypeText ("Inst#: ")
objSelection.Font.Bold = False

objSelection.TypeText (rs(3) & vbNewLine & vbNewLine)

objDoc.Save
objDoc.Close

' MsgBox ("Just saved document")

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''

' move to "efrm goes here" section
' it will only be here on the first document insertion

startTag = "\[EmbeddedReport\]"
endTag = "\[/\EmbeddedReport\]"

strSearchString = startTag & "efrm goes here" & endTag
' MsgBox ("SearchString = " & strSearchString)

With Selection.Find
.ClearFormatting
.Text = strSearchString
.Replacement.ClearFormatting
.Replacement.Text = "[EmbeddedReport" & ReportInstance & "]efrm goes here[/EmbeddedReport" & ReportInstance & "]"
' MsgBox Selection.Find.Replacement.Text

.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
End With

' end select it
Selection.Find.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue

Selection.HomeKey Unit:=wdStory

With Selection.Find
.ClearFormatting
.Text = "efrm goes here"
.Replacement.ClearFormatting
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
End With

Selection.Find.Execute ' Replace:=wdReplaceAll ' , Forward:=True ' , Wrap:=wdFindContinue

Selection.InsertFile StrTempPic

Undoubtedly, you have a Style conflict between whatever Style is in use in the RTF (Word will assume the 'Normal' Style if none is specified) and the corresponding Style in Word. Instead of going about things as you are now, you might consider not applying your formatting to the RTF and, instead, format the content via appropriately-defined Styles once it's been imported into Word.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]