Forslag:
Denne VBA-kode anbringes i "ThisDocument" i skabelonen, der gemmes som "Global".
De tre adresser er anført i en tekstboks - således at de 3 bogmærker er navngivet:
afd1, afd2 & afd3.
Selv adressen er de enkelte linier til højre for bogmærket i samme linie - men er tabuleret 1-2 cm til højre for bogmærket.
Hvis ønskeligt, kan du sende en mail til: pb@supertekst-it.dk - så returnerer jeg skabelonen.
Dim afdNr, brugerINIT, bm
Sub AutoNew()
sætAfsender
End Sub
Private Sub sætAfsender()
brugerINIT = System.Application.UserInitials
Select Case brugerINIT
Case "AAA"
bm = "afd1"
Case "PB"
bm = "afd2"
Case "BBB"
bm = "afd3"
Case Else
bm = InputBox("indtast: 'afdNr'", "Bruger: " & brugerINIT & " genkendes ikke")
End Select
ActiveDocument.Shapes(1).Select
Selection.GoTo What:=wdGoToBookmark, Name:=bm
Selection.TypeText Text:="[x]"
End Sub
Den skabelon du gerne vil have jeg ligger VBA koden i, kan det ikke være den skabelon der samtidig indeholder alle de andre makroer der benyttes ved flet? Altså system.dot
Har lige et yderligere spørgsmål, hvor I koden definerer jeg hvilke initialer der tilhører hvilken adresse ? samt hvor definerer jeg hvilket felt der indeholder sekretær initialerne ? Er desværre ikke den store VBA freak endnu
Glæder mig til at afprøve det
Jeg ville nu sende min skabelon til dig, for at du kunne se denne. Heri kan du se bogmærkerne til de forskellige afd. - men du er velkommen til at sende din.
Du må meget gerne sende til kim@kta.dk - jeg kan godt sende mine skabeloner, det er bare en kæmpe omgang. Men intet problem i det, hvortil skal jeg sende ?
Smid et svar og jeg accepterer :-)
