Тема: макросы: по просьбам трудящихся

Re: макросы: по просьбам трудящихся

19/02/2007 12:05:59 #Link

wOxxOm

Видел пару раз такую проблему, решалось переустановкой MSOffice

Re: макросы: по просьбам трудящихся

19/02/2007 12:45:35 #Link

Eldar

izrukvruki в Corle через меню File/Send to/Mile.

Re: макросы: по просьбам трудящихся

19/02/2007 13:13:12 #Link

izrukvruki

Я знаю как через меню, а как это на VBA реализовать?

wOxxOm: То есть ты думаешь, что это гадость приползла при установке Офиса?

Re: макросы: по просьбам трудящихся

19/02/2007 15:26:28 #Link

wOxxOm

Это *исправляется* переустановкой офиса.

Re: макросы: по просьбам трудящихся

20/02/2007 11:21:34 #Link

izrukvruki

А какие существуют функции для работы с датой, мне нужно узнать текущий год, месяц???

Как можно строковые переменные переводить в числа (целые) и наоборот

Re: макросы: по просьбам трудящихся

20/02/2007 13:02:53 #Link

wOxxOm

year(now), month(now), dateSerial(2007,2,20), в строку-cstr(25), format(...), formatDateTime(...), в число цел. - val("25"

, cdbl("25,5"

, isnumeric("25"

Re: макросы: по просьбам трудящихся

21/02/2007 11:21:29 #Link

izrukvruki

возвращаюсь к предыдушему вопросу:
подскажите как через vba реализовать команду file/send to/mail

эта команда в ворде есть, наверняка как то можно...

Re: макросы: по просьбам трудящихся

26/02/2007 15:25:25 #Link

izrukvruki

1) Как мне на странице, найти нужный текст (артистик текст), а если его нет то выдать сообщение "Ошибка идентификации"...
Создать другой текст и ему присвоить все свойства первого, а первый удалить. я сейчас пользуюсь вот такой фишкой, но не устраивает появляются две ошибки...

Цитата:

'Открытие старого макета
OpenDocument Name1

'Замена идентификатора
Set pg = ActiveDocument.ActivePage
Set i = pg.TextFind("Text1", True)

Set inew = pg.ActiveLayer.CreateArtisticText(0, 0, "Text2"
inew.Text.FontProperties.Name = "Arial"
inew.Text.FontProperties.Size = i.Text.FontProperties.Size
inew.Text.FontProperties.Style = i.Text.FontProperties.Style
inew.Fill = i.Fill
inew.RotationAngle = i.RotationAngle
inew.RotationCenterX = i.RotationCenterX
inew.RotationCenterY = i.RotationCenterY
inew.PositionX = i.PositionX
inew.PositionY = i.PositionY
i.Delete 'удаление старого идетификатора

'Сохранение макета
ActiveDocument.SaveAs Name2, opt

2) как мне правильно перезаписать файл Name2 (он должен записываться если закрыт и если открыт), если он открыт в данный момент, то вылетает ошибка, а если пытаюсь его предварительно закрыть, то в ситуации когда он закрыт, появляется ошибка

Re: макросы: по просьбам трудящихся

26/02/2007 15:32:32 #Link

wOxxOm

может достаточно поставить игнор ошибок в первой строке каждой процедуры:

on error resume next

анализ поиска:
Set i = pg.TextFind("Text1", True)
if i is nothing then msgbox "Нету!":goto Netu
......
......
......
.....
Netu:
....
...

Re: макросы: по просьбам трудящихся

27/02/2007 12:24:50 #Link

izrukvruki

Спасибо то-что и надо только я написал так
If i Is Nothing Then
MsgBox ("Ошибка идентификации."

Exit Sub
End If
================
А по второй части моего вопроса не можете помочь???
Как мне провеку провести
If файл Name2 открыт then
MsgBox ("Невозможно переписать файл"

Exit Sub
End If

« 1 2 (3) 4 5 6 »

Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=3606&start=20