Ikar Home Center :: Лекции о PowerBuilder. Часть II Глава 1 Русская версия

Главная

Легенда

Об авторе

Услуги

Продукты

Сервис WhoIs

PowerBuilder

Форумы PowerBuilder

партнеры

информация

реклама

English version
« Оглавление	Глава 2 »

Глава 1

OLE-программирование на PowerBuilder для Microsoft Word 97

1. Как получить правильный синтакс команд Visual Basic For Application (VBA), необходимый для работы с Word 97 и как преобразовать его в правильный синтакс Power Builder

В Word 8, Office 97, Майкрософт изменил способ взаимодествия приложений с Word через механизм OLE. Старый синтакс WordBasic может не работать правильно в новой версии Word, поэтому может потребоваться его перевод в синтакс VBA.

1.1 Использование редактора макросов Word

Простейший путь понять функции VBA и их синтакс - это использование встроенного в Word редактора макросов. Для того чтобы увидеть функции VBA, включите запись макросов в Word, выполните необходимую задачу (например, выделите какой-то текст) и выключите запись макросов. Нажав ALT + F11, Вы можете открыть редактор макросов и увидеть синтакс, сгенерированный программой Word.

Для того, чтобы получить полное описание функций и увидеть полный синтакс, Вы можете использовать справочный файл VBAWRD8.HLP, который можно установить, выбрав выборочную инсталляцию при установке пакета Office и выбрав опцию "Справка по VBA" (Этот файл не инсталлируется при стандартной установке). В этом файле Вы можете найти полную информацию по функциям, которые вы можете использовать в Word и их синтакс на VBA и WordBasic. Далее Вы получите информацию о функциях, которые Вы можете использовать в Word 8.

1.2 Перевод синтакса VB в синтакс PowerBuilder

Примечания:
а. PowerBuilder использует квадратные скобки для индексов массивов
б. Функции с несколькими параметрами разделяются запятой между круглых скобок

Пример перевода :
Макрос, записаный редактором макросов Word.

Sub Macro1() 
	' VB синтакс в макросе (смотрите примечание "а")
	Selection.Information(wdWithInTable)
	' смотрите примечание "б".
	Selection.MoveLeft Unit:=wdCharacter, Count:=5
	' функция без значения
	Selection.TypeBackspace
End Sub

Вот описание функции MoveLeft(), использованной в макросе, взятый из справочного файла VBAWRD8.HLP

Selection.MoveLeft(Unit, Count, Extend) 
	Unit optional Variant: wdCell, wdCharacter, wdWord or wdSentence. Default = wdCharacter.
	Count optional: . Number of Units to move. Default = 1.
	Extend optional: wdMove or wdExtend

Синтакс для вызова функции MoveLeft()

// PB синтакс 
ole_object.selection.Information[12]
ole_object.selection.MoveLeft(1,5,1)
ole_object.selection.TypeBackspace()

Возникает вопрос: какое значение имеют константы "wdWithInTable" и "wdCharacter"? Об этом вопросе известно только то, что Word не предоставляет никакой информации об этом для Power Bulider. Тем не менее, каждая константа связана со значением, которое должно быть использовано в нужном месте. В основном, все они являютсе типом данных Integer, и Вы можете отобразить их в окне сообщения (Message Box), для того, чтобы узнать их истинное значение.

Sub Makro1()
	'Пример вывода Message box для отображения значения константы Word 
	'В данном случаев в окне сообщения должно отобразиться "5" 
	Answer = MsgBox(wdLine, 0)
End Sub

В дополнение к справочной системе, на сервере поддержки компании Майкрософт размещена техническая статья, содержащая числовые эквиваленты всех констант, которые могут быть найдены в пакете Office.
ID этой статьи - Q112671.

В PowerBuilder, Вы должны передавать в функцию действительное значение констант Word. Вы также можете объявить константу в PowerScript и ассоциировать ее с тем же значением; затем вызвать функцию Word и использовать обьявленную константу вместо действительного значения. Это позволит Вам легко делать глобальные изменения в Вашем коде, если Майкрософт решит изменить значение константы в будущем.

В части 3. Вы найдете список основных констант и их действительные значения.

1.3 Объектная модель Word

Если Вы откроете файл VBAWRD8.HLP, Вы найдете иерархию объектов в программе Word. Через OLE, Вы можете просмотреть иерархию, используя точечную нотацию PowerBuilder.

