Vba word поиск только в таблице

Сообщение от Schumacher57

А вот если перебирать каждую ячейку, например в 10 таблицах, то конечно, возможно, метод «Like» не так быстро справится как метод «Find»

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Тема: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Dim iStr, iCol As Integer
For iStr = 1 To .Table.Count
For iCol = 1 To .Cells.Count
  Find.Text = "искомый текст"
  MsgBox (ячейка с искомым текстом)
Next
Next

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Вопрос снят: нашел несколько решений здесь:
внешняя ссылка

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

n = oDoc.Tables(2).Rows.Count 'количество строк таблицы
m = oDoc.Tables(2).Columns.Count  'количество столбцов таблицы
For i = 1 To n
For j = 1 To m
   With oDoc.Tables(2).Range
      .Find.ClearFormatting
      .Find.Text = "контроля:"       'Ищем вхождения текста
      .Wrap = wdFindStop
      If .found = True Then
            MsgBox i & "-" & j   'Номера строки и столбца с искомым вхождением
         Else
            MsgBox "нет"
         End If
   End With
Next
Next

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Sub ValueOfCell()
'Запоминаем текст ячейки в переменную
Dim sValue
Dim oCell As Cell
Dim oDoc As Document
Set oDoc = ActiveDocument
For Each oCell In oDoc.Tables(2).Cell
    If InStr(oCell.Range.Text, "контроля:") >= 1 Then
        sValue = oCell.Range.Text
        MsgBox sValue
    End If
Next oCell
End Sub

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Почему-то выскакивает такая ошибка:
User-defined type not defined
Как в коде определить этот тип?

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Забыл сообщить: ругается на строчку
Dim oCell As Cell (выделяет жёлтым)

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Sub ValueOfCell()
'Запоминаем текст ячейки в переменную
Dim sValue As String
Dim oCell As Cell
Dim oDoc As Document
Set oDoc = ActiveDocument
For Each oCell In oDoc.Tables(1).Range.Cells
    If InStr(oCell.Range.Text, "контроля:") >= 1 Then
        sValue = oCell.Range.Text
        MsgBox sValue
    End If
Next oCell
End Sub

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Всё равно ругается на эту же строчку.

• shanemac51
• генерал-полковник
• Неактивен

• Зарегистрирован: 05.03.2012
• Сообщений: 467
• Поблагодарили: 119

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

и какой же текст ругани
—
у меня все работает

• shanemac51
• генерал-полковник
• Неактивен

• Зарегистрирован: 05.03.2012
• Сообщений: 467
• Поблагодарили: 119

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

какая у вас версия и разрядность ВИНДОВС
и офиса
—
32 или 64

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Ругается вот так:
User-defined type not defined
на строку
Dim oCell As Cell
Система Win 8.1 х 64
Офис 2013.
И система и офис — легальные.

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• yshindin
• генерал-полковник
• Неактивен

• Откуда: Москва
• Зарегистрирован: 12.05.2012
• Сообщений: 447
• Поблагодарили: 171

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• shanemac51
• генерал-полковник
• Неактивен

• Зарегистрирован: 05.03.2012
• Сообщений: 467
• Поблагодарили: 119

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

может у вас битая ссылка(например типа Календарь)
какая разрядность офиса  (32 или 64)

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Офис 2013 х32

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97
• За сообщение: 1

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Sub ValueOfCell()
'Запоминаем текст ячейки в переменную
Dim sValue As String
Dim oDoc As Document
Set oDoc = ActiveDocument
For Each Cell In oDoc.Tables(1).Range.Cells
    If InStr(Cell.Range.Text, "контроля:") >= 1 Then
        sValue = Cell.Range.Text
        MsgBox sValue
    End If
