Checking segment visible length Wordfast Classic
The following macro does the same as the previous macro, but this time, the visible length of text is compared rather than just the number of characters. Note that a segment’s visible length depends on its font.
'This macro warns the user if the target segment is over 130% of the source's length.
'The *real* visible length of text is compared, not just character count
'(Of course we assume both source and target have the same font and size)
Dim I As Integer, Segment As Range
Static L(1) As Long
For I = 0 To 1
If I = 0 Then
Set Segment = ActiveDocument.Bookmarks("WfSource").Range
Set Segment = ActiveDocument.Bookmarks("WfTarget").Range
Selection.Start = Segment.Start: Selection.End = Selection.Start
Do While Selection.Start < Segment.End - 2
Selection.MoveStart wdLine: Selection.MoveEnd , -1
L(I) = L(I) + Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
Selection.MoveStart , 1
'Here, "1.3" means 130%. Change this figure as needed.
If (L(1) > L(0) * 1.3) Then
If MsgBox("Target text length is over 130% that of source target." + vbCr + vbCr + "Get back to the segment and correct it?", vbYesNo, "Wordfast") = vbYes Then
Back to Wordfast Classic User Manual