CAT 工具/SDL Trados/强制分段

工作台不允许用户选择分段应该发生的位置。这通常是一个问题。Uwe Sprengart 友好地提供了解决此重要功能问题的解决方案，并授权发布该解决方案。它是一个宏，如下所示。如果您不知道如何将宏添加到 Word，www.nla.gov.au/kinetica/download/requestmacro.doc 将帮助您使用 Word 2003 及更早版本。

Sub DefineAndOpenSegment()
' Uwe Sprengart 编写的宏
'
If Selection.Range = "" Then Exit Sub
Application.Run
MacroName:="TemplateProject.tw4winProtection.tw4winKeyEditCut"
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="Start_TU"
.DefaultSorting = wdSortByName
.ShowHidden = True
End With

Selection.Style = ActiveDocument.Styles("tw4winMark")
Selection.TypeText Text:="{0>"
Application.Run MacroName:="Normal.EditPaste.MAIN"
Selection.Style = ActiveDocument.Styles("tw4winMark")
Selection.TypeText Text:="<}0{><0}"

' Selection.Find.ClearFormatting
' With Selection.Find
' .Text = "{0>"
' .Replacement.Text = ""
' .Forward = False
' .Wrap = wdFindAsk
' .Format = False
' .MatchCase = False
' .MatchWholeWord = False
' .MatchWildcards = False
' .MatchSoundsLike = False
' .MatchAllWordForms = False
' End With
' Selection.Find.Execute
Selection.GoTo What:=wdGoToBookmark, Name:="Start_TU"
ActiveDocument.Bookmarks("Start_TU").Delete

Application.Run MacroName:="TemplateProject.tw4winOpenGet.Main"
Application.Run MacroName:="TemplateProject.tw4winGetTranslation.Main"
End Sub