HASTER: Macro i word - hvordan gør jeg

Hvilken version af word er det? 2002 eller XP som det nu hedder?

Lytter

Jeg bruger word 2000

sæt den til at optage, lav de ting som den skal huske, og stop for optagelsen. Nu kan du fyre makroen af når du har lyst. Der findes også et scriptsprog som du kan se ved at redigere i den makro du lige har optaget. Resten af syntaksen må du hente et andet sted....

Nephilim

I seneste nummer af Alt om Data, Maj 2002, er en artikel med eksempel på hvordan det laves med at finde/hente postnr./by fra en access database. Det kunne vel lige så godt være navn og adresse. Kræver at man har Access.
Bare til din orientering, hvis du skulle få lyst til at købe bladet

Det ER en meget stor opgave du her stiller og ovenstående svar et langt fra fyldestgørende, når du aldrig har arbejdet med makroer. Hvis du skal bruge dette i arbejdsregi vil jeg klart anbefale dig at tage et kursus i f.eks. "VBA til Word", men...

Lidt om metodik:
Når du skal indsætte noget i Word via kode skal du bruge enten bogmærker eller formularfelter - så start f.eks. med at lave et bogmærke til "bmkNavn" og et bogmærke til "bmkAdresse"

Du kunne vælge at lave en rigtig dialogboks til indtastning af brugerdata, men når du ikke har arbejdet med VBA før vil jeg anbefale dig at bruge en inputboks (du kan altid ændre det senere).

Selve makroen:
Åbn din skabelon
Tryk Alt+F11 - nu er du i VBA miljøet
Vælg Insert/Modul
Kopier nedenstående ind i modulet

Sub AutoNew()'Denne makro kører kun på Filer/Ny

'Indtas oplysninger
Navn = InputBox("Indtast navn", "Modtageroplysninger")
Adresse = InputBox("Indtast adresse", "Modtageroplysninger")
PostnrOgBy = InputBox("Indtast postnr. og by", "Modtageroplysninger")

'Indsæt i dokument
If ActiveDocument.Bookmarks.Exists("Navn") Then
    ActiveDocument.Bookmarks("bmkNavn").Range = Navn
End If

If ActiveDocument.Bookmarks.Exists("bmkAdresse") Then
    ActiveDocument.Bookmarks("bmkAdresse").Range = Adresse
End If

If ActiveDocument.Bookmarks.Exists("bmkPostnrOgBy") Then
    ActiveDocument.Bookmarks("bmkPostnrOgBy").Range = PostnrOgBy
End If

End Sub

Hej jespernielsen

Fik du løst dit problem?

Hej RVM

Beklager den lange svartid, men jeg har været væk fra nettet den sidste uges tid. Jeg har endnu ikke helt fået afprøvet din instruktion, men jeg vil gøre det i morgen.

Tak for hjælpen

Mvh.

Jesper