Подложка + Excel vba

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Подложка + Excel vba - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Подложка + Excel vba (Макросы Sub)

Подложка + Excel vba

DON

Дата: Вторник, 02.07.2013, 11:03 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Здравсвуйте!

Подскажите, пожалуйста, как программно из vba открыть новый документ word с подложкой?
Вот код открытия документа word:
[vba]

Код

Sub test()

Dim i As Integer
i = 1

Dim wrd As Word.Application
Dim doc As Word.Document

Set wrd = New Word.Application
Set doc = wrd.Documents.Add()

wrd.Selection.Font.Size = 14
wrd.Selection.Font.Bold = True
wrd.Selection.TypeText Text:="Qustion number " + CStr(i)
wrd.Selection.Font.Bold = wdToggle
wrd.Selection.TypeParagraph
wrd.Selection.Font.Size = 12

wrd.Visible = True
wrd.Activate

End Sub

[/vba]

Ответить

Саня

Дата: Вторник, 02.07.2013, 11:21 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

если бы я знал, что такое подложка, то я б сделал так:
открываем Ворд, включаем запись макроса, "делаем" подложку, выключаем запись, Alt+F11, смотрим записанное, берем нужное.

Ответить

DON

Дата: Вторник, 02.07.2013, 11:27 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Подложка -- это рисунок, вставляемый в колонтитул.
Булем пробовать через запись макроса, спасибо.

Ответить

Подложка + Excel vba (Макросы Sub)

Страница 1 из 1
1