Free kids game download Printable kids game. If you are going on vacation with children, take some copies of this table game with you “Oflameron”. You should not pay money for it – it is free of charge. Just download the file with the game forms in a popular Word format from the site and print the necessary number of forms. You children will be engaged in a catching contest and you can have a good rest. The game “Oflameron” is not like other games you already know. 1, 2, 3 or 4 players can play on one blank (game form).

Free template. Here you can find website templates, web design manuals for beginners, free content, Java scripts and ready web sites. All materials are downloadable and absolutely free to use. All ready web sites are adapted for advertising software and optimized for effective Web search engine indexing.

Visual BASIC 6.0 и COM-компонент Word

Десант Каталог сайтов - Добавить сайт

Возможно Вам нужно разработать программу на Visual Basic, обрабатывающую Word документы или Вы пишете курсовую работу. Тогда Вам будет полезен полный листинг программы на Visual Basic, демонстрирующий некоторые возможности работы с редактором MS Word. В примере использовался пакет MS Office 2003 Professional, но Вы легко можете работать и с предыдущими версиями офисного продукта. Для этого достаточно в листинге изменить только одну строку - вместо подключения Microsoft Word 11.0 Object Library подключить более раннюю версию, которая установлена на Вашем компьютере. Например, Microsoft Word 9.0 Object Library и т.д.

Курсовая

Работа с COM КУРСОВАЯ РАБОТА - Скачай бесплатно >>>> [Сайты]

    Курсовые работы [1]
    Курсовые работы [2]

    Раскрутка сайтов (ZIP)

    Шаблоны сайтов

Как работать с приложением Word из Visual BASIC

Программирование

Курсовая работа

        Здесь выложена курсовая работа по разработке программы, демонстрирующей использование приложения Word из пакета Office 2003 Pro как COM компонента в программе на Visual BASIC. Программа содержит 6 примеров, иллюстрирующих разные варианты работы с Word - поиск и выделение символов в таблице, поиск и замену текста в таблице, поиск и выделения ячеек в таблице, поиск текста в таблице и замену текста, цветат текста и цвета ячеек таблицы, полный пример работы с таблицей (пример №6).

    В качестве шаблона используется документ MS Word oflameron-form2.xml, сохраненный в формате XML. Вы совершенно легко можете использовать для обработки документ в формате .doc, для этого не нужно вносить никаких изменений в код.

    Для начала работы скопируйте файл oflameron-form2.xml в c:\oflameron-form2.xml

    В меню Visual Basic в пункте Project выберите References ... и в списке компонент поставьте галочку напротив "Microsoft Word 11.0 Object Library" (если у Вас установлен Word 2003). Если у Вас на компьютере установлена более старая версия Word, то компонента "Microsoft Word ..... Object Library" будет не версии 11.0 а другой. Выберите ту, которая есть у Вас.

     Курсовик

    Чтобы работать с Word как COM компонентом, используем раннее связывание
    Dim wrd As New Word.Application

    wrd.Visible = True - показать Word
    Set doc = wrd.Documents.Add("c:\oflameron-form2.xml") - загрузить шаблон документа

