Share via


Visual Basic Equivalents M

Visual Basic Equivalents M
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.

aa158433(v=office.10).mdaa158435(v=office.10).mdaa158437(v=office.10).mdaa158439(v=office.10).mdaa158441(v=office.10).mdaa158443(v=office.10).mdaa158446(v=office.10).mdaa158448(v=office.10).mdaa158450(v=office.10).mdaa158452(v=office.10).mdaa158452(v=office.10).mdaa158452(v=office.10).mdaa158456(v=office.10).mdaa158458(v=office.10).mdaa158458(v=office.10).mdaa158460(v=office.10).mdaa158462(v=office.10).mdaa158464(v=office.10).mdaa158466(v=office.10).mdaa158466(v=office.10).mdaa158468(v=office.10).mdaa158468(v=office.10).md

M  
MacID$() Macintosh only
MacroCopy Application.OrganizerCopy
MacroDesc$() x = WordBasic.[MacroDesc$](name)
MacroFileName$() Not applicable in Word 2002
MacroName$() x = WordBasic.[MacroName$](num)
MacroNameFromWindow$() Not applicable in Word 2002
MacScript, MacScript$() Macintosh only
Magnifier, Magnifier() ActiveWindow.View.Magnifier = True

state = ActiveWindow.View.Magnifier

MailCheckNames Application.MailMessage.CheckName
MailHideMessageHeader Application.MailMessage.ToggleHeader
MailMerge CheckErrors, Destination, MergeRecords, From, To, Suppression, MailMerge, MailSubject, MailAsAttachment, MailAddress With ActiveDocument.MailMerge

    .Check

    .Destination = WdMailMergeDestination

    .DataSource.FirstRecord = num

    .DataSource.LastRecord = num

    .SuppressBlankLines = True

    .MailSubject = text

    .MailAsAttachment = True

    .MailAddressFieldName = text

    .Execute

End With

MailMergeAskToConvertChevrons, MailMergeAskToConvertChevrons() FileConverters.ConvertMacWordChevrons = WdChevronConvertRule

state = FileConverters.ConvertMacWordChevrons

MailMergeCheck ActiveDocument.MailMerge.Check
MailMergeConvertChevrons, MailMergeConvertChevrons() FileConverters.ConvertMacWordChevrons = WdChevronConvertRule

state = FileConverters.ConvertMacWordChevrons

MailMergeCreateDataSource ActiveDocument.MailMerge.CreateDataSource
MailMergeCreateHeaderSource Documents(name).MailMerge.CreateHeaderSource
MailMergeDataForm ActiveDocument.DataForm
MailMergeDataSource$(0)

MailMergeDataSource$(1)

MailMergeDataSource$(2)

MailMergeDataSource$(3)

x = ActiveDocument.MailMerge.DataSource.Name

x = ActiveDocument.MailMerge.DataSource.HeaderSourceName

x = ActiveDocument.MailMerge.DataSource.Type

x = ActiveDocument.MailMerge.DataSource.HeaderSourceType

MailMergeEditDataSource Documents(name).MailMerge.EditDataSource
MailMergeEditHeaderSource Documents(1).MailMerge.EditHeaderSource
MailMergeEditMainDocument ActiveDocument.MailMerge.EditMainDocument
MailMergeFindRecord ActiveDocument.MailMerge.DataSource.FindRecord
MailMergeFirstRecord ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
MailMergeFoundRecord() x = ActiveDocument.MailMerge.DataSource.FindRecord
MailMergeGotoRecord, MailMergeGotoRecord() ActiveDocument.MailMerge.DataSource.ActiveRecord = num

x = ActiveDocument.MailMerge.DataSource.ActiveRecord

MailMergeHelper Dialogs(wdDialogMailMergeHelper).Show
MailMergeInsertAsk Documents(name).MailMerge.Fields.AddAsk
MailMergeInsertFillIn Documents(name).MailMerge.Fields.AddFillIn
MailMergeInsertIf ActiveDocument.MailMerge.Fields.AddIf
MailMergeInsertMergeRec ActiveDocument.MailMerge.Fields.AddMergeRec
MailMergeInsertMergeSeq ActiveDocument.MailMerge.Fields.AddMergeSeq
MailMergeInsertNext Documents(1).MailMerge.Fields.AddNext
MailMergeInsertNextIf ActiveDocument.MailMerge.Fields.AddNextIf
MailMergeInsertSet ActiveDocument.MailMerge.Fields.AddSet
MailMergeInsertSkipIf ActiveDocument.MailMerge.Fields.AddSkipIf
MailMergeLastRecord Documents(name).MailMerge.DataSource.ActiveRecord = wdLastRecord
MailMergeMainDocumentType, MailMergeMainDocumentType() ActiveDocument.MailMerge.MainDocumentType = WdMailMergeMainDocType

