REF velden verwijderen

[Sjoef]

Hallo, ik heb 2 REF velden ( REF bkmVeld1) en uiteraard 2, en die wil ik middels VBA verwijderen. Iemand enig idee?

JoZ

 

[edmoor]

Het gaat dan om een benoemd bereik. Dus zo bijvoorbeeld:

Sub VerwijderREF()
    Dim nREF As Name
    For Each nREF In Names
        If InStr(1, nREF.RefersTo, "#REF!") > 0 Then
            nREF.Delete
        End If
    Next nREF
End Sub

 

[snb]

cells.specialcells(2,16).clearcontents

 

[OctaFish]

Of TS heeft het over Word (gezien de aanduiding lijkt mij dat logischer). En dan kan het zo:

Dim fld As Field
Dim tmp As Variant

    For Each fld In ActiveDocument.Fields
        tmp = Split(Trim(fld.Code), " ")
        If Left(tmp(UBound(tmp)), 7) = "bkmVeld" Then
            fld.Delete
        End If
    Next fld

 

[Sjoef]

Edmoor, helaas....dit werkt niet.

 

[edmoor]

OctaFish maakt er een goede opmerking. Je hebt er niet bij verteld of het om Word of Excel gaat. Plaats anders eens een voorbeeld.

 

[snb]

In dat greval:

Sub M_snb()
     For Each fld In ActiveDocument.Fields
        If fld.Type = 3 Then fld.Delete
     Next
End Sub

 

[Sjoef]

Gelukt......dank Octafish

 

[OctaFish]

@ snb: het gaat om verwijzingen met een specifieke naam. Niet om alle velden.

 

[snb]

Lees #1 nog eens .....

 

[OctaFish]

Daar staat: "ik heb 2 REF velden ( REF bkmVeld1) en uiteraard 2, en die wil ik middels VBA verwijderen.". Daar staat niet: "Ik wil alle REF velden verwijderen." In dat geval boeit de naam van de REF velden ook totaal niet.