مساعدة في التعامل مع الجداول في ملف ورد

أولا: لا تنس إضافة مكتبة كائن مايكروسوفت وورد Microsoft Word Object Library إلى مراجع المشروع Project References.

ثانياً: الإعلان في قسم التصريحات العامة General عن متغيرات لكل من:

1- كائن برنامج وورد

2- كائن مستند وورد

3- كائن جدول وورد

4- متغير نصي لمسار ملف الوورد

Dim objWord As New Word.Application
Dim objDocument As Word.Document
Dim Path As String
Dim objTable As Word.Table

ثالثاً: تحديد قيم للمتغيرات في حدث تحميل النموذج:

Private Sub Form_Load()
   Path = App.Path
   If Right(Path, 1) <> "\" Then Path = Path + "\"
   Set objDocument = objWord.Documents.Open(Path & "Document.Doc")
   Set objTable = objDocument.Tables(1)
End Sub

رابعاً: إضافة زري أمر لعمليتي إضافة عمود وإضافة صف ووضع الكود اللازم في حدث النقر على كل منهما:

 

Private Sub cmdAddColumn_Click()
	objTable.Columns.Add BeforeColumn:=objTable.Columns(2)
End Sub

Private Sub cmdAddRow_Click()
	objTable.Rows.Add beforerow:=objTable.Rows(2)
End Sub

خامساً إنهاء كائن برنامج الوورد مع حفظ التغييرات في حدث إلغاء تحميل النموذج:

Private Sub Form_Unload(Cancel As Integer)
	objWord.Quit savechanges:=True
End Sub

WordProgramming.zip

مع تحياتي

جزيت خيرا

الف شكر أخي عاطف قشيشة ... على الشرح