Office自动化编程(1)

1：控制Word文档

 {显示word档案}

 var NewWord：Variant；

...

  NewWord:=  CreateOLEObject('Word.Application');

  {

   当CreateOLEObject函数创建一个Word的Com对象之后，Word已经完全被构造起来了

   内存中已经存在一个Word进程，创建了Application对象

  }

  NewWord.Visible := True;   // 显示Word程序

 

  NewWord.Documents.Add;  // 增加一个Word文档，Application.Documents嵌套类

 

  NewWord.Documents.Item(1).Range.Text:=  str;

  Document := NewWord.Documents.Item(1);

  Document.Paragraphs.Add;

 

  MyRange:= Document.Range(start:=0, end:=0);

 

2：向已存在的word表格中添加字符串

 

{ 以指定的模板文件创建新Word文档 }

  wordApp.Documents.AddOld(templateName, newTemplate);

  wordApp.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex];

 

  case ListBox1.ItemIndex of

   0:

     begin

       { 取文档中的第1张表 }

       { 文档的表格是以序号来标志的 }

       vTable := wordApp.ActiveDocument.Tables.Item(1);

       vTable.Cell(1, 2).Range.Text := '李鑫 于 北京供电公司';

vTable.Cell(1, 4).Range.Text := '昆明锐祺软件';

 

vTable.Cell(2, 2).Range.Text := '昆明市白塔路延长线387号星耀大厦1102B座 李鑫（收） 650051 (0871)3126628';

 

       vTable.Cell(3, 2).Range.Text := DateToStr(Now);

       vTable.Cell(3, 4).Range.Text := DateToStr(Now);

 

       vTable.Cell(5, 1).Range.Text := '哈哈哈哈哈哈，我也不知道了。';

       vTable.Cell(7, 1).Range.Text := '不知道了';

       vTable.Cell(9, 2).Range.Text := '不知道';

     end;

   1:

     begin

       ItemIndex := 1;

     end;

  end;

 

 

说明：

Document对象，下面有：

 

Range对象

Section对象

Charactions对象

Words对象

 

最重要的是Range对象，要对Decument文档的字符串操作，必须返回操作Doecment内的Range对象

用Document.Range(start, end)，和Document.Range属性，都可以返回这个对象

 

每操作一段文本，必须取得Range这个表示文本的对象，果然非常是“面向对象“

 

3:  添加图片

 

procedure TForm1.Button2Click(Sender: TObject);
var
  w: Variant;
begin
  W:= CreateOleObject('Word.Application');
  W.Visible := True;
  W.Documents.open('c:/范例文章.doc');
  // W.ActiveDocument.SaveAs('TestDoc.doc');
  w.Selection.Font.Bold:= false;
  W.Selection.TypeText('Here goes my picture:');
  W.Selection.TypeParagraph;    // 加入一个段落

  W.Selection.InlineShapes.AddPicture( 'c:/相片2.jpg', False, True );
  W.Selection.TypeParagraph;   // 加入一个段落

end;