Kürzel an Word übergeben und Autotext erscheint!
27.02.2007 09:53:22
Ano Nym
Ich habe folgendes Problem:
Excel generiert durch ein Makro ein 4-Stelliges Zahlen Kürzel. Bsp.: 0001
- Das funktioniert tadellos!
Dieses Kürzel wird schließlich von einem zweiten Makro an Word weitergegeben und an einer Textmarke eingefügt.
- Das funktioniert auch super!
ABER: Dieses Kürzel soll nun in Word den passenden Autotext aufrufen. Und an dieser Stelle weiß ich nicht mehr weiter.
Die Autotexte sind alle in Word hinterlegt - und wenn ich den Vorgang manuell durchführe funktioniert es wunderbar. Im Grunde (ich kenn mich da nicht sooo gut aus) müsste nur noch die Eingabetaste gedrückt werden. Manuell funzt das wie gesagt. Aber ein Sendkeys-Befehl hilft mir da gar nicht weiter.
Mein bisheriger Code:
Public
Sub AngebotErstellen()
Dim WordObj As Object
Dim strPfad As String
Dim strText As String
strPfad = "C:\Briefbogen.dot"
strText = "0001"
On Error Resume Next
Set WordObj = GetObject(, "Word.Application")
If WordObj Is Nothing Then
Set WordObj = CreateObject("Word.Application")
Else
End If
WordObj.Documents.Add Template:=strPfad
WordObj.Visible = True
If WordObj.ActiveDocument.Bookmarks.Exists("Hier") Then
With WordObj.Selection
.Goto what:=wdGoToBookmark, Name:="Hier"
.typeText strText
'.Wait (Now + TimeValue("0:00:02"))
'SendKeys "{Enter}", True
End With
Else
MsgBox "Die Textmarke [Hier] ist nicht vorhanden"
End If
Set WordObj = Nothing
End Sub