>Hi,
>
>How can i open a .rtf file and copy all inside words (include fonts,size,color... ) into a selected WinWord file.
Didn't you ask the same question yesterday?
Open .rtf with word. Select all. Copy, paste in other doc. In code it looks like:
#DEFINE wdCollapseStart 1
#DEFINE wdCollapseEnd 0
lcDoc = GETFILE('doc')
lcRTF = GETFILE('rtf')
oWord = createobject('Word.Application')
with oWord
.Visible = .t.
.Documents.Open(m.lcDoc)
.ActiveDocument.Content.Select
.Selection.Collapse(wdCollapseEnd)
.Selection.InsertFile(m.lcRTF, , .f.)
.Activate
endwithCetin
