Knap til at åbne doc.

Option Explicit
\'***********************************************
\'*** Ref.: Microsoft Word 9.0 Object Library ***
\'***********************************************
Public WordApp As Word.Application
Public WordDoc As Word.Documents

Sub UseWordFromExcel()
    Application.ScreenUpdating = False

    On Error GoTo ShitHappens
   
    \'Starter word - giver fejl hvis Word ikke er startet
    \'Hvorfor der er indbygget fejlstyringen
    Set WordApp = GetObject(, \"Word.Application\")
    WordApp.Visible = True
    WordApp.Activate
   
   
    WordApp.Documents.Open \"D:\\hat\\hue.doc   
   

    Application.ScreenUpdating = True

  Exit Sub
ShitHappens:
  Select Case Err.Number
    Case 429
      \'Hvis Word ikke er startet
      Set WordApp = CreateObject(\"Word.Application\")
      \'Til styring af om vi har startet Word op eller Ej
      WordStartet = True
      \'Fortsætter programmet fra næste linie.
      Resume Next
    Case Else
      Err.Raise Err.Number
  End Select
End Sub

Hov der mangler lige en  \"  efter WordApp.Documents.Open \"D:\\hat\\hue.doc\" (sådan)

Den kan ikke lide de ting der er defineret i \"Public\"

Den skulle bare se sådan ud!!!

Private Declare Function ShellExecute Lib \"shell32.dll\" Alias \"ShellExecuteA\" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long

       

Private Sub CommandButton1_Click()
    Dim result As Long
    result = ShellExecute(0, \"open\", \"D:\\hat\\hue.doc\" , \"\", \"\", vbNormalFocus)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

Som opgaven er beskrevet, vil det være nemmest at indspille en makro, som er knyttet til en knap på værktøjslinien.

Hilsen KOL

Det er fordi du ikke har lavet  Ref.: Microsoft Word 9.0 Object Library
I VBA editoren vælger du menupunktet  Tools / References  hvilket giver dig en dialogboks. Her finder du \"Microsoft Word 9.0 Object Library\" som du sætter V udfor og trykker OK - så virker det :-)

yeti>>Det er jo en smagssag!