Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.56/18: Рейтинг темы: голосов - 18, средняя оценка - 4.56
4 / 4 / 2
Регистрация: 07.05.2014
Сообщений: 489
1

Word - взять весь текст который между словами

30.10.2017, 11:38. Показов 3362. Ответов 11
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Привет всем, у меня есть текст, в нем есть слова "Начало" и "Конец", мне необходимо взять весь текст который между ними. Можете показать пример

Добавлено через 3 часа 26 минут
Вот нашел код, а как его присвоить какой нибудь переменной и записать в текстовый файл
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 Макрос1()
Dim r
Set r = ActiveDocument.Range
With r.Find
    .ClearFormatting
    .Text = "Олег*Иван"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    If .Execute Then
        ActiveDocument.Range(r.Start + 4, r.End - 4).Select
        Selection.Copy
    Else
        MsgBox "Текст не найден!", vbExclamation
    End If
End With
End Sub
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.10.2017, 11:38
Ответы с готовыми решениями:

Получить весь текст HTML-страницы, который находится между тегами, кроме заголовка
Здравствуйте, возникла задача отпарсить html. Конкретно, взять весь текст, который находится между тегами, кроме заголовка. Нужно написать...

Вывести весь текст словами в виде количественного числительного
Задано некоторое натуральное число k. Требуется вывести весь текст словами в виде количественного числительного, которое означает заданное...

