VBA Word: Find tal og slet

Sub Slet_tal()
Again:
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

Select Case Selection.Text
  Case Is > 1
  'MsgBox "Ikke tom"
  Number = Number + 1
  Case Else
  'MsgBox "Tom"
  Selection.MoveLeft Unit:=wdCharacter, Count:=1
  Selection.MoveDown Unit:=wdLine, Count:=1
  GoTo Again
End Select

Selection.MoveLeft Unit:=wdCharacter, Extend:=wdExtend, Count:=1

Selection.Delete , Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=4
End Sub

Står selve nummereringen (altså dem, du skal have fjernet) i en linje for sig selv? Og har du gjort dig nogle tanker om, hvordan du vil have autonummereringen til at virke?

Tak for respons.

Jeg har, i mellemtiden konstrueret denne kode, der virker ok:

___ kode ____

Sub Slet_tal()
(variabler)

<!-- fortsæt indtil et tal som brugeren har valgt er nået -->

Do Until Number = CountTo
Selection.EndKey Unit:=wdLine, Extend:=wdExtend

<!-- Tester om teksten er et tal (tekst returnerer i 0 -->

Select Case Val(Selection.Text)
  Case Is >= 1
  Case Else
  GoTo Again
End Select

<!-- Sammenligner det aktuelle tal med det foregående; lig med, mindre end eller større end sidste tal + 1.

Select Case Val(Selection.Text)
  Case Is = Number
  Case Is < Number
  Case Is > Number + 1
  Case Else
  Taeller = Taeller + 1
  Number = Number + 1
  Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
  Selection.Text = Taeller
End Select

Again:
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1
Loop

End Sub

___ kode slut ___

Det virker, men har et par forskellige bugs jeg som alene bruger, bare er opmærksom på. Men det kan sikkert konstrueres noget mere effektivt.

nicolaus

Scriptet virker ok, så jeg lukker.
word-hajen: jeg vil godt give dig lidt point for deltagelse, hvis du smider et svar :)

Tak, men med min minimale indsats er det nu ikke nødvendigt. Du har selv løst det uden input fra mig (men tak for tanken).

Allright .. Men tak for respons:)