Hallo,
ich verwende einen Code der mir hier im Forum gezeigt und weitergeholfen hat.
Ich öffne über einen Pfad eine Word Datei die dann eingelesen wird.
Teil des Macros:
strPath = ThisWorkbook.Path & Application.PathSeparator
Set objApp = OffApp("Word")
' Word nicht sichtbar
'Set objApp = OffApp("Word", False)
If Not objApp Is Nothing Then
' Temporäres Tabellenblatt hinzufügen
Worksheets.Add After:=Worksheets(Worksheets.Count)
Set wksSheet = ActiveSheet
strDatei = Dir$(strPath & "*.doc*", vbDirectory)
Do While strDatei ""
' Worddokument öffnen
Set objDocument = objApp.Documents.Open _
(strPath & strDatei)
' WENN vorhanden werden die Inhaltssteuerelemente ausgelesen
If objDocument.ContentControls.Count 0 Then
Wie müsste ich den Code abändern, damit er mir kein neues Word öffnet, sondern das bereits geöffnete anspricht ?
Irgendwie hatte ichs schon mal geschafft bring es aber nicht mehr auf die Reihe...
Liebe Gruesse
Stefan