НА КРЫЛЬЯХ ФАНТАЗИИ ПОДНЯЛИ ВСТРОЕННЫЙ ВИЖУАЛ БЕЙСИК

Sub Макрос0(num)
'
' Макрос1 Макрос
' Макрос записан 07.04.2009 Александр
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Posted by Seeds Of Mind"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.EndKey Unit:=wdLine
    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
    Selection.Cut
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.HomeKey Unit:=wdStory
    ActiveDocument.SaveAs FileName:=Str(num) + ".doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    ActiveWindow.Close
End Sub

Sub Макрос1()
For I = 0 To 261
    Макрос0 (I)
Next I
End Sub