如何把WORD文档中的第一个表格复制10从此放在后面

永不言弃

用LIS打开文件后，获取第一个表格，把表格复制10个放在当前表格的后面，有大神知道的，指点一下，谢谢

1. (defun c:tt()
   
2.   (setq path "C:\\Users\\Administrator\\Desktop\\坐标.doc")
   
3. 
   
4.   ;;;打开文件
   
5.   (setq Rtn (vlax-get-or-create-object "word.application"))
   
6.   (vlax-invoke-method (vlax-get-property Rtn 'Documents) 'Open path)
   
7.   (vla-put-visible Rtn 1)
   
8. 
   
9.   (vlax-get-property Rtn "ActiveDocument")
   
10.   (setq word (vla-get-ActiveDocument Rtn))
    
11.   (setq bg1 (vla-item (vlax-get word 'tables) 1) );;;第一个表格
    
12.   ;;;问题：如何把这个表格复制10个放在后面
    
13. 
    
14.   
    
15.   )
    

(defun c:tt()<br />   (setq path "C:\\Users\\Administrator\\Desktop\\坐标.doc")<br /> <br />   ;;;打开文件<br />   (setq Rtn (vlax-get-or-create-object "word.application"))<br />   (vlax-invoke-method (vlax-get-property Rtn 'Documents) 'Open path)<br />   (vla-put-visible Rtn 1)<br /> <br />   (vlax-get-property Rtn "ActiveDocument")<br />   (setq word (vla-get-ActiveDocument Rtn))<br />   (setq bg1 (vla-item (vlax-get word 'tables) 1) );;;第一个表格<br />   ;;;问题：如何把这个表格复制10个放在后面<br /> <br />   <br />   )<br />

技术工作室

期待高手截胡