Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worddokument öffnen und Makro in starten

Worddokument öffnen und Makro in starten
09.01.2018 09:04:23
DirkR
Hallo Excelgemeinde,
ich habe folgendes Problem und bitte um Hilfe...
Ich möchte gerne eine Worddatei aus Excel heraus öffnen. Das ist soweit auch kein Problem, aber...
Öffnen ich die Worddatei "händig" durch Doppelklick, läuft in der Worddatei automatisch ein Makro ab.
Öffne ich die Datei aus Excel heraus läuft das Word-Makro nicht.
Bei dem Makro werden werden Daten aus der Zwischenablage eingefügt...
Hier mal ein Teil des Codes, der in "ThisDocument" im Wordeditor steht:
'Verweise: (Extras -> Verweise...)
' - Microsoft Forms 2.0 Object Library (C:\WINDOWS\System32\FM20.dll)
' Hierdurch wird ein Zugriff auf den Datentypen DataObject ermöglicht, welcher wiederum den Zugriff auf das Clipboard ermöglicht
' - Microsoft XML, v.6.0 (C:\WINDOWS\System32\FM20.dll)
' Ermöglicht den Zugriff auf MSXML2.DOMDocument60 welcher verschiedene Funktionalitäten für XML bereitstellt.
Sub AutoNew()
Dim xmldoc As MSXML2.DOMDocument60
Dim ClipboardData As DataObject
Dim vorname, nachname, buchnr
Set ClipboardData = New DataObject
Set xmldoc = New MSXML2.DOMDocument60
xmldoc.async = False
'XML-Code aus Clipboard lesen
ClipboardData.GetFromClipboard
End Sub

