كود تصدير بيانات للوورد

[عابر سبيل 2010]

هذا الكود يقوم بتصدير بيانات الى ملف وورد

ولكن بشرط يكون الملف موجود على سطح المكتب

وثناء نقل الملف لاي مجلد اخر لا يتم النقل

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

اليكم الكود

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

[ابوخليل]

هذا السطر لفتح برنامج وورد :

Dim x

x = Shell("C:\Program Files\Microsoft Office\Office11\WINWORD.EXE", 1)