Sub antiplagiat()
Application.ScreenUpdating = False
For i = 1 To ActiveDocument.Range.Characters.Count
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="."
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Size = 1
    Selection.Font.Color = wdColorWhite
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Next i
Application.ScreenUpdating = True
End Sub