Makro, der sætter brugerID ind i sidehoved/sidefod

Du kan lave et standard worddokument og åbne det i notepad! Der skulle du kunne finde en kode som du kan kopiere ved hjælp af
\'Ved ikke om det virker fuldt!
open \"\" for output as #1
print #1,
close #1

Du har vel prøvet:
Sub brugernavn()
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:=  \"USERNAME \"
End Sub

mvh
Michael

Prøv med denne her:
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        \"USERINITIALS  \\* Upper \", PreserveFormatting:=True
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocum

\\\\AMH

>>godlike>>: Jeg må indrømme, at jeg ikke kan følge din tankegang, så jeg har ikke kunnet efterprøve din idé. Men hvis den indebærer, at brugeren skal åbne et andet program end Word, er det ikke noget, jeg kan bruge.

>>michaelprehn>> Din rutine virker tilsyneladende, men så vidt jeg kan se, sætter Word blot licenshaverens navn ind og ikke brugerID på den bruger, der er logget på.

>>amh>> Da jeg prøvede din rutine på min private pc, virkede den. Men nu, hvor jeg sidder ved en af de maskiner, hvor den skal bruges, giver den en fejlmelding: \"Run-time error \'91\':  Object variable or With block variable not set\".
Det kan jeg ikke lige regne ud hvorfor. Jeg kan nævne, at min pc er en stand-alone, men rutinen skal fungere på en række pc\'er på en skole sat op i et netværk.

hvilket styresystem kører dine pc\'er ?
NT, Win95, 98 eller 2000 ?

Hvilken officepakke bruger der hvor fejlen kommer?

Begge pc\'er har Win98 og Office 2000.
Serveren har NT.

Min makro er ikke til Office 2000 med XP.
Men indspil selv en ny makro i din office 2000, hvor du skal gøre følgende:

Gå til Sidehoved el. sidefod
Indstil formatingen til højre, venstre el. midt
Tryk så på Indsæt i menulinien og vælg Felt, derefter vælges Nummerering.
Indsæt feltet PAGE (SIDE) og skriv af sider og indsæt derefter feltet SECTIONPAGES (SEKTIONENSIDER).
Luk sidefoden og afslut makroen.

Herefter skulle resultatet være som den makro, jeg sendte dig.
\\\\AMH

Min makro er meget lig AMH\'s men kalder en makrofuktion mere. Den virker på standalone og net, men det skulle AMH\'s også.:Option Explicit
\' This is used by GetUserName() to find the current user\'s
\' name from the API
Declare Function Get_User_Name Lib \"advapi32.dll\" Alias _
                \"GetUserNameA\" (ByVal lpBuffer As String, _
                nSize As Long) As Long
Function GetUserName() As String
    Dim lpBuff As String * 25

    Get_User_Name lpBuff, 25
    GetUserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
End Function
Sub Makro()
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.TypeText Text:=GetUserName()
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

syskim> fik du løst dit problem??

Jeg får set på det på torsdag.

De makroer, jeg har fået af jer, har det voldt mig lidt probelmer at få til at køre på \"mit\" netværk. Men jeg blevet så klog, at nu kan jeg selv få lavet noget, jeg kan bruge. Takker for hjælpen med 25 p. til hver.

Tak for point - problemerne skyldes sikket versions konflikter, da der i dag er mange forskellige versioner i brug rundt omkring.
\\\\AMH