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

اسفند ۲, ۱۳۹۲

Username
Password
Continue with Google
	Remember Me Lost your password? Register

24 قسمت

700 دقیقه

140 هزار تومان

8 قسمت

140 دقیقه

40 هزار تومان

9 قسمت

190 دقیقه

40 هزار تومان

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

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