Find and replace if specific conditions aply

I need help for checking citations. I have to check long documents if "cf." Is used correctly. I either need a way to highlight the brackets or sentences in which "cf." Is used or for the VBA to do it itself.
If there is a "." Or any word in front of the bracket it needs "cf.". If there are quotation marks in front of the bracket there should be no "cf."
For example this is correct:
example. (cf. Weber 2010)
Example (cf. Weber 2010)
This is incorrect:
Example" (cf. Weber 2010)
Example. (Weber 2010)


I tried something to highlight sentences with quotation marks, but it is not doing what I want, please help : pray2:

Code:

---

Sub CheckParentheses()
' CheckParentheses Makro
Dim paragraph As paragraph
    Dim Doc As Document
' Set the document object to the active document
    Set Doc = ActiveDocument
' Loop through all paragraphs in the document
    For Each paragraph In Doc.Paragraphs
        ' Check if the paragraph has the "Standard" style and does not contain a parenthesis
        If paragraph.Style = "Standard" And InStr(paragraph.Range.Text, "(") = 0 And InStr(paragraph.Range.Text, ")") = 0 Then
            ' Highlight the paragraph in yellow
            paragraph.Range.HighlightColorIndex = wdYellow
        End If
    Next
End Sub

---

Why not just fix the errant references e.g.

Code:

---

Sub Macro1()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(findText:="? \(", MatchWildcards:=True)
            With oRng
                .End = .End + 4
                If .Characters(1).Text = Chr(34) Then
                    .Text = Replace(.Text, "cf. ", "")
                    .Paragraphs(1).Range.HighlightColorIndex = wdYellow
                Else
                    If InStr(1, .Text, "cf. ") = 0 Then
                        .End = .End - 4
                        .InsertAfter "cf. "
                        .Paragraphs(1).Range.HighlightColorIndex = wdYellow
                    End If
                End If
                .Collapse 0
            End With
        Loop
    End With
End Sub

---

Hi,
Thank you for your reply. The macro does something, but it changes all instances. If there are quotation marks before the bracket I don't want the macro to add cf.

Quote:

---

Originally Posted by gmayor

Why not just fix the errant references e.g.

Code:

---

Sub Macro1()
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(findText:="? \(", MatchWildcards:=True)
            With oRng
                .End = .End + 4
                If .Characters(1).Text = Chr(34) Then
                    .Text = Replace(.Text, "cf. ", "")
                    .Paragraphs(1).Range.HighlightColorIndex = wdYellow
                Else
                    If InStr(1, .Text, "cf. ") = 0 Then
                        .End = .End - 4
                        .InsertAfter "cf. "
                        .Paragraphs(1).Range.HighlightColorIndex = wdYellow
                    End If
                End If
                .Collapse 0
            End With
        Loop
    End With
End Sub

---

---

If your examples accurately reflect what is in the document then cf is not added, but removed if present. Post a sample document..