Word макросы удалить строку

asked Oct 3, 2013 at 17:20

Assuming that the example list is a list of paragraphs beginnings the following code should do the trick. What you have to do is to place all ‘paragraphs starting’ into array arrRemove as I did for the test. If any of the mark is a special marks (see this link for additional information) you need to add in front of it as I did for [+] and [-]. Hope this is what you are looking for.

Sub Macro2()

    Dim arrRemove As Variant
        arrRemove = Array("Bottom of Form", "perma -link", "Top of Form", _
                    "[+]", "[-]", "Donec", "In")

    Dim i!
    For i = 0 To UBound(arrRemove)
        Activedocument.Range(0,0).select

        Selection.Find.ClearFormatting
        With Selection.Find
            .Text = arrRemove(i) & "*^13"
            .Replacement.Text = ""  'replace with nothing

            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll

    Next i

End Sub

The above macro will remove all yellow paragraph in the following document.

answered Oct 3, 2013 at 20:32

Добрый день.
Друзья, прошу помощи. Имеется большая таблица в Word 2007, около 100 стр.
Необходимо автоматизировать удаление отдельных повторяющихся строк.
Вручную это делать очень долго, к тому же файл около 7мб, комп работает медленно.
Для образца прикрепил файл Word, где желтым цветом выделены строки, которые надо удалить. Т.е. проще говоря, убрать разрез по мужчинам во всей таблице.
И второй вопрос — есть ли возможность автоматического объединения ячеек в строках, выделенных синим цветом?

Буду признателен. Алексей.

откуда вы сформировали этот файл

|||||||||
|||||||||
ДОБЫЧА ПОЛЕЗНЫХ ИСКОПАЕМЫХ||===|слить|===|===|===|===|===|===
человек|||||||||
%|50||||||||
%|30||||||||
в том числе:|||||||||
мужчин|||удал||||||
человек|30||удал||||||
%|3.4||удал||||||
%|100||удал||||||
женщин|||||||||
человек|50||||||||
%|100||||||||
%|||||||||
ОБРАБАТЫВАЮЩИЕ ПРОИЗВОДСТВА|||||||||
человек|123||||||||

Короче, попробуйте так (макросы для экселя)

Sub DeleteRows()
    Dim arr(), i As Long, address As String
    Application.ScreenUpdating = False
    arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 4 To UBound(arr)
        If arr(i, 1) = "мужчин" Then
            If address = "" Then
                address = "A" & i & ":A" & i + 4
            Else
                address = address & "," & "A" & i & ":A" & i + 4
            End If
        End If
    Next
    MsgBox address
    Range(address).EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

Sub MergeCells()
    Application.ScreenUpdating = False
    Dim arr(), i As Long
    arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 3 To UBound(arr)
        If arr(i, 1) = UCase(arr(i, 1)) And arr(i, 1) <> "%" Then Range("A" & i & ":J" & i).Merge
    Next
    Application.ScreenUpdating = True
End Sub

Ребят, один хороший специалист viteralex написал такой код. Но пока он работает некорректно. Там вроде циклически удаляется строка, где в первой ячейке есть слово «мужчин», и три следующих за ней строки. Но после запуска макроса он удаляет не то что нужно и остается такая таблица (см.скрин) и ошибка выскакивает. Как исправить?

Перед запуском макроса курсор должен находиться в таблице:
Sub DeleteRows()
Dim oRow As Row
Set oRow = Selection.Tables(1).Rows.First
Do
If oRow.Cells(1).Range.Text Like «мужчин*» Then
oRow.Next.Next.Next.Delete
oRow.Next.Next.Delete
oRow.Next.Delete
Set oRow = oRow.Next
oRow.Previous.Delete
Else
Set oRow = oRow.Next
End If
Loop Until oRow Is Nothing
End Sub

МВТ, проверил первый макрос. работает. но удаляется и строка с текстом женщин. Её удалять не надо.

Второй макрос работает. СПАСИБО.

Просьба, поясните, какие алгоритмы они используют. ну т.е. как он работает? Как эти макросы можно отредактировать, чтобы я мог применять эти макросы в качестве шаблонов для других случаев. например, когда надо удалить строку с другим текстом в ячейке, когда надо удалить, например, одну строку после строки с текстом =мужчин=, а не три как в вашем коде…

И просьба, желательно для Wordа бы макрос. А то я же когда из экселя копировал таблицу. замучился её форматировать. и опять тогда придется форматировать…

Да, механическая ошибка. Замените строку

address = "A" & i & ":A" & i + 4

на

address = "A" & i & ":A" & i + 3

И удалите строку

По поводу алгоритмов:
1) вычисляем последнюю заполненную ячейку в столбце А
2) данные из столбца А до последней заполненно ячейки забираем в массив для увеличения скорости обработки и в цикле перебираем
3) формируем текстовую строку адресов ячеек, которые содержат контрольное слово
3) на ее основе задаем диапазон и удаляем соответствующие ему строки.

Какие могут быть проблемы при форматировании таблицы, скопированной из экселя в ворд мне не совсем понятно, возможно Вам имеет смысл задать соответствующий вопрос на этом форуме с описанием сложностей?

МВТ,  благодарю за помощь. Всёработает. ВАш макрос работает в Excell.
Ещё мне для Ворда помог с макросом Александр. Вот его код:

‘Удаление строк
Sub DeleteRows()
    Dim oRow As Row
    Set oRow = Selection.Tables(1).Rows.First
    Do
        If oRow.Cells(1).Range.text Like «мужчин*» Then
            oRow.Next.Delete
            oRow.Next.Delete
            oRow.Next.Delete
            Set oRow = oRow.Next
            oRow.Previous.Delete
        Else
            Set oRow = oRow.Next
        End If
    Loop Until oRow Is Nothing
End Sub

‘Функция проверяет содержится ли в массиве искомая строка
Private Function Contains(ar() As Variant, text As String)
    Dim i As Integer
    If Len(text) = 0 Then
        Contains = False
        Exit Function
    End If
    For i = 1 To UBound(ar)
        If Trim(LCase(ar(i))) = Trim(LCase(text)) Then
            Contains = True
            Exit Function
        End If
    Next
    Contains = False
End Function

А по поводу вставки таблиц из экселя в ворд есть проблемы. например, таблица выходит за границы документа, приходится сдвигать графы по порядку..документ то огромный, таблица на 100стр. одну графу сдвинул, ждешь пока это по всей таблице пройдет, секунд 20.. тормозит.. но где то здесь на форуме я видел рекомендации по грамотной вставке таблиц из эксел..

это я и имела в виду, говоря ,что таблицу в 100стр, WORD не тянет

Поясню. Таблицы переносятся в Ворд для подготовки документа — бюллетеня для размещения в Базе готовых документов. Бюллетень содержит оглавление, содержание, сами таблицы (основная информация), комментарии. Для удобства потребителя. Ну т.е. для приведения данных к удобочитаемому компактному виду.