1 Тема от Юлька90

  • Юлька90
  • рядовой
  • Неактивен
  • Зарегистрирован: 30.11.2010
  • Сообщений: 1

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

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

2 Ответ от Fck_This

  • Помогите сделать макрос
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

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

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

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

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

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

3 Ответ от Fck_This

  • Помогите сделать макрос
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

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