Знатокам Word -вопрос!

[Padre]

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

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

[TimB]

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

[Padre]

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

Э?

[Luna]

http://www.cyberforum.ru/ms-word/thread51277.html

[Kidont]

Э?

Создай макрос...
вот тебе пример

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

*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- например чаркод звезды.

[Luna]

из серии с макросами

Теперь я готов ответить на этот вопрос положительно. На сайте 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

[TimB]

Э?

макрос

[Kidont]

макрос

Дык я ужо написал нужный макрос.

[TimB]

Дык я ужо написал нужный макрос.

я первый сказал "пиши "робота""

[JohnyB5]

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

[Kidont]

я первый сказал "пиши "робота""

"Сказать" и "сделать" разные вещи.

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

можно проще, скопируй нужный значок, заходишь "Правка" - "Заменить".

И повторяешь так 1000 раз, потому ему не значок звезды мешает, а постоянно растущий код-ссылка.

[JohnyB5]

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

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

И повторяешь так 1000 раз

блин, а дальше в лом было дочитать?

нажимаешь "заменить все"

и меняется ДО КОНЦА текста

[Kidont]

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

Так, лысый... про то как ты в Тулу летал уже все знают...

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

блин, а дальше в лом было дочитать?

Ага, меняются ВСЕ вхождения???
*1, *2, *3, *4, ... *, *555...? Да... ворд уже регекспы умеет заменять?

[JohnyB5]

Kidont, только что проверил на документе около 600 страниц - работает

[Kidont]

что проверил на документе около 600 страниц - работает

Сделай как в тексте *330, *331, *332, *333,

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

[JohnyB5]

про то как ты в Тулу летал уже все знают...

никому не говори

Ага, меняются ВСЕ вхождения???
*1, *2, *3, *4, ... *, *555...? Да... ворд уже регекспы умеет заменять?

короче, пишите "роботов", мне пох

[Kidont]

короче, пишите "роботов", мне пох

Лашара - ми КАНТАРА... пост №5 и №6 в этой теме...
Сначала убить все гиперы в текст (по №6)
А потом убить все сочения с инкрементом по №5...

[TimB]

"Сказать" и "сделать" разные вещи.

Главное - идея. Исполнителя можно найти

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

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

[Kidont]

Главное - идея. Исполнителя можно найти

А вообще главное, кто деньги платит... а потом уже появляются и идеи и исполнители.

[TimB]

А вообще главное, кто деньги платит... а потом уже появляются и идеи и исполнители.

Идеи должны быть хорошие. под хорошую идею и финансирование находится легко.