Удалить текст параграфа, но оставить его форматирование

@Строитель · Регистрация: 09.07.2018

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

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

@Dinoxromniy · 21.01.2019, 12:30

VNIIAEN, ровно половину пространства вкладки главная занимают средства работы со стилями, которые и предназначены для централизованного управления параметрами текста.

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

что бы после удаления так называемых меток (после очистки текста параграфа)

какой смысл вы вкладываете в слово"метка"?

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

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

Кроме прочего посмотрите также поля форм.

@Строитель · 21.01.2019, 12:43 **[ТС]**

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

какой смысл вы вкладываете в слово"метка"?

Благодарю за ответ. Под меткой подразумеваются заранее прописанные инструкции, расположенные в разных частях документа, и указывающие пользователю на тип необходимой информации в этом конкретном параграфе. Например:
[Должность адресата]
[Ф.И.О. адресата]
[Адрес адресата]

Я реализовал набор процедур, которые в совокупности выполняют удаление метки, по которой был клик мышью. Но после этого удаления сбрасывается и форматирование параграфа. Например, метка [Уважаемый Иван Иванович] расположена по центру и у неё шрифт на два пункта больше, чем у предыдущих меток. Так вот после её удаления, выравнивание этого абзаца сбрасывается, а мне нужно сохранить и выравнивание, и шрифт, и все остальные параметры.

shanemac51 · 21.01.2019, 12:48

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

Я реализовал набор процедур, которые в совокупности выполняют удаление метки, по которой был клик мышью. Но после этого удаления сбрасывается и форматирование параграфа. Например, метка [Уважаемый Иван Иванович]

это я реализую через шаблон ВОРД+ таблица ЕКСЕЛЬ/АКСЕСС
--в шаблоне заданы основной текст, места замен, форматирование
--в таблицах --поиск /фильтрация по основным полям
--к этому добавлен довольно стандартизированный код, который несложно немного подправить при потребности(посмотрите пример в блоге)

@Строитель · 21.01.2019, 13:07 **[ТС]**

shanemac51, здравствуйте

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

это я реализую через шаблон ВОРД+ таблица ЕКСЕЛЬ/АКСЕСС

У нас это так же реализовано в шаблоне Word, но правда без использования Excel. Честно говоря, я думаю что в таком маленьком шаблоне использование Excel будет избыточно, и кроме этого основной механизм работы с метками уже реализован, поэтому считаю - будет проще получить набор параметров конкретного параграфа с последующим его применением (сохранением). Или это не возможно?

shanemac51 · 21.01.2019, 13:31

так как встал вопрос о сохранении форматирования
--то документов видимо довольно много, а значит может встать вопрос о поиске по теме документа, адресату,дате,.....
--поиск удобнее делать в таблице EXCEL/ACCESS
--и уже по клику на выбранной строке формировать WORD-документ
--иногда требуется и более сложный вариант --распечатать ИСТОРИЮ переписки с ОАО АМЕТИСТ , но в уплотненном режиме(типа вопрос-ответ)

=====переписка с ОАО АМЕТИСТ==тема======
дата,вх.номер
---------------------------------------------
текст письма, хотя бы кратко
---------------------------------------------
дата ответа,исходящий номер
=========================
дата,вх.номер
---------------------------------------------
текст
.....
==================================

это общепринятая методика, причем вариантов заполнения шаблона ВОРД более 10(зависит от особенностей задачи)

вы же хотите вносить ПЕРЕМЕННУЮ информацию в живой документ, что не очень хорошо
--например вы сформировали документ для Иванова, распечатали
--затем для Петрова.....
--но в это время выяснилось, что в документе для Иванова есть некорректность

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

@Строитель · 21.01.2019, 14:10 **[ТС]**

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

вы же хотите вносить ПЕРЕМЕННУЮ информацию в живой документ

Немного не так:

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

Всё, что осталось сделать - сохранить форматирование того абзаца, метка которого была удалена.

Я вижу (теоретически) это решение таким:

1. Получить набор свойств коллекции Параграф в объектную переменную
2. Выполнить удаление метки
3. Применить набор свойств к параграфу

Вот по первому и третьему пункту у меня к вам собственно и вопрос.
Прикрепляю скриншот для ясности.

shanemac51 · 21.01.2019, 14:22

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

Прикрепляю скриншот для ясности.

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

это практически шаблон, к которому надо пристроить заполнение меток

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

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

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

