Word-Dokument seitenweise splitten

[shmia]

Zitat von DeddyH:

Gibt es evtl. eine Möglichkeit, ganz auf OLE zu verzichten, das Dokument z.B. in einen Stream zu laden, nach einer Art "Seitenkennung" zu suchen und dann zu speichern, oder ist OLE die praktikablere Möglichkeit?

Nein, die Daten müssen ja von Word gerendert werden, damit man die Seitenumbrüche findet.
Das Wordformat ist für aussenstehende Programme nahezu unlesbar.
Allerdings kommst du wahrscheinlich mit VB Script innerhalb von Word oder einem Makro am schnellsten zum Ziel.
Hier mal ein Makro, dass einen Seitenumbruch findet:

Code:

Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 18.10.2007 von shmia
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^m"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute ' suchen
    Selection.Find.Execute ' nochmal suchen
    Selection.Find.Execute
End Sub