Range.NextSubdocument (Word)

Verschiebt den Bereich zum nächsten Filialdokument.

Wenn kein weiteres Filialdokument vorhanden ist, tritt ein Fehler auf.

If ActiveDocument.Subdocuments.Count >= 1 Then 
 ActiveDocument.ActiveWindow.View.Type = wdMasterView 
 Selection.HomeKey unit:=wdStory, Extend:=wdMove 
 Selection.Range.NextSubdocument 
End If