Opslaan als PDF met bestandsnaam uit het document Word

Status
Niet open voor verdere reacties.
K

karinvermaat83

Nieuwe gebruiker
Lid geworden
27 sep 2012
Berichten
4
Hi,

Ik heb een vraagje. Ik wil graag van mijn word bestand in een tabel, Kolom 2 en Rij 6 het onderwerp van mijn bestand maken. Op deze manier zouden mensen alleen nog moeten kunnen bepalen waar het bestand opgeslagen moet worden maar staat de bestandsnaam er al. Deze kan ie dus uit de desbetreffende cel halen. Echter weet ik niet hoe ik dit in word voor elkaar krijg.

Hieronder de macro tot nu toe:

ActivePrinter = "Microsoft Print to PDF"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:=""
wdPrintDocumentWithMarkup , Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0

Echter weet ik dus niet wat ik bij de FileName:=”” in moet vullen om voor elkaar te krijgen dat ie de naam uit het bestand haalt.
 
Plaats eens een voorbeeld documentje.
Met welke versie van Office werk je?
 
In Word kun je een volledig pad opslaan in een documentvariabele en ook weer uitlezen.
Gebruikers kunnen die zonder macro's niet wijzigen.

Code: 
Sub M_snb()
   thisdocument.variables("pad")="G:\OF\KarinVermaat\"
   thisdocument.saveas2 thisdocument.variables("pad") & voorbeeld.xlsx"
End sub
 
Is een word bestand en moet als pdf opgeslagen worden.
Volgens mij moet het hiermee lukken:

Code: 
Sub PDF()
Dim StrNm As String
StrNm = Split(ActiveDocument.Tables(1).Cell(6, 2).Range.Text, vbCr)(0)
With Application.Dialogs(wdDialogFileSaveAs)
  .Name = StrNm
  .Format = wdFormatPDF
  .Show
End With
End Sub

Waarbij Tables(1) in dit geval je eerste tabel van je document is. Gaat het om een ander tabel even het cijfertje aanpassen.

Succes!
 
Laatst bewerkt:
@Micheltje: graag codetags gebruiken als je code plaatst. Hoe klein de code ook is, het is dan wel leesbaarder.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan