Pornografija u visokoj definiciji

=======================================

To je/njegovo, tvoje/tvoje, za/takođe/dva, itd.

Mnogo sam Poppy na tračerici pišući za Literoticu posljednjih desetak godina. Mislim da je krajnje vrijeme da se malo odužim za svu pomoć koju sam primio u to vrijeme. Priče o seksu jednostavnog alata koji redovito koristim za pomoć s nekim od najčešćih pogrešaka kojima sam postao žrtva u prvom desetljeću pisanja. Koristeći to za svoje, ti si za svoje, krivo upotrebljavajući homonime, što sam činio prečesto. Primjećujem da je to čest problem i nadam se da će još nekome biti od koristi.

Prilično je kraći od minimalnih 750 riječi, a ne bih volio zatrpati nešto tako jednostavno s dodatnih 200 riječi.

=======================================

Sljedeća Word makronaredba, kada se pokrene, označit će CRVENOM bojom sve uobičajene homonime koji su navedeni. Ako, poput mene, povremeno upišete pogrešnu riječ, to će vam omogućiti da se vratite i identificirate svaku potencijalno netočnu riječ, tako da možete utvrditi jeste li dobro shvatili ili ne.

To je vrlo osnovna makronaredba i ne bavi se fusnotama ili zaglavljima ili bilo čime sličnim. Jednostavan glavni tekst je sve što pokriva. Original je napisao moj prijatelj, a ja sam ga modificirao za svoje potrebe. Naravno, potičemo vas da učinite isto.

Za korištenje makronaredbi jednostavno idite na Makronaredbe -> Pregled makronaredbi i pritisnite stvoriti. Morat ćete unijeti naziv makronaredbe (hilite_HOMONYMS). Kopirajte makronaredbe ispod u otvorenu datoteku i spremite. Kada ponovno pogledate makronaredbe, imat ćete dvije nove. Prvi, hilite_HOMONYMS će istaknuti sve problematične riječi crvenom bojom. Drugi, unhilite_ALL, poništit će sve isticanje.

Nakon što ovo spremite u svoj normal.dot, ove bi makronaredbe trebale biti dostupne svaki put kada otvorite riječ.

--- Makro počinje ovdje ispod ---

Sub hilite_HOMONYMS()'' hilite_HOMONYMS Macro' Macro created 5/27/2013 by Tx Tall Tales'

Dim varWordList(45) Kao niz

varWordList(0) = "prihvati"varWordList(1) = "osim"varWordList(2) = "već"varWordList(3) = "sve spremno"varWordList(4) = "sve zajedno"varWordList(5) = "ukupno" varWordList(6) = "oltar"varWordList(7) = "alter"varWordList(8) = "uspon"varWordList(9) = "pristanak"

varWordList(10) = "goli"varWordList(11) = "medvjed"varWordList(12) = "brake"varWordList(13) = "break"varWordList(14) = "capital"varWordList(15) = "capitol"varWordList( 16) = "savjest"varWordList(17) = "conscious"varWordList(18) = "desert"varWordList(19) = "dessert"

varWordList(20) = "emigrate"varWordList(21) = "imigrate"varWordList(22) = "njegov"varWordList(23) = "to je"varWordList(24) = "lead"varWordList(25) = "led"varWordList( 26) = "loose"varWordList(27) = "lose"varWordList(28) = "passed"varWordList(29) = "past"

varWordList(30) = "principal"varWordList(31) = "principle"varWordList(32) = "njihov"varWordList(33) = "tamo"varWordList(34) = "oni"varWordList(35) = "za" varWordList(36) = "previše"varWordList(37) = "dva"varWordList(38) = "vrijeme"varWordList(39) = "je li"

varWordList(40) = "vaš"varWordList(41) = "vi ste"varWordList(43) = "kraj"varWordList(44) = "kraj"varWordList(45) = "kraj"

brojač = 0

Čini

Uz ActiveDocument.Content.Find.ClearFormatting.Replacement.ClearFormatting.Replacement.Font.Color = wdColorRed.MatchWholeWord = True.MatchCase = False' .MatchWildcards = False' .MatchSoundsLike = False' .MatchAllWordForms = False.Izvrši FindT ext:=varWordList( counter), _ReplaceWith:=varWordList(counter), Replace:=wdReplaceAllEnd with

brojač = brojač + 1

Petlja do "kraja" = varWordList(brojač)

End Sub

Sub unhilite()'' unhilite Macro' Macro created by Tx Tall Tales' 27.5.2013.

S ActiveDocument.Content.Find.ClearFormatting.Font.Color = wdColorRedWith .Replacement.ClearFormatting.Font.Color = wdColorBlackEnd With.Execute FindText:="", ReplaceWith:="", _Format:=True, Replace:=wdReplaceAllEnd with

End Sub