Нужен макрос для организации диалога с пользователем для изменения параметров первого символа каждого абзаца

@dilara akh · Регистрация: 26.04.2021

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

Очень нужен макрос для организации диалога с пользователем для изменения параметров первого символа каждого абзаца

@Dinoxromniy · 27.04.2021, 09:04

dilara akh, задача легко решается созданием стиля символа и последующим поиском и заменой по документу в два этапа. Запишите эти действия макрорекордером и получите макрос.

@Kubuntovod · 27.04.2021, 09:50

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

Запишите эти действия макрорекордером и получите макрос

Как бы вот эту фразу в шапке раздела закрепить? Желательно на гранитном фоне, золотыми буквами ...

@dilara akh · 27.04.2021, 15:18 **[ТС]**

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

задача легко решается созданием стиля символа и последующим поиском и заменой по документу в два этапа. Запишите эти действия макрорекордером и получите макрос.

Как я поняла, основной задачей является создание именно окна, в котором можно будет все значения для символа прописать. Если не ошибаюсь, для этого нужна User форма? Я только начала изучать работу в VBA, поэтому пока так тяжело со всем справляюсь.

@Dinoxromniy · 27.04.2021, 17:33

dilara akh, задача следует из цели, которую вы перед собой ставите, а цель вы не озвучиваете.
Если цель - получить отформатированные первые символы каждого абзаца, то vba тут вообще не нужно, достаточно один раз от форматировать символы под стиль, и дальше можно легко переформатировать все символы разом. Без vba.

Если цель - поупражняться с vba, то подходов много разных: в форме, в стиле, просто в тексте кода, с запросом каждого параметра через inputbox, с выводом текущих значений и т.д. На мой взгляд - разница примерно как с жаждой: когда пить охото, не так важно, в чашке вода, в стакане, в бутылке, в графине, важнее чтоб она чистая была, подходящей температуры и много. Вода все равно одна и та же. Размер шрифта - он тоже один и тот же, хоть в стиль его пропиши, хоть в форму.

@dilara akh · 27.04.2021, 17:39 **[ТС]**

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

с запросом каждого параметра через inputbox

Главная цель - завершение лаб.работы. А задача заменить данные символы через диалоговое окно. Очень долго сижу и не могу команду подобрать, чтобы выделить первый символ абзаца.

@Zeag · 27.04.2021, 18:09

Visual Basic
1
2
3
4
5
Sub GP()
   For Each currPara In ActiveDocument.Paragraphs
      MsgBox Left(currPara, 1)
   Next
End Sub

Добавлено через 14 минут

Visual Basic
1
2
3
4
5
6
Sub GP()
   For Each currPara In ActiveDocument.Paragraphs
      MsgBox Left(currPara, 1)
      ActiveDocument.Range(currpara.Range.Start, currpara.Range.Start + 1).Font.Size = 16  ' аналогично шрифт, цвет, стиль...
   Next
End Sub

@dilara akh · 27.04.2021, 20:10 **[ТС]**

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

Sub GP()
For Each currPara In ActiveDocument.Paragraphs
MsgBox Left(currPara, 1)
ActiveDocument.Range(currpara.Range.Star t, currpara.Range.Start + 1).Font.Size = 16 ' аналогично шрифт, цвет, стиль...
Next
End Sub

Именно то, что я искала, спасибо! Ещё один маленький вопрос: есть ли возможность расстояние между абзацами не выделять как абзац? Или это у меня что-то не так?

@Zeag · 27.04.2021, 20:35

Этого вопроса не понял.

@dilara akh · 27.04.2021, 20:39 **[ТС]**

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

Этого вопроса не понял.

Сейчас объясню. Я решаю Лаб.Работу и сомневаюсь в том, правильно ли "причесала" текст. Имеет ли смысл ещё раз нажимать ENTER между двумя абзацами, вот так:

"Какой-то текст идёт прямо здесь.
(вот тут ещё раз нажимаем ENTER)
И потом текст продолжается".

Это правильно, или так текст не оформляется?

@Zeag · 27.04.2021, 20:45

В ворде параграфы (абзацы) разделяются жесткими переводами строк. Расстояние между абзацами регулируют интервалом. Вы, похоже, даете пустой абзац, 2 раза нажав Enter. Если так, можно проверять, что значение Left(currPara, 1) = 13 и не выполнять действий.

@dilara akh · 28.04.2021, 20:03 **[ТС]**

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

Left(currPara, 1) = 13

