Åbn bestemt word/exceldokument fra knap i Access.

Dim LWordDoc As String
    Dim oApp As Object

    'Path to the word document
    LWordDoc = "c:\Doc1.doc"

    If Dir(LWordDoc) = "" Then
        MsgBox "Document not found."

    Else
        'Create an instance of MS Word
        Set oApp = CreateObject(Class:="Word.Application")
        oApp.Visible = True

        'Open the Document
        oApp.Documents.Open filename:=LWordDoc
    End If

Dim Wapp As New Word.Application

This only creates a variable it doesnt create an instance of Word

.

Ja, det der var problemet var at jeg ikke korrekt havde start og slut med "Sub og end Sub". Hermed point, men tror du at at du kan hjælpe mig såfremt jeg skal åbne en skabelon, altså hvor man ikke kan gemme "oveni".

Du kan også åbne filer med Shell.
Så kan du åbne både Word og Excel med den samme sub.

Private Sub ÅbenFil_Click()
  Dim lPath As String
  Dim lFSO As FileSystemObject ' Husk reference til Microsoft Scripting Runtime
  Dim lWS As Object
  lPath = "C:\Temp\MinFil.xls"
  Set lFSO = CreateObject("Scripting.FileSystemObject")
  If lFSO.FileExists(lPath) = True Then
    Set lWS = CreateObject("Wscript.Shell")
    lWS.Run lPath
  Else
    MsgBox "Filen blev ikke fundet.", vbInformation, ""
  End If
  Set lFSO = Nothing
  Set lWS = Nothing
End Sub

Do you want to open a word template so that you can create a copy of a Word document?

http://www.eksperten.dk/spm/770654

Ja, der er tale om en template (skabelon)

Have you looked at the link I gave 16/01-2008 08:15:01?

This is waht your after I think.