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