Как удалить текст в ворде
Перейти к содержимому

Как удалить текст в ворде

  • автор:

Как удалить текст в ворде

Нужно динамически формировать в шаблоне Word отдельные пункты трудового договора.
Я их сразу все (3 штуки) вставил и пытаюсь удалять лишние:

Замена = MSWord.ActiveDocument.Range().Find;
Замена.Execute(«3.2. Работодатель обязан:», Ложь, Истина, Ложь, , , Истина, , Ложь, «»);

Но символы перевода строки не удаляются, если к тексту добавляю » + Символы.ПС», то он не находит этот текст.

Еще вариант: создал макрос на удаление нужных строк, но не знаю как поставить перед выполнением макроса курсор в нужное место.

Замена.Execute(«3.2. Работодатель обязан:^|», Ложь, Истина, Ложь, , , Истина, , Ложь, «»);

Ошибка при вызове метода контекста (Execute): Произошла исключительная ситуация (Microsoft Word): (здесь значок типа нотки)

Если прямо в ворде пишу в строке поиска, то выдает: «Нельзя использовать как специальный символ в поле «Найти».

Я так и не понял где в ссылке (1) использовалась эта конструкция.

(0) А зачем так сложно? Сделай в ворде один параметр и заполняй его в зависимости от условий.

(3) Там форматирование текста, мне кажется еще больший геморрой.
Пробую сейчас через закладки устанавливать курсор и макросом удалять.

Добавление, копирование и удаление текстового поля

Excel для Microsoft 365 Outlook для Microsoft 365 PowerPoint для Microsoft 365 Excel 2021 Outlook 2021 PowerPoint 2021 Project профессиональный 2021 Project стандартный 2021 Excel 2019 Outlook 2019 PowerPoint 2019 Project профессиональный 2019 Project стандартный 2019 Excel 2016 Outlook 2016 PowerPoint 2016 Project профессиональный 2016 Project стандартный 2016 Excel 2013 Outlook 2013 PowerPoint 2013 Project профессиональный 2013 Project стандартный 2013 Project для Office 365 Еще. Меньше

Вы можете добавлять, копировать или удалять текстовые поля в приложениях Microsoft Office. Текстовое поле позволяет добавлять текст в любое место файла. Например, можно создать кавычки по запросу или боковые панели, которые будут обращать внимание на важную информацию. Сведения о Word см. в статье Добавление, копирование и удаление текстового поля в Word.

Добавление текстового поля

Чтобы узнать, как добавить текстовое поле, выберите приложение из раскрывающегося списка.

Какое приложение Office вы используете?

  • Какое приложение Office вы используете?
  • Excel
  • Outlook
  • PowerPoint
  • Project

Кнопка

  1. На вкладке Вставка в группе Текст нажмите кнопку Текстовое поле.

Параметры в группе Шрифт

Примечания:

    Чтобы отформатировать текст в текстовом поле, выделите текст, а затем используйте параметры форматирования в группе Шрифт на вкладке Главная .

Меню

  1. Щелкните текст открытого сообщения электронной почты.
  2. На вкладке Вставка в группе Текст щелкните Текстовое поле, а затем — Рисовать текстовое поле.

Параметры в группе

Примечания:

    Чтобы отформатировать текст в текстовом поле, выделите текст, а затем используйте параметры форматирования в группе Основной текст на вкладке Сообщение .

Кнопка

, перетащите текстовое поле в новое место.
Чтобы управлять переносом текста вокруг поля, щелкните Параметры макета

Параметры макета текстового поля

, а затем выберите параметр из списка.

Кнопка

  1. На вкладке Вставка в группе Текст нажмите кнопку Текстовое поле.

Если вы не используете мышь

  1. Нажмите клавиши ALT+N, чтобы перейти на вкладку Вставка .
  2. Используйте клавиши со стрелками, чтобы перейти к кнопке Текстовое поле .
  3. Нажмите клавиши CTRL+ВВОД, чтобы добавить текстовое поле на слайд, а затем введите текст.

Параметры в группе Шрифт

Примечания:

    Чтобы отформатировать текст в текстовом поле, выделите текст, а затем используйте параметры форматирования в группе Шрифт на вкладке Главная .

  1. В проекте с диаграммой Ганта откройте вкладку Формат и нажмите кнопку Рисование.
  2. Щелкните Текстовое поле, а затем перетащите диаграмму Ганта, чтобы нарисовать текстовое поле до нужного размера.
  3. Чтобы добавить текст, щелкните внутри поля и введите или вставьте текст.
  • Чтобы отформатировать текст в текстовом поле, выделите текст, перейдите на вкладку Задача и используйте параметры форматирования в группе Шрифт .
  • Вы также можете изменить или удалить границу из текстового поля или фигуры.

