ماکروی نمایش اطلاعات سند در Wor
مثال های کمی در موضوع کاربرد ماکرو نویسی در Word وجود داردو به همین دلیل نکات ساده ای که پیدا می شود را به شما معرفی می کنیم.
ماکروی زیر اطلاعاتی از سند شامل تعداد صفحه ها، تعداد پاراگراف ها و شماره صفحه جاری را توسط سه دستور MsgBox اعلان می کند.
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ |
Sub ShowInformation() Dim NumberOfPages, NumberOfParagraohs, CurrentPageNumber As Integer NumberOfPages = Selection.Information(wdNumberOfPagesInDocument) MsgBox NumberOfPages '------------------------------- NumberOfParagraohs = ActiveDocument.Paragraphs.Count MsgBox NumberOfParagraohs '------------------------------- CurrentPageNumber = Selection.Information(wdActiveEndPageNumber) MsgBox CurrentPageNumber End Sub |