سؤال بسيط في طباعة عدة ملفات في الوورد

[اوفيس 2003]

السلام عليكم ورحمة الله

 

 

لدي العديد من ملفات الوورد حوالي 5-10 وكلهم اريد ان اطبع الورقة الأولى منهم فقط هل من طريقة سهلة بحيث احددهم واطبع مباشرة بدلا من افتح كل ملف على حدة واختار امر طباعة الصفحة الحالية ..

تم تعديل أغسطس 15, 2013 بواسطه office 2003

[اوفيس 2003]

فين الخبراء والحل الله يبارك فيكم 

[تومي محمد]

طالع هنا http://office.microsoft.com/ar-sa/word-help/HP005189581.aspx

 

والسلام عليكم

[اوفيس 2003]

ﻻ اجد مااريد ياغالي

[الـعيدروس]

السلام عليكم

 

اخي الفاضل 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

تحياتي

[حمادة عمر]

تم تعديل أكتوبر 10, 2013 بواسطه حمادة عمر

[الـعيدروس]

سلمت اخي حمادة عمر

على مرورك الكريم

[اوفيس 2003]

سلمت يداك ياغالي