Страницы: 1
RSS
Изменение шрифта части текста в колонтитуле, Изменение шрифта части текста в колонтитуле
 
Доброго времени суток, ДрУги во программировании на VBA!
Второй день бьюсь с проблемой программного изменения шрифта (название, полужирность и проч.) в ЧАСТИ текста колонтитула
Наш друг пишичитай макрорекордер, кроме всего прочего, дает такой код
Код
Sub Макрос3() 'записано макрорекордером
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Arial,полужирный""СТР:&""-,обычный"" &D &T"
        .CenterHeader = "&""Arial,полужирный""СТРАНА:&""-,обычный"" Россия &""Arial,полужирный""РЕГИОН: &""-,обычный""Москва"
        .RightHeader = "&""Arial,полужирный""САЙТ:&""-,обычный"" WWW.MOS.GOV"
    End With
End Sub
так вот в этой заготовке никак не могу заменить некоторые слова на переменные
Код
Sub PreKolon2()
Country$ = "Россия"
City$ = "Москва"
Site$ = "WWW.MOS.GOV"
    With ActiveSheet.PageSetup
        .LeftHeader = "&""Arial,полужирный""СТР:&""-,обычный"" &D &T"   'Дата и Время
        
        'слова Россия, Москва заменить переменными Country, Сity
        .CenterHeader = "&""Arial,полужирный""СТРАНА:&""-,обычный"" Россия &""Arial,полужирный""РЕГИОН: &""-,обычный""Москва"
        
        'WWW.MOS.GOV заменить на Site
        .RightHeader = "&""Arial,полужирный""САЙТ:&""-,обычный"" WWW.MOS.GOV"
    End With
    ActiveSheet.PrintPreview
End Sub
Т.к. апмперсанд (&), кроме того, что он оператор объединения строк, в колонтитулах он еще и управляющий символ (см. строку с Датой и Временем)
Никак не могу правильно расставить эти амперсанды с кавычками.
В файле два листа. Первый - колонтитулы выставлены и оформлены вручную, второй - нужно так-же сделать программно, через переменные
Спасибо.
Согласие есть продукт при полном непротивлении сторон
 
Здравствуйте мученик VBA. :)
Можно так.
Скрытый текст
 
Спасибо, Doober, ! Знал, что без бубна не обойдется  :D
Согласие есть продукт при полном непротивлении сторон
Страницы: 1
Наверх