Automatisk indsætning af navn m.m. i Word?

Du kan bruge Autotext.

Skriv din navn o.s.v. som du vil have det skal se ud.
marker det, og vælg - Insert - Autotext - New. Giv autotexten et navn. F.eks. mvh og vælg o.k.

åben et nyt dokument. Skriv mvh og tryk F3 tasten, så har du din underskrift

Udfyld oplysningerne på: Funktioner->Indstillinger, fanen Brugeroplysninger

og indsæt oplysningerne med Indsæt->Felt->Brugeroplysninger. Her hedder felterne: UserName, UserInitials, UserAdress

Hmmm, og her troede jeg Office var mindst ligeså smart som Wordpro :/

Nu ved jeg ikke præcis hvordan det virker i WordPro, men autotekst funktionen er da ret fiks.

Når jeg åbner en skabelon i Wordpro så indsætter den automatisk afdelingsnavn, adresse, navn, email, telefon m.m. ude i højre side af dokumentet. Oplysningerne indsættes udfra brugeroplysninger der er indtastet i programmet. Altså hvis en anden bruger åbner dokumentet på hans PC, så indsættes hans personlige oplysninger.

Så skal du gøre som erikjuul foreslår. Indsæt de relevante felter i en skabelon, så henter den selv informationen når et dokumnt baseres på den pågældende skabelon.

Du kan lave en skabelon, der henter data fra en brugerfil, som udfyldes een gang for alle, men som kan redigeres af brugeren selv, hvis der sker ændringer i f.eks. telefonnummer. Der er tale om vba programmering og formularer.

Man kan også få Word til at insætte autotexten, når der åbnes en ny fil på basis af skabelonen. Er du interesseret, skal jeg nok lede efter vejledningen, men jeg kan ikke huske, hvordan man gør. Fordelen ved autotexten er, at du selv bestemmer hvad der skal stå, og hvor den skal være placeret.

Vejledning ja tak. Man skal ikke selv kunne bestemme placeringen af autoteksten.

Jeg syntes bare ikke den opdaterer oplysningerne hvis jeg ændrer dem og så henter dokumentet igen.

Denne kode, lægger jeg i skabelonen. Når du åbner kodevinduet, i project vinduet dobbeltklikker du på ThisDocument. I Kodevinduet vælger du Document (står normalt på (General)) og i det andet rulleliste vælger du new. Sæt koden ind.

Når du vælger filer ny, og vælger skabelonen, vil du blive spurgt om du vil have Sidehoved/fod. Siger du nej, får du et blank dokument. Ellers henter den de autotekster der henvises til, og sætter dem ind, der hvor du har vægt de skal være i dokumentet. (De autotekster jeg bruger er f.eks. Logo og firmaadresse, samt en bundtekst.
Jeg håber du kan få inspiration af makroen til at komme videre (Du skal selvfølgelig selv lave dine Autotekster, og sætte deres navne ind i koden (hvor jeg har skrevet autotekstens navn).

Private Sub Document_New()
‘Makro til indsættelse af sidehove og fod, når skabelonen åbnes. Der spørges først, ’om brugeren vil have sidehoved/fod i dokumentet.

Dim oSvar

oSvar = MsgBox("Vil du have sidehoved og fod?", vbYesNo)

If oSvar = vbNo Then

Exit Sub

Else

    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:= _
        "AUTOTEXT  Autotekstens navn ", PreserveFormatting:=True       

    If Selection.HeaderFooter.IsHeader = True Then
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Else
        ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End If

    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "AUTOTEXT  Autotekstens navn ", PreserveFormatting:=True
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    End If

End Sub

Hvorfor har du afvist mit svar, når du samtidig skriver du gerne vil have en vejledning. Så kunne jeg jo have sparet mig, at gennemgå mine notater for at finde min den makro jeg lige har sat ind. Det kan da godt gøre mig lidt udefinerbar :-((