WAIT "正在访问 Word 软件……" WINDOW NOWAIT
WordApp=CREATEOBJECT("Word.application")
If Type("WordApp")#"O"
WAIT CLEAR
MessageBox( "访问Word失败！请检查你的系统是否正确安装 Word 软件！",48,"Word不正常")
RETURN .f.
ENDIF
WAIT "正在设置 Word 页面……" WINDOW NOWAIT
WordApp.Visible =.f.
WordApp.Caption ='测试'
WordApp.Documents.Add
WordApp.Documents(1).Range.Text=thisform.richtext1.text
WAIT CLEAR
WordApp.Visible =.t.
****************************************

我知道问题出在红字那句,因text是文本不带格式!
那应该怎么写呢?

[此贴子已经被作者于2017-2-4 12:57编辑过]

thisform.richtext1.text是我表单中的一个richtext控件
里面的内容是有格式的!
按上面的方法,只有文本过去了,格式并没有过去!
WordApp.Documents(1).Range.Text=thisform.richtext1.text=thisform.richtext1.textrtf也不行!
那样一群格式文本全过去了
百度了一下,好象这个问题不好解决!

[此贴子已经被作者于2017-2-4 12:59编辑过]

按xiejie说的做了!
估计还非得用文件形式存了再读取!

Wait "正在访问 Word 软件……" Window Nowait
WordApp=Createobject("Word.application")
If Type("WordApp")#"O"
    Wait Clear
    Messagebox( "访问Word失败！请检查你的系统是否正确安装 Word 软件！",48,"Word不正常")
    Return .F.
Endif
Wait "正在设置 Word 页面……" Window Nowait
WordApp.Visible =.F.
Thisform.RichText1.SaveFile([.\Temp\temp.rtf],0)
WordApp.Documents.Open(Fullpath("Temp\temp.rtf"))
Wait Clear
WordApp.Visible =.T.

不过有一个新问题出来了,用VFP中调用,如果第一个word没关的话,第二次调用会出错!如何判断呢?

最终改成了这样!
只有一个不是问题的问题了,打开后的Word不自动在最前面显示!望高手能解决这个小小的遗憾!

aWorksheets=Fullpath(".\temp\temp.rtf")
Local opt,oNum
opt = Ddesetoption("SAFETY")
= Ddesetoption("SAFETY",.F.)
oNum = Ddeinitiate('WINWORD','&aWorksheets') &&aWorksheets是否已经打开
If oNum <> -1
    Messagebox([文档存在并已打开!],64,[提示])
Else
    Wait "正在访问 Word 软件……" Window Nowait
    WordApp=Createobject("Word.application")
    If Type("WordApp")#"O"
        Wait Clear
        Messagebox( "访问Word失败！请检查你的系统是否正确安装 Word 软件！",48,"Word不正常")
        Return .F.
    Endif
    Wait "正在设置 Word 页面……" Window Nowait
    WordApp.Visible =.F.
    Thisform.RichText1.SaveFile([.\Temp\temp.rtf],0)
    WordApp.Documents.Open(Fullpath("Temp\temp.rtf"))
    Wait Clear
    WordApp.Visible =.T.
Endif