Hallo zusammen,
ich bin absoluter Anfänger in der Programmierung - hab aus eigenem Interesse versucht mir ein bisschen selbst beizubringen.
Das Forum hier hat mir bisher bei jedem Problemchen geholfen. Im Moment bin ich aber absolut hilflos.
Deshalb hab ich mich jetzt hier mal angemeldet und schreib meinen ersten Beitrag hier
Nun mal zu meinem Problem. Ich hab ein Worddokument, dass ich aus meiner Form öffne.
Darin änder ich den Inhalt von Steuerelementen und möchte dann nur das Word als pdf abspeichern.
Es ist bestimmt nur eine Kleinigkeit... aber ich find es einfach nicht.
Bei der Ausführung kommt in Zeile 33 folgende Fehlermeldung:
"System.MissingMemberException: "Der öffentliche Member WdExportFormat für den Typ ApplicationClass wurde nicht gefunden.""
Liebe Grüße Sarah
ich bin absoluter Anfänger in der Programmierung - hab aus eigenem Interesse versucht mir ein bisschen selbst beizubringen.
Das Forum hier hat mir bisher bei jedem Problemchen geholfen. Im Moment bin ich aber absolut hilflos.
Deshalb hab ich mich jetzt hier mal angemeldet und schreib meinen ersten Beitrag hier
Nun mal zu meinem Problem. Ich hab ein Worddokument, dass ich aus meiner Form öffne.
Darin änder ich den Inhalt von Steuerelementen und möchte dann nur das Word als pdf abspeichern.
Es ist bestimmt nur eine Kleinigkeit... aber ich find es einfach nicht.
Bei der Ausführung kommt in Zeile 33 folgende Fehlermeldung:
"System.MissingMemberException: "Der öffentliche Member WdExportFormat für den Typ ApplicationClass wurde nicht gefunden.""
Liebe Grüße Sarah
VB.NET-Quellcode
- Private Sub PDF_erzeugen()
- Dim Word_Dokument As String = Verz_Doku & "word\" & TextBox5.Text & ".docx"
- Dim Pdf_Dokument As String = Verz_Doku & "pdf\" & TextBox5.Text & ".pdf"
- Dim WordApp As New Word.Application, WordDoc As New Word.Document
- 'Wenn Dokument vorhanden - Word mit Dokument starten
- If My.Computer.FileSystem.FileExists(Word_Dokument) Then
- 'Textmarke füllen
- With WordApp
- .Visible = True
- .Activate()
- WordDoc = .Documents.Open(Word_Dokument)
- 'WordDoc.FormFields("Kategorie").Range.Text = "test" 'Formularfeld ändern
- 'WordDoc.Bookmarks("Kategorie").Range.Text = "test" 'Textmarke ändern
- WordDoc.SelectContentControlsByTag("Kategorie").Item(1).Range.Text = ComboBox3.SelectedItem 'Inhaltssteuerelement ändern
- WordDoc.SelectContentControlsByTag("Thema").Item(1).Range.Text = ComboBox4.SelectedItem
- WordDoc.SelectContentControlsByTag("Bezeichnung").Item(1).Range.Text = TextBox8.Text
- WordDoc.SelectContentControlsByTag("Index").Item(1).Range.Text = TextBox5.Text
- If TextBox4.Text = "" Then
- 'Wenn keine Änderung, dann das Erstellungsdatum als Stand eintragen
- WordDoc.SelectContentControlsByTag("Stand").Item(1).Range.Text = Mid(TextBox2.Text, 4, 2) & "/" & Mid(TextBox2.Text, 7, 4)
- Else
- 'Wenn eine Änderung, dann das Änderungsdatum als Stand eintragen
- WordDoc.SelectContentControlsByTag("Stand").Item(1).Range.Text = Mid(TextBox4.Text, 4, 2) & "/" & Mid(TextBox4.Text, 7, 4)
- End If
- End With
- 'als pdf speichern
- WordApp.ActiveDocument.ExportAsFixedFormat(Pdf_Dokument, WordApp.WdExportFormat.wdExportFormatPDF)
- WordApp.Quit(WordApp.WdSaveOptions.wdDoNotSaveChanges)
- MsgBox("pdf-Datei erstellt")
- 'pdf in Vorschau wieder anzeigen:
- 'Browser_laden()
- WebBrowser1.Refresh()
- Else
- MsgBox("Word-Datei nicht vorhanden!")
- End If
- WordApp.Quit()
- End Sub '() PDF ERZEUGEN