Search the Community

Hi I am working on a requirement to merge multiple word documents with data(text/pictures) copied from PPT slides and pasted into a document [Ex-Sol_S006.docx]. When I am trying to combine / merge same 3 documents in different order, it is failing for order [5,6,4], (By Failing, I mean - It is Asking a prompt to Save and on click of Save it is not saving and forcing me to cancel to terminate/continue with the program run), Orders [6,4,5] and [4,5,6] - I am getting a merged document saving thru program, without any "Save" prompt. Unable to find out any reason for such a behaviour. Please Help! OpenWord() For $intJ = 1 to 3 $oDoc = _Word_DocOpen($oWordApp, $strTemplatePath) $oDoc.Documents.Add For $intI = 1 to 3 $rng = $oDoc.Bookmarks("\EndOfDoc").Range If $rng.End > 0 Then ;;'section break not necessary before first document.' ;$rng.InsertBreak wdSectionBreakNextPage $rng.InsertBreak Type:=7 ;;wdSectionBreakNextPage-2 ; PageBreak - 7 $rng.Collapse (0) ;;wdCollapseEnd - 0 EndIf If $intJ = 1 Then If $intI = 1 Then $strExtFileName = "Sol_S006.docx" ElseIf $intI = 2 Then $strExtFileName = "Sol_S004.docx" ElseIf $intI = 3 Then $strExtFileName = "Sol_S005.docx" EndIf ElseIf $intJ = 2 Then If $intI = 1 Then $strExtFileName = "Sol_S004.docx" ElseIf $intI = 2 Then $strExtFileName = "Sol_S005.docx" ElseIf $intI = 3 Then $strExtFileName = "Sol_S006.docx" EndIf ElseIf $intJ = 3 Then If $intI = 1 Then $strExtFileName = "Sol_S005.docx" ElseIf $intI = 2 Then $strExtFileName = "Sol_S006.docx" ElseIf $intI = 3 Then $strExtFileName = "Sol_S004.docx" EndIf EndIf If $strExtFileName <> "" Then $rng.InsertFile ($strSourcePath & $strExtFileName) EndIf $strExtFileName = "" Next Local $strSavePath = $strMergedDocPath & "Mergedoc" & $intJ & ".docx" _Word_DocSaveAs($oDoc, $strSavePath, 12) _Word_DocClose($oDoc) Next _Word_Quit($oWordApp)