FoxClub Forums > Visual Foxpro, Foxpro for DOS > Вставка текста в нижний колонтитул документа Word из VFP ::

• Войти

Вставка текста в нижний колонтитул документа Word из VFP
ZenTigra Автор Сообщений: 514 Дата регистрации: 03.12.2004	ZenTigra 15.08.18 15:47:22 Необходимо открыть документ Word, выделить весь текст, скопировать его в буфер обмена, потом вставить в нижний колонтитул определенный текст. Вот текст программы oWord = CreateObject("Word.Application") T_file="c:\DIR\test.doc" oWord.Documents.Open(T_file) oWord.Selection.WholeStory oWord.Selection.Copy T_cliptext=_CLIPTEXT oWord.ActiveWindow.ActivePane.View.SeekView = 10 oWord.Selection.Text=ALLTRIM(T_file)+CHR(9)+TTOC(DATETIME()) oWord.Documents.Save oWord.Documents.Close oWord.Application.Quit Проблема в том, что Word вставляет текст в колонтитул, но после сохранения документа выдает запрос на сохранение шаблона normal.dotm, что я делаю неправильно? Исправлено 1 раз(а). Последнее : ZenTigra, 15.08.18 15:48

Вставка текста в нижний колонтитул документа Word из VFP

ZenTigra
Автор

Сообщений: 514
Дата регистрации: 03.12.2004

ZenTigra

15.08.18 15:47:22

Необходимо открыть документ Word, выделить весь текст, скопировать его в буфер обмена, потом вставить в нижний колонтитул определенный текст.

Вот текст программы


oWord = CreateObject("Word.Application")
T_file="c:\DIR\test.doc"
            
oWord.Documents.Open(T_file)
oWord.Selection.WholeStory
oWord.Selection.Copy
T_cliptext=_CLIPTEXT
                 
oWord.ActiveWindow.ActivePane.View.SeekView = 10
oWord.Selection.Text=ALLTRIM(T_file)+CHR(9)+TTOC(DATETIME())
oWord.Documents.Save

oWord.Documents.Close
oWord.Application.Quit

Проблема в том, что Word вставляет текст в колонтитул, но после сохранения документа выдает запрос на сохранение шаблона normal.dotm, что я делаю неправильно?

Исправлено 1 раз(а). Последнее : ZenTigra, 15.08.18 15:48

Re: Вставка текста в нижний колонтитул документа Word из VFP
dimuhametov Сообщений: 1562 Откуда: Костанай Дата регистрации: 01.11.2008	dimuhametov 16.08.18 06:50:44 forum.foxclub.ru ------------------ Незнание делает жизнь такой интересной.

Re: Вставка текста в нижний колонтитул документа Word из VFP
ZenTigra Автор Сообщений: 514 Дата регистрации: 03.12.2004	ZenTigra 16.08.18 08:26:02 Извиняюсь, не уточнил, на компьютере установлен MSOffice 2010, с постоянно запущенным MS Outlook, который получает эти самые документы и сохраняет их в определенную папку. (Windows 10) Тестировал на своем компьютере, где установлен MSOffice 2003, пробовал из среды VFP редактировать файлы Word, проблем никаких нет. Безопасность макросов - Высокая, запрос на сохранение шаблона Normal.bot - выключен. (Windows 7) Поставить на ту машину MSOffice 2003, не могу, тогда нет нормального взаимодействия с Outlook...

Re: Вставка текста в нижний колонтитул документа Word из VFP

ZenTigra
Автор

Сообщений: 514
Дата регистрации: 03.12.2004

ZenTigra

16.08.18 08:26:02

Извиняюсь, не уточнил, на компьютере установлен MSOffice 2010, с постоянно запущенным MS Outlook, который получает эти самые документы и сохраняет их в определенную папку. (Windows 10)

Тестировал на своем компьютере, где установлен MSOffice 2003, пробовал из среды VFP редактировать файлы Word, проблем никаких нет. Безопасность макросов - Высокая, запрос на сохранение шаблона Normal.bot - выключен. (Windows 7)

Поставить на ту машину MSOffice 2003, не могу, тогда нет нормального взаимодействия с Outlook...

Re: Вставка текста в нижний колонтитул документа Word из VFP
Crispy Сообщений: 18571 Дата регистрации: 16.05.2005	Crispy 16.08.18 08:34:25 Попробуй вместо oWord.Documents.Save oWord.Documents.Close закрытие с охранением по умолчанию oWord.Documents.Close SaveChanges:=wdSaveChanges ------------------ В действительности все иначе, чем на самом деле. (Антуан де Сент-Экзюпери)

Re: Вставка текста в нижний колонтитул документа Word из VFP
ZenTigra Автор Сообщений: 514 Дата регистрации: 03.12.2004	ZenTigra 16.08.18 08:50:55 Пишу команды oWord.Documents.Close oWord.Application.Quit и удивительно, документ сохранен, и никакой ошибки Исправлено 1 раз(а). Последнее : ZenTigra, 16.08.18 08:52

:: Список Форумов•Список тем•Поиск•Войти

Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 17 (Гостей: 17)