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编辑过]

把
WordApp.Documents(1).Range.Text=thisform.richtext1.text
改成
WordApp.Documents(1).Range.Text="文字"

试了下，完全没有问题

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

试了下，同意楼上

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

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

将thisform.richtext1.text赋值给变量

再让WordApp.Documents(1).Range.Text=变量

试试

先保存为rtf文件，再打开即可。

按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

在 WordApp.Visible =.T.的前面，加一句：thisform.zorder(1) 或 .zorder(2) 试试如何?
                                也可以加: thisform.AlwaysOnBottom=.t.
                                          thisform.AlwaysOnTop=.f.  && 2句. 目的：让表单置后。

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

这样是不是可以：

Thisform.RichText1.SaveFile([.\Temp\temp.rtf],0)
WordApp.Visible =.T.
WordApp.Documents.Open(Fullpath("Temp\temp.rtf"))

如果不可以，对象应该有个 appshow 方法，也可以试试。