1 Тема от Kypo

  • Kypo
  • сержант
  • Неактивен
  • Зарегистрирован: 24.09.2011
  • Сообщений: 11

Тема: Пожалуйста помогите написать простой макрос на свойства документа.

Доброго времени суток!!
Суть в том, что у меня есть три свойства документа word, они разбросаны по тексту, я хочу что бы третье автоматически заполнялось информацией первых двух. То есть человек заполняет одно свойство в тексте "word", а второе "expert", третье отображает "word expert".
Спасибо!!

2 Ответ от Kypo

  • Kypo
  • сержант
  • Неактивен
  • Зарегистрирован: 24.09.2011
  • Сообщений: 11

Re: Пожалуйста помогите написать простой макрос на свойства документа.

Sub AutoClose()
Dim D As Word.Document

    Set D = ActiveDocument
   
    D.BuiltInDocumentProperties(wdPropertyTitle).Value = D.BuiltInDocumentProperties(wdPropertyManager).Value + "  " + D.BuiltInDocumentProperties(wdPropertyComments).Value

End Sub