Udskriv Rød tekst

http://www.eksperten.dk/spm/495244

vejmand er du 100% sikker ??

100% sikker kan man vel aldrig være, men har googlet ret meget rundt og har ikke fundet noget.
Og det har de jo så åbenbart heller ikke i http://www.eksperten.dk/spm/495244

Jeg har fundet en løsning så det kan godt lad sig gøres.. :D anyhow tak for hjælpen vejmand.

Og hvad er så løsningen, det kunne jo være andre kunne få bruge for det på et tidspunkt :-)

ok, go to Tools -> Macro -> Macros...-> (which will be up the 'organizer'
Make sure that the 'Macros In:' text box is your document NOT Normal.dot or 'All active templates' (unless you want this to be for all documents on your pc and none on anyone elses). pick a clever name for your macro (posibly redLine) and enter that for the macro name. hit the create button on the right. This will bring up the Visual basic editor with the start of the code:
Sub redLine ()
End sub
copy all of 'q' from except for the first and last lines (the Sub q() line and the End Sub line), paste that code between the Sub and End sub lines on redLine. Close the editor and save the doc.  Now to run it :
Tools-> Macro -> Macros...
Pick redLine from the organizer and press run.


The CODE IS HERE :

Sub q()
Dim aDoc As Document    'the doc we are working on
Dim sDoc As Document    'our scratch paper
Dim Str1 As String      'holds a word for transfer
Dim rLine As Boolean    'marks word for red lining
Set aDoc = ActiveDocument
Set sDoc = Documents.Add
aDoc.Activate
For Each aWord In aDoc.Words
    rLine = False
    aWord.Select
    Str1 = Selection
    sDoc.Activate
    Selection.WholeStory
    Selection.Delete    'start with blank scratch paper
    Selection.TypeText Str1
    If sDoc.SpellingErrors.Count > 0 Then rLine = True
    aDoc.Activate
    If rLine = True Then
        Selection.Font.Color = wdColorRed
        Selection.Font.Underline = wdUnderlineDotDotDash
    End If
Next
sDoc.Close savechanges:=wdDoNotSaveChanges
End Sub


DET ER LØSNINGEN .. EN LAPPE LØSNING SOM VIRKER :)

Tak logitech33, det er en god lappeløsning - den kan sagtens bruges.

logitech33, du skal da ha pointene i dette spørgsmål.

Se her: http://www.eksperten.dk/spm/641324  c",)