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

اسفند ۲, ۱۳۹۲

4 قسمت

80 دقیقه

28 هزار تومان

18 قسمت

520 دقیقه

80 هزار تومان

24 قسمت

700 دقیقه

140 هزار تومان

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

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