Hoe accepteert u wijzigingen van één specifieke gebruiker in een Word-document?

Stel dat u een Word-document hebt dat is beoordeeld door meerdere personen, zoals in de onderstaande schermafbeelding te zien is. Hoe accepteert u alleen de opmerkingen of wijzigingen van één specifieke persoon in dit document?

Bijhoudingen van één specifieke gebruiker accepteren in Word

Bijhoudingen van één specifieke gebruiker accepteren met VBA-code

---

Bijhoudingen van één specifieke gebruiker accepteren in Word

Om de bijhoudingen van slechts één gebruiker te accepteren, gebruikt u de functie Opmaak weergeven in Word. Volg hiervoor deze stappen:

1. Open het Word-bestand met de bijhoudingen en klik vervolgens op Beoordelen > Opmaak weergeven > Specifieke personen, en schakel daarna Alle beoordelaars uit om alle beoordelingen te verbergen (zie schermafbeelding):

2. Klik vervolgens opnieuw op Opmaak weergeven > Specifieke personen en vink daarna de beoordelaar aan wiens bijhoudingen u wilt accepteren (zie schermafbeelding):

3. Klik daarna op Accepteren > Alle weergegeven wijzigingen accepteren (zie schermafbeelding):

4. Nu worden alleen de bijhoudingen van deze specifieke persoon geaccepteerd (zie schermafbeelding):

5. Tot slot moet u de opmerkingen van andere beoordelaars weer weergeven. Klik hiervoor op Opmaak weergeven > Specifieke personen en vink Alle beoordelaars aan, zoals op de volgende schermafbeelding wordt getoond:

---

Bijhoudingen van één specifieke gebruiker accepteren met VBA-code

Als de bovenstaande methode u wat lastig lijkt, helpt de volgende eenvoudige VBA-code u ook verder. Volg hiervoor de onderstaande stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module en plak de volgende macro in het modulevenster.

VBA-code: Bijhoudingen van één gebruiker accepteren:

Sub Acceptoneuser()
    For Each xChange In ActiveDocument.Revisions
        If xChange.Author = "RubyMie" Then
            xChange.Accept
        End If
    Next
End Sub

Opmerking: Vervang in de bovenstaande code de gebruikersnaam „RubyMie” door uw eigen naam, zoals gewenst.

3. Druk vervolgens op de toets F5 om deze code uit te voeren. Alleen de bijhoudingen van de beoordelaar die u in de code hebt opgegeven, worden geaccepteerd (zie schermafbeelding):