UserForm (Makro)

Application.username returnerer navnet på den for tiden indloggede bruger

Hvis det er den der er logget ind på computeren og ikke, det der står i Words brugerinstillinger, så kan du bruge nedenstående som du sætter ind i et modul i Word:

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If lngX <> 0 Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = ""
    End If
End Function

En anden mulighed er

Function GetUserName2() As String
Dim msg As String
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Network")
GetUserName2 = objWSH.UserName
End Function

Hej RVM. Når jeg prøver din metode får jeg fejl omkring Privat Declare... delen. Er det fordi der mangler noget? Når jeg sletter den får jeg en Compiler fejl.

Den skulle ikke fejle *S*

Har du kopieret det ind i et almindeligt modul - det skal den nemlig.

Hvilke styresystem og wordversion har du?

Privat Declare linierne skal forøvrigt være på samme linie (slet eventuelt "_" efter Alias

Jeg har win2k og officexp.

Har du undersøgt mine andre spørgsmål?

Win2K og office XP skulle virke.

rvm's kode virker ganske glimrende. Bare kopier den og sæt den ind i et alm. modul.
Jeg har lige testet.
Min virker også fint, men er bare ment som alternativ.
Normalt benytter jeg også samme kode som rvm.

ps.
med application.username får du ikke den der er logget ind, men derimod den som word er registreret til. ( FUNKTIONER / INDSTILLINGER / BRUGEROPLYSNINGER)

Nemlig - så det var en ren gavebod da jespernaur fik point *S*

Hej RVM og Bak. Har jeg måske givet pointen til den forkerte person eller hvad det var mening ati begge to skulle deles om pointen. Hvis det er tilfælde så er det selvfølgelig en fejl fra min side og jeg beklager meget. Hvad kan/skal man gøre i sådanne tilfælde.

Du behøver ikke at gøre noget nu, men meningen er du en anden gang giver pointene til det første rigtige svar og eventuelt deler point, hvis der er flere der kommer med uddybene besvarelser som alle har værdi for din problemstilling