2
Word Dokument Button (VBA?)
Guten Morgen,
ich habe ein Dokument in Word angelegt, wo unsere Personalabteilung Infos zu neuen Mitarbeitern eintragen kann, um Missverständnisse zu vermeiden. Es sind also Textfelder, Dropdown Menüs und ein "Kalender" verfügbar und so wird denn das Dokument mit Infos gefüllt.
Nun möchte ich gerne ganz unten im Dokument einen Button haben, der nach dem klick das Dokument als PDF speichert, also das speichern unter öffnet, oder es per Mail an eine vorgegebene Mail Adresse versendet, oder im besten fall fragt, was von den beiden Optionen auf das Dokument angewendet werden soll.
Ich habe es mit Makros und Command Buttons versucht, aber dabei ist nicht viel rausgekommen, also eigentlich nichts. Ich habe aus einer Anleitung folgenden Code:
Hätte da jemand eine Lösung für mich? Im besten Fall kann man auf "Makros" verzichten, damit keine Warnung beim öffnen des Dokumentes angezeigt wird?
lg
Thabs
ich habe ein Dokument in Word angelegt, wo unsere Personalabteilung Infos zu neuen Mitarbeitern eintragen kann, um Missverständnisse zu vermeiden. Es sind also Textfelder, Dropdown Menüs und ein "Kalender" verfügbar und so wird denn das Dokument mit Infos gefüllt.
Nun möchte ich gerne ganz unten im Dokument einen Button haben, der nach dem klick das Dokument als PDF speichert, also das speichern unter öffnet, oder es per Mail an eine vorgegebene Mail Adresse versendet, oder im besten fall fragt, was von den beiden Optionen auf das Dokument angewendet werden soll.
Ich habe es mit Makros und Command Buttons versucht, aber dabei ist nicht viel rausgekommen, also eigentlich nichts. Ich habe aus einer Anleitung folgenden Code:
Sub SimplePrintToPDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="demo.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Private Sub CommandButton1_Click()
End SubHätte da jemand eine Lösung für mich? Im besten Fall kann man auf "Makros" verzichten, damit keine Warnung beim öffnen des Dokumentes angezeigt wird?
lg
Thabs
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 6486608882
Url: https://administrator.de/contentid/6486608882
Printed on: April 28, 2024 at 12:04 o'clock
2 Comments
Latest comment
Hallo,
da du gern auf Makros verzichten willst, wäre ein dynamisches PDF ggf interessant oder ein entsprechendes Webformular.
Gruß
da du gern auf Makros verzichten willst, wäre ein dynamisches PDF ggf interessant oder ein entsprechendes Webformular.
Gruß
Moin.
. Da muss dann zumindest ein SimplePrintToPDF für den Aufruf der Prozedur darüber rein.
Cheers briggs
Private Sub CommandButton1_Click()
End Sub
Was erwartest du, dein Button macht hier genau "nix" auf einen Click End Sub
. Da muss dann zumindest ein SimplePrintToPDF für den Aufruf der Prozedur darüber rein.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="demo.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
Den kompletten absoluten Pfad sollte man dann doch mitgeben.IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
da du gern auf Makros verzichten willst, wäre ein dynamisches PDF ggf interessant oder ein entsprechendes Webformular.
Oder gleich ne Webanwendung schreiben, dann ist man nicht auf proprietäre Funktionen von PDFs angewiesen die auf Tablets etc. dann oft nicht mehr das machen was sie sollten, und man ist dann auch Plattformunabhängig unterwegs was man von überall aus bedienen kann was einen Browser an Bord hat.Cheers briggs
