| |
VB Skript (VBS)MS Word, VBA, Umformatierung mit Hilfe von Dictionary, Range invertieren | | | Autor: gimoya | Datum: 24.05.11 12:39 |
| hallo,
bräuchte dringend hilfe bei folgendem word-vba makro, bei dem ich mit hilfe eines wörterbuches wörter finden unfd umformatieren möchte - nachdem aber im wörterbuch genau jene wörter stehen, mit denen nichts passieren soll, müsste ich die range umkehren.
Sub format_words()
Dim mydic As Dictionary
Dim spErr As Range
Application.CustomDictionaries.ClearAll
Set mydic = Application.CustomDictionaries _
.Add(FileName:="I:\NATUR\Kay\DIC\test.DIC")
Application.CustomDictionaries.ActiveCustomDictionary = mydic
For Each spErr In ActiveDocument.Range.SpellingErrors
With spErr
.Font.Italic = True
.NoProofing = True
End With
Next spErr
With CustomDictionaries
.ClearAll
.Add("BENUTZER.DIC").LanguageSpecific = False
.Add("CUSTOM.DIC").LanguageSpecific = False
.ActiveCustomDictionary = CustomDictionaries.Item("BENUTZER.DIC")
End With
End Sub ich habe leider nicht viel ahnung - das makro habe ich mir aus verschiedenen quellen zusammengebastelt (ich weiß beispielsweise nicht für was das .NoProofing = False steht, vielleich verrät mir das jemand?)
-------------------------------
gru?,
gimoya | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
Neu! sevEingabe 3.0
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|