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?