Define a path to save my converted pdf word document

Question

Hello,
I would like to be able to define a specific place to save the pdf document I have converted from Word. The script I'm writing should normally able me to send to my customer a personalised mail with an attach pdf document. The mail and the pdf are personalised for each customer. I have put the script I wrote below. I will be really greatfull if you could help me ! Also if you see some improovement I can add to this script do not hesitate
Many thanks in advance.
Xavier
--Main Programme
set startCell to "A1" as string
set leSujet to "CES EduPack 2013 – Maintenance de votre installation"
--set leCorps to ("Bonjour " & leSujet)
display dialog "Enter the Name of the last cell in Excel " default answer "AA25"
set endCell to text returned of the result
set myMatrix to excelTxtExtract(startCell, endCell)
set custInfo to findInfo(myMatrix, 1) --récupération des mots clés
set partChoix to choose from list custInfo with prompt "Choose part(s) for file name :" with multiple selections allowed
set numList to posElmList(partChoix, custInfo)
--display dialog posList as string
set myFilenameWord to (choose file with prompt "Please select the Word Template doc for the Quotation :")
set partChoix to choose from list custInfo with prompt "Choose the email address :"
set emailList to posElmList(partChoix, custInfo)
--display dialog emailList as string
set partChoix2 to choose from list custInfo with prompt "Choose Title of the person :"
set title1 to posElmList(partChoix2, custInfo)
set partChoix3 to choose from list custInfo with prompt "Choose the Name of hte person :"
set name1 to posElmList(partChoix3, custInfo)
set partChoix4 to choose from list custInfo with prompt "Choose the Nbr of User of the Lycée :"
set seat1 to posElmList(partChoix4, custInfo)
set partChoix5 to choose from list custInfo with prompt "Choose the licence type:"
set licenceType1 to posElmList(partChoix5, custInfo)
set partChoix6 to choose from list custInfo with prompt "Choose the maintenance expire date:"
set expireMaint1 to posElmList(partChoix6, custInfo)
repeat with i from 2 to (length of myMatrix)
          set customer to findInfo(myMatrix, i)
          set email to nomFichier(emailList, customer) as string
          set title2 to nomFichier(title1, customer) as string
          set name2 to nomFichier(name1, customer) as string
          set seat2 to nomFichier(seat1, customer) as string
          set licenceType2 to nomFichier(licenceType1, customer) as string
          set expireMaint2 to nomFichier(expireMaint1, customer) as string
          set leCorps to "Bonjour " & title2 & " " & name2 & "," & return & return & "TEXTE"
          set nomDuFichier to nomFichier(numList, customer) as string
  wordTxtModif(myFilenameWord, customer, custInfo, nomDuFichier)
  envoiMail(leSujet, leCorps, email, nomDuFichier)
end repeat
--Envoyer Mail
on envoiMail(leSujet, leCorps, email, nomDuFichier)
          tell application "Mail"
  activate
                    set nouveauMessage to make new outgoing message with properties {subject:leSujet, content:leCorps & return & return, visible:false}
                    tell nouveauMessage
  make new to recipient at end of to recipients with properties {address:email}
                              tell content of nouveauMessage
                                        make new attachment with properties {file name:("/Users/grantadesign/Documents/" & nomDuFichier & ".pdf")} at after the last paragraph
                              end tell
  send nouveauMessage
                    end tell
          end tell
end envoiMail
--Nom du fichier
--Retourne le nom du fichier sans l'extension "Lycée F.Xavier"
on nomFichier(numList, customer)
  activate
          set nomDuFichier to {}
          repeat with i from 1 to (length of numList)
                    set a to item i of numList
                    copy (item a of customer) to the end of nomDuFichier
          end repeat
          return nomDuFichier
end nomFichier
--Position d'un élément dans une lste
on posElmList(partChoix, custInfo)
  activate
          set elmChoix to 0
          set numList to {}
          repeat with i from 1 to (length of custInfo)
                    set elmChoix to elmChoix + 1
                    repeat with j from 1 to (length of partChoix)
                              if ((item j of partChoix) = (item i of custInfo)) then
                                        copy elmChoix to the end of numList
                              end if
                    end repeat
          end repeat
          return numList
end posElmList
--Modifier un document Word
--remplacer des mots dans un texte
on wordTxtModif(myFilenameWord, customer, custInfo, nomDuFichier)
          tell application "Microsoft Word" --
  activate
  open myFilenameWord
                    set findrange to find object of selection -- ???
                    repeat with i from 1 to (length of custInfo)
                              tell findrange --replacement of the bookmark
  execute find find text (item i of custInfo) replace with (item i of customer) replace replace all
                              end tell
                    end repeat
  --display dialog nomDuFichier as string
  save as active document file name (nomDuFichier & ".pdf") file format format PDF
  close window 1 saving no
          end tell
end wordTxtModif
--Chargement des valeurs Excel dans une liste
--Ammélioration : trouver startCell et endCell automatiquement
on excelTxtExtract(startCell, endCell)
          tell application "Microsoft Excel" -- Load values from Excel
  activate
                    set myFilenameExcel to choose file with prompt "Please select an Excel workbook file:"
  open myFilenameExcel
                    set nameworksheet to get name of every worksheet
                    set myWorksheet to choose from list nameworksheet default items (item 1 of nameworksheet) with prompt "Choose a worksheet where the data are in the list:"
  activate object worksheet (result as string)
                    set myMatrix to value of range (startCell & ":" & endCell)
                    return (myMatrix)
          end tell
end excelTxtExtract
--Trouver automatiquement les Mots clés à remplacer dans le texte
--lineChosen est la ligne que l'on veut lire
on findInfo(myMatrix, lineChosen)
  activate
          set custInfo to {}
          set selectLine to (item lineChosen of myMatrix)
          repeat with i from 1 to (length of selectLine)
                    set custInfo to custInfo & (item i of selectLine)
          end repeat
          return custInfo
end findInfo

Answer 1

Hi kathyv30365453,
You can convert PDF to Word using either  the ExportPDF online service, or Acrobat. I checked your account, and it doesn't look like you've purchased an ExportPDF subscription. If you want to give Acrobat a try, you're welcome to download a 30-day trial from the link I reference above. In Acrobat, you choose File > Save as Other > Microsoft Word > Word Document.
Best,
Sara