Знатокам Word -вопрос!
  1. #1
    Всем Перцам - Перец Клуба! Аватар для Padre
    Регистрация
    30.05.2007
    Адрес
    Россия, Москва, ЮЗАО
    Возраст
    39
    Сообщений
    13,348
    Спасибо +
    Получено: 2,199
    Отправлено: 108

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

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

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

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

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

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

    По умолчанию

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

  3. #3
    Всем Перцам - Перец Клуба! Аватар для Padre
    Регистрация
    30.05.2007
    Адрес
    Россия, Москва, ЮЗАО
    Возраст
    39
    Сообщений
    13,348
    Спасибо +
    Получено: 2,199
    Отправлено: 108

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

    По умолчанию

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

  4. #4
    Деловая Колбаса Аватар для Luna
    Регистрация
    13.06.2006
    Адрес
    Мск
    Сообщений
    3,807
    Записей в дневнике
    6
    Спасибо +
    Получено: 729
    Отправлено: 280

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

  5. #5
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Возраст
    40
    Сообщений
    24,832
    Записей в дневнике
    1
    Спасибо +
    Получено: 3,272
    Отправлено: 1,023

    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- например чаркод звезды.
    Последний раз редактировалось Kidont; 10.11.2011 в 17:09.
    VW B5, 1997, AHL, 1.6,
    Что вам сказать за .... Я таки знаю пару существ (с) Цитирование платное 18+

  6. #6
    Деловая Колбаса Аватар для Luna
    Регистрация
    13.06.2006
    Адрес
    Мск
    Сообщений
    3,807
    Записей в дневнике
    6
    Спасибо +
    Получено: 729
    Отправлено: 280

    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
    Адрес
    Россия, Москва, СЗАО
    Возраст
    37
    Сообщений
    14,085
    Спасибо +
    Получено: 264
    Отправлено: 370

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

    По умолчанию

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

  8. #8
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Возраст
    40
    Сообщений
    24,832
    Записей в дневнике
    1
    Спасибо +
    Получено: 3,272
    Отправлено: 1,023

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

    По умолчанию

    Цитата Сообщение от TimB Посмотреть сообщение
    макрос
    Дык я ужо написал нужный макрос.
    VW B5, 1997, AHL, 1.6,
    Что вам сказать за .... Я таки знаю пару существ (с) Цитирование платное 18+

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

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

    По умолчанию

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

  10. #10
    Всем Перцам - Перец Клуба! Аватар для JohnyB5
    Регистрация
    14.07.2010
    Адрес
    Донецк, Россия - Киев, Украина
    Возраст
    37
    Сообщений
    9,697
    Записей в дневнике
    2
    Спасибо +
    Получено: 1,366
    Отправлено: 729

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

    По умолчанию

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

  11. #11
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Возраст
    40
    Сообщений
    24,832
    Записей в дневнике
    1
    Спасибо +
    Получено: 3,272
    Отправлено: 1,023

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

    По умолчанию

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

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

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

  12. #12
    Всем Перцам - Перец Клуба! Аватар для JohnyB5
    Регистрация
    14.07.2010
    Адрес
    Донецк, Россия - Киев, Украина
    Возраст
    37
    Сообщений
    9,697
    Записей в дневнике
    2
    Спасибо +
    Получено: 1,366
    Отправлено: 729

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

    По умолчанию

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

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

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

  13. #13
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Возраст
    40
    Сообщений
    24,832
    Записей в дневнике
    1
    Спасибо +
    Получено: 3,272
    Отправлено: 1,023

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

    По умолчанию

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

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

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

  14. #14
    Всем Перцам - Перец Клуба! Аватар для JohnyB5
    Регистрация
    14.07.2010
    Адрес
    Донецк, Россия - Киев, Украина
    Возраст
    37
    Сообщений
    9,697
    Записей в дневнике
    2
    Спасибо +
    Получено: 1,366
    Отправлено: 729

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

    По умолчанию

    Kidont, только что проверил на документе около 600 страниц - работает
    А6 С6, 2010, 3.0 TFSI, quattro, пневма, бэлый кожа

  15. #15
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Возраст
    40
    Сообщений
    24,832
    Записей в дневнике
    1
    Спасибо +
    Получено: 3,272
    Отправлено: 1,023

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

    По умолчанию

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

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


    VW B5, 1997, AHL, 1.6,
    Что вам сказать за .... Я таки знаю пару существ (с) Цитирование платное 18+

  16. #16
    Всем Перцам - Перец Клуба! Аватар для JohnyB5
    Регистрация
    14.07.2010
    Адрес
    Донецк, Россия - Киев, Украина
    Возраст
    37
    Сообщений
    9,697
    Записей в дневнике
    2
    Спасибо +
    Получено: 1,366
    Отправлено: 729

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

    По умолчанию

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

  17. #17
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Возраст
    40
    Сообщений
    24,832
    Записей в дневнике
    1
    Спасибо +
    Получено: 3,272
    Отправлено: 1,023

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

    По умолчанию

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

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

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

    По умолчанию

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

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

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

  19. #19
    Всем Перцам - Перец Клуба! Аватар для Kidont
    Регистрация
    27.12.2008
    Возраст
    40
    Сообщений
    24,832
    Записей в дневнике
    1
    Спасибо +
    Получено: 3,272
    Отправлено: 1,023

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

    По умолчанию

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

  20. #20
    Всем Перцам - Перец Клуба! Аватар для TimB
    Регистрация
    23.11.2006
    Адрес
    Россия, Москва, СЗАО
    Возраст
    37
    Сообщений
    14,085
    Спасибо +
    Получено: 264
    Отправлено: 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

Ваши права

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