Visual Basic 命令对照表 O 到 P

   

ABCDEFGHIJKLMNOPRSTUVWY

O  
OK WordBasic.OK
OKButton 命令按钮控件
On Error On Error
OnTime Application.OnTime
Open Open
OpenSubdocument ActiveDocument.Subdocuments(name).Open
OpenUpPara Selection.Paragraphs.OpenUp
选项按钮 选项按钮控件
OptionGroup 框架控件
Organizer Application.OrganizerCopy

Application.OrganizerDelete

Application.OrganizerRename

OtherPane ActiveWindow.ActivePane.Next.Activate
Outline, Outline() Selection.Font.Outline = True

x = Selection.Font.Outline

OutlineCollapse ActiveWindow.View.CollapseOutline
OutlineDemote Selection.Paragraphs.OutlineDemote
OutlineExpand ActiveWindow.View.ExpandOutline
OutlineLevel() aLevel = Selection.Paragraphs.OutlineLevel
OutlineMoveDown Selection.Range.Relocate Direction:=wdRelocateDown
OutlineMoveUp Selection.Range.Relocate Direction:=wdRelocateUp
OutlinePromote Selection.Paragraphs.OutlinePromote
OutlineShowFirstLine, OutlineShowFirstLine() ActiveWindow.View.ShowFirstLineOnly = True

x = ActiveWindow.View.ShowFirstLineOnly

OutlineShowFormat AcitveWindow.View.ShowFormat = True
Overtype Options.Overtype = True

P  
PageDown, PageDown() Selection.MoveDown Unit:=wdScreen, Count:=1, Extend:=wdMove
PageUp, PageUp() Selection.MoveUp Unit:=wdScreen, Count:=1, Extend:=wdMove
ParaDown, ParaDown() Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
ParaKeepLinesTogether, ParaKeepLinesTogether() ActiveDocument.Paragraphs(1).KeepTogether = True

x = ActiveDocument.Paragraphs(1).KeepTogether

ParaKeepWithNext, ParaKeepWithNext() ActiveDocument.Paragraphs(1).KeepWithNext = True

x = ActiveDocument.Paragraphs(1).KeepWithNext

ParaPageBreakBefore, ParaPageBreakBefore() ActiveDocument.Paragraphs(1).PageBreakBefore = True

x = ActiveDocument.Paragraphs(1).PageBreakBefore

ParaUp, ParaUp() Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdMove
ParaWidowOrphanControl, ParaWidowOrphanControl() ActiveDocument.Paragraphs(1).WidowControl = True

x = ActiveDocument.Paragraphs(1).WidowControl

PasteButtonImage CommandBars(name).Controls(1).PasteFace
PasteFormat Selection.PasteFormat
PathFromMacPath$() x = WordBasic.[PathFromMacPath$](path)
PathFromWinPath$() x = WordBasic.[PathFromWinPath$](path)
PauseRecorder WordBasic.PauseRecorder
Picture 图像控件
PrevCell, PrevCell() Selection.Move Unit:=wdCell, Count:=-1

'或

Selection.Cells(1).Previous.Select

PrevField, PrevField() Selection.GoToPrevious What:=wdGoToField

'或

Selection.PreviousField

PrevObject Selection.GoToPrevious What:=wdGoToObject

'或

Selection.MoveLeft Unit:=wdItem

PrevPage, PrevPage() Selection.GoToPrevious What:=wdGoToPage

'或

ActiveWindow.View.Type = wdPrintView

ActiveWindow.PageScroll Up:=1

PrevTab() x = ActiveDocument.Paragraphs(1).TabStops(1).Previous.Position
PrevWindow ActiveWindow.Previous.Activate
Print Print
PromoteList Selection.Range.ListFormat.ListIndent
PushButton 命令按钮控件
PutFieldData ActiveDocument.Fields(1).Data = text