Optimering af makro til at slette formfield (tekstfelt i formular)

Hej

Jeg har følgende kode, som sletter et tomt tekstfelt i formular:

Sub SletTomtAdressefelt()

  Dim f As FormField
  For Each f In ActiveDocument.FormFields
    If f.Type = 70 Then
      If f.Name = "Supplerende_adresse1" _
          And (f.TextInput.Default = f.Result Or Trim(f.Result) = "") Then
        f.Delete
      End If
    End If
  Next
End Sub

Jeg kunne dog godt tænke mig at få optimeret koden. Når jeg kører makroen, bladres hele dokumentet igennem (7 sider), og derefter springer cursoren til det næste tekstfelt i dokumentet. Det virker meget forstyrrende.

Egentlig skal makroen kun tjekke om det specifikke tekstfelt i formularen er tomt. Er det tilfældet, slettes tekstfeltet, og cursoren  springer videre til næste tekstfelt i dokumentet.

Jeg har også et supplerende spørgsmål. Jeg kan nogenlunde regne mig frem til de forskellige koder i makroen, lige bortset fra denne:
If f.Type = 70 Then
Hvad betyder det???

Mvh Lars