путь к файлу в макросе

[pavel_t]

написал макрос для экспорта файлов в жпег,
как сделать так, чтобы путь к папке указывался жестко,
а картинка называлась по имени файла
вот макрос
Sub telesem()
'
' Recorded 24.11.2005
'
' Description:
'
'
Dim expflt As ExportFilter
Set expflt = ActiveDocument.ExportBitmap("d:\docs\ssw.jpg", cdrJPEG, cdrAllPages, cdrRGBColorImage, True, True, 150, 150, cdrNormalAntiAliasing, False, False, True, False, cdrCompressionNone)
With expflt
.Progressive = False
.Optimized = False
.SubFormat = 0
.Compression = 10
.Smoothing = 10
.Finish
End With
End Sub

то есть нужно заменить это:
("d:\docs\ssw.jpg",

 

[kerch]

Ответ: путь кфайлу в макросе

написал макрос для экспорта файлов в жпег,

Зачем изобретать велосипед?
Существует же макрос FileConverter
Если не ошибаюсь то идет в стандартной поставке

 

[banIDit]

Ответ: путь кфайлу в макросе

Sub Path()
MsgBox ActiveDocument.FileName
MsgBox ActiveDocument.FilePath
End Sub

 

[pavel_t]

Ответ: путь кфайлу в макросе

Sub Path()
MsgBox ActiveDocument.FileName
MsgBox ActiveDocument.FilePath
End Sub

а куда это воткнуть?
просто 1-й раз макрос пишу

 

[banIDit]

Ответ: путь кфайлу в макросе

Извини, но тут никто тебя программированию учить не будет...
ActiveDocument.FileName — есть переменная указывающая имя активного документа.
ActiveDocument.FilePath — есть переменная указывающая путь активного документа.
Дальше сам. Изучай VBA, кореловскую объектную модель, английский... Успехов.

 

[pavel_t]

Ответ: путь кфайлу в макросе

спасибо

 

[pavel_t]

Ответ: путь кфайлу в макросе

так вроде разобрался, в 12 кореле даже работает.
а в 9 версии функции filename нет
никто не сталкивался с такой проблемой?