Word VBA - Makro Word -asiakirjan avaamiseen

Avaa Word -asiakirja

Tämä Word VBA -makro avaa sanadokumentin määritetystä hakemistosta:

Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'muutos tiedoston polkuun Jos Dir (strFile) "" Sitten "Tarkistamme ensin, onko asiakirjaa ollenkaan Avaa strFile End If End Sub

Nyt voit olla vuorovaikutuksessa äskettäin avatun asiakirjan kanssa ActiveDocument -objektin kanssa. Tämä koodi lisää tekstiä asiakirjaan.

ActiveDocument.Range (0, 0) .Text = "Lisää tekstiä"

Avaa asiakirja muuttujalle

Voit myös avata Word -asiakirjan ja määrittää sen heti muuttujalle:

Sub OpenDoc () Dim strFile Merkkijonoina Dim oDoc kuten asiakirja strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'muutos tiedoston polkuun If Dir (strFile) "" Sitten "Tarkistamme ensin, onko asiakirja olemassa ollenkaan tietyssä paikassa Aseta oDoc = Documents.Open strFile End If End Sub

Asiakas voi olla vuorovaikutuksessa muuttujan oDoc kautta:

oDoc.Range (0, 0) .Text = "Lisää tekstiä"

Yleensä paras käytäntö on avata muuttuja, jolloin voit helposti viitata asiakirjaan milloin tahansa.

Avaa Word -asiakirja Excelistä

Tämä VBA -menettely avaa Word -asiakirjan toisesta MS Office -ohjelmasta (esim. Excel):

Sub OpenDocFromExcel () Dim wordapp Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" Aseta wordapp = CreateObject ("word.Application") wordapp.Documents.Open strFile wordapp.Visible = Todellinen loppu Sub