Как удалить знак конца строки таблицы в ворде
Перейти к содержимому

Как удалить знак конца строки таблицы в ворде

  • автор:

Как удалить знак конца строки таблицы в ворде

Вносим в конец ячеек лишние символы @#$

Sub daTabl() For x = 1 To 25 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.EndKey Unit:=wdLine Selection.TypeText Text:="@#$" Next End Sub

и вручную через поиск-замена удаляем варианты
.@#$

Не получается. выдает ошибку((((((
Изображения

Безымянный.png (3.7 Кб, 10 просмотров)
TimoniArtjom
Посмотреть профиль
Найти ещё сообщения от TimoniArtjom

Регистрация: 07.11.2014
Сообщений: 9
Сообщение от TimoniArtjom
Не получается. выдает ошибку((((((
Так. макросы включил. а вот результата нет((((( все равно остается конец ячейки и точка

TimoniArtjom
Посмотреть профиль
Найти ещё сообщения от TimoniArtjom

Регистрация: 07.11.2014
Сообщений: 9
Сообщение от сфинкс

Вносим в конец ячеек лишние символы @#$

Sub daTabl() For x = 1 To 25 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.EndKey Unit:=wdLine Selection.TypeText Text:="@#$" Next End Sub

и вручную через поиск-замена удаляем варианты
.@#$

и почему-то меняет лишь часть ячеек, а не все. я так понимаю, дело в
For x = 1 To 25

TimoniArtjom
Посмотреть профиль
Найти ещё сообщения от TimoniArtjom

Форумчанин
Регистрация: 17.06.2012
Сообщений: 952

применив количество ячеек свыше 25-ти

надеюсь всё получится

макрос был записан с экрана следя за клавишами

Последний раз редактировалось сфинкс; 26.02.2021 в 14:37 .
Регистрация: 07.11.2014
Сообщений: 9
Сообщение от сфинкс

применив количество ячеек свыше 25-ти

надеюсь всё получится

Спасибо.
Да. Все получилось. Поменял число и несколько раз запустил макрос, что бы он все таблицы «пробежал».

Макрос вставлял символы не только в конце строки. но, это никак не повлияло на результат после удаления знаков через поиск-замена

TimoniArtjom
Посмотреть профиль
Найти ещё сообщения от TimoniArtjom

Удаление конечных знаков абзацев из ячеек таблиц

Как во всем документе удалить лишние концевые знаки абзацев в конце ячеек таблиц? Это именно знаки абзацев (^13) перед маркером конца ячейки. Вариант искать «(*^13)@», заменить на «\1» не работает в ячейках.

Для этих целей следует использовать следующий макрос. Работает для всех таблиц в документе и удаляет знаки абзацев только в конце текста в ячейке:

Sub TablesRemovePilcrons() Dim oTbl As Table Dim oCll As Cell For Each oTbl In ActiveDocument.Tables For Each oCll In oTbl.Range.Cells While oCll.Range.Characters.Last.Previous = Chr(13) oCll.Range.Characters.Last.Previous = "" Wend Next Next

Еще записи по вопросам использования Microsoft Word:

  • 10 вопросов и ответов по редактору Word (1 часть)
  • 3 способа очистки списка недавно открытых документов
  • Word 2007: добавляем свою вкладку и свои команды
  • Word 2007: полотно, рисунки, линии
  • Word 2007: смена формата сохранения файла
  • Word 97 — решение проблемы с отображением символов на линейке
  • Абзац с цветным фоном
  • Автоматизация текстового набора в Word
  • Автоматическая запись макроса
  • Автоматическая нумерация билетов
  • Автоматическая расстановка переносов
  • Автоматическое обновление полей при открытии документа
  • Автоматическое сохранение документа при его закрытии
  • Автотекст с последовательной нумерацией
  • Белый текст на синем фоне в Word 2007
  • Быстрая смена ориентации страниц документа
  • Быстрое перемещение между открытыми документами Word
  • Быстрое создание нового документа на основе шаблона
  • Быстрое удаление границ у таблицы
  • Быстрый ввод текста с помощью команды =rand()
  • Ввод повторяющихся фрагментов текста в Word 2007
  • Ввод часто повторяющихся фрагментов текста
  • Вертикальное выравнивание текста
  • Возможно ли запретить копирование текста из документа Word?
  • Вопрос о работе с графиками (диаграммами) в Word

Комментариев: 15

16.12.2008 в 11:29 | #1

Приветствую! У меня похожая проблема: Необходимо, чтобы в любом названии таблицы (это абзац, непосредственно предшествующий таблице) в конце не было точки. Вариант:

With Selection.Find .Text = ".(^0013)", .Style = ActiveDocument.Styles("Название таблицы") ' в документе предусмотрен специальный стиль для ' форматирования названия таблицы .Format = True .Replacement.Text = "(\1)" .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll

— находит точки, которые нужно удалить, но не хочет их заменять. Думаю, задачу можно как-то решить с использованием коллекции Tables, но можно ли решить проблему, используя «Найти и заменить»?

18.12.2008 в 11:10 | #2

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

18.12.2008 в 11:16 | #3

Нет, Название таблицы не является полем. Проблему удалось решить, если не использовать Replace, а удалять точку вручную следующим образом:

If Selection.Find.Execute = True Then Selection.Characters(1).Delete End If

Пишу для того, если вдруг кто-то столкнётся с подобноу проблемой

18.12.2008 в 12:54 | #4

Ну, если это не поле, тогда все проще, конечно. Правда, ваш макрос может удалить и все другие точки, после которых идет знак абзаца. Это может быть лишним. Надо более конкретно указывать искомый текст. И лучше не использовать в макросе этот код (0013), а использовать Chr(13).

Евгений Корнилов
25.05.2009 в 20:40 | #5

Обнаружилась проблемма с данным макросом. если первая ячейка таблици пуста — вылетает с ошибкой. Я решил это (добавив еще и удаление начальных знаков абзаца), но не уверен что это оптимальное решение, VB вижу сегодня первый день. Знатоки — подскажите.

Sub TablesRemovePilcrons() Dim oTbl As Table Dim oCll As Cell For Each oTbl In ActiveDocument.Tables For Each oCll In oTbl.Range.Cells While oCll.Range.Characters.First = Chr(13) oCll.Range.Characters.First = "" Wend If Len(oCll.Range.Characters.First) = 1 Then While oCll.Range.Characters.Last.Previous = Chr(13) oCll.Range.Characters.Last.Previous = "" Wend End If Next Next End Sub

Как удалить ¤?

Author24 — интернет-сервис помощи студентам

Здравствуйте. Подскажите, что это за символ форматирования (или как его там) ¤? Не могу удалить, как это можно сделать? Заранее спасибо за помощь.

Лучшие ответы ( 3 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Как удалить строки, имеющие в первой ячейке любое количество цифр? И как удалить строки по значению первого слова? т.д
День добрый. Могли бы подсказать. Как удалить строки, имеющие в первой ячейке любое количество.

Почему не получается удалить file? Как удалить файл?
почему не получается удалить file? public void onClick(View v) < .

Как удалить вот этот вирус ieunitdrf.inf антивирусники пробывал всякие не могут его удалить
у меня браузер хором ваще не грузит и мозила постоянно вылетает сижу щас с оперы это все по ходу и.

Как удалить пункт «Удалить» из контекстного меню Проводника?
Все редакторы контекстного меню, что я пробовал, осторожно обходят пункты "Удалить".

Как убрать последний символ параграфа в таблице word?

Люди, здравствуйте. Имеем 400 страниц таблиц в ворде. В каждой ячейке перед символом окончания ячейки стоит знак параграфа, абзацев в ячейке несколько, разное количество в каждой ячейке. Вопрос: есть ли способ пройтись по всем ячейкам и убрать именно последний в ячейке символ параграфа? Спасибо.

Druha
Участник

Сообщения 274 Реакции 0

Ответ: Как убрать последний символ параграфа в таблице word?

Преобразовать таблицы в текст с разделителем строк каким нибудь знаком, а потом заменить комбинацию «знак+параграф» на «знак» и обратно в таблицу.

kassia

15 лет на форуме
Сообщения 136 Реакции 22

Ответ: Как убрать последний символ параграфа в таблице word?

Можно скачать скрипт для индизайна TableStyle.

Позволяет настраивать:
отступы до и после таблицы;
тип линий;
цвет линий;
оттенок цвета линий;
толщину линий;
цвет заливки ячеек;
оттенок цвета заливки ячеек;
тип вертикального выравнивания в ячейках;
отступы в ячейках сверху, снизу, слева, справа;
стиль текста в таблице;
высоту строк,

а также удалять лишние пробелы и знаки конца абзаца в начале и конце ячеек

asterix
Участник

Топикстартер
Сообщения 145 Реакции 0

Ответ: Как убрать последний символ параграфа в таблице word?

Спасибо, но первый вариант рискуешь, что нибудь потерять и не дай бог хоть одна строка съедет и не заметишь, а второй потому, что мимо индиза — сразу в пдф, а потом может в индиз, еще не решил.

ragman

12 лет на форуме
Сообщения 669 Реакции 0

Ответ: Как убрать последний символ параграфа в таблице word?

Если выложишь для примера кусок таблицы, могу сварганить макрос для ворда.

Развернуть подпись
Люблю скрипты. Потому что не люблю работать.

asterix
Участник

Топикстартер
Сообщения 145 Реакции 0

Ответ: Как убрать последний символ параграфа в таблице word?

Если есть возможность, буду признателен. Ориг таблицы под руками нет сейчас, но прилагаемая идею отображает. Пришлось делать руками, а это ну очень муторно. Интересно будет очень на макрос посмотреть. Спасибо.

Вложения

6.1 КБ · Просм.: 611

kaatm

15 лет на форуме
Сообщения 1 101 Реакции 19

Ответ: Как убрать последний символ параграфа в таблице word?

А что мешает удалить все абзацы (^p) в таблице?

Развернуть подпись
If you want a job done right, you do it yourself!

Psy
няша

15 лет на форуме
Сообщения 3 581 Реакции 2 279

Ответ: Как убрать последний символ параграфа в таблице word?

kaatm сказал(а):
А что мешает удалить все абзацы (^p) в таблице?
В ячейке могут встретиться нужные абзацы, их-то удалять не надо, надо только последний.
Развернуть подпись
Театр закрывается, нас всех тошнит.

asterix
Участник

Топикстартер
Сообщения 145 Реакции 0

Ответ: Как убрать последний символ параграфа в таблице word?

kaatm сказал(а):
А что мешает удалить все абзацы (^p) в таблице?

В каждой ячейке несколько строк, каждая отбита абзацем. Это делает машина, а нечеловек. И, судя по всему, пока по другому она не могет.
Необходимо удалить только последний абзац в каждой ячейке. Если 400 страниц, по пять колонок в среднем на странице, то труд мерзкий достаточно. Но пока другого выхода, кромк как ручками не нашел. В индюк таблицы не затаскиваются ни в какую, Вижу причину в том, что некоторые ячейки либо разбиты, либо объеденены. Приводить в порядок в ворде, а потом возвращать назад — мартышкин труд. Да потерять можноЮ чего нить важное. Во в этой связи и возник вопрос. Ладно — пошел книжку по VBA глядеть — может чего и найду.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *