البحث في الموقع
Showing results for tags 'زر لفتح الوورد في النموذج الاكسس (كود)'.
تم العثور علي 1 نتيجه
-
Private Sub Commande40_Click() Dim choixDoc As String choixDoc = "C:\Users\INFO-SEIF\Desktop\education.doc" غير المسار الخاص بالوورد لديك Dim wrdApp As Object Dim wrdDoc As Object Set wrdApp = CreateObject("Word.Application") Set wrdDoc = wrdApp.Documents.Open(choixDoc) wrdApp.Visible = True Set wrdApp = Nothing Set wrdDoc = Nothing End Sub
