1

Тема: Помогите сделать макрос

Здравствуйте!
Помогите пожалуйста написать макрос.
Мне надо что бы в строчке текста в которой находится курсив буквы меняли свой цвет, но не все, а через одну.

2

Re: Помогите сделать макрос

Юлька90 пишет:

Здравствуйте!
Помогите пожалуйста написать макрос.
Мне надо что бы в строчке текста в которой находится курсив буквы меняли свой цвет, но не все, а через одну.

Можно сделать, но вы будете должны его запускать. Вас интересует строчка или предложение, или абзац?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3

Re: Помогите сделать макрос

Вот для строки

Sub ColorLetters()
Dim oDoc As Document
Dim oRange As Range
    Set oDoc = ActiveDocument
    Selection.Expand Unit:=wdLine
    Set oRange = Selection.Range
    Selection.Collapse Direction:=wdCollapseStart
    For i = 1 To Len(oRange.Text)
        If i Mod 2 = 0 Then
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove
        Else
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
            Selection.Range.Font.ColorIndex = wdDarkBlue
            Selection.Collapse Direction:=wdCollapseEnd
        End If
    Next i
End Sub
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871