Есть набор поцедур, которые выполняют удаление той метки, по которой пользователь сделал клик.

вот это я не очень поняла

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

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

Есть набор поцедур, которые выполняют удаление той метки, по которой пользователь сделал клик.

это тоже хотелось бы посмотреть

@Строитель · 21.01.2019, 14:22 **[ТС]**

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

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

Вот, пожалуйста

shanemac51 · 21.01.2019, 14:24

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

Есть макрос, который подгружает обычный документ Word с заранее заготовленным текстом.

это тоже хотелось бы увидеть --текст всегда можно заменить на фирму РОГА И КОПЫТА и столы/стулья

@Строитель · 21.01.2019, 14:30 **[ТС]**

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

вот это я не очень поняла
это тоже хотелось бы посмотреть

Сохраните этот код в модуль ThisDocument моего шаблона

Кликните здесь для просмотра всего текста

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 
Public WithEvents Placeholder As Application
 
Private Sub Document_Open()
 
    Set Placeholder = Application
 
End Sub
 
Private Sub Placeholder_WindowSelectionChange(ByVal Sel As Selection)
 
    With Sel.Paragraphs.First.Range
        If ActiveDocument.Name = "Бланк письма.doc" And Left(.Text, 1) = "[" Then
            Call TextDelete
            Sel.Collapse
        End If
    End With
 
End Sub
 
Sub TextDelete()
 
    Dim txt As String, lenght As Byte
    On Error Resume Next
    
    lenght = True
    txt = GetText()
 
    Do While lenght > 0
        lenght = Len(txt) - 1
        txt = Left(txt, lenght)
        Selection.Text = txt & vbCrLf
        Sleep (0.005)
    Loop
 
End Sub
 
Function GetText(Optional ByVal txt As String = "")
 
    With Selection.Paragraphs.First.Range
        txt = .Text
        .Text = ""
        GetText = Left(txt, (Len(txt) - 1))
    End With
 
End Function
 
Sub Sleep(ByVal time As Currency)
 
    Dim started As Single: started = Timer
    Do: DoEvents: Loop Until Timer - started >= time
 
End Sub

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

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

это тоже хотелось бы увидеть

Код макроса, подгружающего документ (шаблон)

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
Sub Письмо()
    Selection.InsertFile FileName:="m:\Бланк письма.doc", Range:="", link:=False, Attachment:=False
End Sub

Добавлено через 2 минуты
shanemac51, образец документа я выше опубликовал - ссылка на пост: Удалить текст параграфа, но оставить его форматирование

shanemac51 · 21.01.2019, 14:37

такого варианта формирования письма я пока не видела,так что будет 11-м
попытаюсь понять логику --одним словом ЭКЗОТИКА

@Строитель · 21.01.2019, 14:49 **[ТС]**

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

попытаюсь понять логику

Логика такова, что в момент открытия файла-шаблона создаётся в памяти объект Application, который сохраняется в объектной переменной Placeholder. Далее, если происходит клик (событие) по шаблону, процедура Placeholder_WindowSelectionChange запускается, и в условии (если оно истинно) вызывает процедуру удаления текста параграфа TextDelete. В этой процедуре, в свою очередь, вызывается функция GetText, которая и возвращает текст параграфа, по которому был сделан клик мышью. Ну а процедура Sleep в описании не нуждается - я её прикрутил для плавного удаления текста справа налево (своего рода анимация с регулируемым временем)

Добавлено через 2 минуты
shanemac51, вы образец скачайте, сохраните в него мой код, и переоткройте документ, после чего покликайте по тексту в квадратных скобках - произойдёт плавное удаление текста. Так вам будет понятнее, что к чему.

shanemac51 · 21.01.2019, 15:13

возможно поняла логику
1--поместила в шаблон код(длинный)
2--в normal.dot --код письмо
3--создала новый документ
4--вызвала код письмо
5--подгрузился код из щаблона
6--кликнула по параграфу со скобкой и вызвала код DELETE TEXT
7--текст параграфа удалился
8--набила требуемое .....аналогично 6-7-8 для других параграфов

ЭКЗОТИКА, хотя может я не то делаю

@Строитель · 21.01.2019, 15:21 **[ТС]**

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

8--набила требуемое .....аналогично 6-7-8 для других параграфов

Всё правильно. Только вопрос остался открытым: вам удалось после удаления меток сохранить форматирование параграфа?

