اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search
محمد طاهر

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

Recommended Posts

 

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

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

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

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

W004Statistics.bmp

docstat_cmdclose.zip

 

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×
×
  • اضف...