For loop fails with word object

[Mrtn]

I need some help here,

I'm having trouble with my Word object:

Arrays are filled, word document opens fine, $oWordApp is object , first loop "For $j = 0" works (first array element is processed in Word) but then I get the following error :

The requested action with this object has failed.:

$oWordApp.Selection.TypeText($aStreng[$j])

$oWordApp.Selection.TypeText($aStreng[$j])^ ERROR

i'm a little bit lost here.. please help

oh, and the code :

expandcollapse popup

If FileExists($sFilePath1) Then ;---> check of bestand bestaat
  If WinExists($Project & " Strenggegevens.xls") Then
   MsgBox(262144, "", "Excel bestand is open")
   WinClose($Project & " Strenggegevens.xls")
   WinWaitClose($Project & " Strenggegevens.xls")
   $oExcel = _ExcelBookOpen($sFilePath1)
  Else ;---> open excel bestand
   $oExcel = _ExcelBookOpen($sFilePath1)
  EndIf
Else
MsgBox(262144, "error", "Strenggegevens bestaan niet, aan het werk luie hond! ;)", 2)
EndIf

If IsObj($oExcel) Then
  $nStrengen = _ExcelReadCell($oExcel, 1, 1)
  $oWordApp = _WordCreate($templateWord)
  $oWordApp.activedocument.SaveAs($sDirProjecten & $Project & "\" & $Project & " StrengRapport.doc")

  For $i = 4 To $nStrengen
   $aStreng = _ExcelReadArray($oExcel, $i, 1, 33)
;~  _ArrayDisplay($aStreng)
   For $j = 0 To UBound($aStreng) - 1

    If IsObj($oWordApp) Then  ;<--- control line!!

     $oWordApp.Selection.TypeText($aStreng[$j])
     $oWordApp.Selection.TypeParagraph
     Sleep(100)
     ConsoleWrite($aStreng[$j] & @CRLF)
    EndIf
   Next
   $oWordApp.Selection.TypeParagraph
  Next
  $oWordApp.Selection.TypeParagraph
  $oWordApp.Selection.TypeText("----------------")
  $oWordApp.Selection.TypeParagraph
  $oWordApp.Selection.TypeText("totaal aantal strengen = " & $nStrengen)
Endif

[Clark]

I played with this for a while, but could not replicate an issue. My best guess without seeing the input file is that one of the cells that you are reading from your Excel spreadsheets is either blank, or does not exist in the word document to select.

[Mrtn]

there are blank cells in my excel dcument indeed, those array elements are empty.

I did check for empty array elements by

For $j = 0 To UBound($aStreng) - 1
If IsObj($oWordApp) Then
If $aStreng[$j] = "" Then  ;<----- check if array element is empty
MsgBox(0, "", "leeg")
$oWordApp.Selection.TypeText("empty")
$oWordApp.Selection.TypeParagraph
Else
$oWordApp.Selection.TypeText($aStreng[$j])
$oWordApp.Selection.TypeParagraph
EndIf
ConsoleWrite($aStreng[$j] & @CRLF)
EndIf
Next

if i run this, the loop stops after the first empty array element?

("empty" is typed in word document)

I'm out of clues...

Edited December 1, 2011 by Mrtn

[water]

As

" " <> ""

I would strip off all spaces

If StringStripWS($aStreng[$j],8)  = "" Then

[Mrtn]

Thanks for the tip water, i will implement this in my code,

however the cells in my excel document are filled with autoit, so I know that they are empty.

Maybe it is better to construct a string with my array and then write the consctructed string to word?

[water]

I'm sure it's worth a try and might be must faster too.