CreateObject("Word.Application")
11.05.2009 08:26:46
Horst
In der 6. Zeile bekomme ich dir Meldung: "die Datei ist gesperrt von Horst Danker"(bin ich). Auswahlen wie Kopie öffnen bzw. benachrichtigen... stehen zur Auswahl. Wie kann ich direkt ohne diese Meldung öffnen?
Sub CalWord()
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
With wdApp
.documents.Open "C:\Users\Danker\Documents\Apotheke\Vorlagen\Jubiläen.doc"
End With
End Sub
Vielen Dank im Voraus
Grüße
Horst