Автор Тема: В таблице удалить знак абзаца после точки  (Прочитано 164 раз)

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Нужно удалять знак абзаца после точки в числах, когда само число и его доли разделены не запятой, а точкой (например: 34.5) в выделенном фрагменте таблицы. Ничем его не заменять, а просто удалять знак абзаца. Иначе десятичный знак переносится на следующую строку в ячейке таблицы, а число нужно целиком, в одну строчку.

Оффлайн Администратор

  • Administrator
  • Сообщений: 1866
Re: В таблице удалить знак абзаца после точки
« Ответ #1 : 02 Сентябрь 2021, 15:59 »
Я не могу предсказать, что может быть слева и справа от числа: пробелы, скобки или что-то ещё. Я такие задания не делаю.
Я не знаю, как понять, разбито число на части или же так и должно быть.
Вам нужно самим предложить, как мне понять, что число разбито на части или попробуйте спросить на другом форуме.

Просто найти выражение: цифра + точка + знак абзаца + цифра - можно. А если искать числа, то здесь нужно уже хорошо ориентироваться в программировании текста.

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Re: В таблице удалить знак абзаца после точки
« Ответ #2 : 02 Сентябрь 2021, 16:17 »
а если так: удалить знак абзаца справа от точки в выделенных ячейках таблицы

Оффлайн Администратор

  • Administrator
  • Сообщений: 1866
Re: В таблице удалить знак абзаца после точки
« Ответ #3 : 02 Сентябрь 2021, 16:43 »
Можно ведь искать сочетание: цифра + точка + знак абзаца + цифра.
Или вам достаточно искать сочетание: точка + знак абзаца? И не надо усложнять ситуацию?

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Re: В таблице удалить знак абзаца после точки
« Ответ #4 : 02 Сентябрь 2021, 17:02 »
не надо усложнять. В выделенных ячейках удалить знак абзаца справа от точки и все.

Оффлайн Администратор

  • Administrator
  • Сообщений: 1866
Re: В таблице удалить знак абзаца после точки
« Ответ #5 : 02 Сентябрь 2021, 17:15 »
Sub Макрос()
   
    With Selection.Range.Find
        .Text = ".^p"
        .Replacement.Text = "."
        .Execute Replace:=wdReplaceAll
    End With
   
End Sub

Оффлайн persik

  • Посетитель форума
  • Сообщений: 34
Re: В таблице удалить знак абзаца после точки
« Ответ #6 : 02 Сентябрь 2021, 17:54 »
Прекрасно! Отлично работает! Спасибо!