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 186 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.357

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
"Import einer Wortliste" möchte bereits vorhandene Wörter importieren
Erstellt im Forum Fragen zur Anwendung von glombi
1 30.05.2024 12:42
von R.Wilke • Zugriffe: 302
Ich kann nicht mehr in Word diktieren.
Erstellt im Forum Fragen zur Anwendung von rc.otto
1 03.05.2023 08:36
von rc.otto • Zugriffe: 522
Wie unter Dragon 16 und MS 365 Skriptbefehle mit Word-VBA-Makros?
Erstellt im Forum Skripte und Zusatzprogramme von Marius_
4 14.03.2023 11:33
von Marius_ • Zugriffe: 416
Kommentarfunktion in Word: Dragon funktioniert nicht mehr
Erstellt im Forum Fragen zur Anwendung von rc.otto
2 12.08.2022 12:22
von Marius_ • Zugriffe: 325
Formatierung in Word 2019
Erstellt im Forum Fragen zur Anwendung von Gilby2000
1 22.01.2022 15:41
von Marius_ • Zugriffe: 328
Smileys bei Microsoft Word führen zum Absturz von Dragon
Erstellt im Forum Fragen zur Anwendung von Lena
3 29.01.2022 14:39
von Lena • Zugriffe: 420
Add-In für MS-Word.
Erstellt im Forum Fehlermeldungen von Marco
9 30.08.2021 06:56
von Marco • Zugriffe: 1122
DRA-Datei in WORD erstellen/speichern
Erstellt im Forum Fragen zur Anwendung von spk347
3 14.04.2021 19:08
von spk347 • Zugriffe: 1115
Microsoft Word per Sprachbefehl starten
Erstellt im Forum Fragen zur Anwendung von STAHL
5 07.04.2021 11:25
von STAHL • Zugriffe: 555
Vokabular – Speichern von temporären Wörtern verbieten
Erstellt im Forum Fragen zur Anwendung von Kasjan
2 05.02.2021 17:26
von Kasjan • Zugriffe: 395
 Sprung  
Xobor Ein Kostenloses Forum | Einfach ein Forum erstellen
Datenschutz