shanemac51 · 21.01.2019, 15:24

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

Всё правильно. Только вопрос остался открытым: вам удалось после удаления меток сохранить форматирование параграфа?

а я и не сохраняла --мне важнее было понять, куда записать код и как его вызвать

@Строитель · 21.01.2019, 15:26 **[ТС]**

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

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

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

shanemac51 · 21.01.2019, 15:44

я бы все-таки делала через ЕХСЕЛЬ --намного удобнее, причем код будет не больше, чем у вас сейчас
и не надо думать о форматировании

выкладываю измененный ВОРД -шаблон и примерную ЕКСЕЛЬ табличку

кодом сейчас заниматься некогда(но его размер почти сравним с вашим)

@Строитель · 21.01.2019, 16:15 **[ТС]**

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

я бы все-таки делала через ЕХСЕЛЬ

Нет, спасибо ) Мне нужен вариант без использования дополнительных приложений.

Может я криво сформулировал вопрос? Мне нужно перед удалением текста сохранить свойства его параграфа в переменной, что бы потом эти же свойства "вернуть" параграфу.

shanemac51 · 21.01.2019, 17:15

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

Мне нужно перед удалением текста сохранить свойства его параграфа в переменной, что бы потом эти же свойства "вернуть" параграфу.

какая у вас версия ВОРД-а
у меня ворд -2010

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Строитель 1084 / 746 / 364 Регистрация: 09.07.2018 Сообщений: 1,760

	Удалить текст параграфа, но оставить его форматирование 21.01.2019, 11:12. Показов 2430. Ответов 22 Метки vba word (Все метки) Вопрос, собственно, в заголовке: как удалить текст параграфа, но оставить его форматирование? Т.е., нужно сохранить интервалы "до" и "после", размеры шрифта, отступы и т.п. служебные характеристики, что бы после удаления так называемых меток (после очистки текста параграфа) и при последующем вводе нового текста сохранялась его позиция, размер, и все остальные параметры. 0

shanemac51 Модератор 12208 / 5051 / 812 Регистрация: 07.08.2010 Сообщений: 14,908 Записей в блоге: 4
	21.01.2019, 13:31
	так как встал вопрос о сохранении форматирования --то документов видимо довольно много, а значит может встать вопрос о поиске по теме документа, адресату,дате,..... --поиск удобнее делать в таблице EXCEL/ACCESS --и уже по клику на выбранной строке формировать WORD-документ --иногда требуется и более сложный вариант --распечатать ИСТОРИЮ переписки с ОАО АМЕТИСТ , но в уплотненном режиме(типа вопрос-ответ) =====переписка с ОАО АМЕТИСТ==тема====== дата,вх.номер --------------------------------------------- текст письма, хотя бы кратко --------------------------------------------- дата ответа,исходящий номер ========================= дата,вх.номер --------------------------------------------- текст ..... ================================== это общепринятая методика, причем вариантов заполнения шаблона ВОРД более 10(зависит от особенностей задачи) вы же хотите вносить ПЕРЕМЕННУЮ информацию в живой документ, что не очень хорошо --например вы сформировали документ для Иванова, распечатали --затем для Петрова..... --но в это время выяснилось, что в документе для Иванова есть некорректность и что делать --заново все вводить для Иванова --запоминать каждый раз готовый документ под другим именем, тем самым появляется ручная операция --к тому же невозможно применить готовые блоки текста .... 0

shanemac51 Модератор 12208 / 5051 / 812 Регистрация: 07.08.2010 Сообщений: 14,908 Записей в блоге: 4
	21.01.2019, 14:37
	такого варианта формирования письма я пока не видела,так что будет 11-м попытаюсь понять логику --одним словом ЭКЗОТИКА 0

shanemac51 Модератор 12208 / 5051 / 812 Регистрация: 07.08.2010 Сообщений: 14,908 Записей в блоге: 4
	21.01.2019, 15:13
	возможно поняла логику 1--поместила в шаблон код(длинный) 2--в normal.dot --код письмо 3--создала новый документ 4--вызвала код письмо 5--подгрузился код из щаблона 6--кликнула по параграфу со скобкой и вызвала код DELETE TEXT 7--текст параграфа удалился 8--набила требуемое .....аналогично 6-7-8 для других параграфов ЭКЗОТИКА, хотя может я не то делаю 0