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

Первоначально FoxPro (первоначальное название — FoxBASE) разрабатывалась Fox Software, начиная с 1984 года. В 1992 году Fox Technologies была куплена Microsoft, новые версии продукта значительно видоизменились и приобрели префикс «Visual». Последняя версия оригинального FoxPro — версия 2.6 — работала под Mac OS, DOS и Unix; уже в версии Visual FoxPro 3.0 от MS список поддерживаемых платформ сократился до Mac OS и Windows, а в более поздних версиях от MS — уже только до Windows. Современная версия MS Visual FoxPro основана на COM, и Microsoft утверждает, что .NET-версии продукта не будет. Существует проект Sedna (названный в честь недавно обнаруженной карликовой планеты), который представляет собой набор дополнений к VFP 9.0 из XBase компонентов для поддержки ряда сценариев и алгоритмов взаимодействия с различными технологиями Microsoft, включая SQL Server 2005, Windows Vista, Office 2007, Windows Search и Team Foundation Server (TFS). Проект Sedna должен обеспечить возможность взаимодействия Visual FoxPro с . NET.

Для решения задачи выбран язык программирования FoxPro версии 2.6.

Текст модуля программы:

close all

clear all

set delet on

set safety off

set talk off

24

sele 0

use star alias star

COPY STRUCTURE TO nov

sele 0

use nov alias nov

sele star

go top

sim=0

oklad=0

sravoklad=0

sravfam=""

fam=""

sim=at(";",sotr)

oklad=val(substr(sotr,sim+1))

fam=substr(sotr,1,sim-1)

do while reccount()>0

do while .not.eof()

sim=at(";",sotr)

sravoklad=val(substr(sotr,sim+1))

sravfam=substr(sotr,1,sim-1)

if oklad>sravoklad then

oklad=sravoklad

fam=sravfam

endif

skip

enddo

sele nov

append blank

repl sotr with fam+";"+allt(str(oklad))

25

sele star

go top

do while .not.fam+";"+allt(str(oklad))$sotr

skip

enddo

delet

pack

go top

sim=at(";",sotr)

oklad=val(substr(sotr,sim+1))

fam=substr(sotr,1,sim-1)

enddo

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

26

Приложение 1

 ПРАКТИЧЕСКАЯ ЧАСТЬ

Задание:

Дан файл, состоящий из фамилий и  оклада заработной платы, разделенных между собой  разделителем « ; ».Сделайте так, чтобы список был упорядочен по окладам.

Решение:

Карлова; 1200

Плотникова; 2500

 Порсова; 1000

 Дегтярёва; 600

Мошина; 2700

 

 

 

 

 

1. Имеющийся файл назовём СТАР, новый файл – НОВ.
2. Возьмём первую строку файла СТАР.
3. Выделим, начиная с « ; » + 1 символ, строку и присвоим переменной ОКЛАД и ФАМ = до « ; ».
4. Перейдём  к следующей строке.
5. Выделим, начиная с « ; »+ 1 символ, строку и присвоим переменной СРАВ ОКЛАД и ФАМ = до « ; »
6. Если ОКЛАД СРАВ ОКЛАД, то выполняем пункты 4 – 6, иначе присвоим переменной ОКЛАД значение СРАВ ОКЛАД и выполняем пункты 4 – 6, пока не конец файла СТАР.
7. Как только конец файла СТАР, создаём новую строку файла НОВ                                                                                          ФАМ + « ; » + ОКЛАД            
8. Найти в файле СТАР строку  ФАМ + « ; » + ОКЛАД и удалить её      
9. Выполняем пункты 2 – 7, пока количество строк файла СТАР не будет равно 0.

22

 

  

 

 

 

 

 

 

 

 

 

 

 

 

 

 

23

СОДЕРЖАНИЕ

Введение………………………………………………………………………………..….3

1. Объектная модель MS’ Word…………………………………………………………..5

1.1  Характеристика объектов верхнего уровня………………………………………...7

1.2 Методы и свойства  объектов верхнего уровня…………………………………….13

2. VBA, как специальный язык программирования объектной модели MS’Word….19

Заключение……………………………………………………………………………….21

Приложение 1…………………………………………………………...………………..22

Приложение 2……………..……………………………………………………………...24

Список используемой литературы……………………………………………………...27

 

 

 

 

 

 

 

 

 

 

 

 

 

 

СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Информатика: Базовый курс/ под ред. С.В. Симононовича. – СПб.: Питер, 2001. – 640 с.
2. Информатика.Общий курс: Учебник / под ред. В.И. Колесникова. – М.: издательство «Дашков и К^о»; Ростов н/Д: Наука-Пресс, 2008. – 400 с.
3. Каратыгин, С.А. Visual FoxPro 6. Полное руководство пользователя с примерами / С.А.Катарыгин, А.Ф. Тихонов; пер. С.А. Катарыгин. – М.: ЗАО «Издательство БИНОМ», 1999. – 784 с.
4. Ляхович, В.Ф. Основы информатики / В.Ф. Ляхович. – Ростов н/Д: Издательство «Феникс», 2000. – 608 с.
5. Основы современных компьютерных технологий: Учебное пособие/ под ред. А.Д. Хомоненко. – СПб.: КОРОНА принт, 1998 – 448 с.
6. Шафрин, Ю.А. Курс компьютерной технологии: в 2-х томах. Т.1. Основы компьютерной технологии – М.: АБФ, 1998. – 656 с.

 

 

 

 

 

 

 

 

 

27