state = ActiveDocument.MailMerge.MainDocumentType

MailMergeNextRecord ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
MailMergeOpenDataSource Documents(1).MailMerge.OpenDataSource
MailMergeOpenHeaderSource Documents(name).MailMerge.OpenHeaderSource
MailMergePrevRecord ActiveDocument.MailMerge.DataSource.ActiveRecord = wdPreviousRecord
MailMergeQueryOptions ActiveDocument.MailMerge.DataSource.QueryString = text
MailMergeReset ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
MailMergeState() theState = ActiveDocument.MailMerge.State
MailMergeToDoc Documents(name).MailMerge.Destination = wdSendToNewDocument
MailMergeToPrinter ActiveDocument.MailMerge.Destination = wdSendToPrinter
MailMergeUseAddressBook Not applicable in Word 2002
MailMergeViewData, MailMergeViewData() ActiveDocument.MailMerge.ViewMailMergeFieldCodes = True

x = ActiveDocument.MailMerge.ViewMailMergeFieldCodes

MailMessageDelete Application.MailMessage.Delete
MailMessageForward Application.MailMessage.Forward
MailMessageMove Application.MailMessage.DisplayMoveDialog
MailMessageNext Application.MailMessage.GoToNext
MailMessagePrevious Application.MailMessage.GoToPrevious
MailMessageProperties Application.MailMessage.DisplayProperties
MailMessageReply Application.MailMessage.Reply
MailMessageReplyAll Application.MailMessage.ReplyAll
MailSelectNames Application.MailMessage.DisplaySelectNamesDialog
MarkCitation ActiveDocument.TablesOfAuthorities.MarkCitation

ActiveDocument.TablesOfAuthorities.MarkAllCitations

MarkIndexEntry ActiveDocument.Indexes.MarkEntry
MarkTableOfContentsEntry ActiveDocument.TablesOfContents.MarkEntry
MenuItemMacro$() x = CommandBars(name).Controls(num).OnAction
MenuItemText$() x = CommandBars(name).Controls(num).Caption
MenuMode WordBasic.MenuMode
MenuText$() x = CommandBars.ActiveMenuBar.Controls(num).Caption
MergeFieldName$(num) x = ActiveDocument.MailMerge.DataSource.FieldNames(num)
MergeSubdocument ActiveDocument.Subdocuments.Merge
MicrosoftAccess WordBasic.MicrosoftAccess

' or use the technique shown in Microsoft Excel example

MicrosoftExcel WordBasic.MicrosoftExcel

' or

If Tasks.Exists("Microsoft Excel") = True Then

    Tasks("Microsoft Excel").Activate

    Tasks("Microsoft Excel").WindowState = wdWindowStateMaximize

Else

    Shell "C:\MSOffice\Excel\Excel.exe"

End If

MicrosoftFoxPro WordBasic.MicrosoftFoxPro

' or use the technique shown in Microsoft Excel example

MicrosoftMail WordBasic.Mail

' or use the technique shown in Microsoft Excel example

MicrosoftPowerPoint WordBasic.PowerPoint

' or use the technique shown in Microsoft Excel example

MicrosoftProject WordBasic.Project

' or use the technique shown in Microsoft Excel example

MicrosoftPublisher WordBasic.Publisher

' or use the technique shown in Microsoft Excel example

MicrosoftSchedule WordBasic.Schedule

' or use the technique shown in Microsoft Excel example

MicrosoftSystemInfo System.MSInfo
Mid$() Mid$()

' or

Mid()

Minute() Minute()
MkDir path_name MkDir path_name
Month() Month()
MountVolume Application.MountVolume
MoveButton CommandBars(name).Controls(1).Move
MoveText WordBasic.MoveText
MoveToolbar With CommandBars(name)

    .Top = num

    .Left = num

End With

CommandBars(name).Position = MsoBarPosition

MsgBox, MsgBox() MsgBox, MsgBox()