إظهار عدد الكلمات فى شريط عنوان الوورد آليا

[محمد طاهر عرفه]

 

ضع المود التالي فى مساحة الكود الخاص بالمسنتند اذا اردنا تشغيل الكود تلقائيا عند الفتح

Private Sub Document_Open()
 ShowDocStats
End Sub

ثم اضف الكود التالي فى موديول جديد ضمن المستند

Sub ShowDocStats()

    With ActiveDocument.ActiveWindow
        .Caption = .Document.Name & " / " & _
            .Document.BuiltInDocumentProperties(wdPropertyWords) & " Words, " & _
            .Document.BuiltInDocumentProperties(wdPropertyCharacters) & " Characters, " & _
            .Document.BuiltInDocumentProperties(wdPropertyParas) & " Paragraphs"
    End With
    
End Sub
  

و الجزء الثاني يمكن ايضا استدعاؤه فى اي وقت من خلال ALT+F8 و اختيار اسم الكود و تشغيله ،

و طبعا يمكن الاكتفاء لمن يرغب بالسطر الاولي فقط الذي يظهر عدد الكلمات فقط دون عدد الحروف و الفقرات

Sub ShowDocStats()

    With ActiveDocument.ActiveWindow
        .Caption = .Document.Name & " / " & _
            .Document.BuiltInDocumentProperties(wdPropertyWords) & " Words, "
    End With
    
End Sub

و هذا هو الملف الذي به تطبيق لما سبق مع اضافة بسيطة هي جعله يقوم بالاحصاء كلما فتحنا الملف ، و ليس كل ملفات الوورد لكي نستخدمه فقط فى الملف المطلوب

و صورة توضيحية لمكان ظهور الاحصائيات :

docstat_cmdclose.zip

 

[اا الفاروق اا]

السلام عليكم

مشكوررررررررررررر اخ/ محمد على ابداعاتك القيمة

[محمد طاهر عرفه]

هذا الملف من بدايات ما نشر فى الموقع ( عام 2003)

و استغرقني بعض الوقت لاحاول استرجاع ما فائدته العملية 😄

ثم وجدت انه مفيد لما يعد بحثا أو دراسة علمية  لها حد ادني من الكلمات المطلوبة ، فيكون من المفيد له معرفة عدد الكلمات مباشرة دون اجراء اضافي اولا باول ، فقمت بتعدل المشاركة حيث كانت تعتمد اصدار قديم جدا من الاوفيس

[تومي محمد]

هايل وشكرا على المجهود