Nyissa meg a Word dokumentumot
Ez a Word VBA makró megnyit egy Word dokumentumot a megadott könyvtárból:
Sub OpenDoc () Dim strFile Mint karakterlánc strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'változik a fájl elérési útjához Ha Dir (strFile) "" Akkor "Először ellenőrizzük, hogy létezik -e egyáltalán dokumentum adott hely Dokumentumok. Nyissa meg a strFile End If End Sub
Most az ActiveDocument objektummal léphet kapcsolatba az újonnan megnyitott dokumentummal. Ez a kód némi szöveget ad hozzá a dokumentumhoz.
ActiveDocument.Range (0, 0) .Text = "Szöveg hozzáadása"
Nyissa meg a dokumentumot a változóhoz
Megnyithat egy Word dokumentumot is, azonnal hozzárendelve egy változóhoz:
Sub OpenDoc () Dim strFile Mint karakterlánc Dim oDoc mint dokumentum strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'változik a fájl elérési útjához Ha Dir (strFile) "" Akkor "Először ellenőrizzük, hogy a dokumentum egyáltalán létezik az adott helyen Set oDoc = Documents.Nyissa meg a strFile End If End Sub
Lehetővé teszi a dokumentummal való interakciót az oDoc változón keresztül:
oDoc.Range (0, 0) .Text = "Szöveg hozzáadása"
Általában az a legjobb gyakorlat, ha megnyílik egy változó, így bármikor könnyen hivatkozhat a dokumentumra.
Nyissa meg a Word dokumentumot az Excelből
Ez a VBA eljárás megnyit egy Word dokumentumot egy másik MS Office programból (pl. Excel):
Sub OpenDocFromExcel () Dim wordapp Dim strFile Mint karakterlánc strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" Set wordapp = CreateObject ("word.Application") wordapp.Documents.Open strFile wordapp.Visible = True End Alatti
