Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / пишу масрос (перебрать строки, найти слова и применить шрифт) / 15 сообщений из 15, страница 1 из 1
02.08.2004, 04:32
    #32630714
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
Привет всем!
Народ поможите чайнечку.
Мне нужно накалякать такой макрос:
у меня в докуменьте несколько листов на всех одна таблица,
состоит из 3 столбцов, в первом попадаютя слова в квадратных скобках.
Как мне перебрать строки в первом столбце, найти слова в [] и применить к ним заданный шрифт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 04:41
    #32630716
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
xalyПривет всем!
Народ поможите чайнечку.
Мне нужно накалякать такой макрос:
у меня в докуменьте несколько листов на всех одна таблица,
состоит из 3 столбцов, в первом попадаютя слова в квадратных скобках.
Как мне перебрать строки в первом столбце, найти слова в [] и применить к ним заданный шрифт.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 04:52
    #32630717
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
Одно уточнение все это делается в MSWORD.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 10:02
    #32630876
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
Выделяшь первый столбец
получаешь selection
у selection есть метод Find
ищешь им [. если находишь то в результате поиска ищешь ]. к selection применяшь форматирование шрифта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 10:48
    #32630938
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
Дело в том что, форматировать надо не всю выделенную область, а только
[выражение в скобках]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 11:00
    #32630957
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
еще раз
find возвращает selection.
в нем хоть через instr ищешь вхождение '[' и ']' .
далее через selection.moveright выделяшь и форматируешь.

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 11:13
    #32630992
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
А ну это уже понятнее!
пасибочки!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 11:17
    #32630998
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
ни фига не получается, а может примерец найдется?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 11:23
    #32631011
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
ну вообщем начало у меня такое:
i = 1
' пробегаю по я чейкам в столбце

For Each aCell In ActiveDocument.Tables(1).Columns(1).Cells 'выделяю каждую

ActiveDocument.Tables(1).Columns(1).Cells(i).Select

' ищу скобку
Selection.Find.Execute FindText:="["

' пытаюсь найти другую, а не фига не выходит
If Selection.Find.Found = True Then Selection.Find.Execute FindText:="]"

i = i + 1
Next aCell
' в итоге макрос срабатывает и находит только первую скобку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 11:42
    #32631058
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
типа ( меняет на жирный шрифт с подчеркиванием ) :
Sub ККК()
Application.Keyboard (1033)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "["
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
.Extend "]"
.Characters(1).Case = wdTitleSentence
End With
Selection.Font.Bold = wdToggle
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
End Sub
Stepler (щёлк-щёлк!!)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 11:48
    #32631080
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
to Stepler:
Так-то оно так, одна проблема,
надо чтоб шрифт изменялся не в одном случае,
а в каждой ячейке в первом столбце,
где встречается текст в скобках, как их перебирать-то???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 11:53
    #32631104
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
Steplerтипа ( меняет на жирный шрифт с подчеркиванием ) :
Sub ККК()
With Selection
.Extend "]"
.Characters(1).Case = wdTitleSentence
End With
Selection.Font.Bold = wdToggle
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
End Sub

Stepler (щёлк-щёлк!!)


Догда укороти так...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.08.2004, 15:21
    #32631654
Stepler
Stepler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
xalyну вообщем начало у меня такое:
i = 1
' пробегаю по я чейкам в столбце

For Each aCell In ActiveDocument.Tables(1).Columns(1).Cells 'выделяю каждую

ActiveDocument.Tables(1).Columns(1).Cells(i).Select

' ищу скобку
Application.Keyboard (1033)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "["
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
.Extend "]"
.Characters(1).Case = wdTitleSentence
End With
Selection.Font.Bold = wdToggle
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If


i = i + 1
Next aCell
' в итоге макрос срабатывает и находит только первую скобку
так пробовал !?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2004, 03:11
    #32632302
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
Так тоже не пашет, говорит run-time error 5992
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2004, 03:15
    #32632303
xaly
xaly
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пишу масрос (перебрать строки, найти слова и применить шрифт)
Хотя нет, все ЗАРАБОТАЛО! это я косяк :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / пишу масрос (перебрать строки, найти слова и применить шрифт) / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 160ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2186670]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 2ms
others: 12ms
total:  160ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]