Dieser Quellcode kopiert einen Inhalt aus einer Richtextbox in ein Worddokument und speichert es in einem zuvor vergebenen Pfad ab.<\/p>\n\n\n\n
F\u00fcr Anregungen stehen zwei weitere Funktionen die Optional sind, am Ende des Quelltextes. Hierbei wird zum einen eine Funktion aufgerufen die alle Bilder im befindlichen Dokument auf eine Definierte Gr\u00f6\u00dfe bringt. Auch ist es m\u00f6glich die Seitenr\u00e4nder des Worddokumentes bereits im Code fest zu legen. Diese Funktionen sollten vor der Funktion „speichern“ abgearbeitet werden. Hierf\u00fcr ist eine Bemerkung im Quelltext als Hinweis hinterlegt.<\/p>\n\n\n\n
Quellcode:<\/strong><\/p>\n\n\n\nImports Microsoft.Office.Interop.Word
Public Class SendToWord
Friend Sub SaveDocument()
' Erstelle eine Abfrage nach Speicherort
Dim saveFileDialog As New SaveFileDialog()
saveFileDialog.Filter = \"Word-Dokument (*.docx)|*.docx|Alle Dateien (*.*)|*.*\"
saveFileDialog.FileName = \"Dein Dokumentname.docx\"
If saveFileDialog.ShowDialog = DialogResult.OK Then
' Erstelle eine neue Word-Anwendung
Dim wordApp As New Application()
Dim wordDoc As Document = wordApp.Documents.Add()
' F\u00fcge den Inhalt der RichTextBox in das Word-Dokument ein
wordDoc.PageSetup.Orientation = WdOrientation.wdOrientPortrait
wordDoc.PageSetup.PaperSize = WdPaperSize.wdPaperA4
wordDoc.Content.Font.Name = \"Microsoft YaHei UI\"
wordDoc.Content.Font.Size = 8
' F\u00fcge einen neuen Absatz hinzu
Dim para As Paragraph = wordDoc.Paragraphs.Add()
' Kopiere den Inhalt der RichTextBox in die Zwischenablage
Richtextbox1.SelectAll()
Richtextbox1.Copy()
' F\u00fcge den Inhalt der Zwischenablage in das Word-Dokument ein
para.Range.Paste()
Dim img As InlineShape
' !!! F\u00fcge hier vor dem speichern optionale Funktion ein !!!
' Speichere das Dokument
Dim savePath As String = saveFileDialog.FileName
wordDoc.SaveAs2(savePath)
' Schlie\u00dfe das Dokument und die Word-Anwendung
wordDoc.Close(False)
wordApp.Quit(False)
' Freigeben der COM-Objekte
System.Runtime.InteropServices.Marshal.ReleaseComObject(wordDoc)
System.Runtime.InteropServices.Marshal.ReleaseComObject(wordApp)
End If
' Zwischenablage wird gel\u00f6scht
Clipboard.Clear()
End Sub
End Class
Optionale Funktion 1: Bilder in einer einheitlichen Gr\u00f6\u00dfe speichern
' \u00dcberpr\u00fcfen, ob das Dokument Bilder enth\u00e4lt
If wordDoc.InlineShapes.Count > 0 Then
' Es wird die Anzahl der Bilder im Dokument abgerufen
Dim Cnr As Integer = wordDoc.InlineShapes.Count
For i As Integer = 1 To Cnr
' Erstes Bild im Dokument ausw\u00e4hlen
img = wordDoc.InlineShapes(i)
' Bildgr\u00f6\u00dfe festlegen (in Punkten)
img.Width = 550 ' Breite in Punkten
img.Height = 90 ' H\u00f6he in Punkten
Next
End If
Optionale Funktion 2: Seitenr\u00e4nder vorgeben
' Seitenr\u00e4nder werden festgelegt
wordDoc.PageSetup.TopMargin = 10
wordDoc.PageSetup.LeftMargin = 10
wordDoc.PageSetup.RightMargin = 10
wordDoc.PageSetup.BottomMargin = 10<\/pre>\n