0
![Вы не можете благодарить!](images/buttons/up_dis.png)
Спасибо: |
Получено: 7,308 Отправлено: 5,287 |
Ловлю МНЛ в сети словоблудия.
Что вам сказать за .... Я таки знаю пару существ (с)
18+
Спасибо: |
Получено: 1,660 Отправлено: 1,437 |
Спасибо: |
Получено: 2,280 Отправлено: 5,170 |
Радре ушел к Макросу, просьба не беспокоить...![]()
Спасибо: |
Получено: 2,280 Отправлено: 5,170 |
Спасибо: |
Получено: 7,308 Отправлено: 5,287 |
Спасибо: |
Получено: 7,421 Отправлено: 967 |
Блин. Люди! Человеки! Какая сволочь придумала всю эту бодягу!? Неужели нельзя нормально, и встроенными средствами все это пофиксить?
Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.
Спасибо: |
Получено: 266 Отправлено: 370 |
значит идея не настолько хороша. была бы хорошая - уже через месяц дала бы результат
--- Добавлено чуть позже ---
именно та, которая хотела, чтобы ты не смог это пофиксить стандартными средствами. кусок текста, говорю, давай, сюда вставь копи-пастом.
неразборчиво
Спасибо: |
Получено: 7,421 Отправлено: 967 |
Ааааааааа! Сей секунд! Во!
В ночь на 1 декабря сорок первого года в расположение роты прибежал батальонный связной. Я в это время ходил по траншее и проверял несение службы ночным нарядом. Связной нагнал меня в узком проходе траншеи и навалился на меня. Он поднялся на цыпочки, вытянул шею и, дыша мне в лицо, таинственно сообщил: — Товарищ лейтенант! Вас срочно вызывает комбат! Я не люблю, когда мне
001 дышат в лицо и изо рта дышащего ударяет неприятный затхлый желудочный запах. У меня появляется желание оттолкнуть его, а он всё ближе лезет ко мне и дышит на меня своей отрыжкой. Он солдат
002. Толкать его без видимых причин вроде нельзя. А я не переношу и не могу терпеть, когда мне вот так лезут и дышат. Связь работает. Могли бы и по телефону сообщить о вызове, — думаю я. Не обязательно гонять солдата по такому поводу. Здесь что-то не так! Опять какую-нибудь разведку боем провернуть задумали. — Вас срочно вызывает к себе комбат! — слышу я голос солдата и чувствую противный запах у него изо рта. — Ладно приду! — отвечаю я и отворачиваюсь от него в другую сторону. Но ему
003 неймётся и он опять забегает наперёд. — Комбат велел мне вместе с вами к нему идти. — Комбат? — переспрашиваю я, и отворачиваюсь от него.
004
Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.
Спасибо: |
Получено: 266 Отправлено: 370 |
я знаю, как убрать все картинки и как убрать все цифры. картинки убрать - хорошо, а вот есть ли в тексте цифры, которые нужны?
неразборчиво
Спасибо: |
Получено: 7,421 Отправлено: 967 |
Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.
Спасибо: |
Получено: 266 Отправлено: 370 |
УРА!!!!!!!!!!!!!!! Серега, делаешь так: Заходишь в replace (замена) в поле "что меняем" вставляешь вот это: ^g^#^#^#
а поле "на что": ничего не ставишь
Эта фигня найдет все сочетания, где картинка стоит перед тремя цифрами и удалит к е...ням.
--- Добавлено чуть позже ---
и картинку и три цифры удалит
--- Добавлено чуть позже ---
Серега, получилось?
неразборчиво
Спасибо: |
Получено: 7,308 Отправлено: 5,287 |
В общем создавай макрос и выполняй:
Команду 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
Ловлю МНЛ в сети словоблудия.
Что вам сказать за .... Я таки знаю пару существ (с)
18+
Спасибо: |
Получено: 2,232 Отправлено: 964 |
Kidont, молодец! Работает
--- Добавлено чуть позже ---
Application.Options.AutoFormatAsYouTypeReplaceHype rlinks = False, только тут надо так: Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False иначе ошибку выдает))
Спасибо: |
Получено: 7,421 Отправлено: 967 |
Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.
Спасибо: |
Получено: 2,232 Отправлено: 964 |
Application.Options.AutoFormatAsYouTypeReplaceHype rlinks = False, только тут надо так:
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
без пробела перед links, иначе ошибку выдает))
--- Добавлено чуть позже ---
баги форума, короче опять пробел вылез, надо, чтобы их в этой строке небыло)
Padre, подробное описание, как работать с макросами в моем посте, 6-ом помоему. Следуй инструкциям и всё получится, толко сам макрос последний вставляй. У меня всё получилось, хотя делаю это в первый раз.
Спасибо: |
Получено: 7,308 Отправлено: 5,287 |
1. Alt+F11 - вылезет окно для макросов
2. Там найдешь в левой части сверху в окне названия открытых документов. Найдешь свой текст, например project "текстпровойну.doc"
3. клацаешь на свой документ
4. Потом нажимаешь правую кнопу мыши и в меню выбираешь "вставить модуль"
5. вставляешь две процедуры, что я тебе дал
6. Переходишь на Sub RemoveHyperlinks() While ActiveDocument.Hyperlinks.Count > 0 и жмешь F5
Ловлю МНЛ в сети словоблудия.
Что вам сказать за .... Я таки знаю пару существ (с)
18+