اوفيس 2003 قام بنشر أغسطس 15, 2013 مشاركة قام بنشر أغسطس 15, 2013 (معدل) السلام عليكم ورحمة الله لدي العديد من ملفات الوورد حوالي 5-10 وكلهم اريد ان اطبع الورقة الأولى منهم فقط هل من طريقة سهلة بحيث احددهم واطبع مباشرة بدلا من افتح كل ملف على حدة واختار امر طباعة الصفحة الحالية .. تم تعديل أغسطس 15, 2013 بواسطه office 2003 1 رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر سبتمبر 5, 2013 الكاتب مشاركة قام بنشر سبتمبر 5, 2013 فين الخبراء والحل الله يبارك فيكم رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر سبتمبر 29, 2013 مشاركة قام بنشر سبتمبر 29, 2013 طالع هنا http://office.microsoft.com/ar-sa/word-help/HP005189581.aspx والسلام عليكم رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر سبتمبر 29, 2013 الكاتب مشاركة قام بنشر سبتمبر 29, 2013 ﻻ اجد مااريد ياغالي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 8, 2013 مشاركة قام بنشر أكتوبر 8, 2013 السلام عليكم اخي الفاضل office 2003 انشاء مودويل في ملف الوورد والصق به الكود التالي اولاً حدد المسار الذي به ملفات الوورد إن كانت بغير فولدر الملف اول الكود Pth = ThisDocument.Path وإمتداد ملفات الوورد لديك Fr = ".doc" بعد تعديل المعطيات نفذ الكود Public Sub Ali_Wd() Dim Pth$, Fr$ '************************** ' المسار الحالي نفس فولدر الملف Pth = ThisDocument.Path ' أو غيره إلى مسار الذي به ملفات الورد كالتالي 'Pth = "C:\A" '************************** ' إمتداد ملف الوورد الحالي ' غيره حسب امتداد ملفات الوورد لديك Fr = ".doc" Prnt_F Pth, Fr End Sub Private Sub Prnt_F(Pth As String, Frm As String) Dim Nm$, Mr$ Dim Wr As Document On Error Resume Next Mr = ThisDocument.Name Nm = Dir(Pth & "\" & "*" & Frm) Do While Nm <> "" If Not Nm = Mr Then Set Wr = Documents.Open(Pth & "\" & Nm) Wr.ActiveWindow.PrintOut Wr.Close 0 Set Wr = Nothing Nm = Dir End If Loop On Error GoTo 0 End Sub تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر أكتوبر 10, 2013 مشاركة قام بنشر أكتوبر 10, 2013 (معدل) تم تعديل أكتوبر 10, 2013 بواسطه حمادة عمر رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر أكتوبر 11, 2013 مشاركة قام بنشر أكتوبر 11, 2013 سلمت اخي حمادة عمر على مرورك الكريم رابط هذا التعليق شارك More sharing options...
اوفيس 2003 قام بنشر أكتوبر 13, 2013 الكاتب مشاركة قام بنشر أكتوبر 13, 2013 سلمت يداك ياغالي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.