Option Explicit

Считывание текста документа Word не открывая его.

End Sub

End If

End If

End If

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

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

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

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

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

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

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

Приложение 2

ПРИМЕРЫ МАКРОСОВ ДЛЯ ПРИЛОЖЕНИЙ MICROSOFT OFICE [1]

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

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 "

Err.Clear

Exit Sub

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

Код открывает Word в памяти компьютера и производит считывание.

Перед работой в Reference... поставьте ссылку на Microsoft Word Object Library.

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

Дата добавления: 2014-11-07