G
Guest
Всем привет. Есть следующая задача: нужно сделать так, чтоб в Illustrator пользователю не нужно было заполнять самому все поля заголовочного блока, когда что либо изменяется. Скрипт должен сам звводит всю необходимую инфу: имя пользователя (редактора), дата создания документа и изменения, путь и имя файла.
<!--shcode--><pre><code class='vb'>Option Explicit
Private Sub Command1_Click()
Dim myApp As New Illustrator.Application
Dim myFileSystemObject As New FileSystemObject
Dim myFileName, myPath, myFile, myDate, myRevised, myEditor
If myApp.Documents.Count > 0 Then
myFileName = myApp.Documents(1).Name
myPath = myApp.Documents(1).Path
Set myFile = myFileSystemObject.GetFile(myPath)
myDate = MonthName(Month(myFile.DateCreated))
myDate = myDate & " " & Day(myFile.DateCreated)
myDate = myDate & ", " & Year(myFile.DateCreated)
myRevised = MonthName(Month(myFile.DateLastModified))
myRevised = myRevised & " " & Day(myFile.DateLastModified)
myRevised = myRevised & ", " & Year(myFile.DateLastModified)
myEditor = GetUserName()
On Error Resume Next
myApp.Documents(1).TextArtItems("titleblock-file").Contents = myFile
myApp.Documents(1).TextArtItems("titleblock-path").Contents = myPath
myApp.Documents(1).TextArtItems("titleblock-date").Contents = myDate
myApp.Documents(1).TextArtItems("titleblock-revised").Contents = myRevised
myApp.Documents(1).TextArtItems("titleblock-editor").Contents = myEditor
End If
End Sub[/CODE]
Возникает, видимо, проблема с библиотекой. Выскакивает ошибка 53 - файл не найдет.
А также при кампиляции можно увидеть, что Illustrator.Application = <object variable or with block variable not set>
Помогите, пожалуйста.
<table valign="top" style='margin:0;width:100%;border:1px dashed red;'>[tr]<td align='middle' bgcolor='#ff6060' valign='top' width='1%'>
<FONT color='#ffffff' size='+3'> ! </font>
</td><td align="midle" valign='top' style='background:#fff;'>Используйте теги оформления кода.</td>[/tr]</table>
<!--shcode--><pre><code class='vb'>Option Explicit
Private Sub Command1_Click()
Dim myApp As New Illustrator.Application
Dim myFileSystemObject As New FileSystemObject
Dim myFileName, myPath, myFile, myDate, myRevised, myEditor
If myApp.Documents.Count > 0 Then
myFileName = myApp.Documents(1).Name
myPath = myApp.Documents(1).Path
Set myFile = myFileSystemObject.GetFile(myPath)
myDate = MonthName(Month(myFile.DateCreated))
myDate = myDate & " " & Day(myFile.DateCreated)
myDate = myDate & ", " & Year(myFile.DateCreated)
myRevised = MonthName(Month(myFile.DateLastModified))
myRevised = myRevised & " " & Day(myFile.DateLastModified)
myRevised = myRevised & ", " & Year(myFile.DateLastModified)
myEditor = GetUserName()
On Error Resume Next
myApp.Documents(1).TextArtItems("titleblock-file").Contents = myFile
myApp.Documents(1).TextArtItems("titleblock-path").Contents = myPath
myApp.Documents(1).TextArtItems("titleblock-date").Contents = myDate
myApp.Documents(1).TextArtItems("titleblock-revised").Contents = myRevised
myApp.Documents(1).TextArtItems("titleblock-editor").Contents = myEditor
End If
End Sub[/CODE]
Возникает, видимо, проблема с библиотекой. Выскакивает ошибка 53 - файл не найдет.
А также при кампиляции можно увидеть, что Illustrator.Application = <object variable or with block variable not set>
Помогите, пожалуйста.
<table valign="top" style='margin:0;width:100%;border:1px dashed red;'>[tr]<td align='middle' bgcolor='#ff6060' valign='top' width='1%'>
<FONT color='#ffffff' size='+3'> ! </font>
</td><td align="midle" valign='top' style='background:#fff;'>Используйте теги оформления кода.</td>[/tr]</table>