Visual Basic 命令对照表 M

   

ABCDEFGHIJKLMNOPRSTUVWY

M  
MacID$() 仅用于 Macintosh 系统
MacroCopy Application.OrganizerCopy
MacroDesc$() x = WordBasic.[MacroDesc$](name)
MacroFileName$() 不适用于 Word 2002
MacroName$() x = WordBasic.[MacroName$](num)
MacroNameFromWindow$() 不适用于 Word 2002
MacScript, MacScript$() 仅用于 Macintosh 系统
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 不适用于 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

'或使用 Microsoft Excel 示例中的技术

MicrosoftExcel WordBasic.MicrosoftExcel

'或

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

'或使用 Microsoft Excel 示例中的技术

MicrosoftMail WordBasic.Mail

'或使用 Microsoft Excel 示例中的技术

MicrosoftPowerPoint WordBasic.PowerPoint

'或使用 Microsoft Excel 示例中的技术

MicrosoftProject WordBasic.Project

'或使用 Microsoft Excel 示例中的技术

MicrosoftPublisher WordBasic.Publisher

'或使用 Microsoft Excel 示例中的技术

MicrosoftSchedule WordBasic.Schedule

'或使用 Microsoft Excel 示例中的技术

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

'或

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()