Range.NextSubdocument (Word)
Mueve el intervalo al subdocumento siguiente.
Si no existe otro subdocumento, se produce un error.
If ActiveDocument.Subdocuments.Count >= 1 Then
ActiveDocument.ActiveWindow.View.Type = wdMasterView
Selection.HomeKey unit:=wdStory, Extend:=wdMove
Selection.Range.NextSubdocument
End If