Samar at 06:51, 6 November 2017

2017-11-06T06:51:25Z

Samar: Created page with "The following macro compares source/target segment to make sure quotes are consistent (same types and numbers of quotes used). Add this macro to Wordfast/Setup/General, as a Q..."

2017-10-02T01:00:10Z

Created page with "The following macro compares source/target segment to make sure quotes are consistent (same types and numbers of quotes used). Add this macro to Wordfast/Setup/General, as a Q..."

New page

The following macro compares source/target segment to make sure quotes are consistent (same types and numbers of quotes used). Add this macro to Wordfast/Setup/General, as a QA macro, or as a Post-segmentation macro.
When a quote discrepancy is found, Wordfast will warn the user, with a choice of getting back to the segment and correcting the problem, or just moving on to the next segment.

Sub CheckQuotes()

If Not ActiveDocument.Bookmarks.Exists("WfSource") Then Exit Sub

Dim I As Integer, Src As String, Trg As String, Quotes As String, Uq As String

Quotes = Chr(34) + Chr(171) + Chr(187) + Chr(147) + Chr(148)

Src = ActiveDocument.Bookmarks("WfSource").Range.Text

Trg = ActiveDocument.Bookmarks("WfTarget").Range.Text

For I = 1 To Len(Quotes)

Uq = Mid(Quotes, I, 1)

If (InStr(Src, Uq) > 0 And InStr(Trg, Uq) = 0) Or (InStr(Src, Uq) = 0 And InStr(Trg, Uq) > 0) Then

If MsgBox("Possible problem with quotes (" + Uq + ".) Fix it?", vbYesNo, "Wordfast") = vbYes Then

Selection.Bookmarks.Add "WfStop"

End If

Exit Sub

Else

If InStr(Src, Uq) > 0 Or InStr(Trg, Uq) > 0 Then

If InStr(Src, Uq) > 0 Then Mid(Src, InStr(Src, Uq), 1) = "*"

If InStr(Trg, Uq) > 0 Then Mid(Trg, InStr(Trg, Uq), 1) = "*"

I = I - 1

End If

End If

Next

End Sub
Back to [[Wordfast Classic User Manual]]

@@ Line 1: / Line 1: @@
-The following macro compares source/target segment to make sure quotes are consistent (same types and numbers of quotes used). Add this macro to Wordfast/Setup/General, as a QA macro, or as a Post-segmentation macro.
+The following macro compares source/target segment to make sure quotes are consistent (same types and numbers of quotes used). Add this macro to WFC/Setup/General, as a QA macro, or as a Post-segmentation macro.
-When a quote discrepancy is found, Wordfast will warn the user, with a choice of getting back to the segment and correcting the problem, or just moving on to the next segment.
 <span style="font-family: Courier New; font-size: 8pt">Sub CheckQuotes()</span>

Checking quotes consistency Wordfast Classic - Revision history

Samar at 06:51, 6 November 2017

Samar: Created page with "The following macro compares source/target segment to make sure quotes are consistent (same types and numbers of quotes used). Add this macro to Wordfast/Setup/General, as a Q..."