Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
3orP
157 / 2 / 3
Регистрация: 27.12.2012
Сообщений: 26
1

Удаление макросом фрагмент текста

29.04.2013, 00:34. Просмотров 1093. Ответов 5
Метки нет (Все метки)

Доброго времени суток!
У меня такая ситуация: есть документ, в котором при помощи макроса нужно удалить определенный абзац, как это можно сделать?
Спасибо за помощь!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.04.2013, 00:34
Ответы с готовыми решениями:

Запись и удаление макроса Макросом
Добрый день. Задачи следующие: 1. Имеется код VBА, который нужно...

Удаление сводной таблицы макросом
Здравствуйте! Часто бывает что нужно удалить или преобразовать сводную...

Выборочное удаление таблиц в Word макросом
Добрый день. Есть файл спецификации в Word, который состоит из отдельных...

Замена текста в колонтитуле макросом
Здравствуйте! В ходе разработки проектов возникла необхоидмость создавать...

Копирование текста из Word макросом
Всем привет. Если не сложно, помогите пожалуйста решить проблему. Появилась...

5
3orP
157 / 2 / 3
Регистрация: 27.12.2012
Сообщений: 26
29.04.2013, 00:35  [ТС] 2
Пример
0
Вложения
Тип файла: docx В целом.docx (11.8 Кб, 16 просмотров)
Sasha_Smirnov
5466 / 1308 / 143
Регистрация: 08.02.2009
Сообщений: 4,015
Записей в блоге: 29
29.04.2013, 01:07 3
У меня формат docx отображается некорректно — можно в doc?
0
3orP
157 / 2 / 3
Регистрация: 27.12.2012
Сообщений: 26
29.04.2013, 01:14  [ТС] 4
да, конечно
Красным зачеркнул то, что требуется удалить
0
Вложения
Тип файла: doc В целом.doc (22.5 Кб, 18 просмотров)
Sasha_Smirnov
5466 / 1308 / 143
Регистрация: 08.02.2009
Сообщений: 4,015
Записей в блоге: 29
29.04.2013, 05:18 5
Попробуйте применить друг за другом (или по отдельности) нижеследующее.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub CutPrelastPar() 'удаляет предпоследний абзац основного текста документа Word
    ActiveDocument.Paragraphs.Last.Previous.Range.Delete
End Sub
 
 
Sub CutTail()
'удаляет заданное константой K (примерно!) количество последних символов текста
Const K = 26
Dim i: i = K
    With ActiveDocument.Characters
    If .Count < K Then Exit Sub
        While i > 0
            .Last.Previous.Delete       'удаляем символ
                i = i - 1
            If .Last.Previous.Text = " " Then
                .Last.Previous.Select
                Selection = ""          'удаляем символ пробела
                i = i - 1
            End If
        Wend
    End With
End Sub
1
Миниатюры
Удаление макросом фрагмент текста  
KoGG
5274 / 1347 / 320
Регистрация: 23.12.2010
Сообщений: 2,019
Записей в блоге: 1
29.04.2013, 13:48 6
Лучший ответ Сообщение было отмечено как решение

Решение

Чтобы удалить данный конкретный текст, независимо от положения в документе, следует использовать данный макрос:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub УдалитьФрагмент()
  With ActiveDocument.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "в силу следующих фактов:^p-^sвыявлено использование Исполнителем заимствованного текста с нарушением авторских и смежных прав"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub
2
29.04.2013, 13:48
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.04.2013, 13:48

Замена текста в Word макросом из Excel
Есть файл Экселя с данными, есть текстовый шаблон Ворда с метками для этих...

Из ячейки извлечь часть текста макросом
Добрый день! Я тут новенький и возможно сразу направите на путь правильный....

Поиск числа и удаление всей строки, что рядом с числом макросом
Здравствуйте форумчане и эксперты! На данный момент нужно проделать хитрый...


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

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

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