Next Cell
End Sub

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Dim oDoc As Object
Set oDoc = WD.Documents.Open(Filename:=File)

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Именно по этой причине, что — не статичен!
В каком-то акте Word эта ячейка, допустим, на 24-й строке, в другом акте — на 25-й строке.
А в следующей ячейке — нужная мне инфа, которую надо загнать в реестр Excel.
Если привязаться только к 24-й строке жёстко, то нужная инфа из другого (кривого) файла Word запишется криво, не та и не в те ячейки.
Я же пробовал.

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Я вижу, что всех работников «под одну гребенку» не причешешь:
нет-нет, да найдется «тётенька», которой, ну, жизненно необходимо добавить ещё одну строчку в акте Word!

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Опечатка:
добавить не строчку в текст , а строку в таблицу.
Ну или разделить/объединить ячейки таблицы.
И данный акт Word автоматом становится «кривым».

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Я бы то же так сделал бы, если б знал )
Вопрос: как перейти на следующую ячейку?
Это главное на сей момент.

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

С offset-ом у меня беда…

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Вопрос: что такое маркер?
Ну, применительно к моей проблеме.

• shanemac51
• генерал-полковник
• Неактивен

• Зарегистрирован: 05.03.2012
• Сообщений: 467
• Поблагодарили: 119

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

я бы видимо не стала привязываться к таблице , а перебирала бы параграфы
вечером попробую на вашем примере

• shanemac51
• генерал-полковник
• Неактивен

• Зарегистрирован: 05.03.2012
• Сообщений: 467
• Поблагодарили: 119

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

Sub ValueOfCell_170627()
'Запоминаем текст ячейки в переменную
Dim sValue As String
Dim c1 As Cell, s1, k1, k2
Dim oDoc As Document
Set oDoc = ActiveDocument
Dim tbl As Table
k1 = 0
k2 = 0
For Each tbl In Word.ActiveDocument.Tables
tbl.Select
For Each c1 In Selection.Cells
s1 = Replace(c1.Range.Text, Chr(13), " ")
s1 = Replace(s1, Chr(10), " ")
s1 = Replace(s1, Chr(9), " ")
s1 = Replace(s1, Chr(7), " ")
s1 = Replace(s1, Chr(11), " ")


s1 = Replace(s1, "  ", " ")

If c1.Range.Font.Size < 7 Then s1 = ""

If s1 Like "5. *" Then
Debug.Print
Debug.Print s1;

k1 = 0
k2 = 0
s1 = ""
ElseIf s1 Like "[12346789]. *" Then
Debug.Print
'Debug.Print s1;

k1 = 0
k2 = 8
s1 = ""
ElseIf s1 Like "требованиям:*" Then
k1 = 0
k2 = 8
s1 = ""
''требованиям:

ElseIf s1 Like "Дополнительные сведения*" Then
k1 = 0
k2 = 0

ElseIf s1 Like "№ *" Then   ''№ 000/2.15-КЖ
Debug.Print
 Debug.Print s1
 k1 = 0
 k2 = 0
ElseIf s1 Like "*20??г*" Then  '' "15" марта 2017г
Debug.Print
 Debug.Print s1
 k1 = 0
 k2 = 0
Else
''
End If
k1 = k1 + 1

If k1 < k2 And k1 > 0 And Len(s1) > 0 Then
If k1 = 1 Then
Debug.Print
Debug.Print s1; " ";
Else
Debug.Print s1; " ";
End If
End If
Next c1
Next tbl

'''№ 0 / 2.15 - КЖ
'''
'''«15» марта 2017г.
'''
'''Установка опалубки    фундаментов в/о А-С/1-2 отм. +(55.600?58.100).
'''ООО «[наименование ООО]»   2.15-КЖ Лист 2
'''   
'''         
'''5. Даты: начала работ «10» марта 2017г.     окончания работ «14» марта 2017г.
End Sub

• MrBrown
• лейтенант
• Неактивен

• Зарегистрирован: 13.06.2017
• Сообщений: 41

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• Alexsh
• рядовой
• Неактивен

• Зарегистрирован: 26.12.2017
• Сообщений: 1

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

• 
• Fck_This
• генерал-полковник
• Неактивен

• Откуда: Минск, Беларусь
• Зарегистрирован: 13.07.2016
• Сообщений: 648
• Поблагодарили: 97

Re: Как просканировать всю таблицу в поисках ячейки с нужным текстом?

10   голосов , оценка 4.300 из 5