---

Hej ng.

Jeg har fundet en stump kode som kan give mig
nogle oplysninger fra mit AD som jeg gerne vil
anvende i nogle word skabeloner (2003).

Dim objAdSys, objUser
Set objAdSys = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objAdSys.UserName)

MsgBox (objUser.Get("displayName"))

Denne makro vil give en tekstboks med brugerens navn.
Hvordan får jeg det istedet sat ind i mit dokument?
Jeg kan ikke rigtig hitte hvad jeg skal referere til, jeg vil
jo gerne havde de forskellige ting sat ind på bestemte steder.
What to do?

--
Peter J

---

"Peter Jensen" <spateldask@lovelyspam.hotmail.com> skrev i en meddelelse
news:44350a73$0$15793$14726298@news.sunsite.dk...
> Denne makro vil give en tekstboks med brugerens navn.
> Hvordan får jeg det istedet sat ind i mit dokument?
> Jeg kan ikke rigtig hitte hvad jeg skal referere til, jeg vil
> jo gerne havde de forskellige ting sat ind på bestemte steder.

Nå, jeg fiksede den selv.

Private Sub Document_New()
Dim brugernavn As String
Dim objAdSys, objUser
Set objAdSys = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objAdSys.UserName)

brugernavn = (objUser.Get("displayName"))

ActiveDocument.FormFields("FraNavn").Result = brugernavn

End Sub

Nu melder næste spørgsmål sig så. Jeg vil gerne have sat en tekst ind i
sidefoden
i et beskyttet dokument - brugerens initialer. Men jeg får ikke lov at rette
i sidefoden
når dokumentet er beskyttet.
Hvorledes kan jeg hhv. åbne og låse dokumentet i makroen så jeg kan løse
den.
Eller er der andre tips?

--
Peter J