add formatted tablet OA word document

Set objWord = CreateObject("")
 = True
Set objDoc = ()

Set objRange = ()
 objRange,1,3
Set objTable = (1)

x=1

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

For Each objItem in colItems
    If x > 1 Then
        ()
    End If
    (x, 1). = True
    (x, 1). = 
    (x, 2). = 
    (x, 3). = 
    x = x + 1
Next