07.06.2020, 08:17 [+3 UTC]
в нашей команде: 4 600 чел. | участники онлайн: 2 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.89 (25.04.2020)
JS-v.1.45 | CSS-v.3.39

Общие новости:
13.04.2020, 00:02

Форум:
05.06.2020, 04:11

Последний вопрос:
06.06.2020, 21:42
Всего: 152584

Последний ответ:
07.06.2020, 07:20
Всего: 260260

Последняя рассылка:
07.06.2020, 05:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

РАЗДЕЛ • Пакет MSOffice

Установка, настройка и работа в пакете Microsoft Office.

[администратор рассылки: Megaloman (Мастер-Эксперт)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 430
solowey
Статус: Профессионал
Рейтинг: 374
Megaloman
Статус: Мастер-Эксперт
Рейтинг: 91

Перейти к консультации №:
 

Консультация онлайн # 145872
Раздел: • Пакет MSOffice
Автор вопроса: Ilnarus
Отправлена: 03.10.2008, 13:04
Поступило ответов: 0

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

Состояние: Консультация закрыта

Oтветов пока не поступило.

Мини-форум консультации № 145872
Кокин Антон Вадимович

# 1

= общий = | 03.10.2008, 15:56

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

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

неизвестный

# 2

= общий = | 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


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

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

Кокин Антон Вадимович

# 3

= общий = | 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

 

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

Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14175 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.89 от 25.04.2020
Версия JS: 1.45 | Версия CSS: 3.39