Ich bin ratlos und komme nicht weiter!
Hilfe wäre toll...
Danke schon mal.
Gruß DirkR

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worddokument öffnen und Makro in starten
09.01.2018 11:14:41
ChrisL
Hi Dirk
Der Trigger für AutoNew ist das Erstellen eines neuen Dokuments und nicht das Öffnen.
Private Sub Document_Open()
End Sub
cu
Chris
AW: Worddokument öffnen und Makro in starten
09.01.2018 13:00:39
DirkR
Hallo Chris,
danke für den Hinweis.
Das Worddokument ist eine .dot Vorlagendatei.
Ich denke daher "sub AutoNew".
An der Word-Vorlage kann ich allerdings nicht ändern.
Ich muss es hinbekommen, dass das Ereignis AutoNew auch beim Öffnen durch einen Excelarbeitsmappe ausgelöst wird!
Aber wie?
Gruß Dirk
AW: Worddokument öffnen und Makro in starten
09.01.2018 13:12:13
DirkR
Hallo Excelgemeinde,
nachtrag....
Eins ist mir noch aufgefallen:
Öffne ich die Vorlagendatei "Test.dot" manuell mit einem Doppelklick, dann ist der Word-Dokumentenname = Dokumnet1
Wenn ich diese aus Excel heraus öffne, dann ist der Word-Dokumentenname = Test.dot
Ich denke daran liegt es.
Wie schaffe ich denn aus Excel heraus die Datei zu öffnen, sodass diese dann Dokument1 heißt?
Ich denke, das könnte mein Problem lösen, da das Makro dann ausgelöst werden solte.
Gruß DirkR
Anzeige
AW: Worddokument öffnen und Makro in starten
09.01.2018 13:22:25
DirkR
noch offen....
AW: Worddokument öffnen und Makro in starten
09.01.2018 13:23:54
ChrisL
Hi
Wie öffnest du aktuell? Muss ein Objekt erzeugt werden oder nicht?
cu
Chris
AW: Worddokument öffnen und Makro in starten
09.01.2018 13:36:56
DirkR
Hi...
ich versuche derzeit mehrere Varianten, hier eine davon:
Option Explicit
Sub wordOpen()
Dim wordApp, objFSO, File, Path, wshShell
Path = "\\Testlaufwerk\Test$\"
File = "Test-Antrag.dot"
Set wordApp = CreateObject("Word.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wshShell = CreateObject("WScript.Shell")
wordApp.Visible = True
If objFSO.FileExists(Path & File) Then
wordApp.Documents.Add Path & File
wordApp.Documents.Open Path & File
wshShell.AppActivate (File)
End If
Set wordApp = Nothing
Set objFSO = Nothing
Set wshShell = Nothing
End Sub
Weder mit wordApp.Documents.Add noch mit wordApp.Documents.Open klappt es!
Gruß DirkR
Anzeige
AW: Worddokument öffnen und Makro in starten
09.01.2018 13:39:18
DirkR
Hi
auch das folgende Makro klappt nicht:
Option Explicit
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub CommandButton7_Click()
ShellExecute Application.hwnd, "Open", "\\Testlaufwerk\Test$\Test-Antrag.dot", _
vbNullString, vbNullString, vbNormalFocus
End Sub
Gruß DirkR
AW: Worddokument öffnen und Makro in starten
09.01.2018 14:07:17
ChrisL
Hi Dirk
Bei mir wird das Makro ausgeführt.
Folgende Word-Makros habe ich getestet:
Private Sub Document_New()
MsgBox "x"
End Sub


Sub AutoNew()
MsgBox "x"
End Sub

Da ich mit XL2016 unterwegs bin und somit nicht abschliessend testen kann, lasse ich die Frage offen.
cu
Chris
Anzeige
AW: Worddokument öffnen und Makro in starten
09.01.2018 15:06:53
DirkR
Hi Chris,
danke für den Hinweis!
Ich habe nun folgendes getestet und es funktioniert:
Sub wordPrint()
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
With AppWD
.Visible = False
.documents.Add "\\Testlaufwerk\Test$\Test-Antrag.dot", True, wdNewBlankDocument, True
.PrintOut
Application.Wait Now + TimeSerial(0, 0, 5)
.Quit savechanges:=False
End With
Set AppWD = Nothing
End Sub
Vielen Dank für deine Unterstützung!
Gruß DirkR

303 Forumthreads zu ähnlichen Themen

VBA Word / Excel / Datendatei
Franjo

Hallo an alle,
ich möchte aus Word-VBA (Userform) Daten aus einer Datei auslesen und bei Bedarf den Sprung zur Dateneingabe in diese Datei machen.
1. Gedanke: Textdatei anlegen und die Daten auslesen/schreiben
habe ich verworfen, da mir das Wissen fehlt, eine Textdatei nach bestimmt...
09.04.2009 19:40:47
Thread-ID: 1068109
2 Beiträge
Anzeige
Word Datei aus Excel heraus öffnen?
Micha

Hallo liebe Spezialisten,
ich habe hier im Forum den unten stehenden Code gefunden, mit dem ich über einen Button in meiner Excelmappe die Word Datei öffnen kann.
Da beide Dateien auf dem Server liegen und nicht alle User das gleiche Laufwerksmapping "P:\ " haben, möchte ich fragen ob m...
05.11.2009 13:02:10
Thread-ID: 1114713
5 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
Anzeige
Per VBA Excel Datei öffnen und Register wechseln
christoph

Hallo, ich habe als VBA Laie folgendes Problem. Ich möchte im Rahmen eines Makros eine andere bereits geöffnete Exceldatei aktiveren und in dieser neu aktivierten Datei das Registerblatt wechseln - was leider nicht funktioniert. Bisher habe ich folgenden VBA Code zum aktivieren der Datei und...
31.03.2010 15:03:42
Thread-ID: 1149665
9 Beiträge
mit VBA Word-Dokumente ausdrucken WICHTIG!!!!
Stefan Sasse

Hallo,wer kann mir hier weiterhelfen? Ich will in Excel-VBA Word-Dokumente automatisiert ausdrucken, d.h. ich habe mehrere Dateien, die in einer Schleife gesucht werden und dann verschoben werden, nach dem Verschiebe-Vorgang soll die Datei ausgedruckt werden. Wie mache ich dass?Bitte um Antwort...
26.04.2002 09:44:31
Thread-ID: 116512
2 Beiträge
per vba hyperlink von excel in worddokument
excel

Hallo,
ich öffne in einem makro ein word-dokument und füge dort zellinhalte in textmarken ein.
in einer der zellen steht ein hyperlink. wie bekomme ich es hin, dass ich in word dann auch einen hyperlink habe und nicht nur den text der zelle
Gruß
effha
25.10.2010 19:58:40
Thread-ID: 1183824
3 Beiträge
VBA in Word
Jesús

Hallo Zusammen,
nach dem mein letztes Problem hier erfolgreich gelöst wurde, stehe ich vor einer neuen Hürde.
Folgendes:
Ich habe ein Word Dokument mit einer Tabelle (siehe Anhang). https://www.herber.de/bbs/user/73584.doc
In dieser Tabelle soll die Versionierung gepflegt werde...
16.02.2011 16:41:33
Thread-ID: 1201211
22 Beiträge
VBA in Word mit Mergefields/Textformularfeldern
Martin

Guten Tag
Hoffe, es kennt sich jemand gut mit Word aus hier im Excel-Forum...
Ich habe ein Word-Template mit Mergefields und Textformularfeldern. Die Mergefields werden beim Öffnen automatisch durch eine andere Applikation (die kann ich nicht ändern) abgefüllt. Ich möchte jetzt, dass da...
16.02.2011 18:12:05
Thread-ID: 1201235
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
4
2
2
8
1
2
21
3
3
3
5
3
5
7
3
5
6
8
6
1
2
8
2