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

[Santiki]

Здравствуйте! Подскажите, пжлста, как можно распечатать текст с сеткой?

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

Условие наличие тетрадной клетки за текстом на нескольких сотнях листов обязательно. СПАСИБО

[Iska]

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




Цитата Santiki:



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

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

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

[yurfed]

Santiki, а почему не хотите сделать таблицу? Уж она-то распечатается. А таблицу какую угодно нарисуете, хоть построчно, хоть побуквенно.

[Santiki]

Вот так

[Iska]

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

[Iska]

Зашел в Ворде на вкладку "ВИД" поставил галочку в поле "Сетка"

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

[Iska]

Цитата 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

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

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

[Santiki]

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

[Iska]

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

[Iska]

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

Код копируйте из

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

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


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

[spoiler][/spoiler]


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


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

[spoiler][/spoiler]


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


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

[spoiler][/spoiler]


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

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