هذا الكود يقوم بتصدير بيانات الى ملف وورد
ولكن بشرط يكون الملف موجود على سطح المكتب
وثناء نقل الملف لاي مجلد اخر لا يتم النقل
هل بالامكان جعل هذا الكود يقوم بالنقل بدون شرط وجود ملف الوورد على سطح المكتب
اليكم الكود
On Error Resume Next
Set monWd = CreateObject("Word.Application")
monWd.Documents.Open CurrentProject.Path & "\STARTNET.doc"
monWd.Visible = True
monWd.ActiveDocument.Bookmarks("A11").Select
monWd.Selection.InsertAfter ÇÓã_ãÓÊáã_ÇáÓíÇÑå
monWd.ActiveDocument.Bookmarks("A2").Select
monWd.Selection.InsertAfter Jensyh
monWd.ActiveDocument.Bookmarks("A3").Select
monWd.Selection.InsertAfter ãßÇä_æÌæÏ_ÇáÓíÇÑå
monWd.ActiveDocument.Bookmarks("A4").Select
monWd.Selection.InsertAfter department
monWd.ActiveDocument.Bookmarks("A5").Select
monWd.Selection.InsertAfter ÑÞã_ÇáÔÑßÉ
monWd.ActiveDocument.Bookmarks("A6").Select
monWd.Selection.InsertAfter ÑÞã_ÇááæíÉ
monWd.ActiveDocument.Bookmarks("A7").Select
monWd.Selection.InsertAfter ØÑÇÒ_ÇáÓíÇÑÉ
monWd.ActiveDocument.Bookmarks("A8").Select
monWd.Selection.InsertAfter ãÇÑßÉ_ÇáÓíÇÑÉ
monWd.ActiveDocument.Bookmarks("A9").Select
monWd.Selection.InsertAfter DateCar
' monWd.ActiveDocument.PrintOut