Вот несколько основных объектов/методов и атрибутов:

Наименование	Описание
Application	Приложение
System	Система
MailMessage	Почтовое сообщение
Selection	Выделение
Selection.Font	Шрифт выделения
Selection.Pagesetup	Настройка страницы выделения
Selection.Border	Границы выделения
Selection.Words	Слова выделения
ActiveDocument	Активный документ
ActivePrinter	Активный принтер
Checkspelling	Проверка орфографии
CheckGrammar	Прверка грамматики
и т.д.

Некоторые методы и атрибуты объекта Application приложение) могут использоваться без указания констант приложения.
Например, объекты ActiveDocument (активный документ) или Doceuments (Документы) считаются глобальными объектами в объектной модели Word. Поэтомк, вместо записи:

	ole_object.application.ActiveDocument.CheckSpelling()

можно написать:

	ole_object.ActiveDocument.CheckSpelling()

Далее Вы найдете несколько примеров кодов, использующих объекты, методы и атрибуты объектной модели Word.

2. Примеры кодов

Для работы всех кодов, приведенных ниже, в Power Builder должен быть динамически создан OLE-объект с помощью такого кода:
OLEObject ole_object ole_object = CREATE OLEObject
Если Вы используете PowerBuilder OLE control (ole_1), Вы должны также добавить константу "object" перед доступом к объектам, функциям и свойствам Microsoft Word.
myinteger = ole_1.object.application.Activedocument.kind
или ole_1.object.application.Selection.Font.Italic = TRUE

2.1 Соединение с Word 8

// Соединение с Word 8 (запуск Word 8) ,  если удачно, загружается файл employee.doc ,
// если неудачно, отображается сообщение "ole error". 
IF ole_object.ConnectToNewObject("word.application.8") = 0 THEN
	ole_object.Documents.open("c:\my documents\employee.doc")
ELSE
	MessageBox('OLE Error','Unable to start an OLE server process!',Exclamation!)
END IF
// Сделать Word 8 видимым - ( Установите в  FALSE для невидимости Word 8)
ole_object.Visible=TRUE

2.2 Закладки

// Для вставки текста в определенное место, Вы можете создать закладку
// Функция Exists() определяет, существует ли закладка в документе
// `GoTo` переводит курсор к закладке и `TypeText` добавляет текст.
IF ole_object.object.ActiveDocument.Bookmarks.Exists( " bookmark_name " ) THEN 
	ole_object.Selection.Goto(TRUE,0,0,"bookmark_name")
	ole_object.Selection.TypeText("text to insert")
ELSE
	ole_object.ActiveDocument.bookmarks.add("bookmark_name")
END IF

2.3 Проверка орфографии и грамматики

// запуск проверки грамматики или орфографии для всего активного документа
ole_object.ActiveDocument.CheckGrammar()
ole_object.ActiveDocument.CheckSpelling() 
// запуск проверки грамматики или орфографии для определенного текста
ole_object.ActiveDocument.CheckGrammar("text to check")
ole_object.ActiveDocument.CheckSpelling("text to check")

2.4 Как должен выглядеть текст

// установка шрифта в курсив, жирный и смена текущего шрифта на Arial с размером 24
ole_object.Selection.Font.Italic = TRUE
ole_object.Selection.Font.bold = TRUE
ole_object.Selection.Font.Name = "Arial"
ole_object.Selection.Font.Size = 24
ole_object.Selection.Words[1].Italic = True
ole_object.ActiveDocument.Paragraphs[1].Range.Font = "Arial"

2.5 Перемещение по тексту и поиск текста

// переход к закладке `state`
ole_object.selection.GoTo(TRUE,0,0,"state")
// переход к следующей строке wdGoToLine = 3
ole_object.selection.GoToNext(3)
// поиск текста
ole_object.Selection.Find.Forward = True
ole_object.Selection.ClearFormatting 
ole_object.Selection.MatchWholeWord = True
ole_object.Selection.MatchCase = False
ole_object.Selection.Wrap = wdFindContinue
ole_object.Selection.Execute("PowerBuilder")

2.6 Активация и доступ к Word в datawindow

Если у Вас есть OLE столбец в datawindow, Вы должны активизировать столбец и ассоциировать его с OLE объектом для того, чтобы получить доступ к его свойствам и функциям:

