Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как повернуть страницу.... в Word е.... / 8 сообщений из 8, страница 1 из 1
23.06.2004, 10:50
    #32573170
Lipton
Lipton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
Начал осваивать генерацию отчетов в Word,

и сталкнулся сразу с вопросами,

1. Как поменять страницу на альбомную ?

2. как написать примерно следующее, т.е строку по горизонтале, ну что то на подобие название колонок:

Номер лицевой счет ФИО и.т.д.

можно конечно что то вроде
owordRef.insert('Номер лицевой счет ФИО'),

но это думаю что неправильно, так как потом надо выводить сами поля из

готовой таблицы,

и с этим возникают проблемы..... ?????

как сделать все правильно, чтобы потом стыдно не было не перед кем ???

подскажите пожалуйста .....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2004, 11:36
    #32573312
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
В подобных случаях запускают запись макроса и смотрят написанный код. Потом адаптируют его под FoxPro.

Т.е. открываешь Word, далее пункт гланого меню Сервис -> Макрос -> Начать запись

Выполняешь все необходимые манипуляции с текстом.
Останавливаешь запись макроса
Смотришь содержимое макроса (Сервис -> Макрос -> Макросы -> Изменить)

В отношении ориентации бумаги будет примерно такая запись в макросе

ActiveDocument.PageSetup.Orientation = wdOrientLandscape

wdOrientLandscape - это константа. Ее значение равно 1

Список значений многих констант можешь скачать отсюда

http://www.foxclub.ru/sol/index.php?act=view&id=43


В синтаксисе FoxPro это будет выглядеть примерно так:

Код: plaintext
1.
2.
3.
4.
5.
#DEFINE wdOrientLandscape  1 
oWordApp = CREATEOBJECT('Word.Application')
oWordDoc = m.oWordApp.Documents.Add()
m.oWordDoc.PageSetup.Orientation = wdOrientLandscape
m.oWordApp.Visible=.T.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2004, 12:01
    #32573380
Lipton
Lipton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
Да, с 1. вопросом только что разобрался.....,
спасибо...,

а вот со вторым вопросом не могу,

пишу что то вроде

oWordRef.Font("Times New Roman",12)
oWordRef.CharColor(0)
owordRef.insert(cr)
owordRef.insert( '№ п/п Адрес')
SCAN

owordRef.insert(cr)

oWordRef.Font("Times New Roman",10)

oWordRef.CharColor(0)

owordRef.insert(ALLTRIM(STR(RECNO(),4))+" "+ALLTRIMstreet)+" , "+ALLTRIM(house)+" , "+ALLTRIM(korp))

owordRef.insert(cr)

ENDSCAN
перед этим конечно же таблицу вызываю

только каряво получается,
хочу как типа векселе по колонкам вывести но не могу,

может подскажешь как ,
заранее благодарен....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2004, 13:07
    #32573615
Lipton
Lipton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
тут такое дело, в Ворде записал макрос, по созданию таблицы

в 2 строки и 5 колонок, так вот в макросе код такой:
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed

перевожу его в Фокс


oword.Tables.Add.Range=(2,5)
oword.Selection.TypeText('№ п/п ')
oword.Selection.MoveRight
oword.Selection.TypeText('ИНН')
oword.Selection.MoveRight

Вопрос, Он ругается на создание таблицы, блин ну я уже кончаюсь просто...

подскажите как правильней написать....

я уже згрыз 2 карандаша......
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2004, 13:12
    #32573644
A
A
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
Правильней использовать шаблон
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2004, 13:15
    #32573654
Lipton
Lipton
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
а это еще как ????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2004, 14:05
    #32573805
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
Код: plaintext
1.
2.
3.
4.
oWordApp = CREATEOBJECT('Word.Application')
oWordDoc = m.oWordApp.Documents.Add()
m.oWordDoc.Tables.Add(m.oWordApp.Selection.Range, 2 , 5 )
m.oWordApp.Visible=.T.

Поскольку в FoxPro нет именованных параметров, то параметры передаются в порядке их следования.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2004, 15:54
    #32574139
FM32YO aka KID
FM32YO aka KID
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как повернуть страницу.... в Word е....
#DEFINE cr CHR(13)
********************************************
oWord = CreateObject("Word.Application")
oWord.Visible = .t.

oDocument = oWord.Documents.Add("C:\doc1.doc") && add a doc from existing file

*oRange = oWord.ActiveDocument.Range(1, 9)

*oRange.Select()

oRange = oWord.ActiveDocument.Range()

oRange.InsertAfter(cr)

oRange.InsertAfter("Тест надписи" + cr)

oRange.InsertAfter(cr)

oRange.MoveEnd(6)
oRange.Collapse(0)

oTable = oWord.ActiveDocument.Tables.Add(oRange, 1, 4)

WITH oTable
.Cell[1,1].Range.InsertAfter("Колонка 1, строка 1")
.Cell[1,1].Width = 55
.Rows.Add()
.Cell[1,2].Range.InsertAfter("Колонка 2, строка 1")
.Cell[1,3].Range.InsertAfter("Колонка 3, строка 1")
.Cell[1,4].Range.InsertAfter("Колонка 4, строка 1")
.Rows.Add()
.Cell[2,1].Range.InsertAfter("Колонка 1, строка 2")
.Cell[2,2].Range.InsertAfter("Колонка 2, строка 2")


ENDWITH

НО!!! ИМХО вывод в EXCELL все же удобней и лучше!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как повернуть страницу.... в Word е.... / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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