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

**TimB** · 11.11.2011, 13:03

Сообщение от Padre

Ворд 2007

ааа, у меня 2010. Пришли мне файл свой.

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

Kidont, твой макрос уберет то, что на 00 начинается

**Luna** · 11.11.2011, 13:04

У меня 2007
надо, чтобы справа было так

Сервис, макрос, в появившемся окне сверху пишем название макроса, далее создать, далее справа вписываем код, закрываем.
Далее повторям, сервис, макрос, выбираем свой макрос, выполнить, ждем, готово

**JohnyB5** · 11.11.2011, 13:05

запущен режим самоликвидации
до взрыва осталось 10...9...8...7...

**TimB** · 11.11.2011, 13:07

че толку в убирании гиперссылок? звездочки и цифирьки остаются. их нужно физически уничтожить, тем способом, что я привел.

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

Padre, ты шлешь, нет?

**Kidont** · 11.11.2011, 13:14

Сообщение от TimB

твой макрос уберет то, что на 00 начинается

Ибстественно, ДА...

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

Сообщение от TimB

че толку в убирании гиперссылок?

Ты код почитай...

1. Сначала гиперссылки превращаются в обычный текст
2. Потом убираются два типа картинок
3. Потом убираются надписи с ведущими нулями...

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

Сообщение от Padre

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

Перейди в белое пол под надписью ГЕНЕРАЛ - для военных же написано... или ты еще капитан и боишься влезть к генералу?
И туда вкоряч код, что я дал..

**TimB** · 11.11.2011, 13:21

Сообщение от Kidont

3. Потом убираются надписи с ведущими нулями...

ты уберешь 9 надписей. 001, 002, 003 ... 009.

**Luna** · 11.11.2011, 13:36

Ничего не остается, ни звездочек ни цифирек, толко девственный текст))

**TimB** · 11.11.2011, 13:42

Сообщение от Luna

Ничего не остается, ни звездочек ни цифирек, толко девственный текст))

в этом абзаце - да

**Kidont** · 11.11.2011, 13:43

Сообщение от TimB

ты уберешь 9 надписей. 001, 002, 003 ... 009

Код посмотри внимательно.

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

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

Сообщение от TimB

в этом абзаце - да

Во всех абзацах...

**TimB** · 11.11.2011, 13:45

Kidont, таким макаром ты и номера частей (трехзначные) навернешь одновременно

**Padre** · 11.11.2011, 13:47

Сообщение от Kidont

Перейди в белое пол под надписью ГЕНЕРАЛ - для военных же написано... или ты еще капитан и боишься влезть к генералу?
И туда вкоряч код, что я дал..

Да я так и сделал! Дальше то чего делать?

**Ленок** · 11.11.2011, 13:48

Сообщение от Padre

Дальше то чего делать?

Отправить файл TimB

**TimB** · 11.11.2011, 13:49

Padre, файлик у тебя некислы по размерам. графоман изрядный его писал

ворд пока висит

**Kidont** · 11.11.2011, 13:51

Сообщение от Padre

Да я так и сделал! Дальше то чего делать?

Нажимай F5 и жди, пока текст отмаслает... главное не влезай в сам документ... подожди пока макрос отработает (типа песочные часы превратятся в обычную стрелку)...

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

Сообщение от TimB

таким макаром ты и номера частей (трехзначные) навернешь одновременно

Они любым макаром при поиске и замене навернутся...

**Luna** · 11.11.2011, 13:53

Padre, у тебя пробел не убран в строке, которой я написала, ошибку не выдаёт?

Kidont, чета у меня только трёхзначные цифры берет, а в 4-х одну оставляет не удаленной.

**TimB** · 11.11.2011, 13:58

TimB, убрал все ссылки и все картинки, высылаю.

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

Сообщение от Kidont

Они любым макаром при поиске и замене навернутся...

ни фига. Мы убираем только те цифры, которые не стоят отдельно, а идут сразу за картинкой. Я сначала убрал 4-хзначные (таких не оказалось), потом 3-хзначные, потом 2-хзначные.

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

да, и убираем сразу с картинкой. пусть Падре проверит файл, который я ему отослал и выскажется.

**Kidont** · 11.11.2011, 14:05

Сообщение от Luna

ета у меня только трёхзначные цифры берет, а в 4-х одну оставляет не удаленной.

Возьми исправленный кусок... У тебя просто было в двух циклах без опции TRIm

**Padre** · 11.11.2011, 14:16

Всем спасибо! А Тимуру отдельно! Он мне все исправил! Уряяяяяяяяяяяяяя!

**Luna** · 11.11.2011, 14:33

Game over, Тимур всех победил

**Kidont** · 11.11.2011, 14:42

Сообщение от Luna

Game over, Тимур всех победил

Неа, это падре всех победил. Нашару получил несколько вариантов решений вопроса.

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

Опции темы

Поиск по теме

Похожие темы

Знатокам турбин вопрос !

Вопрос знатокам! опять про ГРМ. ПРАВДА НАДО!

Вопрос к знатокам, про почту(e-mail).

Вопрос знатокам ксенона.

Вопрос к знатокам клуба! Цены поползли в верх

Ваши права