如何将数据窗口中字段的数据导入一个已经存在的word文件中？急

superriche

我建立了一个word文件，里面有一个空表格，我的意思是我想取出数据窗口中的某一个字段（大文本），然后放入word文件中，表格某一个格子里。谢谢

saoshe

非常麻烦,首先,我没试过.你可以试下.使用OLE的word OLE控制你的word文档,然后获得该文档的表格信息,然后根据获得的表格信息进行写入.相当麻烦.可行性不敢保证.

unkmass

你参考一下以下代码,是把dw的内容写入word的:
constant integer ppLayoutBlank = 12
OLEObject ole_object
ole_object = Create OLEObject

if ole_object.ConnectToNewObject("Word.Application") <> 0 then
        MessageBox("Caption","Connect error")
        return
end if
ole_object.Visible = true
long ll_cols,ll_rows
constant long wdWord9TableBehavior = 1
constant long wdAutoFitFixed = 0
constant long wdCell = 12
string lsvalue
ll_cols = long(dw_1.object.datawindow.column.count)
ll_rows = dw_1.RowCount()
ole_object.Documents.Add()
ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range,ll_rows,ll_cols)
string ls_colname,ls_value
integer i,j
for i = 1 to ll_cols
        ls_colname = dw_1.Describe("#" + string(i) + ".name") + "_t"
        ls_value = dw_1.Describe(ls_colname + ".text")
        ole_object.Selection.TypeText(trim(ls_value))
        ole_object.Selection.MoveRight(wdCell)
next
dw_1.SetRedraw(false)
ole_object.Selection.MoveLeft(wdCell)
for i = 2 to ll_rows
        for j = 1 to ll_cols
                dw_1.ScrollToRow(i - 1)
                dw_1.SetColumn(j)
                ls_value = dw_1.GetText()
                ole_object.Selection.MoveRight(wdCell)
                ole_object.Selection.TypeText(ls_value)
        next
next
dw_1.SetRedraw(true)
constant long wdFormatDocument = 0
//ole_object.ActiveDocument.SaveAs("sample.doc",0,false,true,false,false,false,false,false)
ole_object.DisConnectObject()
destroy ole_object

owenrocket

oleobject ole_word
ole_word= CREATE OLEObject
ole_word.ConnectTonewObject("word.Application")
ole_word.visible=true
ole_word.Documents.add()

ole_word.selection.range.font.size = 18
ole_word.selection.range.font.name = "宋体"
string ls_data
ls_data = '测试一下如何操作word' + '~r~n~r~n'
clipboard(ls_data)
ole_word.Selection.paste()
destroy ole_word

dxm888666

这样啊

云且飘过

跟着学习学习

leonhang

学习啊，好东西啊

leonhang

我以前见过一个写人word的程序，
他是有个模板，打开模板，然后在写进去，也不错啊
具体代码，应该可以搜索到