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 1 Antworten
und wurde 31 mal aufgerufen
 Skripte und Zusatzprogramme
Marius Raabe Offline



Beiträge: 718

19.02.2011 15:13
RE: Fußnote mit erstem Wort groß in Word Zitat · Antworten

Über einen Sprachbefehl für das Einfügen von Fußnoten wurde schon an anderer Stelle in diesem Forum diskutiert.
Ich verwende ein Skript, welches direkt ein Word-Makro ausführt (das funktioniert natürlich nur in den Versionen ab Professional Edition aufwärts, außerdem muss man in dem Befehl die Word-Objekt Bibliothek einbinden (Alt-Enter und dann die richtige auswählen je nach Word-Version). - Alle anderen können den Text als Makro in Word hinterlegen, mit einem Tastaturbefehl verbinden und dann die Tastenkombination "sprechen".
Veranlasst durch eine Diskussion auf KnowBrainer habe ich einen Workaround für das Problem überlegt, dass beim Diktat in der Fußnote das erste Wort nach der Fußnotennummer klein geschrieben wird: Nach der Fußnotennummer im Fußnoten Bereich (die durch mein Makro nicht wie üblich hochgestellt, sondern in normaler Textgröße gesetzt wird) wird ein Punkt eingefügt, allerdings als nicht sichtbarer Text formatiert, weil an diese Stelle nun einmal kein Punkt gehört.

So sieht das Skript aus (es geht bestimmt eleganter):

Sub Main

With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
ActiveDocument.Content.End)
With .FootnoteOptions
.Location = wdBottomOfPage
.NumberingRule = wdRestartContinuous
.StartingNumber = 1
.NumberStyle = wdNoteNumberStyleArabic
End With
.Footnotes.Add Range:=Selection.Range, Reference:=""
End With
Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Superscript = False
.Subscript = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText "."
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
With Selection.Font
.Hidden = True
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1
With Selection.Font
.Hidden = False
End With
Selection.TypeText Text:=vbTab

End Sub

'Grüße, Marius Raabe

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

R.Wilke Offline



Beiträge: 6.119

19.02.2011 15:18
#2 RE: Fußnote mit erstem Wort groß in Word Zitat · Antworten

Bravo! Eines Dr. würdig...

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
Bestimmte Ausdrücke kursiv oder fett im Vokabular (nur für Word)
Erstellt im Forum Berichte und Tipps von Meinhard
0 16.07.2020 12:26
von Meinhard • Zugriffe: 1591
Dragon 15 - unbekannte Worte - Wortliste
Erstellt im Forum Fragen zur Anwendung von
8 10.04.2019 08:59
von Drag-User • Zugriffe: 103
Dragon & Word
Erstellt im Forum Fragen zur Anwendung von
7 21.08.2018 09:48
von P.Roch • Zugriffe: 52
Dragon 6 für Mac und Word 2016
Erstellt im Forum Fragen zur Anwendung von
1 15.08.2017 19:13
von Meinhard • Zugriffe: 59
Befehlserkennung in Word funktioniert nicht
Erstellt im Forum Fragen zur Anwendung von
6 27.11.2014 14:40
von Alois • Zugriffe: 64
Wörter automatisch kursiv oder fett setzen
Erstellt im Forum Berichte und Tipps von
6 19.10.2013 14:23
von R.Wilke • Zugriffe: 36
Umstieg auf 12.5: Probleme mit Formatvorlagen in Word 2007
Erstellt im Forum Fragen zur Anwendung von
16 23.03.2013 16:08
von nickcave • Zugriffe: 50
Office 2010 Word-Latenz
Erstellt im Forum Fragen zur Anwendung von
8 09.07.2011 20:41
von R.Wilke • Zugriffe: 41
Skript für die Auswahl der nächstgelegenen Instanz eines Worts?
Erstellt im Forum Fragen zur Anwendung von
0 07.10.2010 19:50
von Marius Raabe • Zugriffe: 15
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: 32
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz