Makro unter versch. Office-Versionen
18.05.2004 20:23:36
Fritz Sanne
Das folgende Makro läuft auf meinem Schlepptopp (Office97), aber spreche ich es über meinen Desktop-Rechner(Office 2000) übers Netzwerk an, bekomme ich bei .Visible = True die Fehlermeldung 483 :
Objekt unterstützt die Eigenschaft oder Methode nicht.
Warum geht das auf dem einen, aber nicht auf dem anderen Rechner?
Private Sub CommandButton1_Click()
Dim wd As Object
Set wd = CreateObject("word.Application")
Sheets("Textbausteine").Activate
With wd
.Visible = True
.Activate
.documents.Add
Range("A1").Copy
With .Selection
.Paste
.TypeText Text:="" & Chr(13)
End With
Application.CutCopyMode = xlCut
End With
End Sub
Für Hilfe wie immer sehr dankbar,
Grüße, Fritz