Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите разобраться ! (MS Word) / 6 сообщений из 6, страница 1 из 1
27.06.2007, 13:08:41
    #34622906
Ммихалыч
Ммихалыч
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться ! (MS Word)
Как правильно выделить текст в word с дальнейшем редактированием ?


http://www.sql.ru/forum/actualthread.aspx?tid=445191
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2007, 13:48:06
    #34623131
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться ! (MS Word)
Ммихалыч

Насколько я поняла из чтения топика, к которому Вы отсылаете, Вам нужно найти в документе какой-то фрагмент и применить к нему форматирование, и так для всего документа?

Если можно, по подробней сформулируйте задачу
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2007, 14:40:04
    #34623430
Ммихалыч
Ммихалыч
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться ! (MS Word)
да совершенно верно, есть текст определенного шрифта, его нужно выделить во всем документе и удалить, форматирование у меня получается, а вот как выбрать определенный шрифт (фрагмент документа) ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.06.2007, 15:11:26
    #34623596
lena_####
lena_####
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться ! (MS Word)
Вот, к примеру, удаляем "Courier New"

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
  Dim v_Rng As Range
  
  Set v_Rng = ThisDocument.Range
  
  With v_Rng.Find
    .ClearFormatting
    .Text = "^?"
    .Font.Name = "Courier New"
    .Forward = True
    Do While .Execute
      v_Rng.Delete
    Loop
  End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2007, 10:02:36
    #34625282
Ммихалыч
Ммихалыч
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться ! (MS Word)
Ок, здесь execute работает нормально, а как заменить объект ?

Пробую так,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim v_Rng As Range

  Set v_Rng = ActiveDocument.Content

  With v_Rng.Find
        .ClearFormatting
        .Font.Name = "HeliosExt -Bold"
        '.Text = ""

    With .Replacement
        .ClearFormatting
        .Font.Name = "HeliosExt -Bold"
        .Text = ""
    End With
    .Execute Format:=True, Replace:=wdReplaceAll

не работает чего-то
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2007, 10:47:33
    #34625437
Ммихалыч
Ммихалыч
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите разобраться ! (MS Word)
и даже просто вот так
Код: plaintext
1.
2.
With v_Rng.Find
        .ClearFormatting
        .Font.Name = "HeliosExt -Bold"

нихотит искать :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Помогите разобраться ! (MS Word) / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 291ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182696]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 187ms
total:  291ms
x
x
Закрыть


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