ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / И вновь о Word'e
11 сообщений из 11, страница 1 из 1
И вновь о Word'e
    #32746072
Shurick
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shurick
Гость
Существует готовая форма в формате "rtf".
Была идея открыть ее через фокс в ворде и в определенные места подставить определенные значения.
Произвольно позиционировать заданное место документа не получилось, как например это можно было сделать в Excel <loExcel.Range("AP25:AP57").Select>.
Была предпринята попытка достигать заданного места документа, путем тупого нажатия кнопок ('вниз','вправо', и т.д.)
В макросе это выглядит так: Selection.MoveDown Unit:=wdLine, Count:=10
Пытаясь перевести это в фокс, пишу в коде следующее:
LOCAL loWord as 'Word.Application'
loWord=CREATEOBJECT("Word.Application")
loWord.Documents.Open("d:\1.RTF")
а вот дальше проблема, как перевести строку Selection.MoveDown Unit:=wdLine, Count:=10
так loWord.Selection.MoveDown(wdLine, 10) ??? но тут естественно ошибка, я так понимаю wdLine это константа, как мне узнать ее значение?
Или я двигаюсь не в том направлении?
...
Рейтинг: 0 / 0
20.10.2004, 12:04
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746141
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
Ага... Не туды...
Я тут "передрал" у кого-то... Надеюсь, не обидятся :-)
Делаешь переменные типа m_baks... Они должны быть символьными... В шаблоне вставляешь их имена таким образом: <m_baks> ...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
m_Baks=ALLTRIM(STR(Reestr.Baks, 10 , 2 ))
...

lcReport="имя нового файла"
loApp=CREATEOBJECT("Word.Application")
loApp.Documents.Open("имя файла шаблона")
loApp.ActiveDocument.SaveAs(lcReport)
loApp.Selection.Find.Execute("\<*\>",,,.T.,,,.T., 1 )
lcFoundText=loApp.Selection.Text
DO WHILE SUBSTR(lcFoundText, 1 , 1 )="<" AND SUBSTR(lcFoundText,LEN(lcFoundText), 1 )=">"
	lcCommand=loApp.Selection.Text
	lcCommand=SUBSTR(lcCommand, 1 ,LEN(lcCommand)- 1 )
	lcCommand=SUBSTR(lcCommand, 2 )
	loApp.Selection.Text=EVALUATE(lcCommand)
	loApp.Selection.Find.Execute("\<*\>",,,.T.,,,.T., 1 )
	lcFoundText=loApp.Selection.Text
ENDDO
loApp.Documents.Save()
loApp.Visible=.T.
...
Рейтинг: 0 / 0
20.10.2004, 12:25
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746216
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Посмотри вот эту дискуссию

http://forum.foxclub.ru/read.php?f=5&i=97007&t=97007]

может она тебя сориентирует.

По поводу переменныхWordа:
1. Поискать файл с ними в Инете
2. Запускаешь Object Browser, на панели инструментов жмешь Open Type Library, выбираешь из списка Microsoft Word (спавишь крыжик), в окне Classes & Members открываешь раздел Constants
...
Рейтинг: 0 / 0
20.10.2004, 12:46
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746243
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
Запускаешь Object Browser, на панели инструментов жмешь Open Type Library, выбираешь из списка Microsoft Word (спавишь крыжик), в окне Classes & Members открываешь раздел Constants
ага и значение констант изменяються от версии к версии
...
Рейтинг: 0 / 0
20.10.2004, 12:57
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746271
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Вряд ли. Хотя ... все может быть, пока не сталкивался, правда Word в качестве отчета пользую очень редко, больше Excel. Если можно пример разных значений констант.
И потом, можно же анализировать версию Wordа и подключать соответствующий файл констант. Ни кто ведь не требует жестко их прописывать в коде.
...
Рейтинг: 0 / 0
20.10.2004, 13:08
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746327
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
а в екселе та же беда
...
Рейтинг: 0 / 0
20.10.2004, 13:27
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746330
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
подключать файл констант куда??
в проэкт так он откомпелируется и будет единый и неделимый екзе
...
Рейтинг: 0 / 0
20.10.2004, 13:29
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746341
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
не верте базеяну
...
Рейтинг: 0 / 0
20.10.2004, 13:34
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746389
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
leafне верте базеяну

Слишком категорично. Лучше так: "Доверяй, но проверяй"
Да, оборот с подключением несколько коряв.
Но в блоке анализа версии Wordа (Excelя) можно описать используемые константы.
...
Рейтинг: 0 / 0
20.10.2004, 13:59
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32746402
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
ну вот я и проверил )
...
Рейтинг: 0 / 0
20.10.2004, 14:05
| Ответить | Цитировать | Написать  
И вновь о Word'e
    #32747482
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi leaf!

Где такую траву взял?

Posted via ActualForum NNTP Server 1.0
...
Рейтинг: 0 / 0
21.10.2004, 01:57
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / И вновь о Word'e
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]