Microsoft Office Word
uređuje Dragan Grbić

Svođenje na naslove

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.

Ponekad zatreba da se van dokumenta napravi njegov siže: valja prikupiti naslove. Neka taj posao uradi makro.

Jednom prilikom sam poželeo da prikupim sve naslove u jednom velikom dokumentu i da ih iskopiram u drugi dokument, tako da lista izgleda kao kada se uključi Outline View i sakrije tekst, ili kada se formira sadržaj. Kopiranje sadržaja (koji je, zapravo, kodirano polje) nije baš elegantan način da se dobije ovakav rezultat. Naravno, rešenje je nađeno u VBA: priloženi makro će obrisati sve sem naslova svih nivoa, pod uslovom da ime stila naslova počinje sa Heading.

Da bi se aktivni dokument zaštitio od slučajnog uništenja, ovaj makro će ga najpre snimiti, a potom pobrisati sve sem naslova; na kraju, opciono, dokument će biti snimljen u default folderu za snimanje Word dokumenata (verovatno je to \My Documents), pod imenom "Naslovi" kome slede staro ime i ekstenzija .DOC (na primer, Naslovi Knjiga.DOC)

Sub naslovi()
Dim pasus As Paragraph

Application.ScreenUpdating = False
ActiveDocument.Save

For Each pasus In ActiveDocument.Content.Paragraphs
   If LCase$(Left$(pasus.Style, 7)) <> "heading" Then
      pasus.Range.Delete
   End If
Next pasus

ActiveDocument.SaveAs _
   FileName:="Naslovi " & ActiveDocument.Name

End Sub