Как в Word 2003 подчеркнуть слово с помощью VFP?

Kochegra
Дата: 19.09.2012 09:44:33
Добрый день!
Подскажите пожалуйста. Как из VFP подчеркнуть в файле .dot (word 2003) слово?

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

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?
Jonny540
Дата: 19.09.2012 09:54:44
Kochegra,

.Selection.Font.Underline = wdUnderlineSingle
Kochegra
Дата: 19.09.2012 10:17:12
Не очень понятно?
Все равно ошибка Unknow
Ffffffffffffffff
Дата: 19.09.2012 10:25:46
FAQ
tanglir
Дата: 19.09.2012 10:29:57
Kochegra
Не очень понятно?
Все равно ошибка Unknow
Подключите word.h
Jonny540
Дата: 19.09.2012 11:50:44
Тоды так напиши:
Kochegra
IF TYPE([m.loDoc.FormFields("txt1")])="O" 
        m.loDoc.Font.Underline = 1
	m.loDoc.FormFields("txt1").Result='МОЙ ТЕКСТ' 
        m.loDoc.Font.Underline = 0
ENDIF
Kochegra
Дата: 21.09.2012 16:37:13
Jonny540, чесно говоря не помогло. Забил на подчеркивании - сделал без подчеркивания. Но нужно думаю поразбираться будет.
Kochegra
Дата: 21.09.2012 16:39:40
Кстати, столкнулся еще с такой проблемкой. Кинул прогу в сеть. На своем ПК ворд рисует вывод шаблона. А на других - нет. Ворд вроде как запускается, но без листа.
Что может быть? Проверял на нескольких ПК.
Jonny540
Дата: 22.09.2012 12:09:30
Kochegra
Jonny540, чесно говоря не помогло. Забил на подчеркивании - сделал без подчеркивания. Но нужно думаю поразбираться будет.
А если так:
+
 
WITH loDoc
        .FormFields("txt1").Result=' ' 
        .Font.Underline = 1
        .FormFields("txt1").Result='МОЙ ТЕКСТ' 
        .Font.Underline = 0
ENDWITH
или так:
 
#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
или сохрани и работай уже с документом:
.ActiveDocument.SaveAs("документ.doc",0, False, "", True, "", False, False, False, False, False)
не получится - пришли этот шаблон, поглядим на него...
Kochegra
На своем ПК ворд рисует вывод шаблона. А на других - нет. Ворд вроде как запускается, но без листа.
Что может быть? Проверял на нескольких ПК.
На этих "других ПК" есть этот шаблон?
Jonny540
Дата: 22.09.2012 13:28:30
+1
Точнее так:
+
#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