Indholdsfortegnelse
Åbn Word -dokument
Denne Word VBA -makro åbner et word -dokument fra det angivne bibliotek:
Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'skift til stien til din fil Hvis Dir (strFile) "" Så' Først kontrollerer vi, om der overhovedet findes dokument overhovedet given placering Dokumenter. Åbn strFile End If End Sub
Nu kan du interagere med det nyåbnede dokument med ActiveDocument Object. Denne kode tilføjer noget tekst til dokumentet.
ActiveDocument.Range (0, 0) .Text = "Tilføj noget tekst"
Åbn dokument til variabel
Du kan også åbne et Word -dokument og straks tildele det til en variabel:
Sub OpenDoc () Dim strFile As String Dim oDoc as Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'ændre til stien til din fil Hvis Dir (strFile) "" Så' Først kontrollerer vi om dokument findes overhovedet på det givne sted Indstil oDoc = Documents.Open strFile End If End Sub
Giver dig mulighed for at interagere med dokumentet via variablen oDoc .:
oDoc.Range (0, 0) .Text = "Tilføj noget tekst"
Generelt er det bedste praksis at åbne for en variabel, hvilket giver dig mulighed for let at referere til dokumentet når som helst.
Åbn Word -dokument fra Excel
Denne VBA -procedure åbner et Word -dokument fra et andet 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 Sub
