Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Обойти ограничение Word на ширину  [new]
expmrs
Member

Откуда:
Сообщений: 38
Добрый день! В таблице MS Word2007 нужно установить ширину ячейки 0,25см (Из Delphi). Насколько я понял, по умолчанию где-то стоит ограничение в 0,42см. Выставил поля ячейки в 0, и теперь руками можно ввести меньшее значение - ячейка уменьшается примерно в 2 раза (хотя все равно чувствую, что делается это не так - уж слишком коряво уменьшается). Но программно даже так сделать не удается - ругается, что выхожу из диапазона:
 WDTable.Cell(13, 4).LeftPadding := 0 ; // левый отступ
 WDTable.Cell(13, 4).RightPadding := 0 ; // правый отступ
 WDTable.Cell(13, 4).Width := CentimetersToPoints(0.25) ;  
Буду благодарен за помощь.
27 дек 18, 17:29    [21775042]     Ответить | Цитировать Сообщить модератору
 Re: Обойти ограничение Word на ширину  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4478
expmrs
Добрый день! В таблице MS Word2007 нужно установить ширину ячейки 0,25см (Из Delphi). Насколько я понял, по умолчанию где-то стоит ограничение в 0,42см. Выставил поля ячейки в 0, и теперь руками можно ввести меньшее значение - ячейка уменьшается примерно в 2 раза (хотя все равно чувствую, что делается это не так - уж слишком коряво уменьшается). Но программно даже так сделать не удается - ругается, что выхожу из диапазона:
 WDTable.Cell(13, 4).LeftPadding := 0 ; // левый отступ
 WDTable.Cell(13, 4).RightPadding := 0 ; // правый отступ
 WDTable.Cell(13, 4).Width := CentimetersToPoints(0.25) ;  
Буду благодарен за помощь.

А почему Вы все мерите в сантиметрах?
Проверьте, на что заточен ваш ворд: http://office-guru.ru/word/kak-v-word-2010-preobrazovat-dyuimy-v-santimetry-16.html
27 дек 18, 17:55    [21775083]     Ответить | Цитировать Сообщить модератору
 Re: Обойти ограничение Word на ширину  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4478
expmrs,

вот ещё: https://winnote.ru/office/450-kak-izmenit-edinicu-izmereniya-lineyki-v-microsoft-word.html
27 дек 18, 17:57    [21775085]     Ответить | Цитировать Сообщить модератору
 Re: Обойти ограничение Word на ширину  [new]
expmrs
Member

Откуда:
Сообщений: 38
Gerasimenko, ну, в сантиметрах, в дюймах, в процентах, в пикселях - мне любое решение подойдет (уж перевести во что нужно, я как-нибудь смогу). Лишь бы я мог устанавливать ширину ячейки, близкую к 0.
27 дек 18, 18:02    [21775093]     Ответить | Цитировать Сообщить модератору
 Re: Обойти ограничение Word на ширину  [new]
Gerasimenko
Member

Откуда:
Сообщений: 4478
expmrs,

Свойство таблицы -> Ячейка -> Параметры -> Как во всей таблице (снять галочку) -> Занулить левое и правое поле

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    With Selection.Cells(1)
        .TopPadding = CentimetersToPoints(0)
        .BottomPadding = CentimetersToPoints(0)
        .LeftPadding = CentimetersToPoints(0)
        .RightPadding = CentimetersToPoints(0)
        .WordWrap = True
        .FitText = False
    End With
End Sub
27 дек 18, 18:16    [21775108]     Ответить | Цитировать Сообщить модератору
 Re: Обойти ограничение Word на ширину  [new]
expmrs
Member

Откуда:
Сообщений: 38
Gerasimenko, ну дык я так и сделал - я же написал. Вручную что-то похожее на правду, а программно - выдает ошибку выхода из диапазона
27 дек 18, 18:31    [21775122]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить