ماکروی نمایش اطلاعات سند در 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

۱۰

۱۱

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

اسفند ۲, ۱۳۹۲

22 قسمت

600 دقیقه

110 هزار تومان

8 قسمت

140 دقیقه

40 هزار تومان

20 قسمت

500 دقیقه

رایگان

آخرین مقاله های آموزشی

آخرین محصولات