Сообщений в теме: 2

[Дмитрий655]

Здрасте) подскажите пожалуйста, как быть и если есть возможность помочь в написаниее макроса)

Суть в том, что у меня есть документ, очень большой, в котором очень много различного рода межбуквевнных интервалов. Вот как бы сделать так, чтобы привести их в один вменяемый вид, т.е. все интервалы свести к нулю?!

Заранее очень благодарен, а то руками уже сижу правлю второй день(((

[Thomas]

Дмитрий655, ну как-то так вроде

Sub Font1()'With ActiveDocument.Content.Font        .Spacing = 0      'межбуквенный интервал        .Scaling = 100    'масштаб символов        .Position = 0     'позиция по вертикали относительно базовой линии    End WithEnd Sub

[Дмитрий655]

Дмитрий655, ну как-то так вроде 

Sub Font1()'With ActiveDocument.Content.Font        .Spacing = 0      'межбуквенный интервал        .Scaling = 100    'масштаб символов        .Position = 0     'позиция по вертикали относительно базовой линии    End WithEnd Sub

 

 

Вот спасибо Вам огромное за это! А то сил моих больше нет вручную каждый раз всё перелопачивать)) от души