Og siden det er 5 år siden sist jeg programmerte VBA så unnskylder jeg meg på forhånd at makroen ikke er noe skole eksempel på VBA programmering.

Det makroen gjør er å sette inn en HVIT "tilfeldig bokstav" i liten størrelse mellom hver bokstav. (også linje skift)

Hvis man da konverterer dokumentet til PDF (bilde - ikke tekst) så må man være home fri mtp plagiatkontrollen og lærene...

Eneste problemet er at nå har man mest sannsynlig jobbet så mye med å unngå plagiatkontrollen at det har vært enklere å bare skrevet en ny stil :S


Igjen;Dette er en ILLUSTRASJON på hvordan det kan gjøres og ikke et skoleeksempel.
---------------------
Sub PlagiatScrambler()
Dim strlast As String
Randomize ' starter random generatoren

Do
Selection.MoveRight Unit:=wdCharacter, Count:=1 ' en fram
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'marker bokstaven den hoppet over
If Selection.text = strlast Then Exit Do ' Er den lik Strlast så stopp (eller vil den gå i inf loop)
strlast = Chr(Int((122 * Rnd) + 97)) ' Random char
Selection.MoveRight Unit:=wdCharacter, Count:=1 'En til fram
Selection.TypeText text:=strlast 'Setter inn RandomChr
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'Markere det den har satt inn
Selection.Font.Name = "Gautami" 'Setter liten skrift
Selection.Font.Color = wdColorWhite ' Setter hvit farge
Selection.Font.Size = 1 ' Størrelse 1
Selection.MoveRight Unit:=wdCharacter, Count:=1 ' flytter en fram
Loop
End Sub


Makroen kan sikkert ha godt av noe error handling codes