Sie sind vermutlich noch nicht im Forum angemeldet - Klicken Sie hier um sich kostenlos anzumelden Impressum 
Sie können sich hier anmelden
Dieses Thema hat 2 Antworten
und wurde 33 mal aufgerufen
 Skripte und Zusatzprogramme
Marius Raabe Offline



Beiträge: 718

02.03.2011 17:24
RE: Öffnen des Explorer-Ordners für ein offenes Word-Dokument Zitat · Antworten

Liebes Forum,

öfters möchte ich zu einem offenen Word-Dokument den jeweiligen Ordner im Windows-Explorer sehen, beispielsweise um dort nach einem anderen Dokument (welches kein Word-Dokument sein muss), zu fahnden oder sonst etwas zu erledigen. Hat man das Word-Dokument vom Windows-Explorer aus geöffnet, ist das Fenster meist noch im Hintergrund vorhanden. Das muss aber nicht immer so sein. Word stellt bekanntlich einen eigenen Befehl zum Öffnen eines Ordners zur Verfügung (Strg+o), der auch Dateien beispielsweise vom Typ PDF anzeigt. Gleichwohl kann es sinnvoll sein, den echten-Windows-Explorer mit dem aktuellen Ordner offen zu haben. Diesen Ordner per Mausklick durch die Ordnerstruktur vom Windows-Explorer anzusteuern, kann bei einer verschachtelten Struktur insbesondere auf einem Netzlaufwerk ganz schön nervig sein, auch wenn Windows 7 gute Hilfestellungen leistet (Suchordner). Ich finde jedenfalls einen Sprachbefehl zur Abkürzung ganz schick.

Aufbauend auf Rüdigers Hinweisen und Einsichten habe ich folgendes kleines Skript gebastelt. Die Word-Objektbibliothek muss eingebunden werden. Ich habe das Skript bei mir „anwendungsspezifisch“ gesetzt (so dass es nur erkannt wird, wenn der Cursor in einem Word-Dokument steht) und „Explorer-Ordner öffnen“ genannt. Das Skript merkt sich zunächst die Pfadangabe des offenen Dokuments, öffnet dann den Windows-Explorer, dort nach kurzer Wartezeit (individuell einzustellen) die Titelleiste und sendet den Pfad in diese hinein. Nach dem Abschluss mit Enter wird dann das richtige Fenster angezeigt, wenn alles glatt geht. Bei mir geht es glatt.
Vielleicht freut sich jemand daran.

Beste Grüße, Marius Raabe

Sub Main
Dim path As String
path = Word.ActiveDocument.Path
SendSystemKeys "{WIN+e}"
Wait .4
SendKeys "%e",1
Wait .2
SendKeys path,1
SendKeys "{Enter}"
End Sub

Dragon NaturallySpeaking 11.5 Legal
Windows 7 Prof. 64-Bit, Office 2010, Jarte Plus
Philips SpeechMike II Pro Plus, SpeechMike III, SpeechMike Air, PDCC 2.8
Intel Core2 Quad Q9550, 2,83 GHz, 2x6MB L-2, 8 GB RAM

Dioskur Offline



Beiträge: 511

02.03.2011 18:07
#2 RE: Öffnen des Explorer-Ordners für ein offenes Word-Dokument Zitat · Antworten

Zitat von Marius Raabe
Bei mir geht es glatt.



… bei mir auch.

Besten Dank und viele Grüße!

Hans Löhr

DPI 15 auf Windows 10 Professional (64-bit)
SpeechMike Premium. Intel i7 Core 4x2.67 GHz, 6 GB RAM

R.Wilke Offline



Beiträge: 6.118

02.03.2011 21:00
#3 RE: Öffnen des Explorer-Ordners für ein offenes Word-Dokument Zitat · Antworten

Sehr gut, ich würde nur eine winzige Ergänzung anregen. Wenn ich es richtig sehe, besteht der Dateipfad nur bei einem Dokument, wenn es schon (mindestens einmal) gespeichert ist, sonst ist der Pfad leer. Deshalb würde ich noch eine kleine Prüfschleife einbauen, nämlich:

' nach path = ...
If path "" Then
' Code wie gehabt bis zum Schluss
Else
MsgBox "Bitte erst speichern ..."
End If

Solche Tests einzubauen, vor allem bevor mehrere Anweisungen in anderen Anwendungen ausgeführt werden, kann ohnehin nie schaden.

Gruß, Rüdiger

_______________________________________

DPG 15.6 (15.60.200.015) auf Windows 10 Pro (64-bit)
SpeechMike Premium (LFH3500) + SpeechMike II
HP ZBook 17 G2 (Refurbished) - i7-4910qm - 8MB SmartCache - 32 GB RAM - 512 GB SSD - 1 TB HSSD - 2 TB HDD

Ähnliche Themen Antworten/Neu Letzter Beitrag⁄Zugriffe
Diktat wird nicht in Word Dokument umgesetzt - Mikrofonprüfung ok
Erstellt im Forum Fragen zur Anwendung von
4 18.05.2019 15:13
von xxxMariaxxx • Zugriffe: 54
Grafik (hier: Unterschrift) mit Formatierung in Word einfügen
Erstellt im Forum Berichte und Tipps von
1 09.12.2018 16:14
von UdoH • Zugriffe: 101
Dragon Legal Group 15 produziert Wingdings in Word 2013
Erstellt im Forum Fragen zur Anwendung von
12 31.05.2017 09:52
von P.Roch • Zugriffe: 59
Dragon reagiert sehr verzögert bei großen Word Dokumenten
Erstellt im Forum Fragen zur Anwendung von
5 16.10.2016 13:32
von rohrbach • Zugriffe: 31
Mikrofon schaltet sich automatisch beim Schließen Word-Dokumenten aus
Erstellt im Forum Fragen zur Anwendung von
10 24.11.2013 21:11
von drmille • Zugriffe: 28
Office 2010 Word-Latenz
Erstellt im Forum Fragen zur Anwendung von
8 09.07.2011 20:41
von R.Wilke • Zugriffe: 39
Dateiname und Pfad von Word-Dokumenten in die Zwischenablage
Erstellt im Forum Skripte und Zusatzprogramme von
31 28.02.2011 23:16
von Dioskur • Zugriffe: 102
Word-Absatzmarken löschen per Sprachbefehl
Erstellt im Forum Skripte und Zusatzprogramme von
11 09.06.2010 11:26
von Marius Raabe • Zugriffe: 25
Träge Korrektur unter Word 2007 bei langen Dokumenten
Erstellt im Forum Fragen zur Anwendung von
10 07.06.2010 15:21
von dsk • Zugriffe: 31
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz