Code to replace slide in multiple PowerPionts

Situation: • A single folder has multiple sub folders • In each subfolder are multiple files, all nearly identical • Each file needs to have a single page replaced (same page number in all files) Note: • Files are on SharePoint, which makes the folder path slightly more complicated • Selected coder will be given access to a sandbox SharePoint site to use • Payment will be released upon completion of code • Payment release will not be done after 10 PM Pacific Time today. It will the be between 8-10 AM Pacific Time tomorrow. Pseudo Code: Dim strMasterLoacation as String Dim strReplacementFile as string Dim numReplacementPage as integer Ask user for primary folder location Ask user for replacement file location Ask user page number to be replaced Create new word document and save to primary folder location (name = change log & Now()) For each folder in primary folder For each file in folder Open File Log Change: Copy page numPeplacementPage On new line, paste picture in word document, resize to 2 inches tall Add text [current folder]: [current file name] Delete page numReplacementPage Paste replacement file at numReplacementPage Save and close file Next File Next Folder Save and close word document