Печать сетки в Word

[Santiki]

Здравствуйте! Подскажите, пжлста, как можно распечатать текст с сеткой?
Смысл в том, что сделал сетку через ВИД и РАЗМЕТКУ страницы. Все настроил. Сетка стандартная! Подогнал МОРЕ ТЕКСТА под эту сетку с размером клетки 5на5 мм. Но столкнулся с тем, что эта сетка не печатается. Только текст. По крайней мере, я не знаю пока как это сделать. Текста реально много. В таблицу по клеткам его никак не вставить. Как можно быстро справиться с ситуацией?
Условие наличие тетрадной клетки за текстом на нескольких сотнях листов обязательно. СПАСИБО

[Iska]

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

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

[Santiki]

Вот так

[Iska]

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

[Santiki]

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

[Iska]

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]

Код:
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]

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

[Santiki]

залил видео сюда [/URL]
[url]https://dropmefiles.com/GqlOi (https://dropmefiles.com/GqlOi)

[Iska]

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


Код копируйте из моего сообщения (http://forum.oszone.net/post-2841306.html#post2841306), а не Вашего цитирования.
Для правильного выделения кода используйте вот эту:https://i.imgur.com/opl9tgy.pngкнопку. Тогда Вы не будете терять куски кода при выделении.
Откройте Ваш документ. Нажмите Alt-F11. В левом окне Project откройте раздел Project Вашего документа:https://i.imgur.com/irN5xLR.pngзатем откройте вложенный в него раздел Microsoft Word Objects, затем выделите вложенный в него ThisDocument, затем щёлкните на нём правой кнопкой мышки. В появившемся контекстном меню выберете пункт View Code:https://i.imgur.com/8huy62T.png
В открывшемся окне слева нажмите Ctrl-A, на случай дабы выделить всё, что там вдруг было. Теперь нажмите Ctrl-V, чтобы вставить в окно текст кода из буфера обмена. Теперь нажмите F5, дабы запустить код из процедуры под курсором на исполнение.


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

[yurfed]

Santiki, а почему не хотите сделать таблицу? Уж она-то распечатается. А таблицу какую угодно нарисуете, хоть построчно, хоть побуквенно.
https://d.radikal.ru/d18/1901/c7/796b7e18ce22.png (https://radikal.ru)