论坛 › 『 提问交流 』 › word插入表格，word复制内容

xlbcwn 发表于 2011-4-15 19:28:37

word插入表格，word复制内容

本帖最后由 xlbcwn 于 2011-4-16 13:24 编辑

请问怎样在word文档中插入表格，或者将一文档内容完全插入到另一文档中？谢了！{:face (327):}
顺便补充一下:那个码我看不太懂,我想做一个可以插入表格的函数,请问能帮我改改吗？Func charubiaoge($hangshu,$lieshu,$neirong,$objdoc)

        $objRange = $objDoc.Range()
        $objDoc.Tables.Add($objRange,$hangshu,$lieshu)
        $objTable = $objDoc.Tables(1)

        For $hang = 1 To $hangshu
                For $lie = 1 To $lieshu
                        $objTable.Cell($hang,$lie).Range.Text = $neirong[$hang][$lie]
                Next
        Next
EndFunc

Func zengjiabiaoge($hangstart,$hangshu,$liestart,$lieshu,$neirong,$objdoc)
        $objRange = $objDoc.Range()
        $objDoc.Tables.Add($objRange,$hangshu,$lieshu)
        $objTable = $objDoc.Tables(1)
        For $hang = 1 To $hangshu
                For $lie = 1 To $lieshu
                        $objTable.Cell($hang + $hangstart,$lie + $liestart).Range.Text = $neirong[$hang][$lie]
                Next
        Next
EndFunc

#include <Word.au3>
$w1 = _WordCreate(@ScriptDir & "\a.doc",0,0)
$w3 = _WordDocGetCollection($w1,0)

Dim $1
For $2 = 1 To 10
        For $3 = 1 To 10
                $1[$2][$3] = $2 * $3
        Next
Next
charubiaoge(10,10,$1,$w3)
zengjiabiaoge(10,10,0,10,$1,$w3)
_WordDocSave($w3)
_WordDocClose($w3)
_WordQuit($w1)

大绯狼 发表于 2011-4-15 21:02:01

http://www.autoitx.com/forum.php?mod=viewthread&tid=4674&highlight=word
参考

xlbcwn 发表于 2011-4-16 11:18:02

回复 2# 大绯狼
thanks

xlbcwn 发表于 2011-4-22 19:22:31

有人吗？请问谁能提供一个在word里插入表格的脚本？谢谢！或者把我的改一下也行啊……{:face (293):}

xlbcwn 发表于 2011-5-5 21:03:24

怎么第二次添加表格？

xlbcwn 发表于 2011-5-5 21:11:51

2楼的方法不错，但只能在没有表格的窗口里用，而且文本也会over掉，不知道哪个com对象能创建第二个表格。

guang19831217 发表于 2011-5-5 21:19:25

楼主你好厉害哦，贡献怎么高。是推广出来的吗。

查看完整版本: word插入表格，word复制内容