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

Leonatus · 07-25-2019, 04:41 AM

Yes, that has been my initial reasoning, but it didn't work. I thought it had probably to do with the Chr(34) in

Code:

If Mid(sRaw, J, 1) = Chr(34) Then
                If iNorm > 0 Then
                    iNorm = iNorm - 1
                Else
                    iNorm = iNorm + 1
                End If

,
but I didn't find a way out.

07-25-2019, 04:41 AM	#3
Leonatus Wizard Posts: 1,060 Karma: 11391181 Join Date: Mar 2013 Location: Guben, Brandenburg, Germany Device: Kobo Clara 2E, Tolino Shine 3	Yes, that has been my initial reasoning, but it didn't work. I thought it had probably to do with the Chr(34) in Code: If Mid(sRaw, J, 1) = Chr(34) Then If iNorm > 0 Then iNorm = iNorm - 1 Else iNorm = iNorm + 1 End If , but I didn't find a way out.