В приложении Microsoft Word создайте макрос, который бы в выделенном фрагменте устанавливал нумерованный список

@Nastya_M · Регистрация: 22.01.2018

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

В приложении Microsoft Word создайте макрос, который бы в выделенном фрагменте устанавливал нумерованный список, положение номера бы составляло 0 см, а положение текста – 0,75 см.

@AlexSmel · 22.01.2018, 21:51

Выделить текст, выполнить макрос...

Visual Basic

Sub Макрос9()
    With ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = "%1." ' начинать с 1. - нет в задании
        .NumberPosition = CentimetersToPoints(0) ' отступ номера
        .TextPosition = CentimetersToPoints(0.75) ' отступ текста
        .Alignment = wdListLevelAlignLeft ' выровнять влево - нет в задании
    End With
    ActiveDocument.Styles("MyStyle").LinkToListTemplate ListTemplate:= _
        ListGalleries(wdOutlineNumberGallery).ListTemplates(1), ListLevelNumber:=1
    Selection.Style = ActiveDocument.Styles("MyStyle")
End Sub

@Nastya_M · 24.01.2018, 08:27 **[ТС]**

Спасибо!

@Nastya_M 0 / 1 / 0 Регистрация: 22.01.2018 Сообщений: 9
		1
	В приложении Microsoft Word создайте макрос, который бы в выделенном фрагменте устанавливал нумерованный список 22.01.2018, 12:19. Показов 1884. Ответов 2 Метки нет (Все метки) В приложении Microsoft Word создайте макрос, который бы в выделенном фрагменте устанавливал нумерованный список, положение номера бы составляло 0 см, а положение текста – 0,75 см. 0

@Nastya_M 0 / 1 / 0 Регистрация: 22.01.2018 Сообщений: 9
	24.01.2018, 08:27 [ТС]	3
	Спасибо! 0