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

...
Рейтинг: 0 / 0
02.08.2004, 11:00
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #32630992
xaly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xaly
Гость
А ну это уже понятнее!
пасибочки!
...
Рейтинг: 0 / 0
02.08.2004, 11:13
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #32630998
xaly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xaly
Гость
ни фига не получается, а может примерец найдется?
...
Рейтинг: 0 / 0
02.08.2004, 11:17
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #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:23
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #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:42
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #32631080
xaly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xaly
Гость
to Stepler:
Так-то оно так, одна проблема,
надо чтоб шрифт изменялся не в одном случае,
а в каждой ячейке в первом столбце,
где встречается текст в скобках, как их перебирать-то???
...
Рейтинг: 0 / 0
02.08.2004, 11:48
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #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, 11:53
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #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
02.08.2004, 15:21
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #32632302
xaly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xaly
Гость
Так тоже не пашет, говорит run-time error 5992
...
Рейтинг: 0 / 0
03.08.2004, 03:11
| Ответить | Цитировать | Написать  
пишу масрос (перебрать строки, найти слова и применить шрифт)
    #32632303
xaly
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
xaly
Гость
Хотя нет, все ЗАРАБОТАЛО! это я косяк :)
...
Рейтинг: 0 / 0
03.08.2004, 03:15
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / пишу масрос (перебрать строки, найти слова и применить шрифт)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=375&tid=2186670]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 116ms
get topic data:
 15ms
get forum data:
 2ms
get page messages:
 115ms
get tp. blocked users:
 2ms
others: 359ms
total:  638ms
созд. / загр.: 638ms
x
x
Закрыть


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