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 9 Antworten
und wurde 65 mal aufgerufen
 Skripte und Zusatzprogramme
rc.otto Offline



Beiträge: 143

19.06.2016 18:17
RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Ich weiß nicht, ob ich in diesem Unterforum richtig bin, bitte anderenfalls entsprechend verschieben.

Ich möchte gerne in Word die Anlagen automatisch nummerieren. Dazu gibt es eine entsprechende Feldfunktion ({SEQ Anlagen* Arabic * MERGEFORMAT}).
Diese lässt sich in Word einfach eingeben: Mit "STRG F9" wird eine leere Feldfunktion eingegeben, dann kann "SEQ Anlagen* Arabic * MERGEFORMAT" eingegeben werden und schließlich muss das dann nur noch geschlossen werden (am besten wohl mit F9). Dann noch einmal nach rechts und ich bin am Ende des Dokumentes. Deshalb habe ich mir einen "Schritt für Schritt-Befehl" im Befehlseditor gebaut, der wie folgt gestaltet ist:

&Eingabetaste drücken (fügt einen Zeilenumbruch ein)
&STRG +E drücken (zentriert den Text)
&STRG + Umschalttaste + F drücken (ab hier wird der Text fett)
"Anlage " eingeben (hier ist schon einmal der Begriff „Anlage“, es fehlt dann nur noch die Anlagennummer)
&STRG + F9 drücken (hier wird eine Feldfunktion eingefügt. Diese ist noch leer, sodass im nächsten Schritt der Inhalt einzufügen ist)
Tasten "SEQ Anlagen* Arabic * MERGEFORMAT" senden
&F9 drücken (aktualisiert die Feldfunktion und zeigt anstelle der Funktion das Ergebnis, also die laufende Anlagennummer, an)
&Ende drücken (geht an das Ende der Zeile)
&Eingabetaste drücken (fügt eine neue Zeile ein)
& Alt + 0 drücken (stellt bei mir die Formatierung „Absatz Standard“ ein)

Leider funktioniert es nicht. Die Feldfunktion wird noch eingefügt, aber anstelle von "SEQ Anlagen* Arabic * MERGEFORMAT" fügt Dragon "SEQ Anlagenß* Arabic ß* MERGEFORMAT" in die Feldfunktion ein – die so natürlich nicht funktionieren kann.

Das Zeichen „ß“ wird also anstelle des „" eingefügt.

Fällt vielleicht jemandem ein, wie ich Dragon beibringen kann, das Zeichen „“ einfügen kann?

BTW: Ich habe diesen Text mit Dragon diktiert. Wenn ich mit Dragon in Firefox das Wort "Backslash" diktiere, überträgt Dragon in den Firefox nur das Zeichen „ß“. In Word wird hingegen das Zeichen "" dargestellt. Ob das die gleiche Ursache hat?

Schon jetzt herzlichen Dank für jede Hilfe.

Verwendetes System: DPI 14 unter W10.

Nachtrag: Über einen Umweg ist es mir doch noch gelungen, wenn auch nicht elegant.

Ich habe in Word "SEQ Anlagen* Arabic * MERGEFORMAT" als Autotext definiert, der "ANummer" automatisch ersetzt. Der Befehl muss also nur noch "ANummer" an Word übertragen und Word ersetzt das in der Feldfunktion automatisch durch "SEQ Anlagen* Arabic * MERGEFORMAT". So funktioniert es dann bei mir:

&Eingabetaste drücken (fügt einen Zeilenumbruch ein)
&STRG +E drücken (zentriert den Text)
&STRG + Umschalttaste + F drücken (ab hier wird der Text fett)
"Anlage " eingeben (hier ist schon einmal der Begriff „Anlage“, es fehlt dann nur noch die Anlagennummer)
&STRG + F9 drücken (hier wird eine Feldfunktion eingefügt. Diese ist noch leer, sodass im nächsten Schritt der Inhalt einzufügen ist)
"ANummer " eingeben (das Leerzeichen ist wichtig, damit die Autokorrektur greift)
&Rücktaste drücken (beseitigt das Leerzeichen)
&F9 drücken (aktualisiert die Feldfunktion und zeigt anstelle der Funktion das Ergebnis, also die laufende Anlagennummer, an)
&Ende drücken (geht an das Ende der Zeile)
&Eingabetaste drücken (fügt eine neue Zeile ein)
& Alt + 0 drücken (stellt bei mir die Formatierung „Absatz Standard“ ein)

Das ist aber immer noch recht behäbig. Fällt vielleicht jemandem eine elegantere Lösung ein?

