link til starten af et dokument navn.

Public Sub OpenWordDoc()
'Husk en reference til word.
'Tools > references
'  Find Microsoft Word X.X object library

Dim objWord As Word.Application
Dim docWord As Word.Document
Set objWord = New Word.Application
Doc = Dir("C:\Dokumenter\Dokument_??.doc") ' ret til din fil og sti, de 2 ?? er wildcards og skal blive der
objWord.Visible = True
Set docWord = objWord.Documents.Open(Filename:="C:\Dokumenter\" & Doc) ' samme sti her
End Sub

Lav en knap til makroen

du kan ikke lave det i hyperlinks

Virker den her kode, så jeg kan oprette flere makroer der har samme funktion bare til forskellige doc's??

Den skriver

Runtime error '5121':
application or objekt defined error

hvad har jeg lavet galt??

Jeg fandt ud af det, havde glemt en _ efter dokument navnet

hvordan navngiver jeg den her macro?? så jeg kan finde den.

eller hvordan navngiver jeg macro nr 2 med samme funktion??

smid lige et svar, for det du har kommet med virke jo, jeg har bare lige de der andre spørgsmål også :)

du kan jo bare navngive makroerne med dokument navnene, så kan du kende dem fra hinanden.

Hvordan det??

Jeg er ikke så stærk på det område

Public Sub DokumentTing()
Dim objWord As Word.Application
Dim docWord As Word.Document
Set objWord = New Word.Application
Doc = Dir("C:\Dokumenter\Ting_??.doc") ' ret til din fil og sti, de 2 ?? er wildcards og skal blive der
objWord.Visible = True
Set docWord = objWord.Documents.Open(Filename:="C:\Dokumenter\" & Doc) ' samme sti her
End Sub



Public Sub DokumentSager()
Dim objWord As Word.Application
Dim docWord As Word.Document
Set objWord = New Word.Application
Doc = Dir("C:\Dokumenter\Sager_??.doc") ' ret til din fil og sti, de 2 ?? er wildcards og skal blive der
objWord.Visible = True
Set docWord = objWord.Documents.Open(Filename:="C:\Dokumenter\" & Doc) ' samme sti her
End Sub

du kopierer bare den første og retter i navnene.

bare fortsæt som vist herover, intil du ikke skal bruge flere

Og tak for point