Kode til sideindeling af stort dokument

Fandt selv løsningen

With Selection.Find
    Do While .Execute(findtext:="side:", Forward:=True, MatchCase:=True, Wrap:=wdFindStop) = True
   
    Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
      Selection.HomeKey Unit:=wdLine
      Selection.EndKey Unit:=wdLine, Extend:=wdExtend
      Selection.Font.Bold = True
      Selection.EndKey Unit:=wdLine
      Selection.HomeKey Unit:=wdLine
      Selection.InsertBreak Type:=wdPageBreak
      Selection.EndKey Unit:=wdLine
    Loop
    End With
End Sub