程序中怎样用word来编辑文本

Question

1).h文件中申明
private:
Documents m_doc;
2).cpp文件中调用
if (m_doc.CreateDispatch("Word.Document.8"))
{
CWnd *pwordWnd = CWnd::FindWindow("opusapp", NULL);
if (pwordWnd != NULL)
{
pwordWnd->ShowWindow(SW_SHOWNORMAL);
pwordWnd->UpdateWindow();
pwordWnd->BringWindowToTop();
}
}LPDISPATCH p_word_doc;p_word_doc = m_doc.GetApplication();
m_app.AttachDispatch(p_word_doc);

Answer 1

procedure TForm1.CopyTextToWord;
var
  Range : Variant;
  i : integer;
begin
  WordApp := CreateOleObject('Word.Application');
  wordApp.Visible := True;
  wordApp.Documents.Add;
  Range := WordApp.Documents.item(1).Range;
  Range.Text := Table.FieldByName....;
  .........
end;

Answer 2

我用Delphi 5 写了一个简单控制Word、Powerpoint的小程序。如有兴趣，写信给我。

Answer 3

Delphi安装的时候有这样的例程，不妨先看看例程。

Answer 4

我的email:[email protected],把程序打包发给我好吗？

Answer 5

能发一份给我吗？
  [email protected]

Answer 6

我也要一份
[email protected]

Answer 7

我也想要一份,我的伊妹儿:[email protected]

Answer 8

也能发给我一份吗？[email protected]

Answer 9

给我媚一个好吗：[email protected]