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

yuheduo

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

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

yuheduo

ding  有没有老大来啊

sxd

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

yuheduo

上次有个大侠说过一下。的大侠在吗？
我爱你

xwjsyyx

好长时间不玩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

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

zhangla

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

annybaby

回复 5# xwjsyyx


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

kevinch

回复  xwjsyyx


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

去看word的vba内容

leibin0121

来 学习 学习

llww7779

非常感谢5楼！正需要

alaws

学习了 回头去看下WORD的VBA