ضع المود التالي فى مساحة الكود الخاص بالمسنتند اذا اردنا تشغيل الكود تلقائيا عند الفتح Private Sub Document_Open() ShowDocStats End Sub ثم اضف الكود التالي فى موديول جديد ضمن المستند Sub ShowDocStats() With ActiveDocument.ActiveWindow .Caption = .Document.Name & " / " & _ .Document.BuiltInDocumentProperties(wdPropertyWords) & " Words, " & _ .Document.BuiltInDocumentProperties(wdPropertyCharacters) & " Characters, " & _