Makro

Ja, det kan lade sig gøre. En makro med tilhørende beskrivelse findes i denne artikel (på engelsk):
http://www.word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm

Hejsa

Jeg har været ved at forsøge mig udfra det link du sendte, og har prøvet at oprette den makro som er vist, der er en fejl i følgende sekvens:

System.PrivateProfileString("C:\Order.txt", "MacroSettings", _
        "Order") = Order

Hvad gør jeg forkert?

Emmafrid >> Husk at sende egne indlæg som "Kommentar" og ikke som "Svar".
"Svar" er tiltænkt løsningen, så der kan tildeles point som tak for hjælpen.

Hvilken fejl får du?

NB Du bør indsætte følgende linje lige efter linjen med Sub AutoNew():

Dim Order As String

Hejsa
Nu har jeg prøvet at indsætte linjen Dim Order As String som du skrev, men når jeg afspiller makroen bliver nedennævnte sekvens markeret med gult

System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _
        "Order") = Order


og der kommer en dialogboks hvor der står følgende

Run-time error '-2147467259(80004005)

Method'PrivateProfileString' of object'System' failed.

Håber du kan hjælpe mig

I følge makroen skal du have en tekstfil der hedder Settings.txt i roden af dit C-drev.
Det behøver bare være en tom tekstfil, makroen sørger for at opdatere den.

Kommentar til perhol:
Makroen opretter selv tekstfilen, hvis den ikke findes (sådan virker System.PrivateProfileString). Det er ikke nødvendigt at oprette den manuelt.

Til Emmafrid:
Makroen virker uden problemer hos mig, men hvis jeg ændrer "C:\" til f.eks. "J:\", som ikke findes på min PC, får jeg den fejl, du beskriver. Hedder dit normale drev C:\?

Du kan i princippet ændre stien til tekstfilen til hvad du ønsker, bare det er et drev/en mappe, der findes, og som du har rettigheder til at skrive i (den samme sti skal stå _to_ steder i makroen - stien er i makroen fra artiklen "C:\Settings.Txt").

Ja mit normale drev er C:\, men fra forhandleren er den opdelt i 2 partitioner så der også er et D drev, kan det have nogen betydning?

Det bør ikke betyde noget. Prøv f.eks. inde fra Word at gemme et dokument direke i C:\. Kan du det?

Jeg kan ikke gemme direkte i C men får følgende fejlmelding:
word kan ikke gemme eller oprette filen. Kontroller at den disk som du gemmer filen på, ikke er fuld, skrivebeskyttet  eller beskadiget.

Så kan makroen heller ikke gemme i C. Prøv i makroen at ændre C:\ til en sti, som du med sikkerhed kan benytte (f.eks. mappen med dine dokumenter).

Nu har jeg prøvet at ændre stien så det er min dokument mappe, og nu markerer den nedennævnte sekvens med gult, er der noget som skal ændres der?


ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#")
ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#")

Hvilken fejl får du?

Makroen forudsætter, at du i dokumentet har et bogmærker, der hedder "Order", der hvor nummeret skal indsættes. Du kan bruge et andet navn, men så skal du rette tilsvarende i makroen.

Foreløbig tak for hjælpen.
Nu lader det til at jeg har fået makroen til at virke, der kommer ihvertfald ingen fejl. Når jeg afspiller den gemmer den en kopi af dokumentet som den kalder path001, så nu mangler jeg bare at få den til at lave de fortløbne fakturanumre i dokumentet. Jeg ved ikke om jeg har lavet en fejl når den ikke gør det automatisk, eller hvad der evt. mangler.

Følgende virker på min, hvor min "Dokumenter" mappe ligger på drev D:

Sub AutoNew()

FakturaNr = System.PrivateProfileString("D:\Dokumenter\FakturaNr.Txt", _
        "MacroSettings", "FakturaNr")

If FakturaNr = "" Then
    FakturaNr = 1
Else
    FakturaNr = FakturaNr + 1
End If

System.PrivateProfileString("D:\Dokumenter\FakturaNr.txt", "MacroSettings", _
        "FakturaNr") = FakturaNr

ActiveDocument.Bookmarks("FakturaNr").Range.InsertBefore Format(FakturaNr, "00#")
ActiveDocument.SaveAs FileName:="D:\Dokumenter\Faktura" & Format(FakturaNr, "00#")

End Sub

Skabelonen skal ligge i den mappe som word er indstillet til at gemme skabeloner i.

På min makine er det mappen:
"C:\Users\Per Holst\AppData\Roaming\Microsoft\Skabeloner"

I tilfælde af Windows XP (og ikke Vista) er standardplaceringen af skabeloner:

C:\Documents and Settings\[navn]\Application Data\Microsoft\Skabeloner

Hejsa

Tusind tak for hjælpen, nu kører det perfekt.

Det var godt, at det lykkedes. Dette er lavet som et svar, som du kan acceptere. Hvis du ønsker at dele point mellem perhol og mig, skal du have et svar fra perhol.

Afstår.
Fik da selv lært lidt (det der med System.PrivateProfileString)

Tak for oplysningen, som jeg tidligere har skrevet er jeg endnu ikke så dus med denne side, men det er dejligt når man kan få hjælp.

Er "Emmafrid" den samme som "Pawlus"?

I givet fald:
Du kan afslutte spørgsmålet helt ved at acceptere et svar. Et stykke ovenfor (dateret den 23. april) finder du et indlæg fra mig, der er lavet som et svar.

Som vejmand skrev tidligere: Når du selv skriver indlæg til et spørgsmål, du har oprettet, bør du lave det som "Kommentar" og ikke som "Svar", med mindre du reelt leverer løsningen på dit eget spørgsmål.

Tak for hjælpen.