Hej. Japp, det ska gå. Ett sätt är att koda direkt i Wordmallens VB-Editor.Word-AD
Jag har en wordmall som hämtar adressinformation från en ini-fil. Där står adresser till olika bolag i koncernen, användarna väljer bolag i en dialogruta och får rätt brevhuvud.
Kan Word hämta data från AD't i stället? Vet nån hur man gör eller har information om var det finns information om detta?
//eva bSv: Word-AD
Först hämtar du den inloggade användaren och sen hämtar du dess information från AD-t.
Länken nedan ger lite hjälp på traven:
http://datorn.ifokus.se/Default.aspx?ArticleId=e642c284-1f4c-45bb-b49c-fa267200afa6
Public Function IsMember(ByVal strGroup) As Boolean
Dim strCurrent As Variant
Dim oGroup As Object
Dim oAdSys As Object
Dim oUser As Object
Set oAdSys = CreateObject("ADSystemInfo")
Set oUser = GetObject("LDAP://" & oAdSys.UserName)
For Each strCurrent In oUser.memberOf
Set oGroup = GetObject("LDAP://" & strCurrent)
If UCase(oGroup.CN) = UCase(strGroup) Then
IsMember = True
Exit Function
End If
Next
IsMember = False
End Function