Hier werden Sie geholfen, oder angelehrt, Ihnen selbst zu helfen!

Weil ich das alles auch nicht immer im Detail im Kopf habe, schaue ich öfter einfach mal in der Hilfe nach, zum Beispiel im Befehlseditor (in der Einstellung "Skripterstellung) auf "Hilfe" und etwa in der Mitte des folgenden Fensters auf "Advanced Scripting Basic Language", und dann muss man suchen. Da findet man aber jeden Befehl mit Syntax und Beispielen. Nicht sehr didaktisch, aber besser als nichts.

Liebe Grüße, Rüdiger

Wenn das so ist, noch eine Frage: Ich möchte für den Fall, dass in dem Pfad der virtuelle Laufwerksbuchstabe „R:“ auftaucht, diesen ersetzen wie unten ersichtlich (dann wird der Pfad in Outlook als Hyperlink erkannt). Was mache ich falsch? Ich habe es schon mit und ohne $ nach Replace und path versucht...). Auch die auskommentierten Zeilen zeugen von meinen unbeholfenen Schritten.

Marius

Dim path As String
Dim filename As String
Dim fullpath As String
path = Word.ActiveDocument.Path
filename = Word.ActiveDocument.Name
'If Left(path,2) = "R:" Then
Replace(path,"R:","\sbs2008root",,1)
'End If
fullpath = path & "" & filename
Clipboard fullpath

Versuche es mal so:

MsgBox path 'später heraus nehmen
path = Replace(path,"R:","\sbs2008root")
MsgBox path 'das ist nur zur Kontrolle, später heraus nehmen
'zum Testen immer mit MsgBox arbeiten zur Kontrolle

Zitat von Marius Raabe

---

Dann dürfte die Word-Bibliothek nicht eingebunden sein. Haben Sie vorher auf Alt + Enter gedrückt und sehr lange gewartet, bis die Auswahlliste erscheint?

---

Hallo Herr Raabe,

doch doch, die Word Bibliothek hatte ich schon eingebunden und gefühlte 2 Minuten gewartet. War das zu kurz?

Beste Grüße

Hans Löhr

Hallo Hans,

wenn Du die Bibliothek eingebunden hast, und im Editor auf das Symbol, welches im folgenden Bild rot eingekreist ist (Browse Object F2) klickst,



Uploaded with ImageShack.us


... lange genug wartest, bis ein Fenster aufspringt namens "ActiveX Automation Members" (siehe unten), und dann das Listenfeld unter "Library" öffnest, sieht das dann so aus?



Uploaded with ImageShack.us

Rüdiger,

vielen Dank abermals, hat sofort geklappt! Dieses Skript müsste doch eigentlich allen Workflow-Freaks, die ständig irgendwelche Begleitverfügungen zu ihren Texten ans Sekretariat schicken, prima gefallen – ich vermute allerdings, vor lauter effizienter Arbeit kommt niemand zum Nachbau

Beste Grüße, Marius

Marius, ich denke, Du hast mal wieder recht. Unter uns, "Workflow" ist mein zweiter Vorname. Von der Sorte habe ich einige auf Lager, allerdings auf unsere individuelle Situation zugeschnitten, aber wie so oft geht es ja um die Idee. Bis heute hat sich kein Mensch dafür interessiert, und die Frage noch nie gestellt.

Rüdiger

Zitat von Marius Raabe

---

Rüdiger,

vielen Dank abermals, hat sofort geklappt!

---

Dazu noch mal eine programmtechnische Erklärung, warum es im ersten Ansatz nicht geklappt hat, zum besseren Verständnis.

Die Funktion "Replace" liefert einen String zurück, der aber irgendwie behandelt werden muss, damit er nicht im Cyberspace verschwindet. Ergänzung: Es wird nicht, wie ich selbst mal fälschlich angenommen habe, und Marius offensichtlich auch, der Original-String geändert, sondern eine Kopie davon erstellt. Also übergibt man den Rückgabewert am besten einer String-Variable, mittels dem Zuweisungsoperator (=), in der Form:

path = Replace(path, "Suchtext", "Ersatztext")

Was aber geschieht, wenn auf beiden des "=" die Variable "path" steht? - Es wird immer zuerst die rechte Seite der Zuweisung abgearbeitet und das Ergebnis dann der linken Seite zugeordnet. Ein klassisches Beispiel:

Dim i As Integer
i = 3
i = i + 2

Dann ist i = 5.

Hoffe das hilft.

Rüdiger

Zitat von R.Wilke

---

sieht das dann so aus?

---

