كود نسخ بيانات ولصقها في ملف ورود

[الـعيدروس]

السلام عليكم

كود لنسخ من الاكسل وفتح ملف ورد

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

تحدده انت في الكود

اليكم الكود

Sub proWord()

Dim varDoc As Object

    Set varDoc = CreateObject("Word.Application")

    varDoc.Visible = True

    Sheets("ورقة1").Range("A1:f20").Copy

    varDoc.documents.Add

    varDoc.Selection.Paste

    varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & "testWord.doc"

    Application.CutCopyMode = False

End Sub

 

[خالدو]

جزاك الله خيراً أخي الفاضل

[الـعيدروس]

الاخ الفاضل خالد

مشكور على مرورك العطر

انشاء الله تكون استفدت من الكود

والسلام عليكم

[احمد فضيله]

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

الاخ العزيز / ابو نصار

بارك الله فيك و جزاك كل خير

عمل جميل . تسلم يداك

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

[الـعيدروس]

الاستاذ القدير هانكوك

مشكورعلى مرورك العطر

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

[عادل حنفي]

السلم عليكم

اخي alidroos

بارك الله فيك

و في انتظار المزيد

تحياتي

[الـعيدروس]

السلام عليكم

شرف كبير مرور احد

عباقرة الصرح الكبير ومن من استفدت

من طرحه الكثير والكثير

الاستاذ القدير عادل حنفي

اسعدني مرورك على الموضوع

والسلام عليكم

[القومي]

شكرا لك وشكر لهذا المنتدى العظيم

تعليمى رائع بل اكثر من رائع

[MsTaNs]

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

 

لدي ملفات اكسل فيها 3000 صفحة واريد ان اكون منها تقارير في الوورد واهم شي فيها الجداول وبعض النصوص التي ينتجها ملف الاكسل واريد تحويلها للورد مباشره ولدي خبره في كتابة الاكواد لكن اريد هذي الجزئية

 

شكرا لك مقدما

[محمد ابو البـراء]

مشكور استاذ / عباد

تسلم يداك

وجزاك الله خيراً :fff: