Rezultat gausi kazka tokio, tik neasiku ar tiks tavo wordo versijai:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Bold = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1")
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub


"Linas Petkevičius" <linas@NONONOinfonova.lt> wrote in message 
news:hvf3bq$4id$1@trimpas.omnitel.net...
> O tai kam makros?
>
> Eini į Replace, spaudi more, tada i pirma laukeli Format-> Font, o i 
> antra -> Format Style. Jei reikia visa ta seka irasai kaip macrosa ir 
> viskas.
>
> "Hyperlink" <tomas.bagdonas@gmail.com> wrote in message 
> news:hvf2na$3es$1@trimpas.omnitel.net...
>> kaip padaryti toki macros: kad pereitu per visa Word documenta ir kur yra 
>> boldas ant teksto, kad uzdetu tam tekstui heading1 stiliu?
>>