استفسار

[kmaal]

السلام عليكم ورحمة الله وبركاته

ممكن كيفية اختصار هذا الكود

If ComboBox1.Value = "المختص" Then

documents.Open "C:\test\b.doc"

ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Select

Selection.Copy

ActiveDocument.Close savechanges:=False

ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Select

Selection.PasteAndFormat Type:=wdFormatPlainText

End If

مع العلم أن قائمة الكمبوبوكس أكثر من 16 عنصر ، والمعادلة الموضحة شغالة تمام تنسخ من خلية من جدول ورد من ملف b إلى خلية في جدول ورد آخر للملف A حسب شرط قائمة الكمبوبوكس .

والمطلوب كيفية اختصار لهذا الكود ، انا أقل من مبتدئ جداً جداً تحت الصفر ،

يعني كيف نعمل المتغير .

مع خالص الشكر ،،،