转贴:Delphi Office 组件集常见问答[4]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 dogbear2000 的 blog

  false, // readonly
  emptyparam, // format
  'passwd', // password
  'passwdwrite', // writerespassword
  true, // ignorereadonlyrecommended
  emptyparam, // origin
  emptyparam, // delimiter
  emptyparam, // editable
  emptyparam, // notify
  emptyparam, // converter
  true, // addtomru
  0); // lcid

q24. how do i add a table in the word document?

var
  defaulttablebehavior, autofitbehavior: olevariant;
  table: word.table;

wordrange1.rangestart := 1;
wordrange1.rangeend := 2;
wordrange1.active := true;

defaulttablebehavior := wdword8tablebehavior;
autofitbehavior := wdautofitcontent;
table := wordapplication1.wordapplication.activedocument.tables.add(
  wordrange1.wordrange, // range
  10, // numrows
  10, // numcolumns
  defaulttablebehavior, // defaulttablebehavior
  autofitbehavior); // autofitbehavior

table.cell(1,1).range.text := 'hello!';

本文关键:转贴:Delphi Office 组件集常见问答
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top