- •Лабораторная работа №2. Форматирование текста в текстовом процессоре
- •Численность населения
- •Список оборудования
- •Значения элементокоэффициентов Кэ для деталей ступенчатых валов
- •Учебно-тематический план по информатике
- •Лабораторная работа №4. Редактор формул microsoft equation 3.0
- •628400, Г. Омск, ул. Мира, д.25, тел.(3282) 24-11-97
- •Уважаемый ________!
- •План выпуска продукции по цехам
- •Расход материалов по каждому виду продукции
- •Потребности предприятия в материалах
- •Сводная ведомость результатов экзаменационной сессии
- •Ведомость на выплату стипендии
- •Результаты выборов в Государственную Думу рф в 2007 году
- •Критерии оценки презентации
- •Некоторые классы объектов языка программирования Visual Basic for Application
- •Контрольные вопросы
- •Библиографический список
- •Содержание
- •Приложение 1 Интегрированная среда программирования
- •Стандартные элементы управления Visaul basic
- •Управляющие структуры
- •Организация пользовательского интерфейса. Диалоговые окна
- •Формы как пользовательские окна диалога
- •Редактор кода
- •Приложение 2 примеры макросов для приложений microsoft ofice1
- •Конвертирование документа Word в текстовый файл (*.Txt)
- •Считывание текста документа Word не открывая его.
- •Форматирование печатной области документа
- •Вставка таблицы в текстовый документ
- •Проверка наличия в книге искомого листа
- •Открытие из Excel базы данных и считывание данных из ее таблицы в ячейки листа.
- •Создание нового файла Excel
- •Добавление в ячейку данных через Visual Basic
- •Вставка рисунка на лист
- •Вырезание, копирование и вставка копированием
- •Подсчет суммы в заданных ячейках
Редактор кода
Для создания программных кодов используется редактор кода, окно которого открывается одной из команд:
-
Выполнить команду View / Code.
-
Из контекстного меню выполнить команду View Code.
Для каждого модуля создается отдельное окно кода, разделенное внутри на секции. Выбор секции осуществляется с помощью списка Object, расположенного слева в верхней части окна.
Для стандартного модуля этот список содержит общую секцию General. В модуле класса в этот список включены: общая секция и секция классов.
В модуле формы список Object содержит общую секцию, секцию для формы (Form), а также секции для всех размещённых на форме объектов. Для каждой выбранной секции можно создать процедуру, выбрав ее из списка Procedure в правом верхнем углу окна редактора кода, содержащего события. Для элемента списка General из списка Object есть только одно значение Declarations (Объявления) в списке Procedure.
Приложение 2 примеры макросов для приложений microsoft ofice1
-
Конвертирование документа Word в текстовый файл (*.Txt)
Код открывает Word в памяти компьютера и производит конвертирование документа.
Перед работой в Reference... поставьте ссылку на Microsoft Word Object Library.
Private Sub Command1_Click()
Dim temp As String
temp = "путь & имя.doc"
If Not Dir(temp, vbNormal) <> "" Then
MsgBox "Документ не найден."
Exit Sub
End If
On Error GoTo Notloaded
Set MyWord = GetObject (, "Word.Application")
Notloaded:
If Err.Number = 429 Then
Set MyWord = CreateObject("Word.Application")
ElseIf Err.Number <> 0 Then
Screen.MousePointer = vbDefault
'Пользователь нажал на кнопку Cancel
MyWord.Documents.Close SaveChanges:= wdDoNotSaveChanges
Set MyWord = Nothing
Screen.MousePointer = 0
If Not Err.Number = 32755 Then
MsgBox Err.Description & vbCrLf & "error "
End If
Err.Clear
Exit Sub
End If
MyWord.Documents.Open FileName:=temp
MyWord.ActiveDocument.SaveAs FileName:="name.txt", _
FileFormat:=wdFormatText, LockComments:=False, _
Password:="", AddToRecentFiles:=True, WritePassword:="",_
ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub
-
Считывание текста документа Word не открывая его.
Код открывает Word в памяти компьютера и производит считывание.
Перед работой в Reference... поставьте ссылку на Microsoft Word Object Library.
Option Explicit
Dim objWord As Word.Application
Private Sub Command1_Click()
On Error Resume Next
Dim strDocPath As String , D
strDocPath = "D:\Advice\Soveti\DragDropTXT.doc"
Set objWord = New
Word.Application
objWord.Visible = False
objWord.Documents.Open strDocPath, False
objWord.Selection.WholeStory
D = objWord.Selection.Text
objWord.ActiveDocument.Close
objWord.Quit
Set objWord = Nothing
Debug.Print D
End Sub
-
Форматирование печатной области документа
Код задает отступы слева, справа, сверху и снизу в сантиметрах.
Перед работой в Reference... поставьте ссылку на Microsoft Word Object Library.
Private Sub Command2_Click()
DocWord.Application.Selection.PageSetup.LeftMargin = _ CentimetersToPoints(2) 'отступ слева "2,0 см"
DocWord.Application.Selection.PageSetup.RightMargin = _ CentimetersToPoints(1.5) 'отступ справа "1,5 см"
DocWord.Application.Selection.PageSetup.TopMargin = _ CentimetersToPoints(3.5) 'отступ сверху "3,5 см"
DocWord.Application.Selection.PageSetup.BottomMargin = _ CentimetersToPoints(4.45) 'отступ снизу "4,45 см"
End Sub