1

Тема: Замена на прописные

Подскажите пожалуйста, как сделать замену по всему документу текст, отмеченный через формат -> шрифт -> все прописные, обычными прописными? Заранее благодарна.

2

Re: Замена на прописные

ivolga-07 пишет:

Подскажите пожалуйста, как сделать замену по всему документу текст, отмеченный через формат -> шрифт -> все прописные, обычными прописными? Заранее благодарна.

Что Вы имеете в виду под "текст, отмеченный через формат"?
Замена должна быть произведена для текста определенного формата?

Выложите, пожалуйста, пример.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: Замена на прописные

В закладке шрифт стоит галочка все прописные. При преобразовании текста эта галочка автоматически снимается и текст становится строчными буквами.

Post's attachments

пример.doc 29.5 Кб, 2 скачиваний с 2015-03-12 

You don't have the permssions to download the attachments of this post.

4

Re: Замена на прописные

ivolga-07 пишет:

В закладке шрифт стоит галочка все прописные. При преобразовании текста эта галочка автоматически снимается и текст становится строчными буквами.

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

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5

Re: Замена на прописные

Применяется "очистить формат" через закладку стили и форматирование. Это необходимо для последующей вставки в программу верстки Corel Venrura.

6

Re: Замена на прописные

1. Ctrl+A - выделить всё
2. В "Заменить" выставить в нижнем поле (на что заменять) формат "все прописные" и нажать "Заменить все"
тектовые поля оставить пустые

все заменится

7

Re: Замена на прописные

ivolga-07 пишет:

Применяется "очистить формат" через закладку стили и форматирование. Это необходимо для последующей вставки в программу верстки Corel Venrura.

Если Вы очищаете формат, то очищаете и видоизменение Все прописные. Это тоже форматирование.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

8

Re: Замена на прописные

Правильно ли я понял, что Вы хотите отменить все форматирование, но оставить только форматирование Все прописные?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

9

Re: Замена на прописные

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

10

Re: Замена на прописные

ivolga-07 пишет:

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

Понятно.
К сожалению, это - довольно трудно, стандартными методами Word такую задачу, кажется, не решить.
Но, в принципе, можно было бы написать макрос, меняющий каждую букву на соответствующую прописную.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

11

Re: Замена на прописные

Попробуйте сделать так:

1) Установить курсор на строку с форматированием Все прописные.
2) Главная - группа Редактирование - Выделить - Выделить текст, имеющий такой же формат.
Должен выделиться только тот текст, который имеет форматирование Все прописные.
3) Трижды нажмите стандартное сочетание клавиш Shift+F3.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

12

Re: Замена на прописные

Благодаря эксперту Вождь, удалось написать макрос для решения этой задачи:

Sub Macro1()
        Application.Run MacroName:="SelectSimilarFormatting"
        Selection.Font.Color = 1
        Application.Run MacroName:="ChangeCase"
        Application.Run MacroName:="SelectSimilarFormatting"
        Application.Run MacroName:="ChangeCase"
        Application.Run MacroName:="SelectSimilarFormatting"
        Application.Run MacroName:="ChangeCase"
        Application.Run MacroName:="SelectSimilarFormatting"
        Selection.Font.ColorIndex = wdAuto
        Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

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

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.