Сделать символы латиницы курсивными, а кириллицы "простыми"

@wndkpc · Регистрация: 21.01.2015

Author24 — интернет-сервис помощи студентам

Как сделать символы [a-zA-Z] курсивными, а [а-яА-Я] простыми? Применить надо ко всему документу.

@Vlad999 · 21.01.2015, 15:59

вариант для выделенной ячейки

Visual Basic

Sub uuu()
Latin = "*[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ]*"
Set S = Selection
S.Font.FontStyle = "обычный"
For x = 1 To Len(S.Value)
If Mid(S, x, 1) Like Latin Then
With S.Characters(Start:=x, Length:=1).Font
.FontStyle = "курсив"
End With
End If
Next x
End Sub

SoftIce · 21.01.2015, 16:16

Сообщение от Vlad999

"*[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ]*"

"*[A-Za-z]*"

@wndkpc · 21.01.2015, 21:01 **[ТС]**

Извините, я забыл написать. Это Word, а не Excel, нет ячеек

@Alex77755 · 21.01.2015, 22:22

перебрать буквы в документе

Visual Basic

1 2	For Each oCH In ActiveDocument.Range.Characters Next

Добавлено через 1 минуту

Извините, я забыл написать

что сам палец о палец не ударил!

Как можно более полно описывайте суть проблемы или вопроса, что было сделано для ее решения и какие результаты получены.

@wndkpc 0 / 0 / 0 Регистрация: 21.01.2015 Сообщений: 2
		1
	Сделать символы латиницы курсивными, а кириллицы "простыми" 21.01.2015, 12:41. Показов 661. Ответов 4 Метки нет (Все метки) Как сделать символы [a-zA-Z] курсивными, а [а-яА-Я] простыми? Применить надо ко всему документу. 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	21.01.2015, 16:16	3
	Сообщение от Vlad999 "[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ]" "[A-Za-z]" 2

@wndkpc 0 / 0 / 0 Регистрация: 21.01.2015 Сообщений: 2
	21.01.2015, 21:01 [ТС]	4
	Извините, я забыл написать. Это Word, а не Excel, нет ячеек 0

	21.01.2015, 22:22

Опции темы