Sæt reference runtime

test lige denne her:

Sub VersionTry()
  Dim strReference As String
  On Error Resume Next
  If Left(Application.Version, 1) = 8 Then
  With ActiveWorkbook.VBProject.References
      .Remove ThisWorkbook.VBProject.References _
        ("Microsoft Word 10.0 Object Library")
        strReference = _
            "c:\program files\microsoft office\office\msoutl8.dll"
        .AddFromFile strReference
      End With
  ElseIf Left(Application.Version, 1) = 9 Then
      With ActiveWorkbook.VBProject.References
        .Remove ThisWorkbook.VBProject.References _
            ("Microsoft Word 11.0 Object Library")
        strReference = _
            "c:\program files\microsoft office\office\msoutl9.dll"
        .AddFromFile strReference
      End With
    Else
    MsgBox "This code was not written for Excel Version " & Application.Version
  End If
End Sub

Sorry

Sub VersionTry()
  Dim strReference As String
  On Error Resume Next
  If Left(Application.Version, 1) = 10 Then
  With ActiveWorkbook.VBProject.References
      .Remove ThisWorkbook.VBProject.References _
        ("Microsoft Word 10.0 Object Library")
        strReference = _
            "c:\program files\microsoft office\office\msoutl8.dll"
        .AddFromFile strReference
      End With
  ElseIf Left(Application.Version, 1) = 11 Then
      With ActiveWorkbook.VBProject.References
        .Remove ThisWorkbook.VBProject.References _
            ("Microsoft Word 11.0 Object Library")
        strReference = _
            "c:\program files\microsoft office\office\msoutl9.dll"
        .AddFromFile strReference
      End With
    Else
    MsgBox "This code was not written for Excel Version " & Application.Version
  End If
End Sub

Fin t nok, jeg har fået ideen til hvor jeg skal lede. Så er jeg på sporet :-)

pokkers fejl igen, vent lidt

Det er lige meget.. jeg er på sporet :-)

Fint kedde

Sub VersionTry()
  Dim strReference As String
  On Error Resume Next
  If Left(Application.Version, 1) = 10 Then
  With ActiveWorkbook.VBProject.References
      .Remove ThisWorkbook.VBProject.References("Word")
        strReference = "c:\program files\microsoft office\office\msword10.olb"
        .AddFromFile strReference
      End With
  ElseIf Left(Application.Version, 1) = 11 Then
 
      With ActiveWorkbook.VBProject.References
        .Remove ThisWorkbook.VBProject.References("Word")
        strReference = "c:\program files\microsoft office\office\msword11.olb"
        .AddFromFile strReference
      End With
    Else
    MsgBox "This code was not written for Excel Version " & Application.Version
  End If
End Sub

Kunne ikke rigtig stoppe det :-)

Sub LoadCorrectWordVersion()
Dim strReference As String
Dim strVersion As String
strVersion = Left(Application.Version, InStr(1, Application.Version, ".") - 1)
On Error Resume Next
With ActiveWorkbook.VBProject.References
    .Remove ActiveWorkbook.VBProject.References("Word")
    strReference = "c:\program files\microsoft office\office\msword" & strVersion & ".olb"
    .AddFromFile strReference
End With
End Sub