А как применить данное значение в нашем макросе?

@Zeag · 28.04.2021, 20:24

Во-первых, макрос ваш.
Во-вторых, что именно не так работает, если подряд 2 перевода строки? И как должно работать в этом случае?
В-третьих, пока тут видим отрывочные операторы, а не цельный макрос.

@dilara akh · 28.04.2021, 21:05 **[ТС]**

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

что именно не так работает

При изменении размера шрифта, размер пустого абзаца соответственно увеличивается.

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

И как должно работать в этом случае?

Хочется просто исключить пустые абзацы с помощью значения

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

цельный макрос

Я работаю с Юзер формой и использую к значениям код:

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

Visual BasicВыделить код
1
2
3
4
5
6
Sub GP()
For Each currPara In ActiveDocument.Paragraphs
MsgBox Left(currPara, 1)
ActiveDocument.Range(currpara.Range.Star t, currpara.Range.Start + 1).Font.Size = 16 ' аналогично шрифт, цвет, стиль...
Next
End Sub

Не знаю, как правильно вписать в него значение, исключающее пустые абзацы

@Zeag · 28.04.2021, 21:15

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Sub GP()
   Dim currPara As Paragraph
 
   For Each currPara In ActiveDocument.Paragraphs
      ' Пропускаем пустые параграфы
      If currPara.Range.Text <> vbCr Then _
         ActiveDocument.Range(currPara.Range.Start, currPara.Range.Start + 1).Font.Size = 16  ' аналогично шрифт, цвет, стиль...
  Next
End Sub

Новые блоги и статьи Все статьи Все блоги /
Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью в КА2. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 23.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа в КА2. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию. . .

@dilara akh 0 / 0 / 0 Регистрация: 26.04.2021 Сообщений: 9

	Word Нужен макрос для организации диалога с пользователем для изменения параметров первого символа каждого абзаца 26.04.2021, 20:27. Показов 3664. Ответов 14 Метки word, макрос, макрос word, макросы (Все метки) Очень нужен макрос для организации диалога с пользователем для изменения параметров первого символа каждого абзаца 0

@Dinoxromniy Динохромный 1638 / 775 / 288 Регистрация: 22.12.2015 Сообщений: 2,422
	27.04.2021, 09:04
	dilara akh, задача легко решается созданием стиля символа и последующим поиском и заменой по документу в два этапа. Запишите эти действия макрорекордером и получите макрос. 0

@Dinoxromniy Динохромный 1638 / 775 / 288 Регистрация: 22.12.2015 Сообщений: 2,422
	27.04.2021, 17:33
	dilara akh, задача следует из цели, которую вы перед собой ставите, а цель вы не озвучиваете. Если цель - получить отформатированные первые символы каждого абзаца, то vba тут вообще не нужно, достаточно один раз от форматировать символы под стиль, и дальше можно легко переформатировать все символы разом. Без vba. Если цель - поупражняться с vba, то подходов много разных: в форме, в стиле, просто в тексте кода, с запросом каждого параметра через inputbox, с выводом текущих значений и т.д. На мой взгляд - разница примерно как с жаждой: когда пить охото, не так важно, в чашке вода, в стакане, в бутылке, в графине, важнее чтоб она чистая была, подходящей температуры и много. Вода все равно одна и та же. Размер шрифта - он тоже один и тот же, хоть в стиль его пропиши, хоть в форму. 1

@Zeag 859 / 509 / 187 Регистрация: 09.03.2009 Сообщений: 1,726
	27.04.2021, 20:35
	Этого вопроса не понял. 0

@Zeag 859 / 509 / 187 Регистрация: 09.03.2009 Сообщений: 1,726
	27.04.2021, 20:45
	В ворде параграфы (абзацы) разделяются жесткими переводами строк. Расстояние между абзацами регулируют интервалом. Вы, похоже, даете пустой абзац, 2 раза нажав Enter. Если так, можно проверять, что значение Left(currPara, 1) = 13 и не выполнять действий. 1

@Zeag 859 / 509 / 187 Регистрация: 09.03.2009 Сообщений: 1,726
	28.04.2021, 20:24
	Во-первых, макрос ваш. Во-вторых, что именно не так работает, если подряд 2 перевода строки? И как должно работать в этом случае? В-третьих, пока тут видим отрывочные операторы, а не цельный макрос. 0

Нужен макрос для организации диалога с пользователем для изменения параметров первого символа каждого абзаца

Решение