*.doc aufteilen...

[gordon freeman]

Hallo Leute,
ich habe mit Hilfe von GeorgWNewbie schon ein ganz ordentliches Makro gebastelt, dass aus einer Doc-Datei mehrere HTML-Dateien macht. Hier der Code:

Code:

Private Sub CommandButton1_Click()
a = TextBox1.Text
b = TextBox2.Text
c = 0
d = 0
markieren
End Sub


Sub markieren()
While c = 0

d = d + 1

Dim FirstPos, SecPos As Integer

FirstPos = -1
SecPos = -1

ActiveDocument.Range(0, 0).Select

Do While FirstPos = -1 Or SecPos = -1
    With Selection.Find
        .ClearFormatting
        .Font.Size = a
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    If Not Selection.Find.Found Then
     c = 1
    End If
    
    If FirstPos = -1 Then
      FirstPos = Selection.Start
    ElseIf SecPos = -1 Then
      SecPos = Selection.Start
    End If
Loop

If FirstPos <> -1 And SecPos <> -1 Then
  Selection.Start = FirstPos
  Selection.End = SecPos
End If


Selection.Cut
Documents.Add Template:="", NewTemplate:=False, DocumentType:=1
Selection.Paste


ChangeFileOpenDirectory b
    ActiveDocument.SaveAs FileName:=d + ".htm", FileFormat:=wdFormatHTML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
Wend

Selection.WholeStory

Selection.Cut
Documents.Add Template:="", NewTemplate:=False, DocumentType:=1
Selection.Paste


ChangeFileOpenDirectory b
    ActiveDocument.SaveAs FileName:=d + ".htm", FileFormat:=wdFormatHTML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False

End Sub

Das Problem ist, dass ich diesen code noch nicht testen konnte, da er an folgender Stelle immer einen Laufzeitfehler ausgibt:

Code:

.ClearFormatting
        .Font.Size = a        <-- An dieser Stelle erscheint der Fehler!!!
        .Text = ""
        .Replacement.Text = ""

Wahrscheinlich werden weitere Fehler auftauchen, aber vieleicht kann mir ja einer von euch sagen, was ich an dieser Stelle falsch gemacht habe

bua, tia, cu gordon