Перейти к содержимому

Фотография
- - - - -

Макрос изменения межбуквенного интервала


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 2

#1
Дмитрий655

Дмитрий655

    Проходимец

  • 2 сообщений
  • 0 благодарностей
0
  • Office:2013

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

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

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



#2
Thomas

Thomas

    Excel Pro

  • 61 сообщений
  • 10 благодарностей
12
  • Город:Москва
  • Office:2003, 2010, 2013, Online
Дмитрий655, ну как-то так вроде

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

Господа! Регистрируйтесь и задавайте свои вопросы, связанные с Microsoft Office. Поможем, чем сможем ;)


#3
Дмитрий655

Дмитрий655

    Проходимец

    Автор темы
  • 2 сообщений
  • 0 благодарностей
0
  • Office:2013

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

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

 

 

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






Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных