Avatar billede naviairsuperbruger Nybegynder
24. oktober 2014 - 14:31 Der er 6 kommentarer og
1 løsning

Word 2010: Ændring af visning efter rettelse i dokument via VBA kode

Jeg har et dokument, som redigeres af flere personer.

Det endelige dokument skal være uden kommentarer, sletning, flytning og tilføjelser, men bibeholde ændringsstreg yderst til højre.

Følgende kode har virket efter hensigten indtil for nyelig, men fungerer ikke længere:

Sub Korrektur()

    With Options
        .InsertedTextMark = wdInsertedTextMarkNone
        .InsertedTextColor = wdByAuthor
        .DeletedTextMark = wdDeletedTextMarkHidden
        .DeletedTextColor = wdByAuthor
        .RevisedPropertiesMark = wdRevisedPropertiesMarkNone
        .RevisedPropertiesColor = wdByAuthor
        .RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
        .RevisedLinesColor = wdAuto
        .CommentsColor = wdByAuthor
        .RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve
    End With
    ActiveWindow.View.RevisionsMode = wdInLineRevisions
    WordBasic.ShowComments
    With Options
        .InsertedTextMark = wdInsertedTextMarkNone
        .InsertedTextColor = wdByAuthor
        .DeletedTextMark = wdDeletedTextMarkHidden
        .DeletedTextColor = wdByAuthor
        .RevisedPropertiesMark = wdRevisedPropertiesMarkNone
        .RevisedPropertiesColor = wdByAuthor
        .RevisedLinesMark = wdRevisedLinesMarkOutsideBorder
        .RevisedLinesColor = wdAuto
        .CommentsColor = wdByAuthor
        .RevisionsBalloonPrintOrientation = wdBalloonPrintOrientationPreserve
    End With
    ActiveWindow.View.RevisionsMode = wdInLineRevisions
    With Options
        .MoveFromTextMark = wdMoveFromTextMarkDoubleStrikeThrough
        .MoveFromTextColor = wdGreen
        .MoveToTextMark = wdMoveToTextMarkDoubleUnderline
        .MoveToTextColor = wdGreen
        .InsertedCellColor = wdCellColorNoHighlight
        .MergedCellColor = wdCellColorNoHighlight
        .DeletedCellColor = wdCellColorNoHighlight
        .SplitCellColor = wdCellColorNoHighlight
    End With
    With ActiveDocument
        .TrackMoves = False
        .TrackFormatting = True
    End With
End Sub

Er der nogle kloge hoveder, som kan hjælpe mig her?
Avatar billede Lene Fredborg Ekspert
24. oktober 2014 - 16:52 #1
Du skiver ikke, på hvilken måde, det ikke virker. Får du fejl? Får du et andet resultat end forventet? Eller?

Linjen
WordBasic.ShowComments
slår comments til, hvis de er slået fra og omvendt. Det er efter din beskrivelse ikke det, du vil.

De to første With/End With-grupper er identiske, dvs. at du gør det samme to gange. Det giver ikke mening.

Her er en ændret makro, som måske gør det, du ønsker:
BEMÆRK. Første linje ActiveDocument.TrackRevisions = False slår registrering af ændring fra.


Sub Korrektur()
    ActiveDocument.TrackRevisions = False
    With ActiveWindow.View
        .RevisionsMode = wdInLineRevisions
        .ShowRevisionsAndComments = True
        .ShowComments = False
        .ShowInsertionsAndDeletions = True
        .RevisionsView = wdRevisionsViewFinal
    End With
    With Options
        .InsertedTextMark = wdInsertedTextMarkNone
        .InsertedTextColor = wdByAuthor
        .DeletedTextMark = wdDeletedTextMarkHidden
        .DeletedTextColor = wdByAuthor
        .RevisedPropertiesMark = wdRevisedPropertiesMarkNone
        .RevisedPropertiesColor = wdByAuthor
        .RevisedLinesMark = wdRevisedLinesMarkRightBorder
        .RevisedLinesColor = wdAuto
        .MoveFromTextMark = wdMoveFromTextMarkNone
        .MoveFromTextColor = wdAuto
        .MoveToTextMark = wdMoveToTextMarkNone
        .MoveToTextColor = wdAuto
        .InsertedCellColor = wdCellColorNoHighlight
        .MergedCellColor = wdCellColorNoHighlight
        .DeletedCellColor = wdCellColorNoHighlight
        .SplitCellColor = wdCellColorNoHighlight
    End With
End Sub
Avatar billede naviairsuperbruger Nybegynder
27. oktober 2014 - 13:56 #2
Hej lene-fredborg

Tak for macroen og den kører.
Men " flyttet fra" og "kommentarer"  skal heller´ikke vises i det endelige dokument.

Mvh

naviairsuperbruger
Avatar billede Lene Fredborg Ekspert
27. oktober 2014 - 20:40 #3
Du skrev fra starten, at din oprindelige version har virket efter hensigten. Det kan jeg ikke rigtigt få til at passe med det, du skriver.

Prøv følgende version. Der er lavet nogle justeringer i forhold til min første version. Hvis den ikke helt gør det, du vil, så prøv at nærstudere de enkelte linjer for at finde ud af, hvor du har brug for at ændre noget.

Sub Korrektur()
    With ActiveWindow.View
        .RevisionsMode = wdInLineRevisions
        .ShowRevisionsAndComments = True
        .ShowComments = False
        .ShowInsertionsAndDeletions = True
        .RevisionsView = wdRevisionsViewFinal
    End With
    With Options
        .InsertedTextMark = wdInsertedTextMarkNone
        .InsertedTextColor = wdByAuthor
        .DeletedTextMark = wdDeletedTextMarkHidden
        .DeletedTextColor = wdByAuthor
        .RevisedPropertiesMark = wdRevisedPropertiesMarkNone
        .RevisedPropertiesColor = wdByAuthor
        .RevisedLinesMark = wdRevisedLinesMarkRightBorder
        .RevisedLinesColor = wdAuto
        .MoveFromTextMark = wdMoveFromTextMarkHidden
        .MoveFromTextColor = wdAuto
        .MoveToTextMark = wdMoveToTextMarkNone
        .MoveToTextColor = wdAuto
        .InsertedCellColor = wdCellColorNoHighlight
        .MergedCellColor = wdCellColorNoHighlight
        .DeletedCellColor = wdCellColorNoHighlight
        .SplitCellColor = wdCellColorNoHighlight
    End With
    With ActiveDocument
        .TrackMoves = False
        .TrackFormatting = False
    End With
End Sub
Avatar billede naviairsuperbruger Nybegynder
03. november 2014 - 11:04 #4
Hej lene-fredborg

Endnu engang tak. og macroen kører upåklagelig.

Mvh

naviairsuperbruger
Avatar billede naviairsuperbruger Nybegynder
03. november 2014 - 11:13 #5
Hej lene-fredborg igen
Jeg har klokket i pointgivning, vil du gøre et andet så jeg kan give dig de 60 +60 = 120 point.

Mvh
naviairsuperbruger
Avatar billede Lene Fredborg Ekspert
03. november 2014 - 12:40 #6
Godt at det virker korrekt nu.
Da du selv har oprettet et svar og accepteret det, kan jeg ikke oprette et svar. Hvis du ønsker at tildele point, er den korrekte løsning nok at gøre som beskrevet under overskriften "Hvordan giver jeg en anden bruger flere point?", http://www.eksperten.dk/faq#faq-5-3

(Det er op til dig at afgøre - jeg klarer mig uden point)
Avatar billede naviairsuperbruger Nybegynder
03. november 2014 - 13:40 #7
Jeg har oprettet nedenstående emne, kan jeg få dig at svare det?

"Point til lene-fredborg = http://www.eksperten.dk/spm/998784#reply_8157326"
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester