yuheduo 发表于 2009-1-8 16:28:01

如何在word中创建一个表格并在指定格中插入数据

如何在word中创建一个表格并在指定格中插入数据
/////////////////////
thank :xwjsyyx

[ 本帖最后由 yuheduo 于 2009-2-28 22:33 编辑 ]

yuheduo 发表于 2009-1-15 16:01:21

ding有没有老大来啊

sxd 发表于 2009-1-15 16:13:02

没用过word方面 不过有word方面的udf 你看下帮助把

yuheduo 发表于 2009-1-24 09:24:07

上次有个大侠说过一下。的大侠在吗？
我爱你:face (29):

xwjsyyx 发表于 2009-2-7 23:15:14

好长时间不玩AU3了！这位朋友要实例，俺提供一个老的例子！供参考！
Const $NUMBER_OF_ROWS = 1
Const $NUMBER_OF_COLUMNS = 3

$objWord = ObjCreate("Word.Application")
$objWord.Visible = 1
$objDoc = $objWord.Documents.Add()

$objRange = $objDoc.Range()
$objDoc.Tables.Add ($objRange, $NUMBER_OF_ROWS, $NUMBER_OF_COLUMNS)
$objTable = $objDoc.Tables(1)

$objTable.Cell(1, 1).Range.Text = "Service Name"
$objTable.Cell(1, 2).Range.Text = "Display Name"
$objTable.Cell(1, 3).Range.Text = "Service State"

$x = 2

$strComputer = "."

$objWMIService = _
                ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Service")

For $objItem in $colItems
        $objTable.ROWS.Add()
        $objTable.Cell($x, 1).Range.Text = $objItem.Name
        $objTable.Cell($x, 2).Range.Text = $objItem.DisplayName
        $objTable.Cell($x, 3).Range.Text = $objItem.State
        $x = $x + 1
Next

$objTable.AutoFormat(9)

jevonleen 发表于 2009-9-26 03:06:51

学习了,不过还是有点不懂

zhangla 发表于 2010-3-12 20:24:34

5楼的回答有点牛头不对马嘴哟。

annybaby 发表于 2011-4-16 01:46:33

回复 5# xwjsyyx


    代码很强大,就是不知道如何去学习对象编程??哪里可以查看一个应用程序的对象,用法等?

kevinch 发表于 2011-4-16 12:47:38

回复xwjsyyx


    代码很强大,就是不知道如何去学习对象编程??哪里可以查看一个应用程序的对象,用法 ...
annybaby 发表于 2011-4-16 01:46 http://www.autoitx.com/images/common/back.gif

去看word的vba内容

leibin0121 发表于 2011-8-16 21:43:10

来 学习 学习

llww7779 发表于 2012-12-15 11:36:05

非常感谢5楼！正需要

alaws 发表于 2014-3-1 21:48:59

学习了 回头去看下WORD的VBA
页: [1]
查看完整版本: 如何在word中创建一个表格并在指定格中插入数据