تصدير بيانات أكسس إلى جدول في الوورد

[صالح حمادي]

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

نعاني دائما من تصدير البيانات إلى الوورد للتعديل عليها أو لأي غرض آخر و خاصة الجداول

أقدم لكم هذا المثال البسيط الذي يقوم بتصدير البيانات لملف وورد معد مسبقا و يقوم بملئها في أماكنها و كلما زاد سجل زاد له سطر في جدول الوورد 

و هذا هو المثال فيه نسختين 2003 و نسخة 2010

التصدير لملف وورد معد مسبقا.rar

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

روعة ولتك تجلب لنا أيضا طريق العكس أي تصدير الورد الى اكسس 

تم تعديل يوليو 29, 2019 بواسطه ازهر عبد العزيز

[qassim-t]

بارك الله فيك استاذا صالح

[ابو ياسين المشولي]

ابداعاتك اخي صالح حمادي

تسلم جعله الله في ميزان حسناتك

[jjafferr]

شكرا اخي صالح 🙂

 

هذه من الاسئلة المطلوبة ، تعبئة جدول 🙂

 

جعفر

[kanory]

ما شاء الله عليك أخ @صالح حمادي فكرة جديرة بالتجربة .... بارك الله فيك .... دائما تتحفنا بالجميل ...

[صالح حمادي]

4 ساعات مضت, ازهر عبد العزيز said:

روعة ولتك تجلب لنا أيضا طريق العكس أي تصدير الورد الى اكسس

إن شاء الله نبحث عن ذلك في وقتها.

4 ساعات مضت, qassim-t said:

بارك الله فيك استاذا صالح

 

4 ساعات مضت, ابو ياسين المشولي said:

تسلم جعله الله في ميزان حسناتك

 

56 دقائق مضت, kanory said:

ما شاء الله عليك أخ @صالح حمادي فكرة جديرة بالتجربة .... بارك الله فيك .... دائما تتحفنا بالجميل ...

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

2 ساعات مضت, jjafferr said:

هذه من الاسئلة المطلوبة ، تعبئة جدول 🙂

نعم أستاذ جعفر و هذا ما جعلني أبحث عنها مليا

[محمد القدسي]

سلمت يداك استاذ @صالح حمادي 

استاذي العزيز كيف يمكن جعل هذا العنوان ( منتدى أوفيسنا قسم الأكسس تصدير البيانات إلى جدول وورد )

يفتح في الصفحة رقم 2 او 3 وهكذا بحيث يكون عنوان رئيسي لكل صفحة

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

[ابوآمنة]

17 دقائق مضت, محمد القدسي said:

استاذي العزيز كيف يمكن جعل هذا العنوان ( منتدى أوفيسنا قسم الأكسس تصدير البيانات إلى جدول وورد )

يفتح في الصفحة رقم 2 او 3 وهكذا بحيث يكون عنوان رئيسي لكل صفحة

 

قم بالتعديل على القالب "recap1.dot" واجعل العنوان الذي تريده يتكرر في رأس وتذليل الصفحة كما في الصورة

واحفظ ملف الوورد بنفس التسمية "recap1.dot"  حفظ كنوع : ‫قالب Microsoft Word 97 - 2003‬ ‎(.dot)‎ 

بجوار  البرنامج

 

وشكراً لك أستاذي صالح

للتحرير على رأس وتذليل الصفحة اضغط مرتين على رأس الصفحة 

[محمد القدسي]

والله اخي ابو امنة اني صفر في الوورد ولم استطيع اعرف اين راس وتذييل الصفحة

[محمد القدسي]

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

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

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

[ابوآمنة]

17 دقائق مضت, محمد القدسي said:

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

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

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

لا أعلم

[محمد القدسي]

تسلم اخي على تعاونكم 

 

[صالح حمادي]

7 دقائق مضت, ابوآمنة said:

لا أعلم

ههههههههه

من قال الله أعلم علمه الله ما لا يعلم تذكر ذكر اسم الله أخي ابوآمنة و إن شاء الله سوف أشرح الطريقة

أولا لإرسال أي بيانات لمكان معين في صفحة الوورد يجب إضافة إشارة مرجعية لهذا المكان لنستطيع التعامل معها.

و هذه صورة إنشاء إشارة مرجعية في الوورد:

و هذا كود إرسال البيانات إلى مكان الإشارة المرجعية في ملف الوورد الموجود بجانب البرنامج:

Dim wApp As Word.Application 'Object
Dim wDoc As Word.Document 'Object
Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open(CurrentProject.Path & "\recap1.dot")
wApp.Visible = True 'False
wDoc.Bookmarks("fname5").Range.Text = "Officna"
wApp.ActiveDocument.SaveAs (CurrentProject.Path & "\1988_Doc.Docx")
wApp.Quit
Set wDoc = Nothing
Set wApp = Nothing

 

