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