Прибить все абзацы в таблице MS Word 2013

@BenderRodrigues · Регистрация: 23.01.2017

Добрый день!
Подскажите код макроса, который бы мог удалить все абзацы в таблице MS Word 2013.
Через поиск и замену не работает функционал в таблице, макросы, кокторые нагуглил, тоже не сработали. В основном народ пишет про задвоения, пустые абзацы и про абзац в конце ячейки.
Мне надо просто все удалить в таблице.
Хотя возможно есть какое-то другое решение. Конечная задача, сделать так, чтоыбы при переносе текста по ячейкам из ворда в эксель, последний не объединял бы ячейки, а он объединяет несколько, я так понял потому что видит знак абзаца вордовский и сразу же начинает как-то по-своему вставлять.

@Dinoxromniy · 24.12.2020, 16:55

Visual Basic

Sub tblprem()
Dim tblObj As Table
For Each tblObj In ActiveDocument.Tables
 tblObj.Range.Find.ClearFormatting
    
    With tblObj.Range.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
       
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
 
    End With
    
Next tblObj
   
End Sub

@BenderRodrigues 0 / 0 / 0 Регистрация: 23.01.2017 Сообщений: 5
		1
	Прибить все абзацы в таблице MS Word 2013 24.12.2020, 15:46. Просмотров 983. Ответов 1 Метки word 2013, абзац, макрос (Все метки) Добрый день! Подскажите код макроса, который бы мог удалить все абзацы в таблице MS Word 2013. Через поиск и замену не работает функционал в таблице, макросы, кокторые нагуглил, тоже не сработали. В основном народ пишет про задвоения, пустые абзацы и про абзац в конце ячейки. Мне надо просто все удалить в таблице. Хотя возможно есть какое-то другое решение. Конечная задача, сделать так, чтоыбы при переносе текста по ячейкам из ворда в эксель, последний не объединял бы ячейки, а он объединяет несколько, я так понял потому что видит знак абзаца вордовский и сразу же начинает как-то по-своему вставлять. 0

Опции темы

Прибить все абзацы в таблице MS Word 2013

Решение