MSI قام بنشر يناير 25 مشاركة قام بنشر يناير 25 السلام عليكم قمت باعداد ملف ورد مسبقا لاستخراج البيانات من الاكسس الى ملف الورد المعد مسبقا واستخدمت هدا الكود لتصدير البيانات من الاكسس الى ملف الورد 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 وكنت اريد حفظ ملف الورد عن طريق رقم المسلسل على سبيل المثال حفاظا على الملف المعد مسبقا و بعيدا ان يقوم المستخدم بحفظه عن طريق حفظ باسم الرجاء المساعدة والتوجيه وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
أفضل إجابة kanory قام بنشر يناير 25 أفضل إجابة مشاركة قام بنشر يناير 25 حاول استخدام هذا وعدل حسب الشيفرة لديك ... Wdoc.SaveAs2 CurrentProject.Path & "\" & Me.RintNO & "-MyDoc" & ".docx" رابط هذا التعليق شارك More sharing options...
MSI قام بنشر يناير 25 الكاتب مشاركة قام بنشر يناير 25 1 ساعه مضت, kanory said: حاول استخدام هذا وعدل حسب الشيفرة لديك ... Wdoc.SaveAs2 CurrentProject.Path & "\" & Me.RintNO & "-MyDoc" & ".docx" شكرا اخى الكريم عند اضافه الكود بيظهر لى error 438 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 25 مشاركة قام بنشر يناير 25 الشرح من هنا والمرفق MS_Export data to Word file.rar 1 رابط هذا التعليق شارك More sharing options...
MSI قام بنشر يناير 26 الكاتب مشاركة قام بنشر يناير 26 22 ساعات مضت, kkhalifa1960 said: الشرح من هنا والمرفق MS_Export data to Word file.rar 145.78 kB · 9 downloads جزاك الله خيرا يا صديقي رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 26 مشاركة قام بنشر يناير 26 في 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" 1 رابط هذا التعليق شارك More sharing options...
MSI قام بنشر يناير 27 الكاتب مشاركة قام بنشر يناير 27 (معدل) 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 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان