CAT-Tools/SDL Trados/Forcing Segmentation

Workbench does not allow users to select where segmentation should occur. This is often a problem. Uwe Sprengart has kindly provided a solution to this important functionality issue and given permission to post it. It is a macro as below. If you do not know how to add a macro to Word, www.nla.gov.au/kinetica/download/requestmacro.doc will help with Word 2003 and earlier. Sub DefineAndOpenSegment() ' Macro by 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