Trados: различия между версиями
Содержимое удалено Содержимое добавлено
м оформление |
|||
Строка 220:
* открыть исходный документ в Open Office
* сохранить документ в формате .doc (Office Word).
== Как разбивать сегмент принудительно ==
''Проблема'': Workbench не даёт переводчику возможности самому определять границу сегмента.
''Решение'': Уве Шпренгарт (Uwe Sprengart) предложил решение этой важной проблемы и любезно разрешил опубликовать его. Решение заключается в создании макроса, как указано ниже. Если Вы не знаете, как добавить макрос в Word, то в этом поможет www.nla.gov.au/kinetica/download/requestmacro.doc в отношении Word 2003 и более ранних версий.<br>
Sub DefineAndOpenSegment()<br>
' Macro by Uwe Sprengart<br>
'<br>
If Selection.Range = "" Then Exit Sub<br>
Application.Run<br>
MacroName:="TemplateProject.tw4winProtection.tw4winKeyEditCut"<br>
With ActiveDocument.Bookmarks<br>
.Add Range:=Selection.Range, Name:="Start_TU"<br>
.DefaultSorting = wdSortByName<br>
.ShowHidden = True<br>
End With<br>
Selection.Style = ActiveDocument.Styles("tw4winMark")<br>
Selection.TypeText Text:="{0>"<br>
Application.Run MacroName:="Normal.EditPaste.MAIN"<br>
Selection.Style = ActiveDocument.Styles("tw4winMark")<br>
Selection.TypeText Text:="<}0{><0}"<br>
' Selection.Find.ClearFormatting<br>
' With Selection.Find<br>
' .Text = "{0>"<br>
' .Replacement.Text = ""<br>
' .Forward = False<br>
' .Wrap = wdFindAsk<br>
' .Format = False<br>
' .MatchCase = False<br>
' .MatchWholeWord = False<br>
' .MatchWildcards = False<br>
' .MatchSoundsLike = False<br>
' .MatchAllWordForms = False<br>
' End With<br>
' Selection.Find.Execute<br>
Selection.GoTo What:=wdGoToBookmark, Name:="Start_TU"<br>
ActiveDocument.Bookmarks("Start_TU").Delete<br>
Application.Run MacroName:="TemplateProject.tw4winOpenGet.Main"<br>
Application.Run MacroName:="TemplateProject.tw4winGetTranslation.Main"<br>
End Sub<br>
== Примечания ==
| |||