Ako sam dobro razumeo ti hoces nesto ovako, da od sledeceg teksta:
Clan 1.
¶
Ovaj zakon... tralala...¶
¶
Clan 2.
¶
Definise i uredjuje odnose izmedju...¶
¶
Clan 3.
¶
Osnovne odredbe...¶
¶
U:
Clan 1. Ovaj zakon... tralala...¶
(praznina preko atributa paragrafa SpaceAfter od 6pt.)
Clan 2. Definise i uredjuje odnose izmedju...¶
(praznina preko atributa paragrafa SpaceAfter od 6pt.)
Clan 3. Osnovne odredbe...¶
Ovo moze da se izvede na 2 nacina. Jedan manuelni, i drugi preko Visual Basic for Applications (skr. VBA) makroa...
1. varijanta - automatski (preko VBA)
Malo sam se pomucio i nesto skarabudzio, iako ne znam da programiram u VBA (samo C++

) - ovo mi je prvi susret. Prvo ces u dokument koji zelis da ispravis (makro radi samo ako je dokument u latinicnom pismu).
Ovaj makro ces napraviti tako sto ces ici na padajuci meni
Tools -> Macros -> Macro... (ili pritiskom na taster
ALT + F8) i potom ce ti izaci prozorce za dijalog, gde ces u polju Macro name upisati ime ovog makroa npr. "Ispravka" i potom kliknuti na komandu
Create sa desne strane. Uci ces u VBA Editor, gde ces samo pastovati ovaj code:
Code:
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:=ChrW(268) & "lan", ReplaceWith:="^p" & ChrW(268) & "lan", _
Replace:=wdReplaceAll
ActiveDocument.Paragraphs.SpaceAfter = 6
Potom ces izadji preko komande
File -> Close and Return to Microsoft Word (ili skr.
ALT + Q)
Makro se startuje tako sto se opet ide na Tools -> Macros -> Macro... ili ALT + F8, i potom se obelezi iz liste ovaj makro "Ispravka", i kliknuti Run, i to je to...
Hint: Makroi, kao i stilovi, mogu da se kopiraju iz jednog u drugi dokument!
2. varijanta - manuelno (uz pomoc postojecih Word-ovih opcija i malo razmisljanja)
Sta radi ovaj makro?
a) On prvo preko komande Find & Replace tj. preciznije padajuci meni
Edit - Replace ili CTRL + H, pronalazi sve oznake za paragraf "¶" i sve ih brise. U polje Find se upisuje oznaka za paragraf sto je u Wordu "^p", dok se u polje Replace stavlja jedan razmak (space). Hint: i space se vodi kao karakter. I klikne se na Replace All, da nam sve ovo obrise na nivou celog dokumenta.
b) Potom opet preko komande Find & Replace, sl. kao gore trazi rec "Član" u celom dokumentu i menja je sa Replace u "^pČlan" (ovime dobijamo nesto sicno InsertParagraphBefore (mada "rucno" odradjeno)
c) Opet preko komande Find & Replace, trazi se svaki paragraf, preko njegove oznake u Find polju "^p", a u Replace se ne ukucava nista, vec se ide dole na opciju Format -> Paragraph, gde se preko menija stavi npr. SpaceAfter 6pt. i klikne se ok, i Replace All. Ovime dobijamo da Word ide od jednog do drugog pasusa, celim dokumentom i dodaje praznine preko atributa svakog paragrafa ponaosob, setujuci prazninu na 6 tacaka posle pasusa.
I to je to...

U principu, cak i da radis manuelno, samo preko komande Find & Replace, mozes kao sto vidis da uradis svasta... Samo treba dobra ideja...
[Ovu poruku je menjao neo01 dana 25.02.2005. u 13:34 GMT+1]
Welcome to the real (binary) world, neo(01)...