макрос в ворде - хелп

[chuda]

Здравствуйте - я с просьбой о помощи.
Задача, как мне кажется, не сложная, но с макросами ворда дела никогда не имела.
дано - текст, состоящий из строчек, где в каждой: число, слово, тире, предложение.
нужен макрос, который сделает: число, точка, слово болдом и с большлй буквы, остальное оставить, как есть. И таких страниц больше сотни - ручками нереально, помогите пожалуйста.

пример:
было: 1 слово - предложение из нескольких слов.
сиало:1. Слово - предложение из нескольких слов.

Спасибо заранее!))

[airyashov]

попробуйте такой код,
но работать будет только для строк вида: "1 слово слово1 слово до конца строки"

Код: Выделить всё

Selection.HomeKey unit:=wdStory, Extend:=wdMove

    For i = 1 To ActiveDocument.ActiveWindow.Panes(1).Pages(1).Rectangles(1).Lines.Count
        Selection.HomeKey unit:=wdLine, Extend:=wdMove
        Selection.MoveRight unit:=wdWord, Count:=1
        Selection.MoveLeft unit:=wdCharacter, Count:=1
        Selection.TypeText Text:="."
        Selection.MoveRight unit:=wdCharacter, Count:=1
        Selection.Words.Last.Bold = True
        Selection.HomeKey unit:=wdLine, Extend:=wdMove
        Selection.MoveDown unit:=wdLine, Count:=1     
Next i

[airyashov]

попробуйте такой код,
но работать будет только для строк вида: "1 слово слово1 слово до конца строки"

Код: Выделить всё

    Selection.HomeKey Unit:=wdStory, Extend:=wdMove

    For i = 1 To ActiveDocument.ActiveWindow.Panes(1).Pages(1).Rectangles(1).Lines.Count
        Selection.HomeKey Unit:=wdLine, Extend:=wdMove
        Selection.MoveRight Unit:=wdWord, Count:=1
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Selection.TypeText Text:="."
        Selection.MoveRight Unit:=wdCharacter, Count:=1
                        
        Selection.Characters(1).Font.AllCaps = True
        
        Selection.Words.Last.Bold = True
        Selection.HomeKey Unit:=wdLine, Extend:=wdMove
        Selection.MoveDown Unit:=wdLine, Count:=1
    Next i

[lilu]

А не проще ли обработать поиском-замена?

[Aent]

А не проще ли обработать поиском-замена?

Не только проще но и значительно правильнее

[chuda]

Aent, lilu, я бы с удовольствием, но никогда не имела с этим дело и не могу найти: знак числа, слова, верхнего регистра буквы...вообщем, там тоже нужен своеобразный код - пыталась пойти этим путем...

[chuda]

airyashov, спасибо большое, попробую - когда есть пример кода, легче с ним играться))

[chuda]

airyashov, ура! работает!!!
а что можно почитать на эту тему, чтоб проникнуться поглубже или в инете где-то, книгу...? спасибо, еще раз!!!

[airyashov]

Я обычно пишу так, записываю макрос стандартным средством, а потом его редактирую, читая хелп.

[chuda]

airyashov, точно, отличная идея!)))