<cjtcjtcjt(fjerndette)@hotmail.com> wrote in message
news:419c88c5$0$189$edfadb0f@dread11.news.tele.dk...
> Da jeg ca. laver en makro hvert andet år, vil jeg blive glad hvis en
> vil fortælle mig hvordan jeg skal oprette den med din kodestump!
>
> Hvis jeg havbde stor interesse og behov - ville jeg meget gerne kigge på
>
http://word.mvps.org.
> men lige i øjeblikket har jeg ikke tid!
Tjah, megn tid bliver spildt af dem der har travlt.
> Mine mailadresser står i en tabel,
>
> Jeg gå op og vælger
> Funktiiner - Makro -
Visual Basic Editor. (nyt vindue åbnes)
(her skulle der stå en masse fornuftigt om hvor makroer placeres og hvordan
det har betydning for hvor de er tilgængelige)
Vælg Inser menu -> Module (du skulle nu i højre side af vinduet have et
blank område)
I dette område skriver du
Sub SorterOgSlet()
With ActiveDocument.Tables(1)
I = 1
.Sort CaseSensitive:=True
Do While I <= .Rows.Count
If .Cell(I, 1).Range.Text = .Cell(I + 1, 1).Range.Text Then
.Rows(I).Delete
Else
I = I + 1
End If
Loop
End With
End Sub
Tryk Crtl + S for at gemme, så Crtl + F4 for at lukke Visual basic editoren.
I Word vælger du så Tools menu -> Macro -> Macros -> SorterOgSlet.
Det burde være det
Mvh Mads