Редактор кода

Для создания программных кодов используется редактор кода, окно которого открывается одной из команд:

• Выполнить команду View / Code.

• Из контекстного меню выполнить команду View Code.

Для каждого модуля создается отдельное окно кода, разделенное внутри на секции. Выбор секции осуществляется с помощью списка Object, расположенного слева в верхней части окна.

Для стандартного модуля этот список содержит общую секцию General. В модуле класса в этот список включены: общая секция и секция классов.

В модуле формы список Object содержит общую секцию, секцию для формы (Form), а также секции для всех размещённых на форме объектов. Для каждой выбранной секции можно создать процедуру, выбрав ее из списка Procedure в правом верхнем углу окна редактора кода, содержащего события. Для элемента списка General из списка Object есть только одно значение Declarations (Объявления) в списке Procedure.

Приложение 2 примеры макросов для приложений microsoft ofice1

1. Конвертирование документа 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

2. Считывание текста документа 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

3. Форматирование печатной области документа

Код задает отступы слева, справа, сверху и снизу в сантиметрах.

Перед работой в 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