von Harald_Hamburg » 28. Aug 2014, 11:48
Infos welcher Art werden denn benötigt?
Wie der Code aussieht, der das Makro bildet?
Bitte!
Sub Makro2()
Dim strMeinName As String
strMeinName = InputBox("Das Dokument wird automatisch mit Datum gespeichert unter: G:\Revision\Meldungen\...Ihr müsst nur folgendes eingeben,
natürlich (durch Kommata und Leerzeichen) getrennt: Name, Vorname des Gefg., Name Beamter", "Lesen, verstehen, begreifen, handeln!")
If Len(strMeinName) > 1 Then
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"G:\xxx\xxx\xxx - xxx etc\ " & strMeinName & Format(Now, " - dd.mm.yyyy") & " - xxx.pdf", _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, _
From:=1, To:=1, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
End Sub
Infos welcher Art werden denn benötigt?
Wie der Code aussieht, der das Makro bildet?
Bitte!
Sub Makro2()
[b]Dim strMeinName As String
strMeinName = InputBox("Das Dokument wird automatisch mit Datum gespeichert unter: G:\Revision\Meldungen\...Ihr müsst nur folgendes eingeben,
natürlich (durch Kommata und Leerzeichen) getrennt: Name, Vorname des Gefg., Name Beamter", "Lesen, verstehen, begreifen, handeln!")
If Len(strMeinName) > 1 Then
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"G:\xxx\xxx\xxx - xxx etc\ " & strMeinName & Format(Now, " - dd.mm.yyyy") & " - xxx.pdf", _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, _
From:=1, To:=1, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=True, _
KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, _
DocStructureTags:=True, _
BitmapMissingFonts:=True, _
UseISO19005_1:=False
End If
End Sub[/b]