ارجو المساعدة فى ملف تصدير جدول الى الورد عن طريق الميكرو

[rofa97]

ارجو المساعده فى ملف تصدير جدول من ملف الاكسل الى الورد عن طريق الميكرو

وجزاكم الله كل خير 

اللى عمل الموضوع ده الاستاذ الفاضل غفر الله له ولنا اللهم ارحمه وارحمنا 

نادر عبد الرحمن

رحمه الله 

الملف بتاعي مقسم اصله عدي واحد ميجا

تجريبي.part1.rar

تجريبي.part2.rar

[عبدالله الصاري]

هذا الكود يحول الى وورد ولكن يتعين عليك تعديل اعددات الصفحة في الوورد من حيث الصفحة افقية او راسية  وغيره

Sub wordexport()
Set Word = CreateObject("Word.Application")
Word.Documents.Add
Word.Visible = True
Range("E1:Q1010").Copy
Word.Selection.PasteExcelTable False, False, False
Application.CutCopyMode = False
End Sub

 

[rofa97]

جزاك الله كل خير اخي الكريم 

لو امكن فقط تظبيط التنسيق 

وزر اخر للأكسل مع التنسيق 

تسلم اخي الكريم