Für die Juristen: Der Befehl heißt bei mir "Anlage nummeriert". Daneben gibt es noch "Anlage AST nummeriert" etc. Die Befehle sind identisch und unterscheiden sich nur dadurch, dass anstatt von "Anlage " dann "Anlage AST ", "Anlage B " oder "Anlage K " im Befehlseditor eingetragen ist. Wenn ich dann Anlagen von oben nach unten schiebe, muss ich nur anschließend das gesamte Dokument markieren, auf F9 drücken und schon stimmt die Anlagennummerierung wieder.

R.Wilke Offline



Beiträge: 6.117

19.06.2016 18:44
#2 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Zitat von rc.otto
Ich habe diesen Text mit Dragon diktiert. Wenn ich mit Dragon in Firefox das Wort "Backslash" diktiere, überträgt Dragon in den Firefox nur das Zeichen „ß“. In Word wird hingegen das Zeichen "" dargestellt. Ob das die gleiche Ursache hat?



Es dürfte zumindest eine ähnliche Ursache haben. - Momentan kann ich nur raten, aber versuchen Sie es mal mit einem doppelten Backslash:

\

_______________________________________

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

rc.otto Offline



Beiträge: 143

19.06.2016 18:58
#3 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Haben Sie herzlichen Dank für Ihre schnelle Reaktion! Auch mit "\" wird es nicht besser, immerhin wird dann "ßß" angezeigt. Interessant ist, dass das Zeichen richtig übertragen wird, wenn ich das als Autotext von Dragon übertragen lasse. Dabei nützt es mir nur nicht allzu viel.
Immerhin, mit dem oben im Nachtrag genannten Workaround funktioniert es nun bei mir.

Nochmals herzlichen Dank!

R.Wilke Offline



Beiträge: 6.117

19.06.2016 19:22
#4 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Ihren Schritt-für-Schritt Befehl (in der Ursprungsversion) habe ich mal "Schritt für Schritt" und Wort für Wort in ein Advanced Script umgewandelt, was von Natur aus nicht so behäbig ist und bei dem man die Zeichen auf der sogenannten "3. Tastatur" zumindest über den ASCII-Code einfügen kann.

Legen Sie ein neues Skript an, Typ "Skripterstellung", und kopieren Sie den unten stehenden Text entsprechend dort hinein:

Sub Main
' &Eingabetaste drücken (fügt einen Zeilenumbruch ein)
SendKeys "~"
' &STRG +E drücken (zentriert den Text)
SendKeys "^e"
' &STRG + Umschalttaste + F drücken (ab hier wird der Text fett)
SendKeys "^+f"
' "Anlage " eingeben
SendKeys "Anlage "
' &STRG + F9 drücken (hier wird eine Feldfunktion eingefügt)
SendKeys "^{F9}"
' Tasten "SEQ Anlagen* Arabic * MERGEFORMAT" senden
SendKeys "SEQ Anlagen" & Chr(92) & "* Arabic " & Chr(92) & "* MERGEFORMAT"
' &F9 drücken (aktualisiert die Feldfunktion)
SendKeys "{F9}"
' &Ende drücken (geht an das Ende der Zeile)
SendKeys "{End}"
' &Eingabetaste drücken (fügt eine neue Zeile ein)
SendKeys "~"
' & Alt + 0 drücken (stellt bei mir die Formatierung „Absatz Standard“ ein)
SendKeys "%0"
End Sub

Den originalen Befehlstext habe ich belassen und lediglich auskommentiert, um mir die Arbeit zu erleichtern und zu zeigen, wie die Syntax übersetzt wird. Wie man sieht, gar nicht so kompliziert. Das Skript konnte ich nicht testen, "bürge" aber für die Richtigkeit der Übersetzung.

Damit wird das Thema dann auch in die "Bastel-Ecke" verschoben...

_______________________________________

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

rc.otto Offline



Beiträge: 143

20.06.2016 07:23
#5 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Das Script ist unglaublich viel schneller - ganz herzlichen Dank! Aber leider kommen die Backslashs auch damit nicht in Word an. Der Befehl

"SendKeys "SEQ Anlagen" & Chr(92) & "* Arabic " & Chr(92) & "* MERGEFORMAT""

fügt lediglich

"SEQ Anlagen* Arabic * MERGEFORMAT"

