Знатокам Word -вопрос!
  1. #1
    Злобный карлик Аватар для Padre
    Регистрация
    30.05.2007
    Адрес
    Россия, Москва, ЮЗАО
    Возраст
    45
    Сообщений
    23,491
    Спасибо:
    Получено: 7,421
    Отправлено: 967

    0 Вы не можете благодарить!

    По умолчанию Знатокам Word -вопрос!

    Как можно убрать все ссылки и картинки из текста? Вот такого плана:

    Просто страниц больше тысячи и на каждой куча таких ссылок с эмблемками. Я в ручную упарился уже.
    Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.

  2. #2
    Всем Перцам - Перец Клуба! Аватар для TimB
    Регистрация
    23.11.2006
    Адрес
    Россия, Москва, СЗАО
    Возраст
    43
    Сообщений
    14,059
    Спасибо:
    Получено: 266
    Отправлено: 370

    0 Вы не можете благодарить!

    По умолчанию

    написать "робота", который все это уберет
    неразборчиво

  3. #3
    Злобный карлик Аватар для Padre
    Регистрация
    30.05.2007
    Адрес
    Россия, Москва, ЮЗАО
    Возраст
    45
    Сообщений
    23,491
    Спасибо:
    Получено: 7,421
    Отправлено: 967

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от TimB Посмотреть сообщение
    написать "робота", который все это уберет
    Э?
    Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.

  4. #4
    Деловая Колбаса Аватар для Luna
    Регистрация
    13.06.2006
    Адрес
    Мск
    Сообщений
    7,363
    Записей в дневнике
    6
    Спасибо:
    Получено: 2,223
    Отправлено: 961

    0 Вы не можете благодарить!

  5. #5
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Сообщений
    44,393
    Записей в дневнике
    1
    Спасибо:
    Получено: 7,308
    Отправлено: 5,287

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Padre Посмотреть сообщение
    Э?
    Создай макрос...
    вот тебе пример

    Шняга меняет в документе все вхождения от

    *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+

  6. #6
    Деловая Колбаса Аватар для Luna
    Регистрация
    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
    1. Зайдите в меню Сервис (Tools) и в дополнительном списке команд Макрос (Macro) выберите команду Макросы (Macros). Откроется диалоговое окно, в котором вам нужно ввести имя вашего макроса - RemoveHyperlink.
    2. Нажмите кнопку Создать (Create). Вы попадете в окно редактора Microsoft Visual Basic.
    3. Вставьте вышеприведенный код в позицию мигающего курсора (Обратите внимание: в окне редактора уже есть строки Sub RemoveHyperlinks() и End Sub. Поэтому вам нужно вставить лишь тот код, который находится между этими строками. Я выделил этот код цветом.).
    4. Закройте редактор Microsoft VB. Вы вновь вернетесь в редактор Microsoft Word.
    Дальнейшие действия стандартны: вы должны вынести на панель инструментов кнопку для этого макроса и/или же назначить этому макросу сочетание клавиш для быстрого доступа.
    1. Зайдите в меню Сервис (Tools) и выберите команду Настройка (Customize).
    2. В появившемся диалоговом окне выберите вкладку Команды (Commands) и в левой области найдите и выберите категорию Макросы (Macros). В правой области появятся доступные команды. Выберите команду с названием вашего макроса.
    3. Удерживая левую кнопку мыши нажатой перенесите эту команду на вашу панель инструментов. На панели появится кнопка с вышеприведенным текстом.
    4. Можете оставить текст на кнопке как есть или присвойте ей какую-либо иконку.
    Теперь, если у вас в документе много ссылок, от которых вы хотите избавиться, достаточно нажать эту кнопку макроса и он моментально преобразует все гиперссылки в обычный текст. Вы даже не заметите процесса преобразования.
    источник http://wordexpert.ru/page/kak-preobr...yichnyiy-tekst

  7. #7
    Всем Перцам - Перец Клуба! Аватар для TimB
    Регистрация
    23.11.2006
    Адрес
    Россия, Москва, СЗАО
    Возраст
    43
    Сообщений
    14,059
    Спасибо:
    Получено: 266
    Отправлено: 370

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Padre Посмотреть сообщение
    Э?
    макрос
    неразборчиво

  8. #8
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Сообщений
    44,393
    Записей в дневнике
    1
    Спасибо:
    Получено: 7,308
    Отправлено: 5,287

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от TimB Посмотреть сообщение
    макрос
    Дык я ужо написал нужный макрос.
    Ловлю МНЛ в сети словоблудия.
    Что вам сказать за .... Я таки знаю пару существ (с)
    18+

  9. #9
    Всем Перцам - Перец Клуба! Аватар для TimB
    Регистрация
    23.11.2006
    Адрес
    Россия, Москва, СЗАО
    Возраст
    43
    Сообщений
    14,059
    Спасибо:
    Получено: 266
    Отправлено: 370

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Kidont Посмотреть сообщение
    Дык я ужо написал нужный макрос.
    я первый сказал "пиши "робота""
    неразборчиво

  10. #10
    Всем Перцам - Перец Клуба!
    Регистрация
    14.07.2010
    Адрес
    Хер его знает где
    Сообщений
    9,990
    Спасибо:
    Получено: 1,474
    Отправлено: 786

    0 Вы не можете благодарить!

    По умолчанию

    Padre, можно проще, скопируй нужный значок, заходишь "Правка" - "Заменить". вставляешь в первое поле, а поле "заменить на" оставляешь пустым. и нажимаешь "заменить все". и готово, ненужные тебе значки заменяются пустотой
    А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа была
    A6 C7, 2013, 3.0 TFSI, quattro, БЭЗ пневмы (слава богу), бэжево-коричневый кожа

  11. #11
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Сообщений
    44,393
    Записей в дневнике
    1
    Спасибо:
    Получено: 7,308
    Отправлено: 5,287

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от TimB Посмотреть сообщение
    я первый сказал "пиши "робота""
    "Сказать" и "сделать" разные вещи.

    --- Добавлено чуть позже ---

    Цитата Сообщение от JohnyB5 Посмотреть сообщение
    можно проще, скопируй нужный значок, заходишь "Правка" - "Заменить".
    И повторяешь так 1000 раз, потому ему не значок звезды мешает, а постоянно растущий код-ссылка.
    Ловлю МНЛ в сети словоблудия.
    Что вам сказать за .... Я таки знаю пару существ (с)
    18+

  12. #12
    Всем Перцам - Перец Клуба!
    Регистрация
    14.07.2010
    Адрес
    Хер его знает где
    Сообщений
    9,990
    Спасибо:
    Получено: 1,474
    Отправлено: 786

    0 Вы не можете благодарить!

    По умолчанию

    Kidont,
    TimB, ну че? померялись, у кого "больше"?

    --- Добавлено чуть позже ---

    Цитата Сообщение от Kidont Посмотреть сообщение
    И повторяешь так 1000 раз
    блин, а дальше в лом было дочитать?
    Цитата Сообщение от JohnyB5 Посмотреть сообщение
    нажимаешь "заменить все"
    и меняется ДО КОНЦА текста
    А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа была
    A6 C7, 2013, 3.0 TFSI, quattro, БЭЗ пневмы (слава богу), бэжево-коричневый кожа

  13. #13
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Сообщений
    44,393
    Записей в дневнике
    1
    Спасибо:
    Получено: 7,308
    Отправлено: 5,287

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от JohnyB5 Посмотреть сообщение
    померялись, у кого "больше"?
    Так, лысый... про то как ты в Тулу летал уже все знают...

    --- Добавлено чуть позже ---

    Цитата Сообщение от JohnyB5 Посмотреть сообщение
    блин, а дальше в лом было дочитать?
    Ага, меняются ВСЕ вхождения???
    *1, *2, *3, *4, ... *, *555...? Да... ворд уже регекспы умеет заменять?
    Ловлю МНЛ в сети словоблудия.
    Что вам сказать за .... Я таки знаю пару существ (с)
    18+

  14. #14
    Всем Перцам - Перец Клуба!
    Регистрация
    14.07.2010
    Адрес
    Хер его знает где
    Сообщений
    9,990
    Спасибо:
    Получено: 1,474
    Отправлено: 786

    0 Вы не можете благодарить!

    По умолчанию

    Kidont, только что проверил на документе около 600 страниц - работает
    А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа была
    A6 C7, 2013, 3.0 TFSI, quattro, БЭЗ пневмы (слава богу), бэжево-коричневый кожа

  15. #15
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Сообщений
    44,393
    Записей в дневнике
    1
    Спасибо:
    Получено: 7,308
    Отправлено: 5,287

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от JohnyB5 Посмотреть сообщение
    что проверил на документе около 600 страниц - работает
    Сделай как в тексте *330, *331, *332, *333,

    И выполни поиск и замену... но не звездочки, А ВСЕХ комбинаций "звездочка с цЫХрой", потому задача звучит "убрать все ссылки и картинки из текста"


    Ловлю МНЛ в сети словоблудия.
    Что вам сказать за .... Я таки знаю пару существ (с)
    18+

  16. #16
    Всем Перцам - Перец Клуба!
    Регистрация
    14.07.2010
    Адрес
    Хер его знает где
    Сообщений
    9,990
    Спасибо:
    Получено: 1,474
    Отправлено: 786

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Kidont Посмотреть сообщение
    про то как ты в Тулу летал уже все знают...
    никому не говори
    Цитата Сообщение от Kidont Посмотреть сообщение
    Ага, меняются ВСЕ вхождения???
    *1, *2, *3, *4, ... *, *555...? Да... ворд уже регекспы умеет заменять?
    короче, пишите "роботов", мне пох
    А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа была
    A6 C7, 2013, 3.0 TFSI, quattro, БЭЗ пневмы (слава богу), бэжево-коричневый кожа

  17. #17
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Сообщений
    44,393
    Записей в дневнике
    1
    Спасибо:
    Получено: 7,308
    Отправлено: 5,287

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от JohnyB5 Посмотреть сообщение
    короче, пишите "роботов", мне пох
    Лашара - ми КАНТАРА... пост №5 и №6 в этой теме...
    Сначала убить все гиперы в текст (по №6)
    А потом убить все сочения с инкрементом по №5...
    Ловлю МНЛ в сети словоблудия.
    Что вам сказать за .... Я таки знаю пару существ (с)
    18+

  18. #18
    Всем Перцам - Перец Клуба! Аватар для TimB
    Регистрация
    23.11.2006
    Адрес
    Россия, Москва, СЗАО
    Возраст
    43
    Сообщений
    14,059
    Спасибо:
    Получено: 266
    Отправлено: 370

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Kidont Посмотреть сообщение
    "Сказать" и "сделать" разные вещи.
    Главное - идея. Исполнителя можно найти

    --- Добавлено чуть позже ---

    Padre, Серега, вставь сюда кусок текста не картинкой.
    неразборчиво

  19. #19
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Сообщений
    44,393
    Записей в дневнике
    1
    Спасибо:
    Получено: 7,308
    Отправлено: 5,287

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от TimB Посмотреть сообщение
    Главное - идея. Исполнителя можно найти
    А вообще главное, кто деньги платит... а потом уже появляются и идеи и исполнители.
    Ловлю МНЛ в сети словоблудия.
    Что вам сказать за .... Я таки знаю пару существ (с)
    18+

  20. #20
    Всем Перцам - Перец Клуба! Аватар для TimB
    Регистрация
    23.11.2006
    Адрес
    Россия, Москва, СЗАО
    Возраст
    43
    Сообщений
    14,059
    Спасибо:
    Получено: 266
    Отправлено: 370

    0 Вы не можете благодарить!

    По умолчанию

    Цитата Сообщение от Kidont Посмотреть сообщение
    А вообще главное, кто деньги платит... а потом уже появляются и идеи и исполнители.
    Идеи должны быть хорошие. под хорошую идею и финансирование находится легко.
    неразборчиво

Страница 1 из 4 123 ... ПоследняяПоследняя

Похожие темы

  1. Знатокам турбин вопрос !
    от sergeeeiii в разделе Архив 2010г.
    Ответов: 0
    Последнее сообщение: 16.03.2010, 20:57
  2. Ответов: 27
    Последнее сообщение: 26.11.2007, 17:09
  3. Вопрос к знатокам, про почту(e-mail).
    от alex77 в разделе Курилка - Матюгалка
    Ответов: 11
    Последнее сообщение: 15.11.2006, 11:40
  4. Вопрос знатокам ксенона.
    от DEMON77 в разделе Архив 2006г.
    Ответов: 41
    Последнее сообщение: 16.10.2006, 20:10
  5. Ответов: 20
    Последнее сообщение: 25.05.2006, 17:22

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •