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

@Rodmistar · Регистрация: 07.05.2014

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

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

Добавлено через 3 часа 26 минут
Вот нашел код, а как его присвоить какой нибудь переменной и записать в текстовый файл

Visual Basic

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

@Казанский · 30.10.2017, 20:06

Rodmistar,

Visual Basic

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

@Rodmistar · 04.11.2017, 10:52 **[ТС]**

Привет, я нашел этот текст, он записал в текстовый файл, но сейчас надо сделать чтобы был параграф, и перед этим параграфом точка тоже была убрана.
Пример:
Как уже было сказано выше, художественный стиль наиболее часто используется в художественной литературе: романах, новеллах, рассказах, повестях и прочих литературных жанрах. Этому стилю не присущи оценочные суждения, сухость и официальность, которые свойственны научному и официально-деловому стилям. Вместо этого для него характеры повествование и передача мельчайших деталей, чтобы сформировать в воображении читателя филигранную форму передаваемой мысли.
В контексте копирайтинга художественный стиль нашел новое воплощение в гипнотических текстах, которым на этом блоге посвящен целый раздел «Гипнотический копирайтинг». Именно элементы художественного стиля позволяют текстам воздействовать на лимбическую систему головного мозга читателя и запускать необходимые автору механизмы, благодаря которым достигается порой весьма любопытный эффект. Например, читатель не может оторваться от романа или у него возникает сексуальное влечение, а также другие реакции, о которых мы еще будем вести речь в последующих статьях.
Стало:
Как уже было сказано выше, художественный стиль наиболее часто используется в художественной литературе: романах, новеллах, рассказах, повестях и прочих литературных жанрах. Этому стилю не присущи оценочные суждения, сухость и официальность, которые свойственны научному и официально-деловому стилям. Вместо этого для него характеры повествование и передача мельчайших деталей, чтобы сформировать в воображении читателя филигранную форму передаваемой мысли в контексте копирайтинга художественный стиль нашел новое воплощение в гипнотических текстах, которым на этом блоге посвящен целый раздел «Гипнотический копирайтинг». Именно элементы художественного стиля позволяют текстам воздействовать на лимбическую систему головного мозга читателя и запускать необходимые автору механизмы, благодаря которым достигается порой весьма любопытный эффект. Например, читатель не может оторваться от романа или у него возникает сексуальное влечение, а также другие реакции, о которых мы еще будем вести речь в последующих статьях.

@Казанский · 04.11.2017, 17:19

Сообщение от Rodmistar

надо сделать чтобы был параграф, и перед этим параграфом точка тоже была убрана

Объясните более понятно, что надо сделать - заменить точку+параграф на пробел перед записью в файл?

@Rodmistar · 04.11.2017, 17:22 **[ТС]**

Казанский, надо после параграфа убрать точку и следующий параграф (то есть, следующий параграф и предыдущий сделать одним параграфом), убрав точку и заглавную букву сделать маленькой

@Rodmistar · 04.11.2017, 17:26 **[ТС]**

Вот пример

@Казанский · 04.11.2017, 19:07

Rodmistar, этот вопрос как-то связан с исходным (найти фрагмент между заданными словами и записать его в файл), или это отдельный вопрос?

@Rodmistar · 04.11.2017, 19:09 **[ТС]**

Связанно с исходным...где можно еще почитать документацию нормальную с примерами

@Казанский · 04.11.2017, 19:35

Rodmistar, работает с выделенным диапазоном

Visual Basic

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

@Rodmistar · 04.11.2017, 19:41 **[ТС]**

Казанский, спасибо, а есть возможность сделать без выделения?

@Казанский · 04.11.2017, 19:45

Rodmistar, есть... вернее, будет, когда вы внятно сформулируете задачу.

@Rodmistar · 05.11.2017, 08:43 **[ТС]**

Вот как вы сделали, это правильно, задача в следующем: я нахожу между двумя словами текст, который мне необходим, между этими словами может быть от 2 до 5 абзацев (параграфов), вот и нужно соединить их в один, убрав после каждого параграфа точки, и заглавные буквы сделать маленькими.

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

Добавлено через 28 минут
Но теперь не записывает

Visual Basic

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

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	04.11.2017, 10:52 [ТС]	3
	Привет, я нашел этот текст, он записал в текстовый файл, но сейчас надо сделать чтобы был параграф, и перед этим параграфом точка тоже была убрана. Пример: Как уже было сказано выше, художественный стиль наиболее часто используется в художественной литературе: романах, новеллах, рассказах, повестях и прочих литературных жанрах. Этому стилю не присущи оценочные суждения, сухость и официальность, которые свойственны научному и официально-деловому стилям. Вместо этого для него характеры повествование и передача мельчайших деталей, чтобы сформировать в воображении читателя филигранную форму передаваемой мысли. В контексте копирайтинга художественный стиль нашел новое воплощение в гипнотических текстах, которым на этом блоге посвящен целый раздел «Гипнотический копирайтинг». Именно элементы художественного стиля позволяют текстам воздействовать на лимбическую систему головного мозга читателя и запускать необходимые автору механизмы, благодаря которым достигается порой весьма любопытный эффект. Например, читатель не может оторваться от романа или у него возникает сексуальное влечение, а также другие реакции, о которых мы еще будем вести речь в последующих статьях. Стало: Как уже было сказано выше, художественный стиль наиболее часто используется в художественной литературе: романах, новеллах, рассказах, повестях и прочих литературных жанрах. Этому стилю не присущи оценочные суждения, сухость и официальность, которые свойственны научному и официально-деловому стилям. Вместо этого для него характеры повествование и передача мельчайших деталей, чтобы сформировать в воображении читателя филигранную форму передаваемой мысли в контексте копирайтинга художественный стиль нашел новое воплощение в гипнотических текстах, которым на этом блоге посвящен целый раздел «Гипнотический копирайтинг». Именно элементы художественного стиля позволяют текстам воздействовать на лимбическую систему головного мозга читателя и запускать необходимые автору механизмы, благодаря которым достигается порой весьма любопытный эффект. Например, читатель не может оторваться от романа или у него возникает сексуальное влечение, а также другие реакции, о которых мы еще будем вести речь в последующих статьях. 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	04.11.2017, 17:19	4
	Сообщение от Rodmistar надо сделать чтобы был параграф, и перед этим параграфом точка тоже была убрана Объясните более понятно, что надо сделать - заменить точку+параграф на пробел перед записью в файл? 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	04.11.2017, 17:22 [ТС]	5
	Казанский, надо после параграфа убрать точку и следующий параграф (то есть, следующий параграф и предыдущий сделать одним параграфом), убрав точку и заглавную букву сделать маленькой 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	04.11.2017, 19:07	7
	Rodmistar, этот вопрос как-то связан с исходным (найти фрагмент между заданными словами и записать его в файл), или это отдельный вопрос? 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	04.11.2017, 19:09 [ТС]	8
	Связанно с исходным...где можно еще почитать документацию нормальную с примерами 0

@Rodmistar 4 / 4 / 2 Регистрация: 07.05.2014 Сообщений: 489
	04.11.2017, 19:41 [ТС]	10
	Казанский, спасибо, а есть возможность сделать без выделения? 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	04.11.2017, 19:45	11
	Rodmistar, есть... вернее, будет, когда вы внятно сформулируете задачу. 0

	05.11.2017, 08:43