Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 24.10.2018, 15:43   #1
RAN.
Форумчанин
 
Аватар для RAN.
 
Регистрация: 05.07.2011
Сообщений: 208
Репутация: 48
По умолчанию Найти фрагмент документа

Приветствую.
Как в WORD можно найти фрагмент документа?
Отличительные признаки фрагмента
Начало фрагмента: слово "АКТ" и "абзац с новой страницы".
Конец фрагмента: до слова "АКТ" и "абзац с новой страницы", или конец документа.
Внутри фрагмента может быть любой текст и любые таблицы.
В приложенном файле это 2 и 3 стр.
Планируемое применение - удаление фрагмента макросом Excel.
Вложения
Тип файла: docx А КТ.docx (12.7 Кб, 3 просмотров)
RAN. вне форума   Ответить с цитированием
Старый 26.10.2018, 21:30   #2
RAN.
Форумчанин
 
Аватар для RAN.
 
Регистрация: 05.07.2011
Сообщений: 208
Репутация: 48
По умолчанию

Жаль, что нам так и не удалось заслушать начальника транспортного цеха.
Но если кто выложит решение, это будет полезно всем тем, кто озадачится подобным вопросом в будущем.
RAN. вне форума   Ответить с цитированием
Старый 26.10.2018, 21:46   #3
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 17,984
Репутация: 6304
По умолчанию

Для поиска текста метод Find есть для выделенной области или диапазоне. Разрыв страницы тоже им искать, не помню, то ли "^p^m", то ли "^p^m^p". Или это для разных редакций ворда. Могу и ошибаться )
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 26.10.2018 в 21:51.
Аватар вне форума   Ответить с цитированием
Старый 27.10.2018, 13:16   #4
jillitil
Пользователь
 
Аватар для jillitil
 
Регистрация: 17.10.2018
Адрес: DS:SI
Сообщений: 47
Репутация: 130
По умолчанию

По Ctrl-F должно быть нечто подобное.
Изображения
Тип файла: jpg screenshot.1.jpg (66.7 Кб, 1 просмотров)
jillitil вне форума   Ответить с цитированием
Старый 27.10.2018, 17:21   #5
RAN.
Форумчанин
 
Аватар для RAN.
 
Регистрация: 05.07.2011
Сообщений: 208
Репутация: 48
По умолчанию

То, что где-то должно быть что-то и сомнений не вызывало.
В задаче обошелся добавлением закладок.
Но, чтобы тема не осталась пустышкой, дожал вопрос.
Код:

Sub мяу()
    Dim arfind(), i As Long
    arfind = Array("На р2", "На р3", "На р4")
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    With Selection
        For i = 0 To UBound(arfind)
            .HomeKey Unit:=wdStory
            .Find.Text = "АКТ^0013" & arfind(i)
            If .Find.Execute Then
                .EndKey Unit:=wdStory, Extend:=wdExtend
                .Find.Text = "АКТ^0013" & arfind(i) & "*АКТ^0013"
                If .Find.Execute Then .MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
            End If
        Next
    End With
End Sub

RAN. вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти и выделить третье троеточие с начала документа Сергей_12 Microsoft Office Word 2 20.01.2012 08:43
Дано: таблица в Exel (3 столбца, 4000 строк) и шаблон документа. Задача: Распечатать один и тот-же шаблон документа, под Evgenya040305 Помощь студентам 2 24.11.2011 22:21
Описать назначение процедуры, включенной в программу, фрагмент которой приведен в таблице, и найти ошибки в этом фрагмен Motaro44 Помощь студентам 0 21.06.2011 21:19
найти в тексте и добавить в конец документа слова,являющиеся палиндромами arthur_92 Microsoft Office Word 2 06.06.2011 18:52


07:10.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru