Форум программистов, компьютерный форум, киберфорум
MS Office Word
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 23.01.2017
Сообщений: 5
1

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

24.12.2020, 15:46. Просмотров 983. Ответов 1

Добрый день!
Подскажите код макроса, который бы мог удалить все абзацы в таблице MS Word 2013.
Через поиск и замену не работает функционал в таблице, макросы, кокторые нагуглил, тоже не сработали. В основном народ пишет про задвоения, пустые абзацы и про абзац в конце ячейки.
Мне надо просто все удалить в таблице.
Хотя возможно есть какое-то другое решение. Конечная задача, сделать так, чтоыбы при переносе текста по ячейкам из ворда в эксель, последний не объединял бы ячейки, а он объединяет несколько, я так понял потому что видит знак абзаца вордовский и сразу же начинает как-то по-своему вставлять.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2020, 15:46
Ответы с готовыми решениями:

Расчет в таблице Word 2013
Необходимо рассчитать значения ячеек. Никак не разберусь, в нумерации ячеек, если использовать...

Слить все абзацы в один текст Word
Привет всем! Подскажите как в ворд слить все абзацы в один текст? имею такой текст: День...

Отражение расчета по формуле в таблице MS Word 2013
При работе с расчетами по формулам в таблице MS Word 2013 (32-bit) с вводом значений более 15999...

Собрать данные из форм Word 2013 в Acces 2013
Помогите чайнику. Програмирование совсем не мое. Пробую создать базу Access VBA со скриптом, чтобы...

1
681 / 396 / 132
Регистрация: 22.12.2015
Сообщений: 1,163
24.12.2020, 16:55 2
Лучший ответ Сообщение было отмечено BenderRodrigues как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2020, 16:55

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

Как в Word заменить абзацы на перенос строки?
Здравствуйте. У меня в текстовом (*.txt) файле список английских слов с переводами, которые надо...

Word изменить строки/абзацы выделенные жирным
Доброго времени суток! Есть некоторый документ Word в нем есть строки/абзацы в которых встречаются...

VBA - Word: Найти и поменять абзацы местами
Доброго времени суток Нужно написать макрос, который в воре из структуры вида: .... @ ...

Нарушение форматирования документов word 2010 при открытии в word 2013
Здравия коллеги! Столкнулся с такой проблемой у человека W8+office2013 всё легальное, документы...

При открытии документа word 2013 в word 2010 меняется структура текста
Здравствуйте. Для вуза сделал в ворд 2013 два реферата. Пошел распечатывать. Оказалось, что в том...

Excel 2013 "Eventid 300" Word 2013, не отображаются эллементы
Всем Доброго времени в целом в Office 2013 возникли неадекватные проблема, помогите пожалуйста ! ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.