Opslaan als pdf

Status
Niet open voor verdere reacties.
A

arnoo7

Gebruiker
Lid geworden
24 nov 2014
Berichten
79
Ik heb een wordsjabloon die ik open en middels docvariabelen vul vanuit excel. Nu wil ik echter het bestand opslaan als pdf en niet als word bestand (dat laatste lukt wel).

Ik heb op verschillende manieren wat geprobeerd, maar het lukt me nog niet. Hieronder een stukje testcode die ik gebruik.

Code: 
  wdApp.Visible = True
   wdDoc.Variables("Naam") = Sheets("Gegevens").Range("Naam").Value
   wdDoc.Variables("Aantal") = Sheets("Gegevens").Range("Aantal").Value
   wdDoc.Variables("Afzender") = Sheets("Gegevens").Range("Afzender").Value
   wdDoc.Variables("Totaal") = Sheets("Gegevens").Range("Totaal").Value
   wdDoc.Fields.Update
   
'  wdDoc.SaveAs Filename:="C:\Users\Gebruiker\OneDrive\Documents\Excel\VBA\Word koppeling\Brief maken vanuit excel\" & Naam & ".doc"
wdDoc.SaveAs Type:=xlTypePDF, Filename:="C:\Users\Gebruiker\OneDrive\Documents\Excel\VBA\Word koppeling\Brief maken vanuit excel\" & Naam & ".pdf"

Iemand een idee?

Groet Arno
 
Probeer het eens met dit:
Code: 
wdDoc.ExportAsFixedFormat OutputFileName:=Foldernaam & Bestandsnaam & ".pdf", ExportFormat:=wdExportFormatPDF
 
Pak de macrorecorder eens, dan wordt het wel duidelijk.
 
Hoi,

Dank je dit werkt prima!

@HSV, heb ik vanmiddag ook geprobeerd. En kwam toen ook op soortgelijke code maar de macro strandde steeds met een melding waar ik weinig mee kon. Dus heb blijkbaar een fout gemaakt in het overnemen/schonen van de opgenomen code dus dacht ik dat ik op het verkeerde pad zat en de aansturing vanuit excel anders moest.

Soms ligt iets onder je neus maar kun je het niet vinden:(

Beiden bedankt voor jullie snelle reactie!

Vriendelijke groet Arno
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan