做过把文档中的信息写道Word 2000中的朋友，帮个忙

Question

There are many samples in MSDN.
HOWTO: Use Automation to Open and Print a Word Document (Q178784)

Answer 1

http://www.csdn.net/expert/topic/471/471973.xml?temp=.2570917
http://www.csdn.net/expert/topic/475/475573.xml?temp=7.477969E-02

Answer 2

我刚好做了一个，包括写文档到word和写数据到excel，但是是用vb实现的，
不知道对你合适不？

Answer 3

delphiprocedure TForm1.Button1Click(Sender: Tobject);
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='d:\test.doc', ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置
MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title'
MSWord.ActiveDocument.Range.InsertParagraphAfter;
MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称
MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小
end;

Answer 4

uses ComObj ;
procedure TForm1.Button1Click(Sender: TObject);
var
  vWord,vDoc,vRange : Variant ;
  sText,sReplace : string ;
  lReturn : Boolean ;
begin
  sText := 'ABCDEFG' ;  //原文字串
  sReplace := 'GFEDCBA' ; //新字串
  vWord := CreateOleObject('Word.Application') ;//创建Word线程
  try
    //打开要操作的文件
    vDoc := vWord.Documents.Open('C:\My Documents\AAAc.Doc');
    vDoc.Select ;  //选取中整个文档
    vRange := vDoc.Range ; //替换范围
    lReturn := True ;
    while lReturn do
    begin  //找到并替代成功则返回 True    共11个参数
      lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;
    end ;
  finally
    vDoc.Close(True) ; //关闭文并保存
    vWord.Quit(False) ; //退出Word
  end ;
end;

Answer 5

30分太少了吧。
分多点我可能给你VC代码。：-P
《计算机现代化》2000年10月或11月份的杂志上，我发了一篇文章。
可以解决你的问题。看看吧。

Answer 6

大家交个朋友吧，
我还不是中高级会员，给不了分， masterz ，foxbill_csdn， az，shaohua
我记住你们，我以后一定回给你分的