1
Добрый день. Я хочу попросить сообщество относительно простого экспорта из OPENEDGE/PROGRESS 4GL в MSWORD. моя текущая версия прогресса - 9.1E. вот мой пример кода после нескольких правок с других сайтов:Редактировать формат при экспорте CHARACTER из OPENEDGE в MS WORD
DEFINE VARIABLE chWordApplication AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE AppWordDocs AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE cMonthList AS CHARACTER NO-UNDO
INIT "January,February,March,April,May,June,July,August,September,October,November,December".
DEF VAR ch-par AS CHAR FORMAT 'x(500)'.
DEF VAR cc AS CHAR.
ASSIGN cc = 'cc:File'
ch-par = "Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book. It has survived not only five centuries, but also the leap into electronic typesetting, remaining essentially unchanged. It was popularised in the 1960s with the release of Letraset sheets containing Lorem Ipsum passages, and more recently with desktop publishing software like Aldus PageMaker including versions of Lorem Ipsum.".
CREATE "Word.Application" chWordApplication.
chWordApplication:documents:Open("<file path>\<file>.doc",False,False,False,"","",False).
AppWordDocs=chWordApplication:ActiveDocument.
chWordApplication:VISIBLE=TRUE.
chWordApplication:selection:TypeParagraph.
chWordApplication:Selection:typetext(ch-par).
chWordApplication:selection:TypeParagraph.
chWordApplication:selection:TypeParagraph.
chWordApplication:Selection:typetext(cc).
/*chWordApplication:Quit().*/
RELEASE OBJECT chWordApplication.
RELEASE OBJECT AppWordDocs.
Что я хотел бы узнать, это установить CH-пар, чтобы обосновывать и куб.см иметь формат полужирный шрифт, независимо от того, какой шрифт используется стиль.
Спасибо за ответ. P.S. > в будущем преобразует этот файл в PDF. в настоящее время ищет это позже.
Добрый день. Я нашел один из ответов, которые я искал. Установка символа в формат BOLD. Я использовал синтаксис 'chWordApplication: Selection: Font: Bold = TRUE.' и' chWordApplication: Selection: Font: Bold = false.', чтобы изменить его. формат для JUSTIFY - это единственное, чего не хватает. – noob