Word 문서에 표 추가_javascript技巧

컴퓨터에서 서비스 정보를 검색한 다음 해당 정보를 Microsoft Word의 표 형식으로 표시하는 데모 스크립트입니다.

复system代码代码如下:

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()

설정 objRange==objDoc.Range()
objDoc.Tables.Add objRange,1,3
objTable 설정=objDoc.Tables(1)

x=1

strComputer== "."
Set objWMIService = _
    GetObject("winmgmts:\" & strComputer & "rootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service")

각 objItem에 대해 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
다음