Fra Excel finde og slette information i Word

Hej

Jeg har følgende problem. Fra en excel projektmappe skal jeg finde en textstreng: HCV (defineret som værdien af aktuelle celle). Denne skal slettes (alså skal værdien være 0)
Efterfølgende skal dokumentet gemmes i biblioteket der ender på: Passive.
Følgende har jeg fundet ud af. Den åbner dokumentet men kommer ikke videre end det. Koden der skal slette HCV fungerer fint når den eksekveres i Word.
NB! HCV befinder sig i worddokumentets header.

Sub PassivPt()

If Sheets("Config").Range("C1") <> "" Then
Sheets("Ark1").Select
   
Dim sPath As String, CPR As String, HCV As String

HCV = ActiveCell.Value
CPR = ActiveCell.Offset(0, -2).Value

Application.ScreenUpdating = False

'Undersøger om dokumentet allerede eksisterer
    sPath = "\\server\faelles\Index Data\Journaler\"
    pPath = "\\server\faelles\Index Data\Journaler\Passive\"
   
    If Dir(sPath & CPR & ".jou") <> "" Then
'Undersøger om Word er startet
    On Error Resume Next
    Set Wdapp = GetObject(, "Word.application")
    If Error <> 0 Then
'Ellers starter vi word
    Set Wdapp = CreateObject("Word.Application")
    End If
    Wdapp.Documents.Open sPath & CPR & ".jou"
'Så gør vi Word synlig så der kan skrives i kontinuationen
    Wdapp.Visible = True
   
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = HCV
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
   
    Else:
    Application.ScreenUpdating = True
    MsgBox ("Der er ingen patient med det indtastede cpr!")
    End If

End If
   
End Sub


vh Steen