&НаКлиенте
Процедура Вариант1(Команда)
MsWord = Новый COMОбъект(“Word.Application”);
MsWord.Documents.Open(“q:\test.doc”);
Попытка
MsWord.Application.Visible = 0;
Word = MsWord.Application;
Док=Word.Documents(1);
Док.Activate();
ЗаменаКолонтитула=Док.sections.item(1).footers.item(1);
//-Просто вставить строку
ЗаменаКолонтитула.Range.Text=СокрЛП
(
Read more... )