(急救)在Delphi中控制Word中表格时(Word文档不可见),用MoveUp方法时,如果Count>10就马上死掉?!!!(100分)

  • 主题发起人 主题发起人 sunnyfairy
  • 开始时间 开始时间
S

sunnyfairy

Unregistered / Unconfirmed
GUEST, unregistred user!
如题!
如果WordApplication.Visible := True; 则没有问题!
可是如果为False,则当MoveUp方法中的Count> 10时,机子马上死!!!
代码如下:
un_Var := wdLine;
// WordApplication1.Visible := True;如果这一句不注释掉,由没有问题!否则死机!
cnt_Var := 40;
ex_Var := wdMove;
WordApplication1.Selection.MoveUp(un_Var, cnt_Var, ex_Var);

我如果这么写:
cnt_Var := 10;
WordApplication1.Selection.MoveUp(un_Var, cnt_Var, ex_Var);
//上面一句可以执行,到下面一句同样死机!!!
WordApplication1.Selection.MoveUp(un_Var, cnt_Var, ex_Var);
WordApplication1.Selection.MoveUp(un_Var, cnt_Var, ex_Var);
WordApplication1.Selection.MoveUp(un_Var, cnt_Var, ex_Var);
 
自己顶!
 
wordapp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter
 
楼上的正确 补充一句
wordapp.Documents("Report.doc").Tables[1].Select;
wordapp.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter
 
楼上的两位的代码我昨天也试出来了,当时不对
今天又试了,还是和昨天一样, 是靠上对齐!
以下代码倒是行!
tTable.Select;
WordApplication1.Selection.Cells.VerticalAlignment := wdCellAlignVerticalCenter;
WordApplication1.Selection.ParagraphFormat.Alignment := wdCentimeters;
 
怎么不见了,急用!谢谢!
 
已经解决,重新设置WordApplication的连接类型即可!
 
接受答案了.
 
本来是准备给两个人每个人加上50分的
怎么全给了ball_cao一个人?
对不起yuzk2005了
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
599
import
I
后退
顶部