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 261 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.368

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

Bravo! Eines Dr. würdig...

Rüdiger

_______________________________________

Dragon Professional 16 auf Windows 10 Pro und Windows 11
SpeechMike Premium (LFH3500); Office 2019 Pro + Office 365 (monatliches Abo)
HP ZBook Fury 17 G8 - i7-11800H - 24 MB SmartCache - 32 GB RAM - 1 TB SSD

Ähnliche Themen Antworten/Neu Letzter Beitrag⁄Zugriffe
Herr Groß, Frau Klein
Erstellt im Forum Fragen zur Anwendung von CT1956
3 24.09.2024 18:16
von CT1956 • Zugriffe: 461
Bestimmte Ausdrücke kursiv oder fett im Vokabular (nur für Word)
Erstellt im Forum Berichte und Tipps von Marius_
0 16.07.2020 12:26
von Marius_ • Zugriffe: 3148
Dragon schreibt das Wort "groß" nicht.
Erstellt im Forum Fragen zur Anwendung von Philipp Bader
5 16.01.2020 18:15
von Nathalie • Zugriffe: 642
Fußnoten in Open Office einfügen
Erstellt im Forum Fragen zur Anwendung von
8 24.01.2019 20:16
von Dieter B • Zugriffe: 263
Dragon & Word
Erstellt im Forum Fragen zur Anwendung von
7 21.08.2018 09:48
von P.Roch • Zugriffe: 187
Gruß und Kuss in Word…
Erstellt im Forum Fragen zur Anwendung von
5 27.03.2017 11:14
von Brügge1 • Zugriffe: 186
Befehl vs. Wort "groß"
Erstellt im Forum Fragen zur Anwendung von
3 25.10.2013 22:55
von R.Wilke • Zugriffe: 182
Das Wort "groß" schreiben
Erstellt im Forum Fragen zur Anwendung von
6 08.02.2012 11:11
von Dioskur • Zugriffe: 236
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: 160
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz