2013

Iska · Отправлено: **00:28, 18-11-2018** | #2

Santiki, выложите образец Вашего документа с «сеткой».

Цитата Santiki:

Подогнал МОРЕ ТЕКСТА под эту сетку с размером клетки 5на5 мм »

Зачем? Какова задача была?

Santiki · Отправлено: **10:34, 18-11-2018** | #3

Вот так

Iska · Отправлено: **11:16, 18-11-2018** | #4

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

Santiki · Отправлено: **11:28, 18-11-2018** | #5

Зашел в Ворде на вкладку "ВИД" поставил галочку в поле "Сетка"
Затем на вкладке "Разметка страницы" нашел и нажал кнопку "Выровнять", в открывшемся меню выбрал "Параметры сетки", настроил ее по нужным параметрам 5 на 5 мм. Вуаля, сетка готова. Отредактировал текст, которого сотни листов, и сделал так, что каждая строчка аккурат попадает на линию сетки, словно в тетраде написано. Теперь проблема! При распечатывании, сетку НЕ ПЕЧАТАЕТ. Собственно, это и суть моего обращения

Iska · Отправлено: **12:45, 18-11-2018** | #6

Santiki, ясно.

Данный функционал всего лишь помогает визуально выровнять потребные элементы. Эта сетка на печать не выводится.

Попробуйте использовать такой макрос для рисования сетки в виде подложки (в верхнем колонтитуле каждого раздела):

Код:

Option Explicit

Sub DrawCrossLines()
    Dim objSection As Section
    
    Dim i As Integer
    
    
    For Each objSection In ThisDocument.Sections
        With objSection
            For i = 1 To .PageSetup.PageWidth Step CentimetersToPoints(0.5)
                .Headers(wdHeaderFooterPrimary).Shapes.AddLine i, 1, i, .PageSetup.PageHeight
            Next i
            
            For i = 1 To .PageSetup.PageHeight Step CentimetersToPoints(0.5)
                .Headers(wdHeaderFooterPrimary).Shapes.AddLine 1, i, .PageSetup.PageWidth, i
            Next i
            
            .Headers(wdHeaderFooterPrimary).Range.ShapeRange.Group
        End With
    Next objSection
End Sub

После того, как сетка будет нарисована, Вы сможете переключиться в колонтитул и выровнять её точное местоположение.

Santiki · Отправлено: **22:17, 12-01-2019** | #7

Цитата Iska:

Код:
Option Explicit
Sub DrawCrossLines()
Dim objSection As Section
Dim i As Integer
For Each objSection In ThisDocument.Sections
With objSection
For i = 1 To .PageSetup.PageWidth Step CentimetersToPoints(0.5)
.Headers(wdHeaderFooterPrimary).Shapes.AddLine i, 1, i, .PageSetup.PageHeight
Next i
For i = 1 To .PageSetup.PageHeight Step CentimetersToPoints(0.5)
.Headers(wdHeaderFooterPrimary).Shapes.AddLine 1, i, .PageSetup.PageWidth, i
Next i
.Headers(wdHeaderFooterPrimary).Range.ShapeRange.Group
End With
Next objSection
End Sub »

Помогите, пжлста! Сейчас вновь напомнила о себе проблема "прошлогодняя". Я попробовал данный макрос, но ничего не отрисовывает. Может что не так делаю. Я тупо вставил этот код в макрос. И запустил его. Появился значок, типа система думает (т.е. что-то выполняет), а потом все. Ничего не отрисовано! И ничего не распечатывает.

Iska · Отправлено: **05:08, 13-01-2019** | #8

Santiki, упакуйте Ваш получившийся документ Word с уже вставленным и исполненным макросом в архив, каковой приложите к сообщению. Запишите небольшое видео, как Вы вставляли и исполняли макрос. Выложите его, например, на DropMeFiles.com.

Santiki · Отправлено: **16:07, 13-01-2019** | #9

залил видео сюда
https://dropmefiles.com/GqlOi

Iska · Отправлено: **18:44, 13-01-2019** | #10

Вы молодец. Вы только что нарисовали в Вашем шаблоне Normal.dot несколько сеток

.

Код копируйте из моего сообщения, а не Вашего цитирования.
Для правильного выделения кода используйте вот эту:

Скрытый текст

кнопку. Тогда Вы не будете терять куски кода при выделении.
Откройте Ваш документ. Нажмите Alt-F11. В левом окне Project откройте раздел Project Вашего документа:

Скрытый текст

затем откройте вложенный в него раздел Microsoft Word Objects, затем выделите вложенный в него ThisDocument, затем щёлкните на нём правой кнопкой мышки. В появившемся контекстном меню выберете пункт View Code:

Скрытый текст
В открывшемся окне слева нажмите Ctrl-A, на случай дабы выделить всё, что там вдруг было. Теперь нажмите Ctrl-V, чтобы вставить в окно текст кода из буфера обмена. Теперь нажмите F5, дабы запустить код из процедуры под курсором на исполнение.

Теперь можете переключиться на окно редактора Word и посмотреть на результат.