[Tasos]

Καλημέρα!
Αλέξανδρε,
Ο κώδικας που σου έστειλα ανοίγει τη διαδρομή που αναγράφεται στο πεδίο fName του συνημμένου που ανέβασες αν αυτή είναι σωστή.

Μου είναι άγνωστη η προέλευση της μεταβλητής/πεδίου WdFullPath

Αποσφαλμάτωση ή έστω λογική διαχείριση χρειάζεται σε κάθε σημείο του κώδικα που για τον ένα ή τον άλλο λόγο μπορούσε να προκαλέσει σφάλμα.

Για παράδειγμα:

Private Sub CmdPdf_Click()
Dim ret as Long
    If Dir(Me.Fname & "", vbDirectory) <> "" Then ' Αν η διαδρομή είναι έγκυρη...
        ret =  ShellExecute(0, "open", Chr(34) & Me.Fname & Chr(34), "", "", SW_SHOW)
    End If
End Sub

Η μεταβλητή ret περιέχει τον αριθμό που επέστρεψε η συνάρτηση ShellExecute() ο οποίος δηλώνει το αποτέλεσμα της ενέργειας δηλαδή αν το αρχείο άνοιξε κανονικά ή αν χρησιμοποιείται ήδη ή πολλά άλλα.

Σχετικό παράδειγμα υπάρχει σε παράδειγμα Excel εδώ: http://www.ms-office.gr/forum/excel-...html#post12631

Φιλικά

Τάσος