 |
|
Subject: а можно из неочищенного файл традос восстановить исходный документ? автоматическими средствами?
|
|
link 13.04.2009 21:58 |
| "restore" в каждом юните |
|
а если в документе 1000 сегментов? :) вот макрос для вордфаста от Аркадия Высоцкого но чур эксперимент проводить на копии файла, тк. не всегда срабатывает нормально если с макросами не работали, то запишите пустой макрос в Сервис - Макрос - начать запись В специальной кнопочке, которая появится после того, как вы зададите имя макроса (можно согласиться предложенным названием типа Макрос1) затем еще раз идете в Сервис -Макрос - Макросы - найдите свой макрос и нажмите "редактировать". туда вставьте текст ниже. сохраните, а затем закройте редактор макросов. после этого опять идете путем Сервис ... но выбираете макрос source text only и жмете кнопку run/выполнить. и смотрите, получилось или нет. но предупреждаю, что это сработает только если у вас уже переведенный текст, а не автоматическая заготовка с пустыми сегментами перевода. успехов Sub SourceTextOnly() Selection.HomeKey Unit:=wdStory ActiveWindow.View.ShowHiddenText = True Do Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("tw4winMark") With Selection.Find .Text = "<}^#" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Segments = (Selection.Find.Execute) If Segments Then Selection.MoveEnd Unit:=wdSentence, Count:=1 While Selection.Characters.Last.Style <> "tw4winMark" Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Wend Selection.Delete Unit:=wdCharacter, Count:=1 End If Loop While Segments Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("tw4winMark") Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Font.Hidden = True Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Hidden = False .ColorIndex = wdAuto End With With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll End Sub |
| You need to be logged in to post in the forum |