Break on
$objWord = CreateObject("Word.Application")
? @ERROR
? @SERROR
$objDoc = $objWord.Documents.Add()
? @ERROR
? @SERROR
$objSelection = $objWord.Selection
? @ERROR
? @SERROR
$objWord.Visible = True
? @ERROR
? @SERROR
$objShape = $objDoc.Shapes.AddPicture("C:\folder\image.gif")
;wdWrapSquare = 0
;wdWrapTight = 1
;wdWrapThrough = 2
;wdWrapNone = 3
;wdWrapTopBottom = 4
$objShape.wrapformat.type = 0
? @ERROR
? @SERROR
$objSelection.TypeText("111")
$objSelection.TypeText(Chr(11))
$objSelection.TypeText("222")
$objSelection.TypeText(Chr(11))
$objSelection.TypeText("333")
$objSelection.TypeText(Chr(11))
$objSelection.TypeText("444")
$objSelection.TypeText(Chr(11))
Sleep 10
;Quit word
;$objWord.Quit