Worddokument aufrufen
18.07.2004 17:50:38
Fritz
mit dem folgenden Teilcode kann ich in office97 das Dokument aufrufen. In Office2000 bekomme ich die Fehlermeldung 438 an der angezeigten Stelle.
Was mache ich denn da nun wieder flsch.
ich wäre für Hilfe sehr dankbar.
Fritz
Sub Einladung1()
Dim r As Integer
Dim wd As Object, KB As Object
Dim KBstr As String, allgHinw As String, einl1 As String
Application.ScreenUpdating = False
KBstr = Sheets("Start").[F2].Value & "\KB.dot"
allgHinw = Sheets("Start").Range("i1").text
einl1 = Sheets("Start").Range("i2").text
r = ActiveCell.row
Cells(r, 103) = Date
Set wd = CreateObject("Word.application")
Set KB = wd.Documents.Add(KBstr) '''Hier kommt die Fehlermeldung
wd.Visible = True
With wd.Selection
usw.