Скачать: CL | DM;

Помогите .... подчеркивание в Excel части текста.   Найти похожие ветки 

← →
vit_soft ©   (2003-07-11 08:53) [0]

Есть ли какой-нить символ, типа chr(13) или chr(10), который бы находился прямо в тексте между симфолами и подчеркивал бы их.
Например:

Мама варит кашу.

---

← →
andrey_pst ©   (2003-07-11 10:13) [1]

вот те макрос, если работаешь с Excel из Delphi, сможешь адаптировать:
Sub Макрос1()
"
" Макрос1 Макрос
" Макрос записан 11.07.2003 (andrey)
"

"
Range("A1").Select
ActiveCell.FormulaR1C1 = "мама варит кашу"
With ActiveCell.Characters(Start:=1, Length:=5).Font
.Name = "Arial Cyr"
.FontStyle = "обычный"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=6, Length:=5).Font
.Name = "Arial CYR"
.FontStyle = "обычный"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
.ColorIndex = xlAutomatic
End With
With ActiveCell.Characters(Start:=11, Length:=5).Font
.Name = "Arial Cyr"
.FontStyle = "обычный"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("B1").Select
End Sub

---

← →
vit_soft ©   (2003-07-11 11:10) [2]

спасибо

---

← →
vit_soft ©   (2003-07-11 11:22) [3]

Что скажешь по этому поводу ... я под дельфи правда приспособить не могу ....

Worksheets("Sheet2").PageSetup.LeftHeader = _
"Some&B&""Courier New""&10 Bold Courier New Size 10&B&""Arial"" Text"

---

← →
vit_soft ©   (2003-07-11 11:25) [4]

Дело в том, что я не знаю какой индекс будет у следующего слова, строка формируется динамически (поьзователем)и мне необходимо отслеживать определённый список слов ....

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c