Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Dim WApp As New Word.Application
 
        Dim WDoc As Word.Document = WApp.Documents.Open("...")
 
        With WApp.Selection
            .WholeStory()
            .Copy()
        End With
 
        With WApp.Selection
            .MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1)
            .InsertBreak()
        End With
 
        With WApp.Selection
            .PasteAndFormat(Word.WdRecoveryType.wdFormatOriginalFormatting)
        End With
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist