Pause: Complex
Activate or Launch: "Adobe Acrobat Professional" OR "Acrobat.exe"
// Set source file
// T2 Get source file and date from file T7 from N3 N4 N5
Variable Set String %T2% from File Name
// Launch the source file
Program Launch: "%T2%"
Wait For Window Title: "Adobe Acrobat Professional"
// Get path of file and propose to user as destination while allowing them to change.
Variable Set From File Path
Variable Set String %T21% "%T21%%T22%"
If Message: "Destination Directory for File Fragments"
Else
  Variable Set String %T21% from Folder Name
End If
// Get the total number of pages from acrobat using the Delete Pages dialog
Text Type: <END>
Text Type: <SHIFT><CONTROL>d
Wait For Window Title: "Delete Pages"
Delay 250 Milliseconds
Clipboard Copy
Variable Set Integer %N8% from Clipboard
Get Control %C1% (Delete Pages: RichEdit20W)
Get Control %C2% (Delete Pages: RichEdit20W)
Get Control %C3% (Delete Pages: Button)
Get Control %C4% (Delete Pages: Button)
Get Control %C5% (Adobe Acrobat: Button)
Mouse Single Left Click on Control %C4%
Delay 100 Milliseconds
Text Type: <HOME>
// Repeat to make sure thet get a valid number of pages
Repeat Until %N10% = 1
  // Get the number of cover pages and the per participant pages from user.
  Repeat Until %N6% >= 0
    Variable Set Integer %N6% from Prompt
  Repeat End
  Repeat Until %N7% > 0
    Variable Set Integer %N7% from Prompt
  Repeat End
  // Convert page integers to decimal
  Variable Modify Integer: Convert %N6% to decimal %D6%
  Variable Modify Integer: Convert %N7% to decimal %D7%
  Variable Modify Integer: Convert %N8% to decimal %D8%
  // Calculate the number of pages if there were two participants
  Variable Modify Decimal: %D9% = 2 * %D7%
  Variable Modify Decimal: %D9% = %D6% + %D9%
  // Test if there is a minimum number of pages.
  If Variable %D9% > variable %D8%
    Pause: Complex
    Macro Stop
  End If
  // Validate the user value combination
  Variable Modify Decimal: %D9% = %D8% - %D6%
  Variable Modify Decimal: %D9% = %D9% / %D7%
  Variable Modify Decimal: Truncate %D9% to integer %N9%
  Variable Modify Decimal: Copy %D9% to %D10%
  Round Decimal Variable %D10% to 0 decimal places
  If Variable %D9% <> variable %D10%
    Pause: Complex
    Macro Stop
  End If
  Variable Set Integer %N10% to 1
Repeat End
// Close the file
Activate Window: "Adobe Acrobat Professional"
Delay 100 Milliseconds
Text Type: <CONTROL><SHIFT><F4>
Wait for File Ready: "%T2%"
Delay 1 Seconds
// Create PDF's to modify and move original to recycle bin
Repeat with Variable using %N9%
  If File Exists "%T21%Breakup %T23% %N11%.pdf"
    Pause: Complex
    Repeat Exit
  End If
  Text Box Display: Creating duplicate files
  Copy File or Files: "%T2%"
  Text Box Close: Creating duplicate files
Repeat End
Wait for File Ready: "%T2%"
Write Registry String: "feedback"
Macro Run: Delete to recycle bin
// Open each PDF and delete extra pages
Repeat with Variable using %N9%
  // Calculate begining and ends of each deleteint range. Before and after participant's file.
  Variable Modify Integer: %N12% = %N6% + 1
  Variable Modify Integer: %N13% = %N11% - 1
  Variable Modify Integer: %N13% = %N13% * %N7%
  Variable Modify Integer: %N13% = %N6% + %N13%
  Variable Modify Integer: %N14% = %N7% + %N13%
  Variable Modify Integer: Inc (%N14%)
  // Launch the file...
  Program Launch: "%T21%Breakup %T23% %N11%.pdf"
  Wait For Window Title: "Adobe Acrobat Professional"
  // Delete the last range of pages if not the last itteration
  If Variable %N11% < variable %N9%
    Text Type: <SHIFT><CONTROL>d
    Wait For Window Title: "Delete Pages"
    Delay 250 Milliseconds
    Text Type: %N14%
    Text Type: <TAB>
    Text Type: %N8%
    Mouse Single Left Click on Control %C3%
    Wait for Control %C5% to become visible
    Mouse Single Left Click on Control %C5%
    Wait For Window Title: "Adobe Acrobat Professional"
    Delay 250 Milliseconds
  End If
  // Delete the first range of pages if not the first itteration
  If Variable %N11% > 1
    Text Type: <SHIFT><CONTROL>d
    Wait For Window Title: "Delete Pages"
    Delay 250 Milliseconds
    Text Type: %N12%
    Text Type: <TAB>
    Text Type: %N13%
    Mouse Single Left Click on Control %C3%
    Wait for Control %C5% to become visible
    Mouse Single Left Click on Control %C5%
    Wait For Window Title: "Adobe Acrobat Professional"
    Delay 250 Milliseconds
  End If
  // Close PDF and save
  Text Type: <CONTROL><SHIFT><F4>
  Get Control %C6% (Adobe Acrobat: Button)
  Wait for Control %C6% to become visible
  Mouse Single Left Click on Control %C6%
  Wait for File Ready: "%T21%Breakup %T23% %N11%.pdf"
Repeat End
Open Folder: %T21%
Pause: Complex