Робота с файлами(VBA)

[Андрей Коршов]

Нужно в файл внести букву "а"(желательно в документ в каком я запустил программу) ,если она есть в документе который уже создан и этот документ имеет таблицу 2:4 ,а в одной из ячеек таблицы находиться буква "а" если в ячейках нет буквы а то нечего не предпринимать.

Sub A1()
Dim a As String
Dim i As String
Dim s As String
Dim d As String
Dim f As String
Dim g As String
Dim h As String
Dim j As String
Dim k As String
Dim intFH As Integer
intFH = FreeFile
Open "ei?eni.docx" For Output As #intFH
ActiveDocument.Tables(1).Cell(1, 1).Select
i = Selection.Text
If i <> Chr(65) Then
ActiveDocument.Tables(1).Cell(1, 2).Select
s = Selection.Text
If s <> Chr(65) Then
ActiveDocument.Tables(1).Cell(1, 3).Select
d = Selection.Text
If d <> Chr(65) Then
ActiveDocument.Tables(1).Cell(1, 4).Select
f = Selection.Text
If f <> Chr(65) Then
ActiveDocument.Tables(1).Cell(2, 1).Select
g = Selection.Text
If g <> Chr(65) Then
ActiveDocument.Tables(1).Cell(2, 2).Select
f = Selection.Text
If h <> Chr(65) Then
ActiveDocument.Tables(1).Cell(2, 3).Select
j = Selection.Text
If j <> Chr(65) Then
ActiveDocument.Tables(1).Cell(2, 4).Select
k = Selection.Text
If k <> Chr(65) Then
Else
a = "tyt ect 'a'"
End If
End If
End If
End If
End If
End If
End If
End If
Close #intFH
Msg = a
End Sub