Копирование текстового поля

  1. Щелкните границу текстового поля, которое нужно скопировать.
  2. Нажмите клавиши CTRL+C.

Примечание: Убедитесь, что указатель находится на границе текстового поля, а не внутри него. Если указатель находится внутри, нажатие клавиш CTRL+C скопирует текст, а не текстовое поле.

Удаление текстового поля

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

Примечание: Убедитесь, что указатель находится на границе текстового поля, а не внутри него. Если указатель находится внутри поля, нажатие кнопки Удалить приведет к удалению текста внутри текстового поля, а не поля.

2 быстрых способа найти или удалить предложения, содержащие определенный текст в вашем Word

Найти или удалить предложения, содержащие определенный текст

Всем известно, что мы можем использовать функцию «Найти и заменить» в Word, чтобы легко найти все вхождения определенных слов. Тогда у нас не будет проблем с их выделением, заменой или удалением. Как видите, tarполучить слово или фраза. Однако сегодня мы рады рассказать вам о способе макроса для поиска или удаления предложений, содержащих определенный текст.

Метод 1: найти или удалить предложения, содержащие определенный текст

  1. Для начала нажмите «Alt + F11», чтобы вызвать редактор VBA в Word.
  2. Затем создайте новый модуль, нажав «Обычный».
  3. Затем нажмите «Вставить» и выберите «Модуль», чтобы получить новый.
  4. И откройте модуль двойным кликом.
  5. Теперь вставьте следующие коды:
Sub DeleteSentencesContainingSpecificWords() Dim strTexts As String Dim strButtonValue As String strTexts = InputBox("Введите тексты, которые нужно найти здесь:") With Selection .HomeKey Unit:=wdStory ' Найдите введенные тексты. С selection.find .clearformatting .text = strtexts .replacement.text = "" .forward = true .wrap = wdfindcontinue .format = false .matchcase = false .matchwholeword = false .matchwildcards = false .matchSoundSlike = false .matchallForms = false. Execute End With Do While .Find.Found = True ' Расширить выделение до всего предложения. Selection.Expand Unit:=wdSentence strButtonValue = MsgBox("Вы уверены, что хотите удалить предложение?", vbYesNo) If strButtonValue = vbYes Then Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute Конец цикла с End Sub
  1. Далее нажмите «Выполнить».
  2. Появится поле ввода, в котором вас попросят ввести текст. Просто введите общий текст, который содержится во всех предложениях. Нажмите «ОК».
  3. Затем вы увидите предложение, содержащее выбранный текст, с всплывающим окном сообщения. Нажмите «Да», чтобы удалить предложение, и «Нет», чтобы сохранить его.Нажмите «Да» или «Нет», чтобы подтвердить действие.
  4. После подтверждения выбирается следующее предложение с указанным текстом. А еще есть подтверждающая коробка. А именно, макрос заставляет вас пройтись по всему документу, находя tarполучать предложения и спрашивать ваше подтверждение каждый раз.

Способ 2: найти или удалить предложения, содержащие любой текст в списке

С помощью макроса в методе 1 вы можете искать только одно слово или фразу за раз. Конечно, вы можете запускать макрос несколько раз, чтобы найти несколько вхождений слов или фраз. Чтобы удовлетворить потребность в множественном поиске, мы предоставим вам еще один макрос.

  1. Сначала поместите все tarполучить тексты в новом документе. Убедитесь, что каждый фрагмент текста занимает один абзац без завершающего пробела. Закройте и сохраните документ.
  2. Затем установите и запустите макрос с точными шагами в методе 1.
  3. Затем замените макрос на этот:
Sub DeleteSentencesContainingSpecificWordsOnAList() Dim objListDoc As Document, objTargetDoc как документ Dim objParaRange As Range Dim objParagraph As Paragraph Dim strFileName As String, strButtonValue As String Dim dlgFile As FileDialog Set dlgFile = Application.FileDialog(msoFileDialogFilePicker) With dlgFile If .Show = -1 Then strFileName = .SelectedItems(1) Else MsgBox "Нет файла выбрано! Пожалуйста, выберите tarполучить файл." Exit Sub End If End With Set objTargetDoc = ActiveDocument Set objListDoc = Documents.Open(strFileName) objTargetDoc.Activate для каждого objParagraph в objListDoc.Paragraphs Set objParaRangage = objParagraph.Range objParaRange.End = objParaRange.End - 1 с выделением .HomeKey Unit:=wdStory ' Найти tarполучить слова. С Selection.Find .ClearFormatting .Text = objParaRange .MatchWholeWord = True .MatchCase = False .Execute End With ' Расширить выделение до всего предложения. Do While .Find.Found Selection.Expand Unit:=wdSentence strButtonValue = MsgBox("Вы уверены, что хотите удалить предложение?", vbYesNo) If strButtonValue = vbYes Then Selection.Delete End If .Collapse wdCollapseEnd .Find.Execute Loop End With Следующий objParagraph End Sub
  1. Теперь должно открыться окно «Обзор». Выберите только что сохраненный документ и нажмите «Открыть».
  2. Дальнейшая процедура такая же, как и в способе 1.

