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

[motaha]

السلام عليكم 

 قمت باعداد ملف ورد مسبقا لاستخراج البيانات من الاكسس الى ملف الورد المعد مسبقا

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

Dim W As Object
Set W = CreateObject("Word.Application")
W.Documents.Open "C:\Users\MH\Desktop\test.docx"
W.Visible = True
W.ActiveDocument.bookmarks("txtname").Select
W.Selection.InsertAfter Me.nname.Value
W.ActiveDocument.bookmarks("txtarea").Select
W.Selection.InsertAfter Me.area.Value
W.ActiveDocument.bookmarks("txttele").Select
W.Selection.InsertAfter Me.tele.Value

وكنت اريد حفظ ملف الورد عن طريق رقم المسلسل على سبيل المثال حفاظا على الملف المعد مسبقا و بعيدا ان يقوم المستخدم بحفظه عن طريق حفظ باسم  

الرجاء المساعدة والتوجيه وبارك الله فيكم

 

 

[kanory]

حاول استخدام هذا وعدل حسب الشيفرة لديك ...

Wdoc.SaveAs2 CurrentProject.Path & "\" & Me.RintNO & "-MyDoc" & ".docx"

 

[motaha]

1 ساعه مضت, kanory said:

حاول استخدام هذا وعدل حسب الشيفرة لديك ...

Wdoc.SaveAs2 CurrentProject.Path & "\" & Me.RintNO & "-MyDoc" & ".docx"

 

   شكرا اخى الكريم

عند اضافه الكود بيظهر لى  error 438

[kkhalifa1960]

الشرح من هنا

                                

 

والمرفق 

MS_Export data to Word file.rar

[motaha]

22 ساعات مضت, kkhalifa1960 said:

الشرح من هنا

                                

 

والمرفق 

MS_Export data to Word file.rar 145.78 kB · 9 downloads

جزاك الله خيرا يا صديقي

 

[Foksh]

في 25‏/1‏/2024 at 21:51, motaha said:

السلام عليكم 

 قمت باعداد ملف ورد مسبقا لاستخراج البيانات من الاكسس الى ملف الورد المعد مسبقا

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

Dim W As Object
Set W = CreateObject("Word.Application")
W.Documents.Open "C:\Users\MH\Desktop\test.docx"
W.Visible = True
W.ActiveDocument.bookmarks("txtname").Select
W.Selection.InsertAfter Me.nname.Value
W.ActiveDocument.bookmarks("txtarea").Select
W.Selection.InsertAfter Me.area.Value
W.ActiveDocument.bookmarks("txttele").Select
W.Selection.InsertAfter Me.tele.Value

وكنت اريد حفظ ملف الورد عن طريق رقم المسلسل على سبيل المثال حفاظا على الملف المعد مسبقا و بعيدا ان يقوم المستخدم بحفظه عن طريق حفظ باسم  

الرجاء المساعدة والتوجيه وبارك الله فيكم

 

 

جرب هذا الكود ، مع تعديل مربع النص الذي به الرقم المتسلسل

Dim W As Object
Set W = CreateObject("Word.Application")
W.Documents.Open "C:\Users\MH\Desktop\test.docx"
W.Visible = True
W.ActiveDocument.bookmarks("txtname").Select
W.Selection.InsertAfter Me.nname.Value
W.ActiveDocument.bookmarks("txtarea").Select
W.Selection.InsertAfter Me.area.Value
W.ActiveDocument.bookmarks("txttele").Select
W.Selection.InsertAfter Me.tele.Value

' تم إضافة السطر التالي لحفظ ملف الورد برقم المسلسل
W.ActiveDocument.SaveAs "C:\Users\MH\Desktop\" & Me.SerialNumber.Value & ".docx"

 

[motaha]

12 ساعات مضت, Foksh said:

جرب هذا الكود ، مع تعديل مربع النص الذي به الرقم المتسلسل

Dim W As Object
Set W = CreateObject("Word.Application")
W.Documents.Open "C:\Users\MH\Desktop\test.docx"
W.Visible = True
W.ActiveDocument.bookmarks("txtname").Select
W.Selection.InsertAfter Me.nname.Value
W.ActiveDocument.bookmarks("txtarea").Select
W.Selection.InsertAfter Me.area.Value
W.ActiveDocument.bookmarks("txttele").Select
W.Selection.InsertAfter Me.tele.Value

' تم إضافة السطر التالي لحفظ ملف الورد برقم المسلسل
W.ActiveDocument.SaveAs "C:\Users\MH\Desktop\" & Me.SerialNumber.Value & ".docx"

 

هذا ما كنت اريده تم الحل

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

 

تم تعديل يناير 27 بواسطه motaha