1

Тема: Имя файла

Всем доброго времени суток!

Подскажите, как самому назначить имя файлу открываемому из шаблона макросом, а то все время получается Документ1, Документ2 и так далее.
В идеале хотелось бы текущее время создания (открытия).

2

Re: Имя файла

Dryun пишет:

Всем доброго времени суток!

Подскажите, как самому назначить имя файлу открываемому из шаблона макросом, а то все время получается Документ1, Документ2 и так далее.
В идеале хотелось бы текущее время создания (открытия).

Насколько я понимаю, имя созданного на основе шаблона документа до его сохранения сменить нельзя. Если бы вы создавали текстовое имя, то можно было бы в свойствах шаблона каждый раз задавать новое значения свойства

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3

Re: Имя файла

Ох уж эта обрезка текста после ввода капчи...

Dryun пишет:

Всем доброго времени суток!

Подскажите, как самому назначить имя файлу открываемому из шаблона макросом, а то все время получается Документ1, Документ2 и так далее.
В идеале хотелось бы текущее время создания (открытия).

Насколько я понимаю, имя созданного на основе шаблона документа до его сохранения сменить нельзя. Если бы вы создавали текстовое имя, то можно было бы в свойствах шаблона каждый раз задавать новое значения свойства "Название" или "Title" документа и тогда при сохранении основанного на шаблоне документа вам предлагалось бы это имя в качестве названия.

Dim oDoc As Document
Dim oTemp As Document
Set oTemp = Word.Application.Documents.Open(FileName:="[b]Путь к шаблону[/b]", Visible:=False)
sName = Date & Chr(160) & Time
'Меняем значение свойства "Название" шаблона
oTemp.BuiltInDocumentProperties(wdPropertyTitle).Value = sName
oTemp.Close saveChanges:=wdSaveChanges
'Открываем документ на основе шаблона
Set oDoc = Application.Documents.Add("[b]Путь к шаблону[/b]")

Но проблема в том, что ворд обрезает всё значение до первого знака препинания. Как это изменить - нужно искать, поэтому рекомендую просто сохранение вашего документа с помощью макроса

Path = "Указать нужную папку сохранения в виде C:\Documents\"
ActiveDocument.SaveAs2 FileName:=Path & Date & Chr(32) & Time & ".doc"
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871