Schnellbaustein in Word durch Excel

Hallo zusammen,
ich habe wieder mal eine Frage bezüglich der Ansteuerung von Word durch ein Excel-Makro.
Zu meinem Problem: ich öffne mit Excel ein Word-Dokument und möchte dort ein Schnellbaustein (dieser ist in der Word-Vorlage hinterlegt) einfügen. Leider bekomme ich immer den Fehler "Laufzeitfehler 450: Falsche Anzahl an Argumenten oder ungültige Zuweisungen zu einer Eigenschaft".
Hier mein Code:
Option Explicit
Public objWordRange As Object
Public objDocument As Object
Public objDialog As Object
Public objApp As Object
Public strVorlage As String
strVorlage = "Mein Pfad"
Set objApp = OffApp("Word")
If Not objApp Is Nothing Then
Set objDocument = objApp.Documents.Add(Template:=strVorlage)
'Hier soll bei Ansteuerung der Textmarke der Schnellbaustein eingefügt werden
With objApp
if Sheets("Input").Range("Status_Berechnung").Value = 1 Then
objDocument.Bookmarks("Zusammenfassung_Berechnungsergebnisse").Range.Select
objApp.AutoTextEntries("Zusammenfassung Ergebnisse").Insert _
Where:=Selection.Range, RichText:=True
End if
End With
End Sub
ich hoffe mir kann jemand weiterhelfen,
Beste Grüße :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo, :-)
... der Spur nach: ;-)

Option Explicit
Public Sub Main()
Dim strBookmark As String
Dim objWDApp As Object
Dim objWDDoc As Object
Set objWDApp = OffApp("Word")
If Not objWDApp Is Nothing Then
strBookmark = "Test"
Set objWDDoc = objWDApp.Documents.Add
objWDDoc.Bookmarks.Add Name:=strBookmark
' ENTWEDER so
objWDDoc.Bookmarks(strBookmark).Range = objWDApp.Templates(Environ("APPDATA") & _
"\Microsoft\Templates\Normal.dotm").AutoTextEntries("DeinAutoText")
' ODER so
'objWDApp.Templates(Environ("APPDATA") & "\Microsoft\Templates\Normal.dotm"). _
BuildingBlockEntries("DeinAutoText").Insert _
Where:=objWDDoc.Bookmarks(strBookmark).Range, RichText:=True
End If
Fin:
Set objWDDoc = Nothing
Set objWDApp = Nothing
If Err.Number  0 Then MsgBox "Error: " & _
Err.Number & " " & Err.Description
End Sub
Private Function OffApp(ByVal strApp As String) As Object
Dim objApp As Object
On Error Resume Next
Set objApp = GetObject(, strApp & ".Application")
Select Case Err.Number
Case 429
Err.Clear
Set objApp = CreateObject(strApp & ".Application")
objApp.Visible = True
If Err.Number > 0 Then
MsgBox Err.Number & " " & Err.Description
Set objApp = Nothing
End If
Case 0
Case Else
MsgBox Err.Number & " " & Err.Description
Set objApp = Nothing
End Select
On Error GoTo 0
Set OffApp = objApp
Set objApp = Nothing
End Function

Servus
Case

Beliebteste Forumthreads (12 Monate)

Schnellbaustein in Word durch Excel

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread