With ActiveDocument.Tables(1)
.Cell(1, 1).Range.Text = "мой текст"
End With
Cell(1, 1).FitText = True
это по-моему Excel, но и в Word-e плоховато получается. Вписанный текст - это текст, который полностью вписывается в ширину ячейки и, если, текста мало, то он растягивается, а, если много, то он сжимается. Мне же надо только последнее, т.е., если текст нормальный, то он должен и писаться нормально, а, если не умещается в ячейку, только тогда должен сжиматься. Я, видимо попробую сделать макрос не на вписание текста, а на вставку в сжатом виде. Ну и пусть он будет короче, чем ячейка.Формат ячеек->Выравнивание->Автоподбор ширины
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 90