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
суббота, 25 апреля 2009 г.
НА КРЫЛЬЯХ ФАНТАЗИИ ПОДНЯЛИ ВСТРОЕННЫЙ ВИЖУАЛ БЕЙСИК
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий