Hallo,
ich habe on OO Version 4.1.3 ein beschreibbares pdf-Formular erstellt.
Dieses soll nach Eingabe der Daten über einen Button gespeichert werden, und zwar so das der Inhalt der Formulatfelder nicht mehr mehr geändert werden kann. Es soll pdf-Formular und Inhalt der Felder durch Bestätigung des Button gespeichert werden.
Wie kann ich das lösen? Wer kann mir helfen?
Mein Code funktioniert bis Dateiname eingeben.
sub Drucken
Dim strMeinName As String
Dim strFilename As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
thisget.Field.ExportAsFixedFormat OutputFileName:= _
Path & "\\" & strMeinName & ".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 sub
Hallo,
ich habe on OO Version 4.1.3 ein beschreibbares pdf-Formular erstellt.
Dieses soll nach Eingabe der Daten über einen Button gespeichert werden, und zwar so das der Inhalt der Formulatfelder nicht mehr mehr geändert werden kann. Es soll pdf-Formular und Inhalt der Felder durch Bestätigung des Button gespeichert werden.
Wie kann ich das lösen? Wer kann mir helfen?
Mein Code funktioniert bis Dateiname eingeben.
sub Drucken
Dim strMeinName As String
Dim strFilename As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
thisget.Field.ExportAsFixedFormat OutputFileName:= _
Path & "\\" & strMeinName & ".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 sub
Hallo,
ich habe on OO Version 4.1.3 ein beschreibbares pdf-Formular erstellt.
Dieses soll nach Eingabe der Daten über einen Button gespeichert werden, und zwar so das der Inhalt der Formulatfelder nicht mehr mehr geändert werden kann. Es soll pdf-Formular und Inhalt der Felder durch Bestätigung des Button gespeichert werden.
Wie kann ich das lösen? Wer kann mir helfen?
Mein Code funktioniert bis Dateiname eingeben.
sub Drucken
Dim strMeinName As String
Dim strFilename As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
thisget.Field.ExportAsFixedFormat OutputFileName:= _
Path & "\\" & strMeinName & ".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 sub
Gefunden bei http://www.computerhilfen.deHallo,
Hallo, ich habe in OO version 4.1.3 ein beschreibbares pdf-Fomullar erstellt.
dieses soll nacch der eingabe der Daten über einen Button gespeichert werden und zwar so, das der Inhalt der Formularfelder im Formular nicht mehr geändert werden kann, als das formular archiviert werden kann.
Wie kann ich das lösen?Wer kann mir helfen?
Mein code funktioniert bis Dateiname eingeben:
sub Drucken
Dim strMeinName As String
Dim strFilename As String
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
strMeinName = InputBox("Gib mir einen Namen", "Bitte einen Namen!")
thisget.Field.ExportAsFixedFormat OutputFileName:= _
Path & "\\" & strMeinName & ".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 sub
ich habe in OO
Gefunden bei http://www.computerhilfen.de
Gefunden bei http://www.computerhilfen.de
|