Difference between revisions of "Судьба/Ночь схватки:Чистка скриптов"
Jump to navigation
Jump to search
(script rewrite) |
(script cleanup) |
||
Line 24: | Line 24: | ||
With Selection.Find |
With Selection.Find |
||
.Text = "\[warp text=""*\]" |
.Text = "\[warp text=""*\]" |
||
− | .Replacement.Text = "" |
||
− | .Forward = True |
||
− | .Wrap = wdFindContinue |
||
− | .Format = False |
||
− | .MatchCase = False |
||
− | .MatchWholeWord = False |
||
− | .MatchByte = False |
||
− | .MatchAllWordForms = False |
||
− | .MatchSoundsLike = False |
||
− | .MatchFuzzy = False |
||
− | .MatchWildcards = True |
||
− | End With |
||
− | Selection.Find.Execute Replace:=wdReplaceAll |
||
− | With Selection.Find |
||
− | .Text = "\[wrap text=""*\]" |
||
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
Line 71: | Line 56: | ||
With Selection.Find |
With Selection.Find |
||
.Text = "[l][r]" |
.Text = "[l][r]" |
||
− | .Replacement.Text = "" |
||
− | .Forward = True |
||
− | .Wrap = wdFindContinue |
||
− | .Format = False |
||
− | .MatchCase = False |
||
− | .MatchWholeWord = False |
||
− | .MatchByte = False |
||
− | .MatchAllWordForms = False |
||
− | .MatchSoundsLike = False |
||
− | .MatchWildcards = False |
||
− | .MatchFuzzy = False |
||
− | End With |
||
− | Selection.Find.Execute Replace:=wdReplaceAll |
||
− | With Selection.Find |
||
− | .Text = "@r^13" |
||
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
Line 165: | Line 135: | ||
.MatchWildcards = False |
.MatchWildcards = False |
||
.MatchFuzzy = False |
.MatchFuzzy = False |
||
− | End With |
||
− | Selection.Find.Execute Replace:=wdReplaceAll |
||
− | Selection.Find.ClearFormatting |
||
− | Selection.Find.Replacement.ClearFormatting |
||
− | With Selection.Find |
||
− | .Text = "\@interlude_start" |
||
− | .Replacement.Text = "" |
||
− | .Forward = True |
||
− | .Wrap = wdFindContinue |
||
− | .Format = False |
||
− | .MatchCase = False |
||
− | .MatchWholeWord = False |
||
− | .MatchByte = False |
||
− | .MatchAllWordForms = False |
||
− | .MatchSoundsLike = False |
||
− | .MatchFuzzy = False |
||
− | .MatchWildcards = True |
||
End With |
End With |
||
Selection.Find.Execute Replace:=wdReplaceAll |
Selection.Find.Execute Replace:=wdReplaceAll |
Revision as of 21:43, 11 May 2008
при открытии скрипта, скорее всего перед вами предстанет мало понятный текст, вот макрос, чтобы превести его в читабельный формат:
Sub FSN_CleanUp() ' ' macro for MS Word 2003 ' created at 11.05.2008 by DMC ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\*page0*texton" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "\[warp text=""*\]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "\[line*\]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "[l][r]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\*page*|" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "@pgnl" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\@textoff*texton^13" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "@pg" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\@textoff*return^13" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "\@*^13" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchFuzzy = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
Макрос вставляется в ворд и выполняется, чтобы вставить макрос нажмите alt+F11? затем вставляете код, сохраняете, и через Сервис-Макрос запускаете этот скрипт.
P.S. Макрос еще не совершенен, оставляет после себя некоторые строки, но впринципе уже на этом этапе текст становится полностью читабельным ^^