Macro til faktura i word
Jeg har igenem flere år brugt en faktura skabelon i word til at udskrive faktura fra vores internetbutikker, nu har jeg skiftet til Win. XP til Vista og kan bare ikke fp det til at virke igenjeg har en skabelon med følgende Macroer
public FakturaNr As Integer
Sub AutoNew()
Dim FakturaNr As Integer
'Henter fakturanummeret fra en textfil (nummeret står på først linie)
Open "c:\Fakturanummer.txt" For Input As #1
Input #1, FakturaNr
Close #1
'Indsætter fakturanummeret ved bogmærket "Fakturanummer" i dokumentet
If ActiveDocument.Bookmarks.Exists("Fakturanummer") = True Then
ActiveDocument.Bookmarks("Fakturanummer").Select
Selection.TypeText FakturaNr ' Den nye kode
End If
'Tæller op til næste faktura
FakturaNr = FakturaNr + 1
'Gemmer det nye fakturanumer i textfilen
Open "c:\Fakturanummer.txt" For Output Access Write As #1
Write #1, FakturaNr
Close #1
End Sub
sub GemFaktura() ' sæt denne makro på en knap
Open "c:\Fakturanummer.txt" For Input As #1
Input #1, FakturaNr
Close #1
'Tæller op til næste faktura
FakturaNr = FakturaNr - 1
'Gemmer fakturaen
ActiveDocument.SaveAs "D:\Test\faktura" & FakturaNr & ".doc"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=2, Pages:="", PageType:=wdPrintAllPages, _
Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
End Sub
Jeg får fejl i følgende linie Open "c:\Fakturanummer.txt" For Output Access Write
er der mon en flink sjæl der kan hjælpe ??