如何用trados宏实现完美中英英中对照
有时候客户要求实现中英，英中的断断对照，翻译们往往一句一句的粘贴，移动等。是不是太蠢了呢。
执行下列步骤 Word--工具--宏--创建--对照文件(自己取名)--创建--将下列宏文件粘贴到end sub 以上。关闭，再翻译时，如果要求中英对照，大家可使用 英中的记忆库，这样可以取段落，翻译好后，工具--宏--对照文件(自己取名)，执行，你看吧。完美对照。perfect。如果是英中对照，那么我们用中英的记忆库取段落。同样百试不爽。省下我们的眼睛，何乐不为。
'
' trados Macro
' After traslation by trados, clean the tag and make English-Chinese text.
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting With Selection.Find
.Text = "<}^#^#{>"
' After traslation by trados, clean the tag and make English-Chinese text.
' .Replacement.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find
.Text = "{0>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "<0}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False .MatchByte = True
.CorrectHangulEndings = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "<}0{>"
.Replacement.Text = "^p" .Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False .MatchByte = True
.CorrectHangulEndings = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
With Selection.Font
.NameFarEast = "宋体"
.Bold = False
.Italic = False
.Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False .Outline = False
.Emboss = False
.Shadow = False replaceall()
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic .Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 1
.Animation = wdAnimationNone .DisableCharacterSpaceGrid = False
.EmphasisMark = wdEmphasisMarkNone
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "<}100{>"
.Replacement.Text = "^p" .Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False .MatchByte = True
.CorrectHangulEndings = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With
Selection.Find.Execute Replace:=wdReplaceAll

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。