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

[Kidont]

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

Идей у меня масса... Финанситов вокруг мало. все хотят вложить 1 лимон, и отжать его через месяц...а потерпеть 5 лет - не хотят.

[Paspartu]

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

Че, опять напортачил?

[iGORik]

Радре ушел к Макросу, просьба не беспокоить...

[Ленок]

Че, опять напортачил?

Нет, это ему кара за раннее портачение

[iGORik]

Нет, это ему кара за раннее портачение

Сморела только что по НТВ Ментов-11, про кару и вуду

[Kidont]

Сморела только что по НТВ Ментов-11, про кару и вуду

У нас уборщица знает вуду, поэтому народ в сортирах боится оставлять пирамиды

[Padre]

Блин. Люди! Человеки! Какая сволочь придумала всю эту бодягу!? Неужели нельзя нормально, и встроенными средствами все это пофиксить?

[TimB]

Идей у меня масса... Финанситов вокруг мало. все хотят вложить 1 лимон, и отжать его через месяц...а потерпеть 5 лет - не хотят.

значит идея не настолько хороша. была бы хорошая - уже через месяц дала бы результат

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

Блин. Люди! Человеки! Какая сволочь придумала всю эту бодягу!? Неужели нельзя нормально, и встроенными средствами все это пофиксить?

именно та, которая хотела, чтобы ты не смог это пофиксить стандартными средствами. кусок текста, говорю, давай, сюда вставь копи-пастом.

[Padre]

кусок текста, говорю, давай, сюда вставь копи-пастом.

Ааааааааа! Сей секунд! Во!

В ночь на 1 декабря сорок первого года в расположение роты прибежал батальонный связной. Я в это время ходил по траншее и проверял несение службы ночным нарядом. Связной нагнал меня в узком проходе траншеи и навалился на меня. Он поднялся на цыпочки, вытянул шею и, дыша мне в лицо, таинственно сообщил: — Товарищ лейтенант! Вас срочно вызывает комбат! Я не люблю, когда мне 001 дышат в лицо и изо рта дышащего ударяет неприятный затхлый желудочный запах. У меня появляется желание оттолкнуть его, а он всё ближе лезет ко мне и дышит на меня своей отрыжкой. Он солдат 002. Толкать его без видимых причин вроде нельзя. А я не переношу и не могу терпеть, когда мне вот так лезут и дышат. Связь работает. Могли бы и по телефону сообщить о вызове, — думаю я. Не обязательно гонять солдата по такому поводу. Здесь что-то не так! Опять какую-нибудь разведку боем провернуть задумали. — Вас срочно вызывает к себе комбат! — слышу я голос солдата и чувствую противный запах у него изо рта. — Ладно приду! — отвечаю я и отворачиваюсь от него в другую сторону. Но ему 003 неймётся и он опять забегает наперёд. — Комбат велел мне вместе с вами к нему идти. — Комбат? — переспрашиваю я, и отворачиваюсь от него. 004

[TimB]

я знаю, как убрать все картинки и как убрать все цифры. картинки убрать - хорошо, а вот есть ли в тексте цифры, которые нужны?

[Ленок]

Какая сволочь придумала всю эту бодягу!?

Говорят, дядя Билл

[Padre]

есть ли в тексте цифры, которые нужны?

Есть конечно! Числа, номера подразделений. Их ни нада убирать. Если с числами проще, они двузначные, то номера подразделений как раз трехзначные.

[TimB]

УРА!!!!!!!!!!!!!!! Серега, делаешь так: Заходишь в replace (замена) в поле "что меняем" вставляешь вот это: ^g^#^#^#
а поле "на что": ничего не ставишь

Эта фигня найдет все сочетания, где картинка стоит перед тремя цифрами и удалит к е...ням.

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

и картинку и три цифры удалит

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

Серега, получилось?

[Ленок]

Серега, получилось?

Видишь молчит Уничтожил документ окончательно Вместе с компом Это ты ему зашифровано "формат С" прописал?

[Kidont]

В общем создавай макрос и выполняй:
Команду RemoveHyperlinks()

Sub ReplaceBypattern(pattern)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = pattern
.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
End Sub


Sub RemoveHyperlinks()
While ActiveDocument.Hyperlinks.Count > 0
ActiveDocument.Hyperlinks(1).Delete
Wend
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
While ActiveDocument.Shapes.Count > 0
ActiveDocument.Shapes(1).Delete
Wend
While ActiveDocument.InlineShapes.Count > 0
ActiveDocument.InlineShapes(1).Delete
Wend
For i = 1 To 9999
if i<10 then
leadingzero = "00"
elseif i<100 then
leadingzero = "0"
else
leadingzero = ""
endif
ReplaceBypattern (leadingzero + Trim(Str(i)))
Next
End Sub

[Luna]

Kidont, молодец! Работает

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

Application.Options.AutoFormatAsYouTypeReplaceHype rlinks = False, только тут надо так: Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False иначе ошибку выдает))

[Padre]

Серега, получилось?

Нееееееееееееееееееееееееааааааааат!!!!!!!!!!!!!!


Kidont,можно инструкцию для идиотов-как это делать и куды все это вставлять? И как команду исполнять?
Только пошагово, плз. А то я сейчас создал, команду выполнил...а ничего не произошло...

[Luna]

Application.Options.AutoFormatAsYouTypeReplaceHype rlinks = False, только тут надо так:
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
без пробела перед links, иначе ошибку выдает))

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

баги форума, короче опять пробел вылез, надо, чтобы их в этой строке небыло )
Padre, подробное описание, как работать с макросами в моем посте, 6-ом помоему. Следуй инструкциям и всё получится, толко сам макрос последний вставляй. У меня всё получилось, хотя делаю это в первый раз.

[Kidont]

можно инструкцию для идиотов-как это делать и куды все это вставлять

1. Alt+F11 - вылезет окно для макросов
2. Там найдешь в левой части сверху в окне названия открытых документов. Найдешь свой текст, например project "текстпровойну.doc"
3. клацаешь на свой документ
4. Потом нажимаешь правую кнопу мыши и в меню выбираешь "вставить модуль"
5. вставляешь две процедуры, что я тебе дал
6. Переходишь на Sub RemoveHyperlinks() While ActiveDocument.Hyperlinks.Count > 0 и жмешь F5

[Padre]

Kidont, вот что у меня получилось.

И ппц. Я наверное полный дуралей, но не могу понять что и где ковырять. Ворд 2007