Word VBA - Μακροεντολή για άνοιγμα εγγράφου Word

Ανοίξτε το Word Document

Αυτό το Word VBA Macro θα ανοίξει ένα έγγραφο word από τον καθορισμένο κατάλογο:

Sub OpenDoc () Dim strFile As String strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'αλλαγή στη διαδρομή του αρχείου σας Αν Dir (strFile) "" Τότε "Αρχικά ελέγχουμε αν υπάρχει καθόλου έγγραφο δεδομένη τοποθεσία Documents.Open strFile End If End Sub

Τώρα μπορείτε να αλληλεπιδράσετε με το πρόσφατα ανοιχτό έγγραφο με το αντικείμενο ActiveDocument. Αυτός ο κώδικας θα προσθέσει κάποιο κείμενο στο έγγραφο.

ActiveDocument.Range (0, 0) .Text = "Προσθήκη κειμένου"

Άνοιγμα εγγράφου σε μεταβλητή

Μπορείτε επίσης να ανοίξετε ένα έγγραφο του Word, εκχωρώντας το αμέσως σε μια μεταβλητή:

Sub OpenDoc () Dim strFile As String Dim oDoc as Document strFile = "c: \ Users \ Nenad \ Desktop \ Test PM.docm" 'αλλαγή στη διαδρομή του αρχείου σας If Dir (strFile) "" Τότε "Αρχικά ελέγχουμε αν το έγγραφο υπάρχει καθόλου στη δεδομένη τοποθεσία Set oDoc = Documents.Open strFile End If End Sub

Σας επιτρέπει να αλληλεπιδράτε με το έγγραφο μέσω της μεταβλητής oDoc .:

oDoc.Range (0, 0) .Text = "Προσθήκη κειμένου"

Γενικά, είναι η καλύτερη πρακτική να ανοίγετε σε μια μεταβλητή, δίνοντάς σας τη δυνατότητα να αναφέρετε εύκολα το έγγραφο σε οποιοδήποτε σημείο.

Ανοίξτε το έγγραφο Word από το Excel

Αυτή η διαδικασία VBA θα ανοίξει ένα έγγραφο Word από άλλο πρόγραμμα MS Office (π.χ. 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 Υπο