oji
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Sub AktFix()
Const str1 = "Мы, нижеподписавшиеся, _______________ "
Const str2 = " _______________________, с одной стороны, и ________________ "
Const str3 = " _______________________, с другой стороны, составили настоящий акт."
Dim contr1 As String
Dim contr2 As String
Dim FileList As Variant
Dim wbCurrent As Workbook
Dim i As Integer, j As Integer
On Error GoTo 0
With Application
FileList = .GetOpenFilename("Excel Files (*.xls), *.xls", , "Выберите файлы", , True)
If Not IsArray(FileList) Then End
End With
For i = LBound(FileList) To UBound(FileList)
Set wbCurrent = Workbooks.Open(FileList(i), ReadOnly:=False)
With wbCurrent.Worksheets(1)
.Range("A1").Select
.Cells.Find(What:="От ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, _
SearchFormat:=False).Activate
contr1 = ActiveCell
Cells.FindNext(After:=ActiveCell).Activate
contr2 = ActiveCell
.Range("A1").Select
.Range("A1").Select
.Cells.Find(What:="Мы, ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, _
SearchFormat:=False).Activate
ActiveCell.Value = str1 + contr1 + str2 + contr2 + str3
End With
wbCurrent.Save
wbCurrent.Close
Next |
всё, почти дописал. Сделал немного топорно, но работает  Остался один вопрос, как строку в стриноговой переменной вида "От Иванов Иван Иванович" поменять на просто "Иванов Иван Иванович"?
SAS888, справа от неё, значит, что есть строка "От Иванов Иван Иванович", а справа от неё, в следующем столбце, есть строка "От Петров Пётр Петрович".
Да, строка "От " встречается только один раз в данном столбце. По крайней мере, в тех документах, что мне доступны.
По поводу заполнения ячеек — в курсе, экспертным путём выяснено, что структура документа требует 10 раз расширить диапазон вниз. Впрочем, это всё уже не нужно, т.к. решено другим, топорным способом.
|
