Selection.PreviousSubdocument (Word)
Mueve la selección al subdocumento anterior.
Si no existe otro subdocumento, se produce un error.
If ActiveDocument.Subdocuments.Count >= 1 Then
ActiveDocument.ActiveWindow.View.Type = wdMasterView
Selection.EndKey Unit:=wdStory, Extend:=wdMove
Selection.PreviousSubdocument
End If