Добавление автматической расстановки переносов в ПО Word 2010 (машинный перевод)

Важное примечание.Важно!

Данная статья переведена с помощью машинного перевода, см. Отказ от ответственности. Используйте английский вариант этой статьи, который находится здесь, в качестве справочного материала.

Баннер быстрых заметок Office

Полезные советы по программированию для ПО Microsoft Word 2010: информация о том, как добавить функцию автоматической расстановки переносов в документ Microsoft Word 2010.

Дата последнего изменения: 14 мая 2012 г.

Применимо к: Office 2010 | VBA | Word 2010

В этой статье
Добавление стандартного модуля в документ Word
Добавление программного кода в редактор Visual Basic
Тестирование решения
Дальнейшие действия

Applies to: Microsoft Word 2010

Опубликовано:   Май, 2011 г.

Предоставлено:    Фрэнк Райс (Frank Rice), корпорация Майкрософт

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

  • Добавление стандартного модуля в документ Word

  • Добавление программного кода в редактор Visual Basic

  • Тестирование решения

Добавление стандартного модуля в документ Word

В этой задаче откройте документ Word 2010, откройте редактор Visual Basic и вставьте стандартный модуль.

Чтобы добавить стандартный модуль в документ Word

  1. Запустите Word 2010.

  2. На вкладке Разработчик щелкните Visual Basic, чтобы открыть редактор Visual Basic.

    Примечание

    Если не отображается на вкладке Разработчик в Word 2010, перейдите на вкладку Файл и нажмите кнопку Параметры. В области категорий нажмите кнопку Пользовательская лента, выбор Разработчики нажмите кнопку OK.

  3. В меню Вставка выберите Модуль. При этом модуль Module1 добавляется в область Проекты, расположенную слева от редактора Visual Basic.

Добавление программного кода в редактор Visual Basic

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

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

  1. В панели Свойства щелкните Module1.

  2. Вставьте или введите указанный ниже программный код Microsoft Visual Basic для приложений (VBA) в окно модуля.

    Sub AutoHyphenDemo()
        With ActiveDocument
            ' Make the margins a little larger than normal.
            .PageSetup.LeftMargin = 100
            .PageSetup.RightMargin = 100
    
            ' Make the text justified so that the hyphens stand out more:
            .Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
    
            ' Turn on auto-hyphenation.
            .AutoHyphenation = True
    
            ' In Word, try to select just a hyphen at the end of a line:
            ' you cannot because the hyphens are not really there. Word has
            ' inserted these automatically. You might want actual hyphens in your
            ' text, and the following line of code converts automatic
            ' hyphens into actual hyphens:
    
            .ConvertAutoHyphens
    
            ' Note that you can now select a hyphen, as if you had inserted
            ' it yourself. Make a mental note where one of the hyphens is,
            ' and the next block of code changes the margins. Note the
            ' behavior.
            .PageSetup.LeftMargin = 15
            .PageSetup.RightMargin = 15
    
            ' Show all content in the window, and find the hyphens, which now
            ' might not appear as hyphens. They are still there!
            ActiveWindow.ActivePane.View.ShowAll = True
    
            ' Put the margins back the way they were, and notice the hyphen behavior:
            ' your hyphens are back!
            .PageSetup.LeftMargin = 100
            .PageSetup.RightMargin = 100
        End With
    End Sub
    

Тестирование решения

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

Чтобы пройти по коду

  1. Откройте документ и введите следующую команду (без кавычек) для добавления пяти абзацев текста.

    «= rand(5,5)»

  2. Перетащите окно редактора Visual Basic в правую половину монитора.

  3. Перетащите окно в Word в левой части монитора и настройки windows, пока не могли видеть их обоих.

  4. Прочитайте комментарии при работе через код таким образом, чтобы можно было взаимодействовать с документом и кодом.

  5. Поместите курсор в модуле AutoHyphenDemo и нажмите клавишу F8, чтобы пропустить через код построчно.

Дальнейшие действия

Примечание

Отказ от ответственности относительно машинного перевода. Данная статья была переведена с помощью компьютерной системы без участия человека. Microsoft предлагает эти машинные переводы, чтобы помочь пользователям, которые не знают английского языка, ознакомиться с материалами о продуктах, услугах и технологиях Microsoft. Поскольку статья была переведена с использованием машинного перевода, она может содержать лексические,синтаксические и грамматические ошибки.