Microsoft Office Word
uređuje Dragan Grbić

Pretvorite listu u običan tekst

Nivo:
NIVO 2 - Među ovim prilozima se nalaze preporuke koje se uglavnom odnose na bolje snalaženje i efikasniji rad: dodatni trikovi koji će biti svakom od pomoći i koji upućuju na prag napredne upotrebe programa.

Događa se da automatika u dokumentima Worda zasmeta, a onda se valja otarasiti dobijenog rezultata...

Ako koristite opciju za automatsko numerisanje liste u Wordu, primetili ste da brojevi koji označavaju stavke ne mogu biti selektovani. Takođe, numeracija se automatski ažurira ako dodajete ili oduzimate pasuse u listu. Taj alat je u opštem slučaju koristan, ali može doći do situacija kada ta opcija više smeta nego koristi, pa je potreban efikasan način da se lista na neki način jednokratno ukine.

To nije težak posao: selektujte celu listu, pa je iskopirajte u clipboard. Dok je lista selektovana, komandom Edit/Paste Special otvorite dijalog i odaberite opciju Unformatted text. Kada potvrdite izbor, redni brojevi će se pretvoriti u "tekstualne" brojeve, razdvojene od teksta tabulatorom, kako bi se očuvala urednost teksta; sva automatika numeracije će ovim biti izgubljena. Preostaje i jedna negativna posledica: ovom tehnikom će biti izgubljeni svi posebni formati upotrebljeni na nekim rečima (npr. kurziv ili podebljanje fonta); da je primenjena opcija Formatted text, bili bi preneti i redni brojevi, pa akcija ne bi imala nikakvog efekta.

Kao i uvek, VBA će pomoći da se ovaj posao automatski sprovede nad većim sadržajem. Dodatni dobitak je što će svi posebni formati ostati očuvani, čak će i uravnanje liste biti simulirano bolje nego u manuelnom postupku. Evo kratkog makroa koji efikasno završava posao:

Sub UkloniListe()

Dim pasus As Paragraph

For Each pasus In ActiveDocument.ListParagraphs
   pasus.Range.ListFormat.ConvertNumbersToText
Next pasus

End Sub