HelpAbout

Syntax

HelpAbout [.AppName = text] [, .AppCopyright = text] [, .AppUserName = text] [, .AppOrganization = text] [, .AppSerialNumber = text]

Remarks

Without any arguments, displays the About Microsoft Word dialog box (Help menu), which gives the Word version number, the serial number, copyright information, and the name of the licensed user.

The arguments for the HelpAbout statement are read-only, which means that unlike other WordBasic statements, HelpAbout cannot be used to set a value. Instead, you define a dialog record as HelpAbout and then use the dialog record in the same way you use a function: to return information. In this case, the dialog record can return information from the About Microsoft Word dialog box.

Argument

Explanation

.AppName

The name and version number of Word as they appear in the About Microsoft Word dialog box

.AppCopyright

The copyright notice for Word

.AppUserName

The name of the person to whom the active copy of Word is licensed

.AppOrganization

The organization name provided when Word was installed

.AppSerialNumber

The serial number of the active copy of Word


Example

This example defines a dialog record for the About Microsoft Word dialog box, stores the current values in the dialog record, and then displays in a message box the value for the serial number:


Dim dlg As HelpAbout
GetCurValues dlg
MsgBox "Serial number: " + dlg.AppSerialNumber

See Also

AppInfo$(), DocumentStatistics, GetSystemInfo, MicrosoftSystemInfo