{"id":1534,"date":"2013-08-28T15:02:55","date_gmt":"2013-08-28T13:02:55","guid":{"rendered":"http:\/\/www.ramses.de\/?p=1534"},"modified":"2013-08-28T15:02:55","modified_gmt":"2013-08-28T13:02:55","slug":"faq-word-rechtschreibfehler-ausdrucken","status":"publish","type":"post","link":"https:\/\/www.ramses.de\/?p=1534","title":{"rendered":"FAQ Word – Rechtschreibfehler ausdrucken"},"content":{"rendered":"

Problem <\/strong><\/h2>\n

Word kann Rechtschreibfehler bereits w\u00e4hrend der Arbeit im Dokument durch eine entsprechende Unterstreichung auf dem Bildschirm hervorheben.<\/p>\n

Leider ist diese Markierung nicht zu sehen, wenn Sie das Dokument ausdrucken, was f\u00fcr einige Anwendungen w\u00fcnschenswert w\u00e4re.<\/p>\n

Mit einer kleinen VBA-Prozedur heben Sie automatisch alle Fehler so hervor, dass Sie auch auf dem Ausdruck zu sehen sind. Geben Sie die folgende Prozedur in die globale Dokumentvorlage NORMAL.DOT ein:<\/p>\n

L\u00f6sung <\/strong><\/h2>\n

Sub FehlerMarkieren()
\nDim rngWort As Range
\nDim rngBereich As Range
\nDim lngBereiche As Long, lngWoerter As Long
\nDim i As Long, j As Long
\nDim intProzent As Integer
\ni = 0
\nj = 0 l
\nngBereiche = ActiveDocument.StoryRanges.Count
\nFor Each rngBereich In ActiveDocument.StoryRanges
\ni = i + 1
\nlngWoerter = rngBereich.Words.Count
\nFor Each rngWort In rngBereich.Words
\nj = j + 1 intProzent = CInt((j * 100) \/ lngWoerter)
\nApplication.StatusBar = „Bereich “ & i & “ von “ & _
\nlngBereiche & „: “ & intProzent & „%“
\nIf Not Application.CheckSpelling(Word := _
\nrngWort.Text) Then
\nrngWort.HighlightColorIndex = wdYellow
\nEnd If
\nNext rngWort
\nNext rngBereich
\nEnd Sub<\/p>\n

Wenn Sie in Zukunft ein Dokument mit markierten Rechtschreibfehlern ausdrucken m\u00f6chten, rufen Sie vorher diese Prozedur \u00fcber das Dialogfeld Extras-Makro-Makros auf. Jeder Fehler wird daraufhin gelb markiert. Um alle Markierungen wieder zu entfernen, setzen Sie das folgende Makro ein:<\/p>\n

Sub MarkierungLoeschen()
\nDim rngBereich As Range
\nFor Each rngBereich In ActiveDocument.StoryRanges
\nrngBereich.HighlightColorIndex = wdNoHighlight
\nNext rngBereich
\nEnd Sub<\/p>\n

 <\/p>\n","protected":false},"excerpt":{"rendered":"

Problem Word kann Rechtschreibfehler bereits w\u00e4hrend der Arbeit im Dokument durch eine entsprechende Unterstreichung auf dem Bildschirm hervorheben. Leider ist diese Markierung nicht zu sehen, … Weiterlesen …<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[43,44],"tags":[69,68],"class_list":["post-1534","post","type-post","status-publish","format-standard","hentry","category-faq","category-word","tag-rechtschreibprufung","tag-word-2003"],"_links":{"self":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1534","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1534"}],"version-history":[{"count":1,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1534\/revisions"}],"predecessor-version":[{"id":1535,"href":"https:\/\/www.ramses.de\/index.php?rest_route=\/wp\/v2\/posts\/1534\/revisions\/1535"}],"wp:attachment":[{"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1534"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1534"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ramses.de\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1534"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}