0
Тема: Знатокам Word -вопрос!
-
10.11.2011, 18:41 #21
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
-
10.11.2011, 18:41 #22
- Регистрация
- 15.08.2005
- Адрес
- Россия, Москва, Новогиреево
- Возраст
- 44
- Сообщений
- 6,503
- Записей в дневнике
- 3
Спасибо: Получено: 1,660
Отправлено: 1,430
-
10.11.2011, 19:49 #23
- Регистрация
- 06.06.2008
- Адрес
- @igorikcc
- Возраст
- 49
- Сообщений
- 17,276
- Записей в дневнике
- 13
Спасибо: Получено: 2,280
Отправлено: 5,170
0Радре ушел к Макросу, просьба не беспокоить...
-
10.11.2011, 20:51 #24
-
10.11.2011, 22:48 #25
- Регистрация
- 06.06.2008
- Адрес
- @igorikcc
- Возраст
- 49
- Сообщений
- 17,276
- Записей в дневнике
- 13
Спасибо: Получено: 2,280
Отправлено: 5,170
-
11.11.2011, 00:28 #26
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
-
11.11.2011, 09:51 #27
- Регистрация
- 30.05.2007
- Адрес
- Россия, Москва, ЮЗАО
- Возраст
- 45
- Сообщений
- 23,491
Спасибо: Получено: 7,421
Отправлено: 967
0Блин. Люди! Человеки! Какая сволочь придумала всю эту бодягу!? Неужели нельзя нормально, и встроенными средствами все это пофиксить?
Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.
-
11.11.2011, 10:13 #28
- Регистрация
- 23.11.2006
- Адрес
- Россия, Москва, СЗАО
- Возраст
- 43
- Сообщений
- 14,059
Спасибо: Получено: 266
Отправлено: 370
0неразборчиво
-
11.11.2011, 10:20 #29
- Регистрация
- 30.05.2007
- Адрес
- Россия, Москва, ЮЗАО
- Возраст
- 45
- Сообщений
- 23,491
Спасибо: Получено: 7,421
Отправлено: 967
0Ааааааааа! Сей секунд! Во!
В ночь на 1 декабря сорок первого года в расположение роты прибежал батальонный связной. Я в это время ходил по траншее и проверял несение службы ночным нарядом. Связной нагнал меня в узком проходе траншеи и навалился на меня. Он поднялся на цыпочки, вытянул шею и, дыша мне в лицо, таинственно сообщил: — Товарищ лейтенант! Вас срочно вызывает комбат! Я не люблю, когда мне 001 дышат в лицо и изо рта дышащего ударяет неприятный затхлый желудочный запах. У меня появляется желание оттолкнуть его, а он всё ближе лезет ко мне и дышит на меня своей отрыжкой. Он солдат 002. Толкать его без видимых причин вроде нельзя. А я не переношу и не могу терпеть, когда мне вот так лезут и дышат. Связь работает. Могли бы и по телефону сообщить о вызове, — думаю я. Не обязательно гонять солдата по такому поводу. Здесь что-то не так! Опять какую-нибудь разведку боем провернуть задумали. — Вас срочно вызывает к себе комбат! — слышу я голос солдата и чувствую противный запах у него изо рта. — Ладно приду! — отвечаю я и отворачиваюсь от него в другую сторону. Но ему 003 неймётся и он опять забегает наперёд. — Комбат велел мне вместе с вами к нему идти. — Комбат? — переспрашиваю я, и отворачиваюсь от него. 004Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.
-
11.11.2011, 11:45 #30
- Регистрация
- 23.11.2006
- Адрес
- Россия, Москва, СЗАО
- Возраст
- 43
- Сообщений
- 14,059
Спасибо: Получено: 266
Отправлено: 370
0я знаю, как убрать все картинки и как убрать все цифры. картинки убрать - хорошо, а вот есть ли в тексте цифры, которые нужны?
неразборчиво
-
11.11.2011, 11:46 #31
-
11.11.2011, 11:50 #32
-
11.11.2011, 12:09 #33
- Регистрация
- 23.11.2006
- Адрес
- Россия, Москва, СЗАО
- Возраст
- 43
- Сообщений
- 14,059
Спасибо: Получено: 266
Отправлено: 370
0УРА!!!!!!!!!!!!!!! Серега, делаешь так: Заходишь в replace (замена) в поле "что меняем" вставляешь вот это: ^g^#^#^#
а поле "на что": ничего не ставишь
Эта фигня найдет все сочетания, где картинка стоит перед тремя цифрами и удалит к е...ням.
--- Добавлено чуть позже ---
и картинку и три цифры удалит
--- Добавлено чуть позже ---
Серега, получилось?неразборчиво
-
11.11.2011, 12:16 #34
-
11.11.2011, 12:17 #35
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
0В общем создавай макрос и выполняй:
Команду 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+
-
11.11.2011, 12:28 #36
- Регистрация
- 13.06.2006
- Адрес
- Мск
- Сообщений
- 7,365
- Записей в дневнике
- 6
Спасибо: Получено: 2,225
Отправлено: 961
0Kidont, молодец! Работает
--- Добавлено чуть позже ---
Application.Options.AutoFormatAsYouTypeReplaceHype rlinks = False, только тут надо так: Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False иначе ошибку выдает))
-
11.11.2011, 12:30 #37
- Регистрация
- 30.05.2007
- Адрес
- Россия, Москва, ЮЗАО
- Возраст
- 45
- Сообщений
- 23,491
Спасибо: Получено: 7,421
Отправлено: 967
0Внутри каждого человека идёт борьба злого волка с добрым. Всегда побеждает тот волк, которого ты кормишь.
-
11.11.2011, 12:35 #38
- Регистрация
- 13.06.2006
- Адрес
- Мск
- Сообщений
- 7,365
- Записей в дневнике
- 6
Спасибо: Получено: 2,225
Отправлено: 961
0Application.Options.AutoFormatAsYouTypeReplaceHype rlinks = False, только тут надо так:
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
без пробела перед links, иначе ошибку выдает))
--- Добавлено чуть позже ---
баги форума, короче опять пробел вылез, надо, чтобы их в этой строке небыло )
Padre, подробное описание, как работать с макросами в моем посте, 6-ом помоему. Следуй инструкциям и всё получится, толко сам макрос последний вставляй. У меня всё получилось, хотя делаю это в первый раз.
-
11.11.2011, 12:40 #39
- Регистрация
- 27.12.2008
- Сообщений
- 44,393
- Записей в дневнике
- 1
Спасибо: Получено: 7,308
Отправлено: 5,287
01. Alt+F11 - вылезет окно для макросов
2. Там найдешь в левой части сверху в окне названия открытых документов. Найдешь свой текст, например project "текстпровойну.doc"
3. клацаешь на свой документ
4. Потом нажимаешь правую кнопу мыши и в меню выбираешь "вставить модуль"
5. вставляешь две процедуры, что я тебе дал
6. Переходишь на Sub RemoveHyperlinks() While ActiveDocument.Hyperlinks.Count > 0 и жмешь F5Ловлю МНЛ в сети словоблудия.
Что вам сказать за .... Я таки знаю пару существ (с)
18+
-
11.11.2011, 12:53 #40
Похожие темы
-
Знатокам турбин вопрос !
от sergeeeiii в разделе Архив 2010г.Ответов: 0Последнее сообщение: 16.03.2010, 20:57 -
Вопрос знатокам! опять про ГРМ. ПРАВДА НАДО!
от SerGiy в разделе Архив 2007г.Ответов: 27Последнее сообщение: 26.11.2007, 17:09 -
Вопрос к знатокам, про почту(e-mail).
от alex77 в разделе Курилка - МатюгалкаОтветов: 11Последнее сообщение: 15.11.2006, 11:40 -
Вопрос знатокам ксенона.
от DEMON77 в разделе Архив 2006г.Ответов: 41Последнее сообщение: 16.10.2006, 20:10 -
Вопрос к знатокам клуба! Цены поползли в верх
от White61 в разделе Архив 2006г.Ответов: 20Последнее сообщение: 25.05.2006, 17:22