ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в Word 2003 подчеркнуть слово с помощью VFP?
15 сообщений из 15, страница 1 из 1
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37963414
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Добрый день!
Подскажите пожалуйста. Как из 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:44
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37963426
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Kochegra,

Код: plsql
1.
.Selection.Font.Underline = wdUnderlineSingle
...
Рейтинг: 0 / 0
19.09.2012, 09:54
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37963470
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Не очень понятно?
Все равно ошибка Unknow
...
Рейтинг: 0 / 0
19.09.2012, 10:17
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37963490
Ffffffffffffffff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ffffffffffffffff
Гость
FAQ
...
Рейтинг: 0 / 0
19.09.2012, 10:25
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37963501
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
KochegraНе очень понятно?
Все равно ошибка UnknowПодключите word.h
...
Рейтинг: 0 / 0
19.09.2012, 10:29
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37963704
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Тоды так напиши:
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
19.09.2012, 11:50
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37967684
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Jonny540, чесно говоря не помогло. Забил на подчеркивании - сделал без подчеркивания. Но нужно думаю поразбираться будет.
...
Рейтинг: 0 / 0
21.09.2012, 16:37
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37967688
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Кстати, столкнулся еще с такой проблемкой. Кинул прогу в сеть. На своем ПК ворд рисует вывод шаблона. А на других - нет. Ворд вроде как запускается, но без листа.
Что может быть? Проверял на нескольких ПК.
...
Рейтинг: 0 / 0
21.09.2012, 16:39
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37968197
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
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, 12:09
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37968220
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
+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
22.09.2012, 13:28
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37968580
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Jonny540,
Шаблон кинул в проект в отдельную папку. Прежде чем начинается работа с шаблоном он копируется в корень проекта (так сделал, чтоб пользователи случаем не запортили шаблон). А дальше уже начинается работа с шаблоном.
...
Рейтинг: 0 / 0
23.09.2012, 10:25
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37968602
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Kochegra, а с подчеркиванием получилось?
не получится - пришли этот шаблон, поглядим на него...KochegraШаблон кинул в проект в отдельную папку. Прежде чем начинается работа с шаблоном он копируется в корень проекта (так сделал, чтоб пользователи случаем не запортили шаблон). А дальше уже начинается работа с шаблоном.Тут сложно что-то вслепую сказать. Проверь на "другом ПК", шаблон копируется? И правильно ли путь указан (в т.ч. и настройки ворда)?
...
Рейтинг: 0 / 0
23.09.2012, 11:25
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37968909
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
Попробуй другие операции(жирный, курсив и т.д.) на поле Word, по моему они не выполняются..., в шаблоне на этом поле надо подчёркивать...
...
Рейтинг: 0 / 0
23.09.2012, 18:58
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37969384
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
Jonny540,
пока не проверял, текущей работой занимаюсь. Чуть освобожусь - буду смотреть.
...
Рейтинг: 0 / 0
24.09.2012, 09:51
| Ответить | Цитировать | Написать  
Как в Word 2003 подчеркнуть слово с помощью VFP?
    #37969631
Kochegra
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kochegra
Участник
С выводом в ворд разобрался. Сам ошибку сделал. Забыл поменять путь на относительную ссылку. с подчеркиванием пока не получается.
...
Рейтинг: 0 / 0
24.09.2012, 11:54
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как в Word 2003 подчеркнуть слово с помощью VFP?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/search_topic.php?author=1109&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 10ms
get forum list:
 13ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 1748ms
total:  1918ms
созд. / загр.: 1918ms
x
x
Закрыть


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