如何用trados宏实现完美中英英中对照
有时候客户要求实现中英，英中的断断对照，翻译们往往一句一句的粘贴，移动等。是不是太蠢了呢。
执行下列步骤 Word--工具--宏--创建--对照文件(自己取名)--创建--将下列宏文件粘贴到end sub 以上。关闭，再翻译时，如果要求中英对照，大家可使用 英中的记忆库，这样可以取段落，翻译好后，工具--宏--对照文件(自己取名)，执行，你看吧。完美对照。perfect。如果是英中对照，那么我们用中英的记忆库取段落。同样百试不爽。省下我们的眼睛，何乐不为。
'
' trados Macro
' After traslation by trados, clean the tag and make English-Chine text.
'
Selection.Find.ClearFormatting
风景简笔画图片大全
Selection.Find.Replacement.ClearFormatting With Selection.Find
.Text = "<}^#^#{>"
' After traslation by trados, clean the tag and make English-Chine text.
' .Replacement.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = Fal
.MatchCa = Fal
王者荣耀庄周
.MatchWholeWord = Fal
.MatchByte = True
.CorrectHangulEndings = Fal
.MatchWildcards = Fal
.MatchSoundsLike = Fal
.MatchAllWordForms = Fal
End With
Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find
.Text = "{0>"
.Replacement.Text = ""
华为手机usb连接电脑.Forward = True
.Wrap = wdFindContinue
.Format = Fal
.MatchCa = Fal
.MatchWholeWord = Fal
.MatchByte = True
.CorrectHangulEndings = Fal .MatchWildcards = Fal .MatchSoundsLike = Fal .MatchAllWordForms = Fal End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "<0}" 孕妇可以喝饮料吗
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = Fal
.MatchCa = Fal
.MatchWholeWord = Fal .MatchByte = True
.CorrectHangulEndings = Fal .MatchWildcards = Fal .MatchSoundsLike = Fal .MatchAllWordForms = Fal 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 = Fal
.MatchCa = Fal
.MatchWholeWord = Fal .MatchByte = True
.CorrectHangulEndings = Fal .MatchWildcards = Fal .MatchSoundsLike = Fal .MatchAllWordForms = Fal End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
年会小节目With Selection.Font
.NameFarEast = "宋体"
.Bold = Fal
.Italic = Fal
.Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic
.StrikeThrough = Fal
.DoubleStrikeThrough = Fal .Outline = Fal
.Emboss = Fal
.Shadow = Fal
.Hidden = Fal
.SmallCaps = Fal
.AllCaps = Fal
.Color = wdColorAutomatic .Engrave = Fal
.Superscript = Fal
.Subscript = Fal
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 1
.Animation = wdAnimationNone .DisableCharacterSpaceGrid = Fal
.EmphasisMark = wdEmphasisMarkNone
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "<}100{>"
.Replacement.Text = "^p" .Forward = True
.Wrap = wdFindContinue
公司有哪些.Format = Fal
.MatchCa = Fal
.MatchWholeWord = Fal .MatchByte = True
.CorrectHangulEndings = Fal .MatchWildcards = Fal .MatchSoundsLike = Fal .MatchAllWordForms = Fal End With
Selection.Find.Execute Replace:=wdReplaceAll
