MobileRead Forums - View Single Post - Word macro to check missing quotation marks

Doitsu · 07-25-2019, 04:31 AM

Have you tried changing the following section:

Code:

            If Mid(sRaw, J, 1) = Chr(147) Then
                iSmart = iSmart + 1
            End If
            If Mid(sRaw, J, 1) = Chr(148) Then

to:

Code:

            If Mid(sRaw, J, 1) = Chr(187) Then
                iSmart = iSmart + 1
            End If
            If Mid(sRaw, J, 1) = Chr(171) Then

for guillemets (»...«)?

07-25-2019, 04:31 AM	#2
Doitsu Grand Sorcerer Posts: 5,738 Karma: 24031403 Join Date: Dec 2010 Device: Kindle PW2	Have you tried changing the following section: Code: If Mid(sRaw, J, 1) = Chr(147) Then iSmart = iSmart + 1 End If If Mid(sRaw, J, 1) = Chr(148) Then to: Code: If Mid(sRaw, J, 1) = Chr(187) Then iSmart = iSmart + 1 End If If Mid(sRaw, J, 1) = Chr(171) Then for guillemets (»...«)?