Word VBA - makro Wordi dokumendi avamiseks

Avage Wordi dokument

See Word VBA makro avab Wordi dokumendi määratud kataloogist:

Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'muuda oma faili teed If Dir (strFile) "" Siis' Esmalt kontrollime, kas dokument on üldse olemas antud asukoht Dokumendid. Ava strFile End If End Sub

Nüüd saate värskelt avatud dokumendiga suhelda ActiveDocument objektiga. See kood lisab dokumendile teksti.

ActiveDocument.Range (0, 0) .Text = "Lisa teksti"

Ava dokument muutujale

Samuti saate avada Wordi dokumendi, määrates selle kohe muutujale:

Sub OpenDoc () Dim strFile Stringina Dim oDoc kui dokument strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'muuda oma faili teed If Dir (strFile) "" Siis "Esmalt kontrollime, kas dokument on antud kohas üldse olemas Määra oDoc = Documents.Open strFile End If End Sub

Võimaldab teil dokumendiga suhelda muutuja oDoc kaudu:

oDoc.Range (0, 0) .Text = "Lisa teksti"

Üldiselt on parim tava avada muutuja, andes teile võimaluse igal ajal dokumendile hõlpsalt viidata.

Avage Excelist Wordi dokument

See VBA protseduur avab Wordi dokumendi teisest MS Office'i programmist (nt 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 = Tõeline lõpp Sub