0
Тема: Знатокам Word -вопрос!
-
10.11.2011, 16:38 #1
-
10.11.2011, 16:40 #2
- Регистрация
- 23.11.2006
- Адрес
- Россия, Москва, СЗАО
- Возраст
- 43
- Сообщений
- 14,059
Спасибо: Получено: 266
Отправлено: 370
0написать "робота", который все это уберет
неразборчиво
-
10.11.2011, 16:44 #3
-
10.11.2011, 16:47 #4
- Регистрация
- 13.06.2006
- Адрес
- Мск
- Сообщений
- 7,363
- Записей в дневнике
- 6
Спасибо: Получено: 2,223
Отправлено: 961
-
10.11.2011, 16:54 #5
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
0Создай макрос...
вот тебе пример
Шняга меняет в документе все вхождения от
*1 до *1000
Sub Макрос1()
'
' Макрос1 Макрос
'
'
For i = 1 To 1000
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "*" + Str(i)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
End Sub
--- Добавлено чуть позже ---
Я прсто не знаю, что за знак *, потому написал так...
"*" + Str(i)
Возможно тебе придется узнать чаркод этой звезды...
то строка будет
такая
Chr(155) + Str(i) , где 155- например чаркод звезды.Ловлю МНЛ в сети словоблудия.
Что вам сказать за .... Я таки знаю пару существ (с)
18+
-
10.11.2011, 16:56 #6
- Регистрация
- 13.06.2006
- Адрес
- Мск
- Сообщений
- 7,363
- Записей в дневнике
- 6
Спасибо: Получено: 2,223
Отправлено: 961
0из серии с макросами
Теперь я готов ответить на этот вопрос положительно. На сайте Allen L. Wyatt я нашел описание небольшого макроса, который позволяет удалить мгновенно из документа все гиперссылки, преобразовав их в обычный текст. Ниже привожу код и инструкцию по его внедрению в Word.
1.Sub RemoveHyperlinks()
2.While ActiveDocument.Hyperlinks.Count > 0
3.ActiveDocument.Hyperlinks(1).Delete
4.Wend
5.Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
6.End Sub- Зайдите в меню Сервис (Tools) и в дополнительном списке команд Макрос (Macro) выберите команду Макросы (Macros). Откроется диалоговое окно, в котором вам нужно ввести имя вашего макроса - RemoveHyperlink.
- Нажмите кнопку Создать (Create). Вы попадете в окно редактора Microsoft Visual Basic.
- Вставьте вышеприведенный код в позицию мигающего курсора (Обратите внимание: в окне редактора уже есть строки Sub RemoveHyperlinks() и End Sub. Поэтому вам нужно вставить лишь тот код, который находится между этими строками. Я выделил этот код цветом.).
- Закройте редактор Microsoft VB. Вы вновь вернетесь в редактор Microsoft Word.
- Зайдите в меню Сервис (Tools) и выберите команду Настройка (Customize).
- В появившемся диалоговом окне выберите вкладку Команды (Commands) и в левой области найдите и выберите категорию Макросы (Macros). В правой области появятся доступные команды. Выберите команду с названием вашего макроса.
- Удерживая левую кнопку мыши нажатой перенесите эту команду на вашу панель инструментов. На панели появится кнопка с вышеприведенным текстом.
- Можете оставить текст на кнопке как есть или присвойте ей какую-либо иконку.
-
10.11.2011, 17:01 #7
-
10.11.2011, 17:10 #8
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
-
10.11.2011, 17:13 #9
-
10.11.2011, 17:17 #10
- Регистрация
- 14.07.2010
- Адрес
- Хер его знает где
- Сообщений
- 9,990
Спасибо: Получено: 1,474
Отправлено: 786
0Padre, можно проще, скопируй нужный значок, заходишь "Правка" - "Заменить". вставляешь в первое поле, а поле "заменить на" оставляешь пустым. и нажимаешь "заменить все". и готово, ненужные тебе значки заменяются пустотой
А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа была
A6 C7, 2013, 3.0 TFSI, quattro, БЭЗ пневмы (слава богу), бэжево-коричневый кожа
-
10.11.2011, 17:19 #11
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
-
10.11.2011, 17:21 #12
- Регистрация
- 14.07.2010
- Адрес
- Хер его знает где
- Сообщений
- 9,990
Спасибо: Получено: 1,474
Отправлено: 786
0А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа была
A6 C7, 2013, 3.0 TFSI, quattro, БЭЗ пневмы (слава богу), бэжево-коричневый кожа
-
10.11.2011, 17:22 #13
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
0Ловлю МНЛ в сети словоблудия.
Что вам сказать за .... Я таки знаю пару существ (с)
18+
-
10.11.2011, 17:22 #14
- Регистрация
- 14.07.2010
- Адрес
- Хер его знает где
- Сообщений
- 9,990
Спасибо: Получено: 1,474
Отправлено: 786
0Kidont, только что проверил на документе около 600 страниц - работает
А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа была
A6 C7, 2013, 3.0 TFSI, quattro, БЭЗ пневмы (слава богу), бэжево-коричневый кожа
-
10.11.2011, 17:23 #15
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
0Ловлю МНЛ в сети словоблудия.
Что вам сказать за .... Я таки знаю пару существ (с)
18+
-
10.11.2011, 17:24 #16
- Регистрация
- 14.07.2010
- Адрес
- Хер его знает где
- Сообщений
- 9,990
Спасибо: Получено: 1,474
Отправлено: 786
-
10.11.2011, 17:27 #17
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
-
10.11.2011, 17:33 #18
-
10.11.2011, 17:36 #19
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
-
10.11.2011, 18:35 #20
Похожие темы
-
Знатокам турбин вопрос !
от sergeeeiii в разделе Архив 2010г.Ответов: 0Последнее сообщение: 16.03.2010, 20:57 -
Вопрос знатокам! опять про ГРМ. ПРАВДА НАДО!
от SerGiy в разделе Архив 2007г.Ответов: 27Последнее сообщение: 26.11.2007, 17:09 -
Вопрос к знатокам, про почту(e-mail).
от alex77 в разделе Курилка - МатюгалкаОтветов: 11Последнее сообщение: 15.11.2006, 11:40 -
Вопрос знатокам ксенона.
от DEMON77 в разделе Архив 2006г.Ответов: 41Последнее сообщение: 16.10.2006, 20:10 -
Вопрос к знатокам клуба! Цены поползли в верх
от White61 в разделе Архив 2006г.Ответов: 20Последнее сообщение: 25.05.2006, 17:22