Курсовая бесплатно

    Будем работать с функциями поиска и замены символов (текста) во всем документе
    wrd.ActiveWindow.Selection.Find.Text = "sh" - текст для поиска
    wrd.ActiveWindow.Selection.Find.Replacement.Text = "T" - текст для вставки вместо найденного (замена)
    wrd.ActiveWindow.Selection.Find.Execute - Найти в выделить текст ( в данном примере "sh")

    wrd.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne - выполнить замену найденного текста



    Если в какой то ячейке таблицы в документе уже найден заданный текст, то можно выделить эту ячейку и поменять ее атрибуты (например, цвет фона)
    wrd.ActiveWindow.Selection.SelectCell - выделить ячейку таблицы, в которой уже найден текст

    wrd.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = wdColorWhite - заменить цвет фона ячейки на белый



    Цвет текста в выделенной ячейке можно поменять
    wrd.ActiveWindow.Selection.Font.Color = wdColorWhite - заменить цвет текста в ячейке таблицы документа Word

    Однако, такой поиск и замена будут выполняться только для одной ячейки. Чтобы выполнить последовательный поиск и замену, нужно написать
    wrd.ActiveWindow.Selection.Find.Wrap = wdFindContinue

    Пример:
    For i = 0 To 15
      For j = 0 To 59
      wrd.ActiveWindow.Selection.Find.Text = "sh"
      wrd.ActiveWindow.Selection.Find.Replacement.Text = "T"
      wrd.ActiveWindow.Selection.Find.Wrap = wdFindContinue
      wrd.ActiveWindow.Selection.Find.Execute Replace:=wdReplaceOne
      wrd.ActiveWindow.Selection.SelectCell
      wrd.ActiveWindow.Selection.Font.Color = wdColorWhite
      wrd.ActiveWindow.Selection.Cells.Shading.BackgroundPatternColor = wdColorSeaGreen
      Next j
    Next i

Курсовая работа

    Как распечатать документ
    wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1", ManualDuplexPrint:=False - печать на принтере страницы 1

    wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=False - ОДНОСТОРОННЯЯ печать на принтере страниц 1 и 2

    wrd.ActiveDocument.PrintOut Copies:=1, Pages:="1,2", ManualDuplexPrint:=True - ДВУСТОРОННЯЯ печать на принтере страниц 1 и 2 (если принтер поддерживает двустороннюю печать).

    Как закрыть документ Word
    wrd.ActiveDocument.Close

    Как закрыть приложение Word
    wrd.Quit

        Земельные участки

    Получить символ по его индексу
    wrd.ActiveDocument.Characters(116).Text

    Заменить символ по его индексу
    wrd.ActiveDocument.Characters(116).Text="text"

    Получить слово по индексу
    wrd.Words(12).Text

    Заменить текст
    wrd.Words(12).Text="Текст для замены"

    Количество предложений в документе
    wrd.ActiveDocument.Sentences.Count

    Создать новый раздел на текущем листе
    wrd.Application.Selection.InsertBreak (wdSectionBreakContinuous)

    Получить 2-е слово, в предложении2,в параграфе 2, в секции 1
    wrd.Sections(1).Range.Paragraphs(2).Range.Sentences(2).Words(2).Text

    Количество листов в документе
    wrd.ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)

    Переход на лист №10
    wrd.Application.Selection.GoTo(wdGoToPage, , , "10").Select

    Перейти к таблице
    wrd.Application.Selection.GoTo(wdGoToTable, , , "1").Select

    Работа с графическими объектами

    Создаем ОВАЛ
    Set newoval = wrd.Shapes.AddShape(9, 200, 200, 100, 100)
    Оформление графического объекта
    newoval.Line.ForeColor.RGB = RGB(0, 0, 255) - цвет линии
    newoval.Line.Weight = 2.25 - толщина линии
    newoval.Fill.ForeColor.RGB = RGB(255, 255, 95) - цвет заливки

    Создаем ПРЯМОУГОЛЬНИК
    Set 4tngl = wrd.Shapes.AddShape(1, 350, 200, 100, 80)
    Можно менять порядок отображения объектов на странице, поворачивать на произвольный угол и т.д.    [Бесплатные сайты]

ТОП-руководство по раскрутке сайтов - 9 Мбайт >>

ALLlinks каталог сайтов - каталог ссылок рунета :: Каталог ресурсов Рунета :: Генератор игр на VB6 :: Бесплатные книги :: Курсовая бесплатно :: Игра :: Бесплатная курсовая :: Сайт бесплатно :: www.relatio.ru, Использование функций MS Word в программах на VB :: Сайт бесплатно :: Игры скачать

Сайт управляется системой uCoz