// Активизировать ole blob, в этом случае `ole`  - это имя для ole blob 
// столбец и blob находятся в первой строке.
dw_1.oleActivate(1,"ole",0)
//Создать OLE-объект и получить доступ с серверу приложений Word 
OLEObject myoleobject
myoleobject = CREATE OLEObject
// соединиться с Word, который в данный момент запущен с помощью OleActivate()
IF myoleobject.ConnectToObject("", "word.application.8") <> 0 THEN
	MessageBox('OLE Error','Unable to start an OLE server process!',Exclamation!)
END IF
myoleobject.Visible=TRUE
// доступ к свойствам
CHOOSE CASE myoleobject.ActiveDocument.kind
	CASE 0 ...
	CASE 1 ...
END CHOOSE

3. Частичный список констант Visual Basic for Applications и их значений для PowerBuilder

Далее представлен список некоторых констант VBA, которые могут встретиться в Word. Для более полного списка констант, пожалуйста посетите сайт поддержки компании Майкрософт и произведите поиск в базе знаний Майкрософт (Microsoft knowledge base) статьи Q112671.
//wdSeekView Type constant int wdSeekMainDocument = 0, constant int wdSeekPrimaryHeader = 1, constant int wdSeekFirstPageHeader = 2, constant int wdSeekEvenPagesHeader = 3, constant int wdSeekPrimaryFooter = 4, constant int wdSeekFirstPageFooter = 5, constant int wdSeekEvenPagesFooter = 6, constant int wdSeekFootnotes = 7, constant int wdSeekEndnotes = 8, constant int wdSeekCurrentPageHeader = 9, constant int wdSeekCurrentPageFooter = 10 // WdSaveOptions constant int wdDoNotSaveChanges = 0 constant int wdPromptToSaveChanges = -2 constant int wdSaveChanges = -1 // WdConstants Constant long wdAutoPosition = 0 Constant long wdFirst = 1 Constant long wdToggle = 9999998 Constant long wdUndefined = 9999999 Constant long wdForward = 1073741823 Constant long wdBackward = -1073741823 Constant long wdCreatorCode = 1297307460 // WdLanguageID Constant long wdDanish = 1030 Constant long wdGerman = 1031 Constant long wdGreek = 1032 Constant long wdEnglishUS = 1033 Constant long wdSpanish = 1034 Constant long wdFinnish = 1035 Constant long wdFrench = 1036 Constant long wdBelgianDutch = 2067 Constant long wdBelgianFrench = 2060 Constant long wdDutch = 1043 Constant long wdEnglishUK = 2057 Constant long wdItalian = 1040 Constant long wdNoProofing = 1024 Constant long wdPortuguese = 2070 Constant long wdSpanishModernSort = 3082 Constant long wdSwedish = 1053 // WdCountry Constant long wdUS = 1 Constant long wdNetherlands = 31 Constant long wdFrance = 33 Constant long wdSpain = 34 Constant long wdItaly = 39 Constant long wdUK = 44 Constant long wdDenmark = 45 Constant long wdSweden = 46 Constant long wdGermany = 49 Constant long wdFinland = 358 // WdDictionaryType Constant long wdSpelling = 0 Constant long wdGrammar = 1 Constant long wdThesaurus = 2 Constant long wdHyphenation = 3 Constant long wdSpellingComplete = 4 Constant long wdSpellingCustom = 5 Constant long wdSpellingLegal = 6 Constant long wdSpellingMedical = 7 // WdDocumentType Constant long wdTypeDocument = 0 Constant long wdTypeTemplate = 1 // WdBuiltInProperty Constant long wdPropertyTitle = 1 Constant long wdPropertySubjec = 2 Constant long wdPropertyAuthor = 3 Constant long wdPropertyConstants = 4 Constant long wdPropertyComments = 5 Constant long wdPropertyTemplate = 6 Constant long wdPropertyLastAuthor = 7 Constant long wdPropertyRevision = 8 Constant long wdPropertyAppName = 9 Constant long wdPropertyTimeLastPrinted = 10 Constant long wdPropertyTimeCreated = 11 Constant long wdPropertyTimeLastSaved = 12 Constant long wdPropertyVBATotalEdit = 13 Constant long wdPropertyPages = 14 Constant long wdPropertyWords = 15 Constant long wdPropertyCharacters = 16 Constant long wdPropertySecurity = 17 Constant long wdPropertyCategory = 18 Constant long wdPropertyFormat = 19 Constant long wdPropertyManager = 20 Constant long wdPropertyCompany = 21 Constant long wdPropertyBytes = 22 Constant long wdPropertyLines = 23 Constant long wdPropertyParas = 24 Constant long wdPropertySlides = 25 Constant long wdPropertyNotes = 26 Constant long wdPropertyHiddenSlides = 27 Constant long wdPropertyMMClips = 28 Constant long wdPropertyHyperlinkBase = 29 Constant long wdPropertyCharsWSpaces = 30 // WdAlertLevel Constant long wdAlertsAll = -1 Constant long wdAlertsMessageBox = -2 Constant long wdAlertsNone = 0 // WdArrangeStyle Constant long wdIcons = 1 Constant long wdTiled = 0 // WdBookmarkSortBy Constant long wdSortByLocation = 1 Constant long wdSortByName = 0 // WdBreakType Constant long wdSectionBreakNextPage = 2 Constant long wdSectionBreakContinuous = 3 Constant long wdSectionBreakEvenPage = 4 Constant long wdSectionBreakOddPage = 5 Constant long wdLineBreak = 6 Constant long wdPageBreak = 7 Constant long wdColumnBreak = 8 // WdBrowseTarget Constant long wdBrowsePage = 1 Constant long wdBrowseSection = 2 Constant long wdBrowseComment = 3 Constant long wdBrowseFootnote = 4 Constant long wdBrowseEndnote = 5 Constant long wdBrowseField = 6 Constant long wdBrowseTable = 7 Constant long wdBrowseGraphic = 8 Constant long wdBrowseHeading = 9 Constant long wdBrowseEdit = 10 Constant long wdBrowseFind = 11 Constant long wdBrowseGoTo = 12 // WdCharacterCase Constant long wdLowerCase = 0 Constant long wdUpperCase = 1 Constant long wdTitleWord = 2 Constant long wdTitleSentence = 4 Constant long wdToggleCase = 5 Constant long wdNextCase = -1 // WdCollapseDirection Constant long wdCollapseEnd = 0 Constant long wdCollapseStart = 1 // WdInternationalIndex Constant long wdProductLanguageID = 26 // wdWindowState constant int wdWindowStateNormal = 0 constant int wdWindowStateMaximize = 1 constant int wdWindowStateMinimize = 2 // wdGoToDirection constant int wdGoToAbsolute = 1 constant int wdGoToFirst = 1 constant int wdGoToLast = -1 constant int wdGoToNext = 2 constant int wdGoToPrevious = 3 constant int wdGoToRelative = 2 // wdGoToItem constant int wdGoToBookmark = -1 constant int wdGoToSection = 0 constant int wdGoToPage = 1 constant int wdGoToTable = 2 constant int wdGoToLine = 3 constant int wdGoToFootNote = 4 constant int wdGoToEndNote = 5 constant int wdGoToComment = 6 constant int wdGoToField = 7 constant int wdGoToGraphic = 8 constant int wdGoToObject = 9 constant int wdGoToEquation = 10 constant int wdGoToHeading = 11 constant int wdGoToPercent = 12 constant int wdGoToSpellingError = 13 constant int wdGoToGrammaticalError = 14 constant int wdGoToProofReadingError = 15 // wdMovementType constant int wdMove = 0 constant int wdExtend = 1 // wdUnits constant int wdCharacter = 1 constant int wdWord = 2 constant int wdSentence = 3 constant int wdLine = 5 constant int wdStory = 6 constant int wdColumn = 9 constant int wdRow = 10 constant int wdCell = 12 //wdViewType constant int wdNormalView = 1 constant int wdOutlineView = 2 constant int wdPageView = 3 constant int wdPrintPreview = 4 constant int wdMasterView = 5 constant int wdOnlineView = 6

Перевод: Левчук Алексей 2003г.

Последнее обновление: 11.08.2016

реклама

ссылки

Продвижение сайтов

Биржа ссылок

статистика

_{На сайте могут быть опубликованы рекламные материалы и ссылки. Всю ответственность за содержание рекламных материалов, текстов ссылок и контент
рекламируемых сайтов несет рекламодатель.}

hosted on pets-tree