Zo heel ingewikkeld is het ook weer niet.
Hier kunt U het artikel vinden op mi-soft
http://mi-soft.nl/visual-basic-tekst-opslaan-in-een-word-document/
- Klik met de rechtermuisknop op het bovenste item in de solution explorer (in mijn voorbeeld "windowsapplication1") en kies voor "add reference".
- ga naar het tabje "COM"
- Zoek naar microsoft.word XX.X
XX.X vervangen door de volgende:
- Office word 2010, klikt u op Microsoft Word 14.0-objectbibliotheek.
- Office Word 2007, klikt u op Microsoft Word 12.0-objectbibliotheek.
- Klik op Microsoft Word 11.0-objectbibliotheek voor Word 2003.
- Klik op Microsoft Word 10.0-objectbibliotheek voor Word 2002.
- Klik op Microsoft Word 9.0-objectbibliotheek voor Word 2000.
- vervolgens typ je helemaal bovenaan in je document:
[CPP]Imports Microsoft.Office.Interop[/CPP]
- Daarna kan je het word document aanmaken met de volgende code:
[CPP] Dim MyWord As Word.Application
Dim WordDoc As Word.Document
MyWord = CreateObject("Word.Application")
WordDoc = MyWord.Documents.Add[/CPP]
- Text toevoegen kan als volgt:
[CPP] MyWord.Selection.TypeText(TextBox1.Text)[/CPP]
- En het bestand opslaan kan dan als volgt:
[CPP] WordDoc.SaveAs("C:\Test.docx")
WordDoc.Close()[/CPP]
slim is het ook om de variabele WordDoc en MyWord leeg te maken als je klaar bent met je document, dat kan zo:
[CPP]WordDoc = Nothing
MyWord = Nothing[/CPP]
Iets geavanceerder kan natuurlijk ook, hiervoor gebruiken we een savefiledialog die we even savefiledialog1 noemen voor het gemak.
Voeg dan de volgende code toe onder je save button:
[CPP] Dim MyWord As Word.Application
Dim WordDoc As Word.Document
'Create word object
MyWord = CreateObject("Word.Application") 'Assuming word is not running
WordDoc = MyWord.Documents.Add
MyWord.Selection.TypeText(TextBox1.Text)
'Save the file. If the document exists it is overwriten
SaveFileDialog1.Filter = ("Word Document nieuwe stijl (*.docx)|*.docx|Word documenten oude stijl (*.doc)|*.doc")
With SaveFileDialog1
If .ShowDialog = Windows.Forms.DialogResult.OK Then
WordDoc.SaveAs(SaveFileDialog1.FileName)
WordDoc.Close()
End If
End With
WordDoc = Nothing
MyWord = Nothing
End Sub[/CPP]
dit zal er dan voor zorgen dat de gebruiker de keuze krijgt waar het bestand op te slaan, en de keuze krijgt of het een .doc (word 2000, 2002 , 2003) of een .docx (word 2007, 2010, 2012) wordt.