[ابوآمنة]

أشكرك أستاذي الفاضل صالح على هذه المعلومات القيمة .

الحمد لله الذي علمنا ما ينفعنا ونفع بما علمنا وزادنا علما وعملا .

ماذا لو أردنا أن نرسل القيم لملف الوورد ونقوم بتحويل الملف pdf ثم نحفظه كهيئة  شهادة واحدة / مجموعة شهادات .

ويتم تسمية ملف pdf باسم المستفيد .

[صالح حمادي]

10 ساعات مضت, ابوآمنة said:

ماذا لو أردنا أن نرسل القيم لملف الوورد ونقوم بتحويل الملف pdf ثم نحفظه كهيئة  شهادة واحدة / مجموعة شهادات .

ويتم تسمية ملف pdf باسم المستفيد .

افتح موضوع جديد لسؤالك هذا و ضع مثال لتطبيق عليه و إن شاء الله نجد لك حلا.

[asd1390]

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

[صالح حمادي]

14 ساعات مضت, asd1390 said:

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

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

أي تصدير تقصد يا ريت توضح المطلوب أكثر

[asd1390]

في ٢٩‏/٧‏/٢٠١٩ at 18:31, صالح حمادي said:

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

نعاني دائما من تصدير البيانات إلى الوورد للتعديل عليها أو لأي غرض آخر و خاصة الجداول

أقدم لكم هذا المثال البسيط الذي يقوم بتصدير البيانات لملف وورد معد مسبقا و يقوم بملئها في أماكنها و كلما زاد سجل زاد له سطر في جدول الوورد 

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

test333.rar

اخي صالح هذا الملف مرفق نفس المثال السابق ولكن فيه خطا ممكن اعرف سبب الخطا شاكرين

[صالح حمادي]

7 ساعات مضت, asd1390 said:

اخي صالح هذا الملف مرفق نفس المثال السابق ولكن فيه خطا ممكن اعرف سبب الخطا شاكرين

الأكواد لا توجد بها أي خطأ

يجب عليك إضافة مكتبة Microsoft Word 14.0 Object Library في محرر أكواد فجوال بسيك

كما توضح الصورة التالية:

[asd1390]

الله يعطيك العافية ابغى شرح كامل للمثال ممكن اخوي

[صالح حمادي]

السلام عليكم

هذا المثال عبارة عن تصدير بيانات أكسس إلى جدول في ملف وورد و ذلك بالإعتماد على الإشارات المرجعية في الوورد

و هذا شرح الكود المستخدم:

Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim wDocOriginal As String
wDocOriginal = CurrentProject.Path & "\recap1.Dot"

Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open(wDocOriginal)

هنا قمنا بتعريف المتغيرات و إنشاء تطبيق وورد جديد و نفتح فيه مستند recap1.Dot المرفق مع البرنامج

wApp.Visible = True 

جعل التطبيق ظاهر عند تنفيذ عملية التصدير

wDoc.Bookmarks("cell1").Select

هنا وضع المؤشر على الإشارة المرجعية cell1 في مستند الوورد

For i = 1 To [sub_tbl].Form![c_rec]

فتح حلقة دورانية من أجل الدوران على جميع السجلات

wApp.Selection.MoveRight Unit:=wdCell, Count:=1

هذا الكود يعني نقل مؤشر الفأرة إلى الخلية الموالية

wApp.Selection.TypeText Text:=[sub_tbl].Form![ID]

كتابة العبارة الموجود في [sub_tbl].Form![ID] داخل الخلية النشطة أو المحددة في الوورد

wApp.ActiveDocument.SaveAs (CurrentProject.Path & "\1988_Doc.Doc")

wApp.Quit

Set wDoc = Nothing
Set wApp = Nothing

هنا نقوم بحفظ مستند الوورد في ملف جديد و بعدها نغلقه

[asd1390]

الله يعطيك الف عافية اخي صالح

شاهد اخي الملف المرفق لا يعمل

a1.rar

تم تعديل أبريل 22, 2020 بواسطه asd1390

[صالح حمادي]

الأخطاء هي كالتالي:

1- راجع تسميات الحقول نكتب me.id و لا نكتب [ta].Form![id]

2- الإشارة المرجعية يجب وضعها في آخر خلية للسطر الأول و ليس الجدول ككل

3- ملف الوورد من الأفضل يكون بإمتداد dot لكي لا يتم التعديل عليه

a1.rar

[asd1390]

كل عام وانت بالف خير اعادة الله عليك بالخير والبركات شهر رمضان 

والله يوفقك في الدنيا والاخرة