Difference between revisions of "Судьба/Ночь схватки:Чистка скриптов"
Jump to navigation
Jump to search
m |
(script rewrite) |
||
| Line 85: | Line 85: | ||
Selection.Find.Execute Replace:=wdReplaceAll |
Selection.Find.Execute Replace:=wdReplaceAll |
||
With Selection.Find |
With Selection.Find |
||
| − | .Text = "@r" |
+ | .Text = "@r^13" |
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
| Line 116: | Line 116: | ||
End With |
End With |
||
Selection.Find.Execute Replace:=wdReplaceAll |
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 |
||
| − | .MatchWildcards = False |
||
| − | .MatchFuzzy = False |
||
| − | End With |
||
| − | ActiveWindow.ActivePane.VerticalPercentScrolled = 1 |
||
| − | ActiveWindow.ActivePane.VerticalPercentScrolled = 6 |
||
Selection.Find.ClearFormatting |
Selection.Find.ClearFormatting |
||
Selection.Find.Replacement.ClearFormatting |
Selection.Find.Replacement.ClearFormatting |
||
| Line 154: | Line 136: | ||
Selection.Find.Replacement.ClearFormatting |
Selection.Find.Replacement.ClearFormatting |
||
With Selection.Find |
With Selection.Find |
||
| − | .Text = " |
+ | .Text = "\@textoff*texton^13" |
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
| Line 171: | Line 153: | ||
Selection.Find.Replacement.ClearFormatting |
Selection.Find.Replacement.ClearFormatting |
||
With Selection.Find |
With Selection.Find |
||
| − | .Text = " |
+ | .Text = "@pg" |
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
| Line 181: | Line 163: | ||
.MatchAllWordForms = False |
.MatchAllWordForms = False |
||
.MatchSoundsLike = False |
.MatchSoundsLike = False |
||
| + | .MatchWildcards = False |
||
.MatchFuzzy = False |
.MatchFuzzy = False |
||
| − | .MatchWildcards = True |
||
End With |
End With |
||
Selection.Find.Execute Replace:=wdReplaceAll |
Selection.Find.Execute Replace:=wdReplaceAll |
||
| Line 188: | Line 170: | ||
Selection.Find.Replacement.ClearFormatting |
Selection.Find.Replacement.ClearFormatting |
||
With Selection.Find |
With Selection.Find |
||
| − | .Text = " |
+ | .Text = "\@interlude_start" |
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
| Line 205: | Line 187: | ||
Selection.Find.Replacement.ClearFormatting |
Selection.Find.Replacement.ClearFormatting |
||
With Selection.Find |
With Selection.Find |
||
| − | .Text = "\@textoff* |
+ | .Text = "\@textoff*return^13" |
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
| Line 222: | Line 204: | ||
Selection.Find.Replacement.ClearFormatting |
Selection.Find.Replacement.ClearFormatting |
||
With Selection.Find |
With Selection.Find |
||
| − | .Text = "@ |
+ | .Text = "\@*^13" |
.Replacement.Text = "" |
.Replacement.Text = "" |
||
.Forward = True |
.Forward = True |
||
| Line 232: | Line 214: | ||
.MatchAllWordForms = False |
.MatchAllWordForms = False |
||
.MatchSoundsLike = False |
.MatchSoundsLike = False |
||
| − | .MatchWildcards = False |
||
.MatchFuzzy = False |
.MatchFuzzy = False |
||
| + | .MatchWildcards = True |
||
End With |
End With |
||
Selection.Find.Execute Replace:=wdReplaceAll |
Selection.Find.Execute Replace:=wdReplaceAll |
||
| + | |||
End Sub |
End Sub |
||
</pre> |
</pre> |
||
Revision as of 21:22, 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 = "\[wrap 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
With Selection.Find
.Text = "@r^13"
.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 = "\@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
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. Макрос еще не совершенен, оставляет после себя некоторые строки, но впринципе уже на этом этапе текст становится полностью читабельным ^^
