Hallo,
Ich hab mir die Autokorrektur, Rechtschreibung und Grammatik für meine üblichen Verhältnisse optimal eingestellt.
Zwischendurch hab ich dinge zu schreiben, da kann ich das nicht brauchen. natürlich könnt ich die einzelnen Einstellungen extra wegklicken, wie 1 Großbuchstaben am Anfang, datumsähnlicher Text usw…
Gibts da nix, wie ich das kurzfristig ausschalten könnte ?
oder bin ich wiedereinmal blind und seh das offensichtlichste nicht
ich such in beiden Versionen
XP-Word2002 und Word 2007
Gruss
M@x
Hall Max,
wenn du Makros erstellen/aufzeichnen darfst, dann kannst du das Deaktivieren und Aktivieren der verschiedenen Optionen mit dem Makrorekorder aufzeichnen und diese 2 oder auch mehr Makros in der Normal.dot bzw. Normal.dotm speichern. Bei Bedarf kannst du dann jederzeit deine Optionen mit 2 bis 3 Klicks oder auch per Tastatur-Kürzel umschalten.
Ob es wesentliche Unterschiede in den Optionen bei 2002 und 2007 gibt weiss ich nicht. ggf. muss du für die beiden Versionen jeweils eigene Makros aufzeichnen.
Gruß
Franz
Hi,
hier mein entsprechender Code. Entstanden ist er durch Makroaufzeichnung, wobei man bei Aufzeichnung jede einzelne Registerkarte der Dialoge anklicken muß, sonst wird nur die aktive Registerkarte aufgezeichnet. Den entstandenen Code muß man erst einmal umfänglich sortieren.
Sub NormalOptions() 'CW 14.12.10
'speichert die Anpassungen unter Extras - Optionen, weil XP die immer wieder vergißt
On Error Resume Next 'damit Bettina sich nicht wundert
With Application
.DisplayStatusBar = True
.ShowWindowsInTaskbar = False
.ShowStartupDialog = False
.DefaultSaveFormat = ""
.DisplayRecentFiles = True
.UserName = "Christian Wulff"
.UserInitials = "CW"
.UserAddress = "Bettinas Wäldchen 2" & Chr(10) & "30179 Großburgwedel"
.RecentFiles.Maximum = 9
.Languages(1031).SpellingDictionaryType = 0 '1031=wdGerman,0=wdSpelling
With CustomDictionaries
.ClearAll
.Add("C:\Users\CW\AppData\Roaming\Microsoft\Proof\BENUTZER.DIC").LanguageSpecific = False 'Benutzerwörterbuch
.Add("C:\Users\CW\AppData\Roaming\Microsoft\Proof\MSSP3GEP.EXC").LanguageSpecific = False 'Ausnahmewörterbuch
.ActiveCustomDictionary = CustomDictionaries.Item("C:\Users\CW\AppData\Roaming\Microsoft\Proof\BENUTZER.DIC")
End With 'CustomDictionaries
End With 'Application
With ActiveDocument
.ReadOnlyRecommended = False
.EmbedTrueTypeFonts = False
.SaveFormsData = False
.SaveSubsetFonts = False
.DoNotEmbedSystemFonts = False
.Password = ""
.WritePassword = ""
.DisableFeatures = False
.EmbedSmartTags = False
.SmartTagsAsXMLProps = False
.EmbedLinguisticData = False
.PrintPostScriptOverText = False
.PrintFormsData = False
.ClickAndTypeParagraphStyle = "Standard"
.ShowGrammaticalErrors = True
.ShowSpellingErrors = True
End With 'ActiveDocument
With Options
.Pagination = True
.WPHelp = False
.WPDocNavKeys = False
.ShortMenuNames = False
.RTFInClipboard = True
.BlueScreen = False
.EnableSound = False
.ConfirmConversions = False
.UpdateLinksAtOpen = True
.SendMailAttach = True
.MeasurementUnit = 1 'wdCentimeters
.AllowPixelUnits = False
.AnimateScreenMovements = False '\*\*
.VirusProtection = False
.ApplyFarEastFontsToAscii = False
.InterpretHighAnsi = 1 'wdHighAnsiIsHighAnsi
.BackgroundOpen = False
.AutoCreateNewDrawings = False
.CheckSpellingAsYouType = True
.CheckGrammarAsYouType = False
.SuggestSpellingCorrections = True
.SuggestFromMainDictionaryOnly = False
.CheckGrammarWithSpelling = False
.ShowReadabilityStatistics = False
.IgnoreUppercase = False
.IgnoreMixedDigits = False
.IgnoreInternetAndFileAddresses = False
.AllowCombinedAuxiliaryForms = True
.EnableMisusedWordsDictionary = True
.AllowCompoundNounProcessing = True
.UseGermanSpellingReform = True
.ReplaceSelection = True
.AllowDragAndDrop = True
.AutoWordSelection = True
.INSKeyForPaste = False
.PasteSmartCutPaste = True
.AllowAccentedUppercase = True
.PictureEditor = "Microsoft Word"
.TabIndentKey = False
.Overtype = False
.AllowClickAndTypeMouse = True
.CtrlClickHyperlinkToOpen = False
.AutoKeyboardSwitching = False
.PictureWrapType = 0 'wdWrapMergeInline
.DisplayPasteOptions = False
.PromptUpdateStyle = True
.FormatScanning = False
.ShowFormatError = False
.SmartParaSelection = False
.PasteAdjustWordSpacing = True
.PasteAdjustParagraphSpacing = False
.PasteAdjustTableFormatting = False
.PasteSmartStyleBehavior = False
.PasteMergeFromPPT = False
.PasteMergeFromXL = False
.PasteMergeLists = False
.UpdateFieldsAtPrint = True
.UpdateLinksAtPrint = True
.DefaultTray = "Druckereinstellungen verwenden"
.PrintBackground = True
.PrintProperties = False
.PrintFieldCodes = False
.PrintComments = False
.PrintHiddenText = False
.PrintDrawingObjects = True
.PrintDraft = False
.PrintReverse = False
.MapPaperSize = False
.PrintOddPagesInAscendingOrder = False
.PrintEvenPagesInAscendingOrder = False
.LocalNetworkFile = False
.AllowFastSave = False
.BackgroundSave = True
.CreateBackup = False
.SavePropertiesPrompt = True
.SaveInterval = 0
.SaveNormalPrompt = True
.DisableFeaturesbyDefault = False
End With 'Options
With ActiveWindow
.StyleAreaWidth = 0 'CentimetersToPoints(0)
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayVerticalRuler = True
.DisplayLeftScrollBar = True
.DisplayRightRuler = True
.DisplayScreenTips = True
With .View
.ShowAnimation = True
.Draft = False
.WrapToWindow = False
.ShowPicturePlaceHolders = False
.ShowFieldCodes = False
.ShowBookmarks = False
.FieldShading = 0 'wdFieldShadingNever
.ShowTabs = True
.ShowSpaces = True
.ShowParagraphs = True
.ShowHyphens = True
.ShowHiddenText = True
.ShowAll = True
.ShowDrawings = True
.ShowObjectAnchors = True
.ShowTextBoundaries = False
.ShowHighlight = True
.DisplayPageBoundaries = True
.DisplaySmartTags = False
End With '.View
End With 'ActiveWindow
End Sub 'NormalOptions
und
Sub NoAutoCorrect() 'CW 08.12.10
'schaltet alle Autokorrektur-Optionen ab
Application.DisplayAutoCompleteTips = False
With AutoCorrect
.CorrectInitialCaps = False
.CorrectSentenceCaps = False
.CorrectDays = False
.CorrectCapsLock = False
.ReplaceText = False
.ReplaceTextFromSpellingChecker = False '\*\*
.CorrectKeyboardSetting = False
.DisplayAutoCorrectOptions = False
.CorrectTableCells = False
End With 'AutoCorrect
With Options
.TabIndentKey = False
.LabelSmartTags = False
.DisplaySmartTagButtons = False
.AutoFormatAsYouTypeApplyHeadings = False
.AutoFormatAsYouTypeApplyBorders = False
.AutoFormatAsYouTypeApplyBulletedLists = False
.AutoFormatAsYouTypeApplyNumberedLists = False
.AutoFormatAsYouTypeApplyTables = False
.AutoFormatAsYouTypeReplaceQuotes = False
.AutoFormatAsYouTypeReplaceSymbols = False
.AutoFormatAsYouTypeReplaceOrdinals = False
.AutoFormatAsYouTypeReplaceFractions = False
.AutoFormatAsYouTypeReplacePlainTextEmphasis = False
.AutoFormatAsYouTypeReplaceHyperlinks = False
.AutoFormatAsYouTypeFormatListItemBeginning = False
.AutoFormatAsYouTypeDefineStyles = False
.AutoFormatApplyHeadings = False
.AutoFormatApplyLists = False
.AutoFormatApplyBulletedLists = False
.AutoFormatApplyOtherParas = False
.AutoFormatReplaceQuotes = False
.AutoFormatReplaceSymbols = False
.AutoFormatReplaceOrdinals = False
.AutoFormatReplaceFractions = False
.AutoFormatReplacePlainTextEmphasis = False
.AutoFormatReplaceHyperlinks = False
.AutoFormatPreserveStyles = False
.AutoFormatPlainTextWordMail = False
End With 'Options
End Sub 'NoAutoCorrect
HTH.
Markus
Danke euch beiden,
ich hab eigentlich gehofft,dass das mit einem einfachen klick geht.
gut, dann hab ich wenigstens nix übersehen.
Gruss
M@x