Nahezu, Rüdiger, sieht es dann so aus. Es fehlt im Listenfeld unter "Library" der Eintrag "Word". Die anderen beiden Einträge sind vorhanden. [Den Editor habe ich wieder brav eingebunden]

Hans

Später mehr dazu mein Freund, aber ich nehme an, die Bibliothek ist nicht eingebunden. Erst mal aber muss ich einen Happen essen, und dann noch ausgiebig beten, für Marius' Outlook.

Rüdiger

So Hans, jetzt aber. Wenn Du ein Skript wie unten abgebildet erstellt hast, mit "Skripterstellung" als Befehlstyp, platziere bitte den Cursor zwischen Sub Main und End Sub (siehe rote Kreise).



Uploaded with ImageShack.us

Dann drücke Alt + Enter, und warte, bis der Warte-Cursor sich nicht mehr dreht. Dann kommt irgendwann ein neuer Bildschirm wie dieser hier:




Uploaded with ImageShack.us

Dort findet sich eine sehr, sehr lange Liste mit zahlreichen und diversen Programmbibliotheken, die aber alle in Dragons Advanced Scripting eingebunden werden können. Die Liste ist alphabetisch geordnet, neben jedem Eintrag befindet sich eine Checkbox. Wenn ein Haken in der Box ist, ist die Bibliothek eingebunden, wenn nicht, dann nicht. Oben zuerst werden immer die Bibliotheken aufgeführt, die eingebunden sind. Immer eingebunden (per se) sind die Dragon-Bibliotheken, hier ist zusätzlich noch die Word-Bibliothek eingebunden, in der Version 14.0 (Office 2010), bei Office 2007 ist die Versions-Nr. 12.0.

So, und nun noch einmal: bist Du sicher, dass Du die Word-Bibliothek eingebunden hast?

Rüdiger

Zitat von R.Wilke

---

So Hans, jetzt aber

---

Sapradi (musste der Drache erst lernen), hab die Word-Objektbibliothek schon X mal eingebunden, halte mich genau an deine Anweisungen (worauf du stolz sein kannst, weil das sonst nicht meine Art ist), aber der Eintrag "Word" erscheint unter Library trotzdem nicht. So wichtig ist die Sache für mich (noch) nicht, aber irgendwie hätte ich doch gern verstanden, woran es liegt. Also, wenn du wieder mal Zeit hast, lieber Rüdiger, dann können wir sie uns ja nochmal vornehmen.

Ein schönes Wochenende trotz Gladbach-Niederlage!

Hans

Ich glaube, heute ist nicht mein Tag: Marius' Outlook spurt nicht, bei Dir ist gegen alle Naturgesetze keine Einbindung der Word-Bibliothek feststellbar, und am Ende verliert Gladbach auch noch. Ich werde mich wohl in das nächst beste Schwert fallen lassen.

Trotzdem noch ein schönes Wochenende

Rüdiger

À propros Naturgesetze: eines davon lautet, dass man um eine Bibliothek einzubinden 1. den Haken in die Box setzen muss (deshalb Naturge-"setz") und 2. auch noch "OK" drücken muss.

Das nur mal so als rationaler Lösungsversuch. Wenn es das nicht ist, werde ich beim nächsten Mal, wenn ich durch Kevelaer komme, eine Kerze für Hans spenden.

Schönen Samstag wünscht
Rüdiger

Zitat von R.Wilke

---

den Haken in die Box setzen

---

Lieber Rüdiger,

aus dem Guttenberg-Skandal habe ich wieder mal gelernt, dass man Fehler sofort zugeben und sich der eigenen Unzulänglichkeit stellen muss. Hiermit bekenne ich: Am Haken hat's gehakt. Ich habe ihn nicht gesetzt. Weiß der Kuckuck warum. Nun sieht alles so aus, wie Du es beschrieben hast. Vielen Dank für die Geduld, die Du aufgebracht hast.

Habe aber noch ein anderes Problem am Hals. Immer wenn ich die Mikrofonprüfung durchführen möchte, öffnen sich wie von Geisterhand die Mozillaprogramme Thunderbird und Firefox . Ich weiß, dass Du kein Freund von diesen Programmen bist und insgeheim denkst "selber schuld". Trotzdem, vielleicht magst Du doch einmal darüber nachdenken, wieso beim Sprechen des Trainingstextes ins Mikrofon diese Programme geöffnet werden.

Die Kerze kannst Du Dir für dieses Mal sparen. Aber es ergibt sich bestimmt wieder mal eine Gelegenheit, bei der Du sie für mich spenden kannst. Als fehlbarer Mensch bin ich auf die protestantische Gnade und die katholischen Kerzen angewiesen.

Noch einen schönen Sonntagabend!

Hans