"Henrik Hougaard" <fam.hougaard@nospam.stofanet.dk> wrote in message
news:3d7f35ab$0$30521$edfadb0f@dspool01.news.tele.dk...
> Et lille problem:
Der er nu to
>
> 1) Jeg har et standardbrev, der styres af en række makroer. Når disse er
> udført og brevet skal gemmes ønsker jeg, at makroerne i brevet slettes
> forinden, således at der gemmes et dokument uden indlejrede makroen. Det
er
> sikkert noget med: delete for hver makro i makro objektet, men jeg kan
ikke
> helt finde løsningen. Er der evt. en slet alle makroer funktion.
Jeg undrer mig over hvorfor du ikke placerer makroerne i en skabelon som
brevene så bruger. Men du har nok en grund til at placere makroerne direkte
i dokumentet.
Jeg har kigget lidt på det og har endnu ikke fundet ud af at slette moduler,
men det kan nok godt lade sig gøre.
Følgende makro sletter alle makroer i det project makroen er placeret
Sub RemoveVBA()
Dim i As Integer
With Application.VBE.ActiveVBProject
For i = 1 To .VBComponents.Count
.VBComponents(i).CodeModule.DeleteLines 1,
..VBComponents(i).CodeModule.CountOfLines
Next i
End With
End Sub
> 2) Jeg skal bruge en let tilgang til fanebladet Autotekst, der er under
> menuen Funktioner, Autokorrektur. Min tanke var bare at lave et ny
menupunkt
> (simpelhent ved at tilpasse den nuværende menu). Men når jeg gør dette
> kommer kun fanebladet Autokorrektur og altså ikke Autotekst. Har så
forsøgt
> af kalde det ved brug af en makro, men hvordan kalder man et menupunkt med
> en makro, og hvilket ID/navn har dette menupunkt (hvor kan man se det).
W2000 har en indbygget toolbar med navnet AutoText (den engelske udgave jeg
bruger ihvertfald). Den har en knap der fungerer som du ønsker. Kopier den
til de toolbarer du ønsker.
>
> Gode forslag ?
Det må du bedømme. Nu er de givet.
Mvh Mads