W wingfly Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #1 如何控制程序,控制Word的输入光标到文章的最末尾,文章里有N个表格,N不确定。 以及图片和文字
B bbs_delphi Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #2 Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdStory 这是在word中录制的宏,翻译成delphi即可。
H hbezwwl Unregistered / Unconfirmed GUEST, unregistred user! 2002-04-30 #3 向word发送ctrl+end行不行。 //关注此题。
完 完颜康 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-04 #5 你录制一个宏,看看她的代码是怎么写的,然后稍稍改一下就好了
L linsb Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-05 #7 //将光标移到文档最后的: procedure GotoDocEnd(WordApp: TWordApplication); var WdUnit, WdCount, wdExtend: OleVariant; begin WdUnit := wdScreen; wdCount := 10; wdExtend := EmptyParam; while true do if WordApp.Selection.MoveDown(WdUnit, wdCount, wdExtend) = 0 then break; end;
//将光标移到文档最后的: procedure GotoDocEnd(WordApp: TWordApplication); var WdUnit, WdCount, wdExtend: OleVariant; begin WdUnit := wdScreen; wdCount := 10; wdExtend := EmptyParam; while true do if WordApp.Selection.MoveDown(WdUnit, wdCount, wdExtend) = 0 then break; end;