Sisällysluettelo
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