Тема: Помогите сделать макрос
Здравствуйте!
Помогите пожалуйста написать макрос.
Мне надо что бы в строчке текста в которой находится курсив буквы меняли свой цвет, но не все, а через одну.
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Здравствуйте!
Помогите пожалуйста написать макрос.
Мне надо что бы в строчке текста в которой находится курсив буквы меняли свой цвет, но не все, а через одну.
Здравствуйте!
Помогите пожалуйста написать макрос.
Мне надо что бы в строчке текста в которой находится курсив буквы меняли свой цвет, но не все, а через одну.
Можно сделать, но вы будете должны его запускать. Вас интересует строчка или предложение, или абзац?
Вот для строки
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
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться