YasserKhalil
08-25-2017, 12:55 AM
Hello everyone
I have a loop that do same procedure twice but slightly different .. and I need to use boolean to shorten those lines
For i = 0 To PNum - 1 Step 2 Set newPDF = CreateObject("AcroExch.pdDoc")
newPDF.Create
NewName = F & "Txp " & Cells(r, 3).Value & ".pdf"
newPDF.InsertPages -1, PDDoc, i, 1, 0
newPDF.Save 1, NewName
newPDF.Close
Set newPDF = Nothing
Set newPDF = CreateObject("AcroExch.pdDoc")
newPDF.Create
NewName = F & "Vsd " & Cells(r, 3).Value & ".pdf"
newPDF.InsertPages -1, PDDoc, i + 1, 1, 0
newPDF.Save 1, NewName
newPDF.Close
Set newPDF = Nothing
r = r + 1
Next i
I tried to use boolean and use also If i Mod 2 but couldn't figure it out ..
Can you help me please?
I have a loop that do same procedure twice but slightly different .. and I need to use boolean to shorten those lines
For i = 0 To PNum - 1 Step 2 Set newPDF = CreateObject("AcroExch.pdDoc")
newPDF.Create
NewName = F & "Txp " & Cells(r, 3).Value & ".pdf"
newPDF.InsertPages -1, PDDoc, i, 1, 0
newPDF.Save 1, NewName
newPDF.Close
Set newPDF = Nothing
Set newPDF = CreateObject("AcroExch.pdDoc")
newPDF.Create
NewName = F & "Vsd " & Cells(r, 3).Value & ".pdf"
newPDF.InsertPages -1, PDDoc, i + 1, 1, 0
newPDF.Save 1, NewName
newPDF.Close
Set newPDF = Nothing
r = r + 1
Next i
I tried to use boolean and use also If i Mod 2 but couldn't figure it out ..
Can you help me please?