Вывести весь текст словами в виде количественного числительного
Задано некоторое натуральное число k. Требуется вывести весь текст словами (например, при k=5 вывод имеет вид "пять", при k=123...

11
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
30.10.2017, 20:06 2
Rodmistar,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Макрос1()
Dim r, s
  Set r = ActiveDocument.Range
  With r.Find
    .ClearFormatting
    .Text = "Олег*Иван"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    If .Execute Then
      s = ActiveDocument.Range(r.Start + 4, r.End - 4).Text    'присвоение переменной
      Open ActiveDocument.Path & "\найденое.txt" For Output As #1
      Print #1, s
      Close 1
    Else
      MsgBox "Текст не найден!", vbExclamation
    End If
  End With
End Sub
0
4 / 4 / 2
Регистрация: 07.05.2014
Сообщений: 489
04.11.2017, 10:52  [ТС] 3
Привет, я нашел этот текст, он записал в текстовый файл, но сейчас надо сделать чтобы был параграф, и перед этим параграфом точка тоже была убрана.
Пример:
Как уже было сказано выше, художественный стиль наиболее часто используется в художественной литературе: романах, новеллах, рассказах, повестях и прочих литературных жанрах. Этому стилю не присущи оценочные суждения, сухость и официальность, которые свойственны научному и официально-деловому стилям. Вместо этого для него характеры повествование и передача мельчайших деталей, чтобы сформировать в воображении читателя филигранную форму передаваемой мысли.
В контексте копирайтинга художественный стиль нашел новое воплощение в гипнотических текстах, которым на этом блоге посвящен целый раздел «Гипнотический копирайтинг». Именно элементы художественного стиля позволяют текстам воздействовать на лимбическую систему головного мозга читателя и запускать необходимые автору механизмы, благодаря которым достигается порой весьма любопытный эффект. Например, читатель не может оторваться от романа или у него возникает сексуальное влечение, а также другие реакции, о которых мы еще будем вести речь в последующих статьях.
Стало:
Как уже было сказано выше, художественный стиль наиболее часто используется в художественной литературе: романах, новеллах, рассказах, повестях и прочих литературных жанрах. Этому стилю не присущи оценочные суждения, сухость и официальность, которые свойственны научному и официально-деловому стилям. Вместо этого для него характеры повествование и передача мельчайших деталей, чтобы сформировать в воображении читателя филигранную форму передаваемой мысли в контексте копирайтинга художественный стиль нашел новое воплощение в гипнотических текстах, которым на этом блоге посвящен целый раздел «Гипнотический копирайтинг». Именно элементы художественного стиля позволяют текстам воздействовать на лимбическую систему головного мозга читателя и запускать необходимые автору механизмы, благодаря которым достигается порой весьма любопытный эффект. Например, читатель не может оторваться от романа или у него возникает сексуальное влечение, а также другие реакции, о которых мы еще будем вести речь в последующих статьях.
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
04.11.2017, 17:19 4
Цитата Сообщение от Rodmistar Посмотреть сообщение
надо сделать чтобы был параграф, и перед этим параграфом точка тоже была убрана
Объясните более понятно, что надо сделать - заменить точку+параграф на пробел перед записью в файл?
0
4 / 4 / 2
Регистрация: 07.05.2014
Сообщений: 489
04.11.2017, 17:22  [ТС] 5
Казанский, надо после параграфа убрать точку и следующий параграф (то есть, следующий параграф и предыдущий сделать одним параграфом), убрав точку и заглавную букву сделать маленькой
0
4 / 4 / 2
Регистрация: 07.05.2014
Сообщений: 489
04.11.2017, 17:26  [ТС] 6
Вот пример
Вложения
Тип файла: docx Документ Microsoft Word.docx (12.2 Кб, 7 просмотров)
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
04.11.2017, 19:07 7
Rodmistar, этот вопрос как-то связан с исходным (найти фрагмент между заданными словами и записать его в файл), или это отдельный вопрос?
0
4 / 4 / 2
Регистрация: 07.05.2014
Сообщений: 489
04.11.2017, 19:09  [ТС] 8
Связанно с исходным...где можно еще почитать документацию нормальную с примерами
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
04.11.2017, 19:35 9
Rodmistar, работает с выделенным диапазоном
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Макрос1()
Dim r As Range, st&
  Set r = Selection.Range
  st = r.Start
  With r.Find
    .ClearFormatting
    .Text = ".^13?"
    .Forward = False
    .Wrap = wdFindStop
    .MatchWildcards = True
    While .Execute And r.Start >= st
      r.Text = " " & LCase$(Right$(r.Text, 1))
      r.Collapse wdCollapseStart
    Wend
  End With
End Sub
0
4 / 4 / 2
Регистрация: 07.05.2014
Сообщений: 489
04.11.2017, 19:41  [ТС] 10
Казанский, спасибо, а есть возможность сделать без выделения?
0
15155 / 6428 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
04.11.2017, 19:45 11
Rodmistar, есть... вернее, будет, когда вы внятно сформулируете задачу.
0
4 / 4 / 2
Регистрация: 07.05.2014
Сообщений: 489
05.11.2017, 08:43  [ТС] 12
Вот как вы сделали, это правильно, задача в следующем: я нахожу между двумя словами текст, который мне необходим, между этими словами может быть от 2 до 5 абзацев (параграфов), вот и нужно соединить их в один, убрав после каждого параграфа точки, и заглавные буквы сделать маленькими.

Добавлено через 12 часов 25 минут
Казанский, надо теперь эти два кода соединить в один.

Добавлено через 28 минут
Но теперь не записывает
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Макрос1()
Dim r, s
  Set r = ActiveDocument.Range
  With r.Find
    .ClearFormatting
    .Text = "Олег*Иван"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
    If .Execute Then
      s = ActiveDocument.Range(r.Start + 3, r.End - 8).Text 
      .Text = ".^13?" 
      While .Execute And r.Start >= st
           r.Text = " " & LCase$(Right$(r.Text, 1))
           r.Collapse wdCollapseStart
           Open ActiveDocument.Path & "1.txt" For Output As #1
           Print #1, r.text
           Close 1
      Wend
    Else
      MsgBox "Текст не найден!", vbExclamation
    End If
  End With
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
05.11.2017, 08:43
Помогаю со студенческими работами здесь

Задано некоторое натуральное число, требуется вывести весь текст словами
В задаче предполагается, что все данные хранятся в некотором текстовом файле. Результат следует вывести на экран и в текстовый файл. 4....

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

Текст между словами
Здравствуйте! Есть вот такой код: procedure TForm1.Button2Click(Sender: TObject); begin AssignFile(text1,'d:\text1.txt'); ...

Удалить весь текст от метки (Word)
как удалить программно текст лежащий ниже определенной слова-метки. или от метки до метки и т.д.?

Удалить пробелы, стоящие между первым вторым словами, а также между двумя последними словами
Удалить пробелы, стоящие между первым вторым словами, а также между двумя последними словами, на паскале


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Исследование байт-кода Python: подключаем дизассемблер
stackOverflow 19.02.2025
Многие знают, что Python - интерпретируемый язык, но мало кто задумывается о том, что происходит между написанием кода и его выполнением. На самом деле Python использует промежуточное представление. . .
Исследование байт-кода Python: компиляторы против интерпретаторов
stackOverflow 19.02.2025
Понимание байт-кода Python - основополагающий аспект для разработчиков, стремящихся глубже понять внутренние механизмы языка и оптимизировать производительность своих программ. Байт-код представляет. . .
Comprehensions в Python - что это такое?
stackOverflow 19.02.2025
Когда речь заходит о Python, одной из его самых красивых и мощных возможностей являются списковые включения или comprehensions. Это особые синтаксические конструкции, позволяющие создавать новые. . .
Python правда такой медленный? Развенчиваем миф о медлительности
stackOverflow 19.02.2025
Когда речь заходит о выборе языка программирования для нового проекта, вопрос производительности часто становится одним из ключевых факторов. Python, несмотря на свою популярность и простоту. . .
Динамические формы в Flask
stackOverflow 19.02.2025
Работа с веб-формами часто требует гибкости в отношении количества полей, которые пользователь может заполнить. Представьте ситуацию, когда вам нужно создать форму для ввода контактных данных, где у. . .
Обнаружение объектов в реальном времени на Raspberry Pi с OpenCV и Movidius NCS
stackOverflow 19.02.2025
Технология обнаружения объектов в реальном времени становится все более востребованной в различных областях - от систем безопасности до автономных транспортных средств. Особый интерес представляет. . .
где chromium хранит пароли и как их обнулить в пожарном варианте
jigi33 19.02.2025
Where is the chromium browser stores passwords for a sites где chromium-подобный браузер хранит пароли и как их обнулить в пожарном варианте (see screenshot)
howto get access to external internet resources with kinit
jigi33 19.02.2025
Решение проблемы с необходимостью доп. авторизации по Керберос для автоотработки аутентификации на прокси-сервер (see screenshot)
Отслеживание автомобилей и определение скорости с OpenCV и Python на Raspberry Pi
stackOverflow 19.02.2025
В этой статье мы рассмотрим создание системы отслеживания транспортных средств и определения их скорости с использованием компьютерного зрения и библиотеки OpenCV. Наше решение основано на принципе. . .
ENV (environments) valid paths in linux
jigi33 19.02.2025
Environments paths (see screenshot)
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru