Форум программистов - Удалить разрывы разделов между таблицами

Форум программистов (https://programmersforum.ru/index.php)

- Microsoft Office Word (https://programmersforum.ru/forumdisplay.php?f=19)

- - Удалить разрывы разделов между таблицами (https://programmersforum.ru/showthread.php?t=345729)

Удалить разрывы разделов между таблицами

Здравствуйте

Помогите, пожалуйста !!!

В документе много таблиц.

Не могу удалить разрывы разделов между таблицами так, чтобы разделенные таблицы заново соединились.
Замена разрывов разделов на пустое место - не дало результатов, все равно остается знак абзаца между таблицами.

Нашел код, но он тоже не справился.
Не знаю, в чем дело

Код:

Sub Sect_Tabls

Dim rng As Range 

Selection.HomeKey wdStory 

Selection.Find.ClearFormatting 

With Selection.Find 

    Do While .Execute(FindText:=Chr(12), Forward:=True, _ 

        MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=True) = True 

        Set rng = Selection.Range 

        rng.Delete 

    Loop 

End With

End Sub

Цитата:

Сообщение от Niyetkhan (Сообщение 1860019)

Здравствуйте

Помогите, пожалуйста !!!

Попробуйте заменить Wrap:=wdFindStop на Wrap:=wdFindContinue

Niyetkhan, а вообще вам вот такого должно хватить

Код:

Sub Макрос73()

'

' Макрос73 Макрос

'

'

    Selection.find.ClearFormatting

    Selection.find.Replacement.ClearFormatting

    With Selection.find

        .Text = Chr(12)

        .Replacement.Text = ""

        .Forward = True

        .Wrap = wdFindContinue

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    Selection.find.Execute replace:=wdReplaceAll

End Sub