Postada em 20/07/2010 23:00 hs
Olá,
você deve fazer a referência à biblioteca do Word apenas durante o desenvolvimento. Depois deve desmarcar, justamente porque os usuários podem ter diferentes versões (9, 10, 11, 12, 14).
Com este código de exemplo, você não precisa referenciar biblioteca do Word:
Sub OpenWordDoc(strPath As String)
Dim wdApp As Object 'Word.Application
Dim wdDoc As Object 'Word.Document
'Verifica se o caminho existe
On Error GoTo ErrHandler
If strPath = "" Then
'Abre arquivo novo
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add
Else
'Abre arquivo existente
Set wdDoc = GetObject(strPath)
Set wdApp = wdDoc.Application
End If
wdApp.Visible = True
ExitHere:
Exit Sub
ErrHandler:
MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "OpenWordDoc"
Resume ExitHere
End Sub
Luiz Cláudio
São Paulo
|
