您需要 登录 才可以下载或查看,没有账号?加入
举报
$doc=ObjGet(@ScriptDir&"\word源文件.doc") If IsObj($doc) Then If $doc.tables.count>0 Then For $tbl In $doc.tables For $cell In $tbl.range.cells ConsoleWrite(StringTrimRight($cell.range.text,2)&@CRLF) Next Next EndIf $doc.saved=True $doc.close EndIf
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2026-7-3 02:19 , Processed in 0.096719 second(s), 25 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2026 Discuz! Team.