Секреты Word 2010

@DiDimkin · Регистрация: 11.03.2016

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

Ребят, помогите решить задачку.
Хочу в ворде по тексту заменить например букву а, на символ, например $, но нюанс в том, чтобы автозамена была произведена один раз в одном предложении. Т.е. по всему тексту должна замениться одна буква в рамках предложения один раз. А букв (а) как вы понимаете в предложении может быть много.
Как это сделать не понимаю

@ViterAlex · 06.03.2019, 13:37

Заменять первую "а" в предложении или случайным образом?

@DiDimkin · 06.03.2019, 13:45 **[ТС]**

случайным образом

@Казанский · 06.03.2019, 22:45

DiDimkin,

Visual Basic

Sub di()
Dim s As Range, d$(), i&, n&
  Randomize
  For Each s In ActiveDocument.Sentences
    d = Split(s.Text, "а")
    If UBound(d) Then
      n = 0
      For i = 0 To Int(UBound(d) * Rnd)
        n = n + Len(d(i)) + 1
      Next
      If n Then ActiveDocument.Range(s.Start + n - 1, s.Start + n).Text = "$"
    End If
  Next
End Sub

@DiDimkin · 07.03.2019, 09:40 **[ТС]**

Спасибо за помощь, но не мог бы ты для чайников объяснить куда вставлять этот макрос. Похоже что я делаю чтото не так, выскакивает сообщение ( приложил картинку)

@ViterAlex · 07.03.2019, 11:11

DiDimkin, вставил ты его правильно, но ведь в сообщении говорится, что макросы отключены. Поэтому нужно зайти в Параметры→Центр безопасности и конфиденциальности→Настройки центра безопасности и конфиденциальности→Параметры макросов→Включить все макросы.

@Казанский · 07.03.2019, 11:19

5-ю строку в коде из #4 лучше написать так, чтобы прописные буквы тоже заменялись

Visual Basic

1	d = Split(s.Text, "а", , vbTextCompare)

Вариант без вложенного цикла

Visual Basic

Sub di1()
Dim s As Range, re As Object, n&
  Randomize
  Set re = CreateObject("vbscript.regexp")
  re.Pattern = "а"
  re.ignorecase = True
  re.Global = True
  For Each s In ActiveDocument.Sentences
    With re.Execute(s.Text)
      If .Count Then
        n = s.Start + .Item(Int(.Count * Rnd)).firstindex
        ActiveDocument.Range(n, n + 1).Text = "$"
      End If
    End With
  Next
End Sub

@DiDimkin · 07.03.2019, 11:29 **[ТС]**

Урааааааааааааа заработала )))))

@DiDimkin · 07.03.2019, 11:35 **[ТС]**

Спасибо тебе большое, я решил проблему с текстом.
Есть еще вопрос, а можно ли этот алгоритм применить к следующему. Поясню: я приложил вордовскую страничку, если увеличить масштаб до 500, то можно увидеть небольшие символы в виде "хвостиков" привязанные к некоторым буквам, например к букве О.
Можно ли уменшить количество этих "хвостиков" привязанные к букве? используя предыдущий алгоритм.

@ViterAlex · 07.03.2019, 17:56

DiDimkin, никаких хвостиков у букв нет, туда вставлен символ U+061A. Его можно найти и удалить поиском и заменой:
Найти: ^u1562
Заменить на: пустая строка

@DiDimkin · 07.03.2019, 22:49 **[ТС]**

а можно вставить этот символ по всему тексту, но чтобы он встречался 1 раз в рамках предложения?

@DiDimkin · 10.03.2019, 19:15 **[ТС]**

DiDimkin, никаких хвостиков у букв нет, туда вставлен символ U+061A. Его можно найти и удалить поиском и заменой:
Найти: ^u1562
Заменить на: пустая стр

А если обратное действие нужно: пустую строчку заменить на этот символ, то как задать в автозамене по строчке "Заменить на"?

@DiDimkin 0 / 0 / 0 Регистрация: 11.03.2016 Сообщений: 8
	10.03.2019, 19:15 [ТС]	12
	DiDimkin, никаких хвостиков у букв нет, туда вставлен символ U+061A. Его можно найти и удалить поиском и заменой: Найти: ^u1562 Заменить на: пустая стр А если обратное действие нужно: пустую строчку заменить на этот символ, то как задать в автозамене по строчке "Заменить на"? 0

@DiDimkin 0 / 0 / 0 Регистрация: 11.03.2016 Сообщений: 8
		1
	Секреты Word 2010 06.03.2019, 12:45. Показов 1010. Ответов 11 Метки нет (Все метки) Ребят, помогите решить задачку. Хочу в ворде по тексту заменить например букву а, на символ, например $, но нюанс в том, чтобы автозамена была произведена один раз в одном предложении. Т.е. по всему тексту должна замениться одна буква в рамках предложения один раз. А букв (а) как вы понимаете в предложении может быть много. Как это сделать не понимаю 0

@ViterAlex 8940 / 4852 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	06.03.2019, 13:37	2
	Заменять первую "а" в предложении или случайным образом? 0

@DiDimkin 0 / 0 / 0 Регистрация: 11.03.2016 Сообщений: 8
	06.03.2019, 13:45 [ТС]	3
	случайным образом 0

@DiDimkin 0 / 0 / 0 Регистрация: 11.03.2016 Сообщений: 8
	07.03.2019, 09:40 [ТС]	5
	Спасибо за помощь, но не мог бы ты для чайников объяснить куда вставлять этот макрос. Похоже что я делаю чтото не так, выскакивает сообщение ( приложил картинку) Миниатюры 0

@ViterAlex 8940 / 4852 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	07.03.2019, 11:11	6
	DiDimkin, вставил ты его правильно, но ведь в сообщении говорится, что макросы отключены. Поэтому нужно зайти в Параметры→Центр безопасности и конфиденциальности→Настройки центра безопасности и конфиденциальности→Параметры макросов→Включить все макросы. 0

@DiDimkin 0 / 0 / 0 Регистрация: 11.03.2016 Сообщений: 8
	07.03.2019, 11:29 [ТС]	8
	Урааааааааааааа заработала ))))) 0

@ViterAlex 8940 / 4852 / 1886 Регистрация: 11.02.2013 Сообщений: 10,246
	07.03.2019, 17:56	10
	DiDimkin, никаких хвостиков у букв нет, туда вставлен символ U+061A. Его можно найти и удалить поиском и заменой: Найти: ^u1562 Заменить на: пустая строка 0

@DiDimkin 0 / 0 / 0 Регистрация: 11.03.2016 Сообщений: 8
	07.03.2019, 22:49 [ТС]	11
	а можно вставить этот символ по всему тексту, но чтобы он встречался 1 раз в рамках предложения? 0