Hoe te zoeken en vervangen in koptekst of voettekst in Excel?

Het zoeken naar een specifieke waarde en deze vervangen door een andere is een veelvoorkomende taak in Excel, maar de standaardfunctie Zoeken en Vervangen werkt alleen binnen selecties, werkbladen en werkboeken, niet in kopteksten en voetteksten. In dit artikel introduceer ik een macrocode om waarden te zoeken en te vervangen in kopteksten en voetteksten.

Zoeken en vervangen in koptekst of voettekst met VBA

Zoeken en vervangen in koptekst of voettekst met VBA

1. Activeer het werkblad waarin u tekst wilt zoeken en vervangen in de koptekst en voettekst, druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak onderstaande VBA-code in de Module. Zie screenshot:

VBA: Zoeken en vervangen in koptekst en voettekst

Sub FnR_HF()
'UpdateByExtendoffice20160623
    Dim xStr As String, xRep As String
    'Const csTITLE As String = "Find and Replace"
    On Error Resume Next
    xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
    If xStr = "" Then Exit Sub
    xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
    With ActiveSheet.PageSetup
        ' Substitute Header/Footer values
        .LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
        .CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
        .RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
        .LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
        .CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
        .RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
    End With
End Sub

3. Druk vervolgens op F5 toets om de code uit te voeren, dan verschijnt er een dialoogvenster waarin u de tekst kunt invoeren die u wilt zoeken. Zie screenshot:

4. Klik OK, en er verschijnt een ander dialoogvenster om de tekst in te voeren waarmee u wilt vervangen. Zie screenshot:

5. Klik OK. Nu zijn de waarden “KTE” vervangen door “Kutools voor Excel” in koptekst en voettekst.

Tip: Als u dit wilt toepassen op het hele werkboek, kunt u de volgende macrocode gebruiken.

Sub FnR_HF()
'UpdateByExtendoffice20171122
    Dim I As Long
    Dim xStr As String, xRep As String
    'Const csTITLE As String = "Find and Replace"
    On Error Resume Next
    xStr = Application.InputBox("Replace what", "Kutools for Excel", , , , , 2)
    If xStr = "" Then Exit Sub
    xRep = Application.InputBox("With what", , "Kutools for Excel", , , , , 2)
    For I = 1 To ActiveWorkbook.Sheets.Count
        With Sheets(I).PageSetup
            ' Substitute Header/Footer values
            .LeftHeader = Application.WorksheetFunction.Substitute(.LeftHeader, xStr, xRep)
            .CenterHeader = Application.WorksheetFunction.Substitute(.CenterHeader, xStr, xRep)
            .RightHeader = Application.WorksheetFunction.Substitute(.RightHeader, xStr, xRep)
            .LeftFooter = Application.WorksheetFunction.Substitute(.LeftFooter, xStr, xRep)
            .CenterFooter = Application.WorksheetFunction.Substitute(.CenterFooter, xStr, xRep)
            .RightFooter = Application.WorksheetFunction.Substitute(.RightFooter, xStr, xRep)
        End With
    Next
End Sub