Innholdsfortegnelse
Åpne Word -dokument
Denne Word VBA -makroen åpner et word -dokument fra den angitte katalogen:
Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'endring til banen til filen din Hvis Dir (strFile) "" Så "Først sjekker vi om det finnes dokument i det hele tatt i det hele tatt gitt plassering Documents.Open strFile End If End Sub
Nå kan du samhandle med det nylig åpnede dokumentet med ActiveDocument Object. Denne koden vil legge til litt tekst i dokumentet.
ActiveDocument.Range (0, 0) .Text = "Legg til litt tekst"
Åpne dokument til variabel
Du kan også åpne et Word -dokument og umiddelbart tilordne det til en variabel:
Sub OpenDoc () Dim strFile As String Dim oDoc as Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'endre til banen til filen din Hvis Dir (strFile) "" Så "Først sjekker vi om dokumentet eksisterer i det hele tatt på gitt sted Sett oDoc = Documents.Open strFile End If End Sub
Lar deg samhandle med dokumentet via variabelen oDoc .:
oDoc.Range (0, 0) .Text = "Legg til litt tekst"
Vanligvis er det beste praksis å åpne for en variabel, noe som gir deg muligheten til enkelt å referere til dokumentet når som helst.
Åpne Word -dokument fra Excel
Denne VBA -prosedyren åpner et Word -dokument fra et annet MS Office -program (f.eks. 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 Under