Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в Word 2003 подчеркнуть слово с помощью VFP? / 15 сообщений из 15, страница 1 из 1
19.09.2012, 09:44
    #37963414
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Добрый день!
Подскажите пожалуйста. Как из VFP подчеркнуть в файле .dot (word 2003) слово?

В краце есть следующее:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
LOCAL loWord, loDoc 
loWord = CREATEOBJECT( 'WORD.APPLICATION') 
loDoc=m.loWord.Documents.Add('D:\file.dot') 

IF TYPE([m.loDoc.FormFields("txt1")])="O" 
	m.loDoc.FormFields("txt1").Result='МОЙ ТЕКСТ' 
ENDIF




txt1 - это в шаблоне я добавил Текстовое поле и дал ему такое название.
фокс в это текстовое поле пишет МОЙ ТЕКСТ.

Как применить подчеркивание к полю txt1?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 09:54
    #37963426
Jonny540
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Kochegra,

Код: plsql
1.
.Selection.Font.Underline = wdUnderlineSingle
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 10:17
    #37963470
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Не очень понятно?
Все равно ошибка Unknow
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 10:25
    #37963490
Ffffffffffffffff
Ffffffffffffffff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
FAQ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 10:29
    #37963501
tanglir
tanglir
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
KochegraНе очень понятно?
Все равно ошибка UnknowПодключите word.h
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.09.2012, 11:50
    #37963704
Jonny540
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Тоды так напиши:
Kochegra
Код: plsql
1.
2.
3.
4.
5.
IF TYPE([m.loDoc.FormFields("txt1")])="O" 
        m.loDoc.Font.Underline = 1
	m.loDoc.FormFields("txt1").Result='МОЙ ТЕКСТ' 
        m.loDoc.Font.Underline = 0
ENDIF
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2012, 16:37
    #37967684
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Jonny540, чесно говоря не помогло. Забил на подчеркивании - сделал без подчеркивания. Но нужно думаю поразбираться будет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.09.2012, 16:39
    #37967688
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Кстати, столкнулся еще с такой проблемкой. Кинул прогу в сеть. На своем ПК ворд рисует вывод шаблона. А на других - нет. Ворд вроде как запускается, но без листа.
Что может быть? Проверял на нескольких ПК.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2012, 12:09
    #37968197
Jonny540
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
KochegraJonny540, чесно говоря не помогло. Забил на подчеркивании - сделал без подчеркивания. Но нужно думаю поразбираться будет.А если так:
 
Код: plsql
1.
2.
3.
4.
5.
6.
7.
 
WITH loDoc
        .FormFields("txt1").Result=' ' 
        .Font.Underline = 1
        .FormFields("txt1").Result='МОЙ ТЕКСТ' 
        .Font.Underline = 0
ENDWITH

или так:
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
 
#DEFINE wdUnderlineNone   0
#DEFINE wdUnderlineSingle   1
#DEFINE wdCharacter   1
#DEFINE wdExtend   1
WITH loDoc
        lentext=LEN('МОЙ ТЕКСТ') 
        .FormFields("txt1").Result='МОЙ ТЕКСТ' 
        .MoveLeft(wdCharacter, lentext,wdExtend)
        .Font.Underline = wdUnderlineSingle
        .MoveRight(wdCharacter, lentext)
        .Font.Underline = wdUnderlineNone
ENDWITH

или сохрани и работай уже с документом:
Код: plsql
1.
.ActiveDocument.SaveAs("документ.doc",0, False, "", True, "", False, False, False, False, False)

не получится - пришли этот шаблон, поглядим на него...
KochegraНа своем ПК ворд рисует вывод шаблона. А на других - нет. Ворд вроде как запускается, но без листа.
Что может быть? Проверял на нескольких ПК.На этих "других ПК" есть этот шаблон?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.09.2012, 13:28
    #37968220
Jonny540
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
+1
Точнее так:
 
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
#DEFINE wdUnderlineNone   0
#DEFINE wdUnderlineSingle   1
#DEFINE wdCharacter   1
#DEFINE wdExtend   1
WITH loDoc
        lentext=LEN('МОЙ ТЕКСТ') 
        .FormFields("txt1").Result='МОЙ ТЕКСТ' 
        .MoveLeft(wdCharacter, lentext,wdExtend)
        .Selection.Font.Underline = wdUnderlineSingle
        .MoveRight(wdCharacter, lentext)
        .Font.Underline = wdUnderlineNone
ENDWITH

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2012, 10:25
    #37968580
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Jonny540,
Шаблон кинул в проект в отдельную папку. Прежде чем начинается работа с шаблоном он копируется в корень проекта (так сделал, чтоб пользователи случаем не запортили шаблон). А дальше уже начинается работа с шаблоном.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2012, 11:25
    #37968602
Jonny540
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Kochegra, а с подчеркиванием получилось?
не получится - пришли этот шаблон, поглядим на него...KochegraШаблон кинул в проект в отдельную папку. Прежде чем начинается работа с шаблоном он копируется в корень проекта (так сделал, чтоб пользователи случаем не запортили шаблон). А дальше уже начинается работа с шаблоном.Тут сложно что-то вслепую сказать. Проверь на "другом ПК", шаблон копируется? И правильно ли путь указан (в т.ч. и настройки ворда)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2012, 18:58
    #37968909
q1w1e1
q1w1e1
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Попробуй другие операции(жирный, курсив и т.д.) на поле Word, по моему они не выполняются..., в шаблоне на этом поле надо подчёркивать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.09.2012, 09:51
    #37969384
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
Jonny540,
пока не проверял, текущей работой занимаюсь. Чуть освобожусь - буду смотреть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.09.2012, 11:54
    #37969631
Kochegra
Kochegra
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как в Word 2003 подчеркнуть слово с помощью VFP?
С выводом в ворд разобрался. Сам ошибку сделал. Забыл поменять путь на относительную ссылку. с подчеркиванием пока не получается.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в Word 2003 подчеркнуть слово с помощью VFP? / 15 сообщений из 15, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 166ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1583439]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 50ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 15ms
total:  166ms
x
x
Закрыть


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