Add a Table to a Word Document
2018-10-12 13:59
555 查看
Demonstration script that retrieves service information from a
computer and then displays that information in tabular format in Microsoft Word.
computer and then displays that information in tabular format in Microsoft Word.
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objRange = objDoc.Range()
objDoc.Tables.Add objRange,1,3
Set objTable = objDoc.Tables(1)
x=1
strComputer = "."
Set objWMIService = _
GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service")
For Each objItem in colItems
If x > 1 Then
objTable.Rows.Add()
End If
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
相关文章推荐
- Add a Formatted Table to a Word Document
- Add a Formatted Table to a Word Document
- Add a Table to a Word Document
- Add Formatted Text to a Word Document
- Add a Picture to a Microsoft Word Document
- Add Formatted Text to a Word Document
- Add a Picture to a Microsoft Word Document
- How to open MS word document from the SharePoint 2010 using Microsoft.Office.Interop.dll
- How to use outline levels to create a table of contents (TOC) in Word 2003 and in Word 2002
- word to PD R qm add-in 运行时错误‘91’
- add-word-to-image.sh
- Mysql官方文档中争对安全添加列的处理方法。Mysql Add a Column to a table if not exists
- How to add an editable checkbox at JFace TableViewer
- How to Add Route to TCP/IP Routing Table With Windows Routing And Remote Access Console or DOS Promp
- Word 刚启动是写在add-in中的NewDocument事件为什么不会被触发
- Is it possible to show some Word Document (or Excel document) in a UniGUI Frame ?
- Word 刚启动是写在add-in中的NewDocument事件为什么不会被触发
- Add to word and save
- How to remove fields in a Word document
- 【转】How to view word document in WPF application