在delphi中给word表格赋值(50分)

  • 主题发起人 主题发起人 张利中
  • 开始时间 开始时间

张利中

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi中给word表格赋值:
WordTable:olevariant;

WordTable:=WordDocument1.Tables.Item(1);
WordTable.cell(1,1).range.text:='kdkfkf';
除了这种方法以外,有没有其他的编程方法给word单元格赋值?
 
.你想要什么方法.
 
能用新内容替换掉word表格中原来内容的方法
 
经过WordTable.cell(1,1).range.text:='kdkfkf';这种方式赋值之后原单元格中的内容还会保留吗?
 
WordApplication1.Selection.TypeText('拽一下');
 
WordTable.cell(1,1).range.text:='kdkfkf'
在word2003系统中可以做到替换原有内容,但是在word2000下不能完成替换原有内容
 
那给它使用一下clear方法如何?
 
没有clear方法,谁能给出清除word表格内容的语句?谢谢
 
range有Delete方法可用。
应用于 Range 和 Selection 对象的 Delete 方法。
删除指定数目的字符或单词。此方法返回一个 Long 值,该数值表明删除项的数目。如果删除失败,则返回的值为 0(零)。
expression.Delete(Unit, Count)
expression 必需。该表达式返回以上一个对象。
Unit Variant 类型,可选。所需删除的折叠区域或选定内容的单位。可以是下列 WdUnits 常量之一:wdCharacter(默认值)或 wdWord。
Count Variant 类型,可选。所需删除的单元的数目。若要删除某区域或选定内容之后的单元,请折叠该区域或选定内容并将此参数设置为正数;若要删除某区域或选定内容之前的单元,请折叠该区域或选定内容并将此参数设置为负数。
 
经过测试,newsmile的建议颇有价值。在此十分感谢!
也谢谢所有参与的人。决不食言。赠分!
 

Similar threads

回复
0
查看
804
不得闲
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
900
SUNSTONE的Delphi笔记
S
D
回复
0
查看
930
DelphiTeacher的专栏
D
后退
顶部