طباعة ملف وورد من اكسل VBA

[mahmoud_z123]

السلام عليكم

خبرتي ضعيفة وأحتاج المساعدة في طباعة ملف وورد من داخل اكسل VBA 

الملف به 10 صفحات وأنا أريد طباعة صفحات محددة بناء علي قيمة متغيرة إسمها LastPage في ملف الإكسل

حاولت كتير ووصلت للكود اللي تحت من غير فايدة.

أرجو مساعدتي في كود يحل المشكلة. 

مع الشكر

  Sub PrintFile()
    Dim objWord As Object
    Dim objDoc  As Object
    Dim LastPage As Range
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Open("D:file.docx")
    objWord.Visible = False
    objDoc.PrintOut from:="1", To:="LastPage".value
    objWord.Quit
    End Sub

 

[محمد هشام.]

وعليكم السلام ورحمة الله وبركاته ..جرب اخي وضع هدا الكود

Sub impr_DocWord_MH()
Dim WordApp As Object, worddoc As Object
Application.ScreenUpdating = False
Set WordApp = CreateObject("Word.Application")
'قم بوضع ملف الوورد في نفس مسار ملف الاكسيل مع تغيير الاسم باسم الملف الخاص بك
 Set worddoc = WordApp.Documents.Open(ThisWorkbook.Path & "\TEST.docx", ReadOnly:=True)
 WordAppActiveDocument.PrintOut
'تحديد أرقام الصفحات المراد طباعتها
'WordApp.ActiveDocument.PrintOut Pages:="2"
Application.Wait Now + TimeSerial(0, 0, 2)
worddoc.Close savechanges:=False
WordApp.Quit
Set worddoc = Nothing
Set WordApp = Nothing
Application.ScreenUpdating = True
End Sub

وفي المرفقات ملف للتجربة

طباعة ملف وورد من داخل الاكسيل.rar

[mahmoud_z123]

شكراً أخي محمد هشام على إجابتك، جزاك الله خيرا وبارك فيك.