عابر سبيل 2010 قام بنشر يناير 20, 2012 قام بنشر يناير 20, 2012 هذا الكود يقوم بتصدير بيانات الى ملف وورد ولكن بشرط يكون الملف موجود على سطح المكتب وثناء نقل الملف لاي مجلد اخر لا يتم النقل هل بالامكان جعل هذا الكود يقوم بالنقل بدون شرط وجود ملف الوورد على سطح المكتب اليكم الكود 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
ابوخليل قام بنشر يناير 21, 2012 قام بنشر يناير 21, 2012 هذا السطر لفتح برنامج وورد : Dim x x = Shell("C:\Program Files\Microsoft Office\Office11\WINWORD.EXE", 1)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.