AW: Mit Makro andere Datei (*.doc oder *pdf) öffnen
28.01.2004 12:13:38
q
Hallo, Word koennte man z.B so oeffnen :
Bei *.pdf weiss ich nicht :-) Gruss q
Option Explicit
'den Pfad und file name andern
Private Const PFAD As String = "C:\Temp"
Private Const DOCNAME As String = "doc1.doc"
Public
Sub RunWord_I()
Dim WordApp As Object
Dim WordDoc As Object
Dim sPfad As String
On Local Error GoTo RunWord_I_Err
sPfad = PFAD
Set WordApp = CreateObject("Word.Application")
With WordApp
.Visible = True
If (Right(sPfad, 1) <> "\") Then sPfad = sPfad & "\"
Set WordDoc = .Documents.Open(sPfad & DOCNAME)
End With
Exit Sub
RunWord_I_Err:
MsgBox "Error Nr. " & Err.Number, vbCritical, "error"
End Sub
' hier muss man die Referentz an Word OLB einstellen
' Tools/Referenzes
Public
Sub RunWord_II()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim sPfad As String
On Local Error GoTo RunWord_II_Err
sPfad = PFAD
Set WordApp = New Word.Application
With WordApp
.Visible = True
If (Right(sPfad, 1) <> "\") Then sPfad = sPfad & "\"
Set WordDoc = .Documents.Open(sPfad & DOCNAME)
End With
Exit Sub
RunWord_II_Err:
MsgBox "Error Nr. " & Err.Number, vbCritical, "error"
End Sub