Inhoudsopgave
Word-document openen
Deze Word VBA-macro opent een Word-document uit de opgegeven map:
Sub OpenDoc() Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'wijzig naar pad van uw bestand If Dir(strFile) "" Dan 'Controleren we eerst of het document überhaupt bestaat op gegeven locatie Documents.Open strFile End If End Sub
Nu kunt u communiceren met het nieuw geopende document met het ActiveDocument Object. Deze code voegt wat tekst toe aan het document.
ActiveDocument.Range(0, 0).Text = "Voeg wat tekst toe"
Document openen naar variabele
U kunt ook een Word-document openen en het onmiddellijk aan een variabele toewijzen:
Sub OpenDoc() Dim strFile As String Dim oDoc as Document strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'wijzig naar pad van uw bestand If Dir(strFile) "" Dan 'Eerst controleren we of het document bestaat helemaal niet op een bepaalde locatie Stel oDoc = Documents.Open strFile End If End Sub
Zodat u kunt communiceren met het document via de variabele oDoc.:
oDoc.Range(0, 0).Text = "Voeg wat tekst toe"
Over het algemeen is het de beste gewoonte om een variabele te openen, zodat u op elk moment gemakkelijk naar het document kunt verwijzen.
Open Word-document vanuit Excel
Deze VBA-procedure opent een Word-document vanuit een ander MS Office-programma (bijv. Excel):
Sub OpenDocFromExcel() Dim wordapp Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" Set wordapp = CreateObject("word.Application") wordapp.Documents.Open strFile wordapp.Visible = True End Sub