How to create VBA macro

[alla1921]

Can anybody explain how to create and use VBA macro.

Thanks!

 

[nimmy99]

Tools - macro- macros
type your macro name and press create button
If wan to test
use the following code to display text message

double click on thisdocument
Private Sub Document_Beforerefresh(Cancel As Boolean)
msgbox "Welcome to macros"
End Sub

 

[alla1921]

Thank you! Its so easy!

 

[nimmy99]

Yep. This is so easy. For real situation, you have to identify the correct objects, methods and properties

 

[alla1921]

Can you send a few examples?

 

[nimmy99]

'finding no of pages in a report
Sub nopages_macro()
Dim rep As busobj.Report
Dim nop As Long
Set rep = Application.ActiveDocument.Reports(1)
nop = rep.NumberOfPages
MsgBox "No. of Pages : " + CStr(nop)
End Sub

'Suppressing No Data to Fetch message
Private Sub Document_BeforeRefresh(Cancel As Boolean)
Application.Interactive = False
End Sub

 

[alla1921]

thanks a lot!!!!!!!!!

 

[alla1921]

how do you activate nopages_macro?

 

[nimmy99]

Non-pages macro?

 

[alla1921]

yes

 

[Sridharan]

Do you mean run the created macros??? If so Alt + F8 will do or else Tools - > Marco - > Macros.... and select your macro from the list and press Run... Isn't that so easy as well...

Sri

 

[alla1921]

As I understand users suposed to know about this macro and know how to activate it.

 

[nimmy99]

You have the following things to activate the macro, right?
After Refresh
Before Refresh
Before Save
After Save
open
Activate
deactivate
....

 

[alla1921]

thank you!