Как добавить информацию в свойства документа?

@ALEXBR · Регистрация: 07.11.2008

Author24 — интернет-сервис помощи студентам

У каждого документа в меню Файл.Свойства отображается набор свойств. Там есть несколько закладок. Как из кода макроса можно записать информацию в эти свойства (интересуют, в частности, закладки 'Документ' и 'Прочие')? Спасибо.

17.04.2011, 19:11

'название
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = ''
'тема
ActiveDocument.BuiltInDocumentProperties(wdPropertySubject) = ''
'автор
ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) = myText
'руководитель
ActiveDocument.BuiltInDocumentProperties(wdPropertyManager) = myText
'учреждение
ActiveDocument.BuiltInDocumentProperties(wdPropertyCompany) = myText
'группа
ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory) = myText
'ключ
ActiveDocument.BuiltInDocumentProperties(wdPropertyKeywords) = myText
'заметки
ActiveDocument.BuiltInDocumentProperties(wdPropertyComments) = myText
'линк
ActiveDocument.BuiltInDocumentProperties(wdPropertyHyperlinkBase) = myText

@ALEXBR 0 / 0 / 0 Регистрация: 07.11.2008 Сообщений: 29
		1
	Как добавить информацию в свойства документа? 06.04.2011, 18:37. Показов 1888. Ответов 1 Метки нет (Все метки) У каждого документа в меню Файл.Свойства отображается набор свойств. Там есть несколько закладок. Как из кода макроса можно записать информацию в эти свойства (интересуют, в частности, закладки 'Документ' и 'Прочие')? Спасибо. 0

sam-studio
	17.04.2011, 19:11	2
	'название ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle) = '' 'тема ActiveDocument.BuiltInDocumentProperties(wdPropertySubject) = '' 'автор ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor) = myText 'руководитель ActiveDocument.BuiltInDocumentProperties(wdPropertyManager) = myText 'учреждение ActiveDocument.BuiltInDocumentProperties(wdPropertyCompany) = myText 'группа ActiveDocument.BuiltInDocumentProperties(wdPropertyCategory) = myText 'ключ ActiveDocument.BuiltInDocumentProperties(wdPropertyKeywords) = myText 'заметки ActiveDocument.BuiltInDocumentProperties(wdPropertyComments) = myText 'линк ActiveDocument.BuiltInDocumentProperties(wdPropertyHyperlinkBase) = myText