in Word ein :-(

Das Einfügen der Zeichen in DragonPad und das Diktierfenster mit dem Befehl "SendKeys "SEQ Anlagen" & Chr(92) & "* Arabic " & Chr(92) & "* MERGEFORMAT"" funktioniert bestens. Es scheint sich also um ein auf Word bezogenes Problem zu handeln.

P.Roch Offline



Beiträge: 1.125

20.06.2016 11:26
#6 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Zitat von rc.otto
Es scheint sich also um ein auf Word bezogenes Problem zu handeln.

Eh wir nun lange orakeln, warum Sendkeys unter VBA Schwierigkeiten mit dem Backslash hat, folgen Sie doch einfach der altbewährten Methode: Skript-Sprachbefehle für Word als Word-Makro aufzeichnen lassen und den Code in Dragon übernehmen. Ich habe das schon mal für Sie erledigt:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub Main
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = wdToggle
Selection.TypeText Text:="Anlage"
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
PreserveFormatting:=False
Selection.TypeText Text:="SEQ Anlagen * Arabic * MERGEFORMAT"
Selection.Fields.Update
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
End Sub
 
 


Selbstverständlich kann der Code noch optimiert werden. Vergessen Sie nicht, die Word-Library einzubinden (Alt-Return).
Gruß, Pascal

rc.otto Offline



Beiträge: 143

20.06.2016 19:39
#7 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Das klappt super. Auf die Idee mit dem Word-Makro war ich zwar bereits selber gekommen, mir war aber nicht klar, dass ich die Word-Bibliothek noch einbinden muss, sodass ich es nicht zum Laufen habe bringen können. An alle herzlichen Dank!

R.Wilke Offline



Beiträge: 6.117

20.06.2016 19:56
#8 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Zitat von P.Roch
Eh wir nun lange orakeln, warum Sendkeys unter VBA Schwierigkeiten mit dem Backslash hat, folgen Sie doch einfach der altbewährten Methode:



Och schade, ich wollte gerne noch ein bisschen orakeln, etwa in der Halbzeitpause, aber das Word-Makro ist sicherlich die elegantere Lösung, wie man sieht.

_______________________________________

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

P.Roch Offline



Beiträge: 1.125

21.06.2016 09:32
#9 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Zitat von R.Wilke
Och schade, ich wollte gerne noch ein bisschen orakeln,

Das zu tun steht dir doch frei, Rüdiger - manchmal ist die Halbzeitpause interessanter als das Spiel.
Fakt ist jedenfalls: Sendkeys in VBA verlangt für bestimmte Sonderzeichen einschließende geschweifte Klammern, was auch hinreichend dokumentiert ist. Der Backslash fällt nicht unter diese Ausnahmen, und sonderbarerweise findet sich auch in Weiten des Internets keine Erklärung für unser Problem.
Ich jedenfalls geh in der Halbzeitpause lieber mal auf den Balkon.
Grüße, Pascal

R.Wilke Offline



Beiträge: 6.117

22.06.2016 18:36
#10 RE: Backslash zur autom. Nummerierung mittels Befehl in Word übertragen Zitat · Antworten

Zitat von P.Roch
Das zu tun steht dir doch frei, Rüdiger



Das hatte ich schon - mit den selben Ergebnissen wie von Dir referiert. In einigen Skript-Dialekten geht es mit dem doppelten Backslash (der erste maskiert dann den Backslash als Escape-Zeichen), aber in dem Fall leider nicht. Kann man halt nichts machen.

_______________________________________

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
Dragon & Word
Erstellt im Forum Fragen zur Anwendung von
7 21.08.2018 09:48
von P.Roch • Zugriffe: 51
Dragon Individual Profession und Word 2016
Erstellt im Forum Fragen zur Anwendung von
6 29.06.2018 19:59
von Harald • Zugriffe: 48
Befehle zum Aufruf von Word Makros funktionieren nicht
Erstellt im Forum Skripte und Zusatzprogramme von
1 05.12.2017 21:56
von Brügge1 • Zugriffe: 72
„Nummerierung fortsetzen“ in Word
Erstellt im Forum Fragen zur Anwendung von
4 07.03.2016 18:52
von rc.otto • Zugriffe: 31
Befehlserkennung in Word funktioniert nicht
Erstellt im Forum Fragen zur Anwendung von
6 27.11.2014 14:40
von Alois • Zugriffe: 61
Befehle werden in Word nicht mehr erkannt
Erstellt im Forum Fragen zur Anwendung von
9 13.08.2014 13:26
von R.Wilke • Zugriffe: 66
Befehl: Word öffnen ... funktioniert nicht
Erstellt im Forum Fragen zur Anwendung von
8 04.10.2013 17:12
von Nette Hexe • Zugriffe: 35
Selbsterstellte Schreib-Befehle funktionieren nicht in Word
Erstellt im Forum Fragen zur Anwendung von
7 22.03.2012 16:00
von Harald • Zugriffe: 45
Wo ist die Silbentrennung in MS Word 10? HIER!
Erstellt im Forum Berichte und Tipps von
16 09.01.2012 16:16
von Dioskur • Zugriffe: 49
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz