1

Тема: Не убирается автоперенос слов в отдельной части текста

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

2

Re: Не убирается автоперенос слов в отдельной части текста

Мне нужно оставить автоматический перенос слов во всем документе - кроме заголовков. В заголовках все слова должны идти без переноса. Выделяю текст заголовка (пробовала на нескольких разных заголовках), выбираю на расстановке переносов - "Нет": переносы пропадают во всем документе сразу. Если выбираю ручную расстановку переносов - сразу появляется уведомление "Ручная расстановка переносов завершена", и переносы в заголовке при этом остались как были. 
Документ достался от других людей - возможно, что-то нанажимали.

3

Re: Не убирается автоперенос слов в отдельной части текста

Сбросьте документ

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

4

Re: Не убирается автоперенос слов в отдельной части текста

Fck_This пишет:

Сбросьте документ

Сбросить документ не смогу - смогу только самостоятельно поправить по подсказкам.

5

Re: Не убирается автоперенос слов в отдельной части текста

Annn пишет:
Fck_This пишет:

Сбросьте документ

Сбросить документ не смогу - смогу только самостоятельно поправить по подсказкам.

Ну тогда вот свойства абзаца. Напишите макрос. Ставим переносы на "Авто", затем для каждого абзаца, если стиль (или может быть выделение жирным, не могу знать что там у вас отличает заголовок) = стилю заголовка, то  переносы - false.
Selection.ParagraphFormat.Hyphenation = False
Selection.ParagraphFormat.Hyphenation = True

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

6

Re: Не убирается автоперенос слов в отдельной части текста

Если будете назначать абзац через переменную перебором
Dim oDoc as Document
Dim oPar as Paragraph
Set oDoc = ActiveDocument
For each oPar in oDoc.Paragraphs
'
Next oPar
То соответственно вместо Selection - oPar или (если будете через номер писать)  oDoc.paragraphs(i), где i - число от 1 до oDoc.paragraphs.count

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

7

Re: Не убирается автоперенос слов в отдельной части текста

Или откройте стили документа (не уверен, что быстрые кнопки такие же, но у меня это Shift+Ctrl+S) выберите каждый стиль заголовка и измените его, выбрав в параметрах абзаца для стиля "запретить автоматический перенос слов"

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

8

Re: Не убирается автоперенос слов в отдельной части текста

Спасибо, не заметила в прошлый раз возможность запретить автоперенос в параметрах абзаца.

9

Re: Не убирается автоперенос слов в отдельной части текста

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