Консультации Портала - Консультация #145872

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 145872

03.10.2008, 13:04

0.00 руб.

0 3 0

Компьютеры Программное обеспечение

Досовская программа создает txt файл, открывается потом Вордом.
Решил подкорректировать стиль Текст как надо, чтобы строка в 136 символов умещалось в одну строку, т.е. шрифт Verdana 6 в normal.dot, больше ничего. Но появилось другая проблема. Как только текстовый файл открываешь, то поля меняются и по краям получаю 5 см. Если шрифт сделать 8, то поля около 3-4 см. Где поправить так, чтобы поля всегда были 1см, вне зависимости от размера шрифта (в normal.dot 1 см).
Визуально подумал, что Ворд ставить ограничение 80 символов на строку, и под это корректирует поля.
Как поборость эту зависимость.. т.е. надо чтобы поля были 1 см, а в зависимости какой выставлю...

Обсуждение

Неизвестный

03.10.2008, 15:56

общий

На вашем месте я бы создал мини-макрос по установке полей в нужных вам размерах и разместил его кнопку на панели инструментов. Код макроса простой, что-то типа этого:

Код:

 Sub setPg()
With ActiveDocument.PageSetup
   .LeftMargin = CentimetersToPoints(1)
   .RightMargin = CentimetersToPoints(1)
End With
End Sub

Неизвестный

03.10.2008, 16:16

общий

Как выход из ситуации, я сделал такой макрос,

Код:


    Selection.Font.Name = "Verdana"
    Selection.Font.Size = 6
    With ActiveDocument.PageSetup
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
    End With

но в будущем планируется все это сделать без участия пользователя...

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

Неизвестный

03.10.2008, 16:26

общий

Если без участия пользователя, то нужно чтобы этот макрос (и кнопка) был на всех пользовательских компьютерах в глобальном шаблоне Normal.dot. Тогда им не придется самим устанавливать этот макрос. Мне кажется, проще шаблон с макросом разослать всем пользователям.
Но вот вопрос: почему стили шаблона слетают. Попробуйте еще такой вариант: откройте шаблон Normal.dot врежиме редактирования и защитите его (меню Сервис - Защитить документ). Сохраните. Теперь попробуйте открыть ваш текстовый файл.

Кстати, вот чуть улучшил ваш макрос:

Код:

 Sub setPg()
Dim rng As Range
Set rng = ActiveDocument.Range
With rng
   .Font.Name = "Verdana"
   .Font.Size = 6
   With .PageSetup
      .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(1)
        .BottomMargin = CentimetersToPoints(1)
        .LeftMargin = CentimetersToPoints(1)
        .RightMargin = CentimetersToPoints(1)
   End With
End With
End Sub

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.