بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'عدد الكلنات'.
تم العثور علي 1 نتيجه
-
ضع المود التالي فى مساحة الكود الخاص بالمسنتند اذا اردنا تشغيل الكود تلقائيا عند الفتح 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