Подход к работе с поврежденными документами

Потеря ценных данных абсолютно разрушительна. Это может даже поставить под угрозу ваш бизнес. Чтобы избежать такого разочарования, вам нужно получить Исправление слова инструмент как можно скорее. Такой инструмент поможет вам победить в битве с повреждением документов.

Удаление текста из Word программно

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

Лучший вариант удаления страниц это по невидимым поставленным меткам (закладкам или вписанному белым цветом тексту). Но тут не могу понять, как выделить и удалить этот текст. Вроде и накопал, что надо использовать Selection и Delete, но не могу понять как.
С таблицами еще сложнее, тут даже не понял куда копать.

Может кто подсказать, как это сделать?

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

Удаление совпадений текста в документе MS Word
на форме текстовое поле, и кнопка. есть уже созданный файл Word (docx)(путь к файлу word берется из.

Удаление текста из документа Word
Здравствуйте, создаю документ Word через delphi. В нем есть кусок текста, который в конце надо.

Удаление фрагментов из текста MS Word средствами VBA
Доброго времени суток! Прошу вашей помощи в решении задачи на VBA. Суть задачи в следующем: есть.

Удаление части текста из ячейки таблицы Word
Всем привет! Необходимо удалять определенный текст во всех строках 6-й колонки таблицы (при его.

Регистрация: 04.05.2013
Сообщений: 49
Удалять строки в таблице научился (как ни странно первее, чем страницы):

1 2 3
oWord.Selection.Find.Text = "rows_del" 'метка, стоит в строке, которую удалять надо oWord.Selection.Find.Execute() oWord.Selection.Rows(1).Delete()

По страницам еще нет
1949 / 1386 / 361
Регистрация: 26.06.2017
Сообщений: 3,915

По моему как таковые страницы удалить не получится. Вам необходимо удалить элементы (абзацы, таблицы и прочее), размещённые на нужных Вам страницах. Выбор диапазона делается так, а вообще изучите это, возможно что-то прояснится.

Регистрация: 04.05.2013
Сообщений: 49

ЦитатаСообщение от Uswer Посмотреть сообщение

По моему как таковые страницы удалить не получится. Вам необходимо удалить элементы (абзацы, таблицы и прочее), размещённые на нужных Вам страницах. Выбор диапазона делается так, а вообще изучите это, возможно что-то прояснится.

Первое находил.
Разве нет возможности выделить текст от одной метки до другой? А потом обычный Delete, как в принципе с таблицей

1949 / 1386 / 361
Регистрация: 26.06.2017
Сообщений: 3,915

ЦитатаСообщение от miki2343 Посмотреть сообщение

Разве нет возможности выделить текст от одной метки до другой?
Есть, я Вам об этом и толкую говоря о выборе диапазона.
4385 / 3512 / 840
Регистрация: 02.02.2013
Сообщений: 3,404
Записей в блоге: 2

Пример удаления по номеру страницы. Если нет параграфов переходящих с одной страницы на другую, то отработает вполне сносно. Думаю, что можно развить и на использование меток и других указателей.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
Imports WRD = Microsoft.Office.Interop.Word Public Class Form1 Private wApp As WRD.Application Private wDoc As WRD.Document Private Sub OpenDoc_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click wApp = New WRD.Application wDoc = wApp.Documents.Open(Application.StartupPath & "\test.docx") wApp.Visible = True End Sub Private Sub DeletePage_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim pgNum As Integer = 2 rmvPage(pgNum) End Sub Private Sub rmvPage(ByVal num As Integer) With wDoc For i = .Paragraphs.Count To 1 Step -1 If .Paragraphs(i).Range.Information(WRD.WdInformation.wdActiveEndPageNumber) = num Then .Paragraphs(i).Range.Delete() End If Next i End With End Sub End Class

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

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