Просматривают:
1 Анонимно
макросы: по просьбам трудящихся |
||
|
|
| # | |
|---|---|---|
Пользователь 1 уровня
 Присоединился:
2005/10/21 23:21 Откуда Н. Новгород
Сообщений: 873
 |
предлагаю созжать такую темку:
очень часто хочется видеть в кореле какую-нибудь штуку, которую даже представляешь как организовать чисто логически, но с VBA не дружишь абсолютно можно оставлять здесь свои идеи и просьбы, и если кто-то знает, как эту проблему решить, видел такой макрос где-нибудь, или же сможет его написать (  ), то он в этой темке нам поможет, и будет ему всеобщее спасибо...от "Письма казаков..." темка отличается тем, что мы не просим у корела сделать что-то, а пытаемся сами решить проблему по мере сил
Опубликовано: 2006/9/22 9:03
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #21 |
|---|---|---|
Пользователь 2 уровня
 Присоединился:
2006/10/22 13:33 Откуда Azerbaijan
Сообщений: 47
|
izrukvruki в Corle через меню File/Send to/Mile.
Опубликовано: 2007/2/19 12:45
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #22 |
|---|---|---|
Пользователь 2 уровня
Присоединился:
2007/2/7 10:40 Сообщений: 42
|
Я знаю как через меню, а как это на VBA реализовать?
wOxxOm: То есть ты думаешь, что это гадость приползла при установке Офиса?
Опубликовано: 2007/2/19 13:13
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #23 |
|---|---|---|
Титан - модератор
 Присоединился:
2006/4/8 19:42 Сообщений: 152
|
Это *исправляется* переустановкой офиса.
Опубликовано: 2007/2/19 15:26
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #24 |
|---|---|---|
|
Пользователь 2 уровня
Присоединился:
2007/2/7 10:40 Сообщений: 42
|
А какие существуют функции для работы с датой, мне нужно узнать текущий год, месяц???
Как можно строковые переменные переводить в числа (целые) и наоборот
Опубликовано: 2007/2/20 11:21
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #25 |
|---|---|---|
|
Титан - модератор
Присоединился:
2006/4/8 19:42 Сообщений: 152
|
year(now), month(now), dateSerial(2007,2,20), в строку-cstr(25), format(...), formatDateTime(...), в число цел. - val("25"
 , cdbl("25,5", isnumeric("25".
Опубликовано: 2007/2/20 13:02
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #26 |
|---|---|---|
|
Пользователь 2 уровня
Присоединился:
2007/2/7 10:40 Сообщений: 42
|
возвращаюсь к предыдушему вопросу:
подскажите как через vba реализовать команду file/send to/mail эта команда в ворде есть, наверняка как то можно...
Опубликовано: 2007/2/21 11:21
|
|
|
|
||
|
|
|
|
Re: макросы: по просьбам трудящихся |
| #27 |
|---|---|---|
|
Пользователь 2 уровня
Присоединился:
2007/2/7 10:40 Сообщений: 42
|
1) Как мне на странице, найти нужный текст (артистик текст), а если его нет то выдать сообщение "Ошибка идентификации"...
Создать другой текст и ему присвоить все свойства первого, а первый удалить. я сейчас пользуюсь вот такой фишкой, но не устраивает появляются две ошибки... Цитата: 'Открытие старого макета 2) как мне правильно перезаписать файл Name2 (он должен записываться если закрыт и если открыт), если он открыт в данный момент, то вылетает ошибка, а если пытаюсь его предварительно закрыть, то в ситуации когда он закрыт, появляется ошибка
Опубликовано: 2007/2/26 15:25
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #28 |
|---|---|---|
|
Титан - модератор
Присоединился:
2006/4/8 19:42 Сообщений: 152
|
может достаточно поставить игнор ошибок в первой строке каждой процедуры:
on error resume next анализ поиска: Set i = pg.TextFind("Text1", True) if i is nothing then msgbox "Нету!":goto Netu ...... ...... ...... ..... Netu: .... ...
Опубликовано: 2007/2/26 15:32
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #29 |
|---|---|---|
|
Пользователь 2 уровня
Присоединился:
2007/2/7 10:40 Сообщений: 42
|
Спасибо то-что и надо только я написал так
If i Is Nothing Then MsgBox ("Ошибка идентификации." Exit Sub End If ================ А по второй части моего вопроса не можете помочь??? Как мне провеку провести If файл Name2 открыт then MsgBox ("Невозможно переписать файл" Exit Sub End If
Опубликовано: 2007/2/27 12:24
|
|
|
|
||
|
|
Re: макросы: по просьбам трудящихся |
| #30 |
|---|---|---|
|
Титан - модератор
Присоединился:
2006/4/8 19:42 Сообщений: 152
|
Перебор в цикле Application.documents(cnt).name или .fullfilename - см. в коде recentfiles в removefile
Опубликовано: 2007/2/27 14:22
|
|
|
|
||
