Как вставить рисунок в колонтитул word

Как вставить логотип в колонтитул в Word

Логотип – важный элемент брендинга, и его наличие на документах может придать им профессиональный вид. Если вы работаете с Word, то может возникнуть вопрос, как вставить логотип в колонтитул документа. В этой статье мы расскажем вам подробную инструкцию по добавлению логотипа в колонтитул в программе Word.

1. Начните с открытия документа в Word. Перейдите во вкладку «Вставка» в верхней панели инструментов и выберите «Картинка». Выберите логотип с вашего компьютера или с аккаунта OneDrive или изображение из Интернета.

2. После того как вы выбрали логотип, он будет вставлен в текущую позицию курсора в документе. Выберите его и скопируйте его в буфер обмена (нажмите Ctrl + C или используйте команду «Копировать» в контекстном меню).

3. Теперь перейдите во вкладку «Вставка» и выберите «Колонтитул». В выпадающем меню выберите нужный вам стиль колонтитула (например, «Верхний» или «Нижний»).

4. Перейдите в режим редактирования колонтитула, нажав дважды на области колонтитула. Вставьте логотип в колонтитул, нажав Ctrl + V или выбрав команду «Вставить» в контекстном меню. Разместите логотип в нужном месте и при необходимости измените его размер или сделайте другие настройки.

5. Когда вы закончите редактирование колонтитула, нажмите дважды на области документа, чтобы вернуться к его редактированию. Теперь ваш логотип будет виден в колонтитуле всех страниц вашего документа.

Важно помнить, что авторские права и лицензионные ограничения могут требовать размещения логотипа только на определенных страницах или при соблюдении определенных условий. Поэтому всегда проверяйте правила использования логотипа и следуйте им.

Как добавить логотип в колонтитул в Word: пошаговая инструкция

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

1. Откройте документ в Word, в котором вы хотите добавить логотип в колонтитул.
2. Нажмите на вкладку «Вставка» в верхней панели меню Word.
3. В группе «Заголовок и нижний колонтитул» выберите «Колонтитул».
4. Выберите «Редактировать верхний колонтитул» или «Редактировать нижний колонтитул», в зависимости от того, куда вы хотите добавить логотип.
5. На появившейся панели инструментов колонтитула выберите «Вставка изображения» или «Вставить картинку».
6. Выберите логотип на вашем компьютере и нажмите «Вставить».
7. Измените размер логотипа, если необходимо, с помощью точек управления с помощью мыши.
8. Дважды щелкните на тексте в колонтитуле, чтобы закончить редактирование колонтитула и вернуться к основному документу.

Теперь ваш логотип будет отображаться в колонтитуле всех страниц вашего документа. Помните, что вы можете изменить расположение и размер логотипа, а также добавить другие тексты и элементы в колонтитул, чтобы создать нужный вам дизайн.

Откройте документ Word

1. Перейдите к рабочему столу или в меню «Пуск» и найдите программу Word. Чтобы открыть документ Word, дважды щелкните по значку программы. Документ Word должен открыться в программе.

2. Если у вас уже есть документ Word, который вы хотите редактировать и добавить логотип в колонтитул, откройте его в программе Word. Для этого можно нажать на кнопку «Открыть» в верхней панели инструментов и выбрать нужный файл из списка.

3. Если у вас нет готового документа Word, создайте новый, нажав на кнопку «Создать» или выбрав сочетание клавиш Ctrl+N. Затем выберите шаблон или пустой документ для создания нового файла.

4. После открытия или создания документа Word вы можете приступить к добавлению логотипа в колонтитул. Следующие шаги описывают, как это сделать.

Выберите вкладку «Вставка»

Чтобы вставить логотип в колонтитул документа в программе Word, следуйте следующим шагам:

1. Откройте документ, в котором вы хотите вставить логотип.
2. Выберите вкладку «Вставка» в верхней панели инструментов.
3. На вкладке «Вставка» найдите группу инструментов «Изображения» и нажмите на кнопку «Изображение».
4. В открывшемся диалоговом окне выберите логотип с помощью проводника файлов и нажмите кнопку «Вставить».

После выполнения этих шагов выбранный логотип будет вставлен в колонтитул документа. Вы можете изменить его размер, переместить или выровнять с помощью инструментов форматирования текста в колонтитуле.

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

Нажмите на кнопку «Заголовок»

Когда вы открыли документ в Microsoft Word, вы увидите панель инструментов в верхней части экрана. Среди кнопок на этой панели вы найдете кнопку с названием «Заголовок». Нажмите на эту кнопку, чтобы открыть диалоговое окно с вариантами заголовков.

В диалоговом окне вы увидите список доступных заголовков, начиная с «Заголовок 1» и заканчивая «Заголовок 9». Выберите наиболее подходящий для вашего документа заголовок.

Когда вы выбрали желаемый заголовок, вы увидите, что ваш текст будет автоматически отформатирован с использованием выбранного заголовка. Заголовок будет выделен особым шрифтом и размером, чтобы помочь читателям быстро найти и ориентироваться в документе.

Заголовки также играют роль в автоматическом создании оглавления для вашего документа. Поэтому выбор правильного заголовка поможет вам создать навигацию в документе и сделает его более удобным для пользователя.

Однако, перед тем как нажимать на кнопку «Заголовок», помните, что использование слишком многих заголовков может затруднить понимание и чтение документа. Поэтому рекомендуется использовать заголовки с умом и только там, где это действительно необходимо.

Выберите опцию «Колонтитул на обложке»

Если вы хотите вставить логотип в колонтитул на обложке документа в Word, вам потребуется выбрать соответствующую опцию. Для этого выполните следующие действия:

1. Откройте документ в Word.
2. Перейдите на вкладку «Вставка» в главном меню.
3. В разделе «Колонтитулы» выберите опцию «Колонтитул на обложке».
4. Выберите один из предложенных вариантов для размещения логотипа в колонтитуле:

Вариант 1: Колонтитул на обложке перед содержанием

Если вы хотите, чтобы логотип отображался только на обложке документа перед содержанием, выполните следующие действия:

1. Выберите опцию «Первая страница другая» в списке «Оформление».
2. Нажмите на кнопку «Редактировать колонтитул».
3. Вставьте свой логотип в колонтитул на обложке.
4. Нажмите на кнопку «Закрыть колонтитул».

Вариант 2: Колонтитул на обложке для всего документа

Если вы хотите, чтобы логотип отображался на обложке всего документа, выполните следующие действия:

1. Выберите опцию «Все страницы» в списке «Оформление».
2. Нажмите на кнопку «Редактировать колонтитул».
3. Вставьте свой логотип в колонтитул на обложке.
4. Нажмите на кнопку «Закрыть колонтитул».

После выполнения этих действий логотип будет вставлен в выбранный вами колонтитул на обложке документа в Word.

Вставить изображение в верхний колонтитул

Возможность вставлять изображение в верхний или нижний колонтитул документа Excel может быть очень полезна для настройки отчетов или добавления логотипов компании. В этой статье мы шаг за шагом покажем вам, как вставить изображение в верхний или нижний колонтитул документа Excel с помощью Aspose.Cells для .NET. Вы узнаете, как это сделать, используя исходный код C#.

Шаг 1. Настройка среды

Прежде чем начать, убедитесь, что на вашем компьютере установлен Aspose.Cells for .NET. Также создайте новый проект в предпочитаемой вами среде разработки.

Шаг 2. Импортируйте необходимые библиотеки.

В файл кода импортируйте библиотеки, необходимые для работы с Aspose.Cells. Вот соответствующий код:

Укажите каталог, в котором находится документ Excel, с которым вы хотите работать. Используйте следующий код, чтобы установить каталог:

Обязательно укажите полный путь к каталогу.

Шаг 4. Создание объекта рабочей книги

Объект Workbook представляет документ Excel, с которым вы будете работать. Вы можете создать его, используя следующий код:

При этом создается новый пустой объект Workbook.

Шаг 5. Сохранение URL-адреса изображения

Определите URL-адрес или путь к изображению, которое вы хотите вставить в верхний или нижний колонтитул. Используйте следующий код для хранения URL-адреса изображения:

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

Шаг 6: Открытие файла изображения

Чтобы открыть файл изображения, мы воспользуемся объектом FileStream и прочитаем двоичные данные из изображения. Вот соответствующий код:

Убедитесь, что путь к изображению указан правильно и у вас есть необходимые разрешения для доступа к нему.

Шаг 7. Настройка PageSetup

Объект PageSetup используется для установки параметров страницы документа Excel, включая верхний и нижний колонтитулы. Используйте следующий код, чтобы получить объект PageSetup первого листа:

Это позволит вам получить доступ к настройкам страницы для первого листа в книге.

Шаг 8: Добавляем изображение в шапку

Используйте метод SetHeaderPicture() объекта PageSetup, чтобы установить изображение в средней части заголовка страницы. Вот соответствующий код:

Это добавит указанное изображение в заголовок страницы.

Шаг 9: Добавляем скрипт в шапку

Чтобы добавить скрипт в заголовок страницы, используйте метод SetHeader() объекта PageSetup. Вот соответствующий код:

Это добавит указанный скрипт в заголовок страницы. В этом примере сценарий «&G» отображает номер страницы.

Шаг 10. Добавьте имя листа в заголовок

Чтобы отобразить имя листа в заголовке страницы, снова используйте метод SetHeader() объекта PageSetup. Вот соответствующий код:

Это добавит имя листа в заголовок страницы. Сценарий «&A» используется для обозначения имени листа.

Шаг 11. Сохранение книги

Чтобы сохранить изменения в книге, используйте метод Save() объекта Workbook. Вот соответствующий код:

Это сохранит книгу с изменениями в указанном каталоге.

Шаг 12: Закрытие FileStream

После чтения двоичных данных из изображения обязательно закройте FileStream, чтобы освободить ресурсы. Используйте следующий код, чтобы закрыть FileStream:

Обязательно всегда закрывайте FileStreams, когда закончите их использовать.

Пример исходного кода для вставки изображения в нижний колонтитул с использованием Aspose.Cells для .NET

Заключение

Поздравляем! Теперь вы знаете, как вставить изображение в верхний или нижний колонтитул документа Excel с помощью Aspose.Cells для .NET. В этом руководстве вы пройдете каждый этап процесса: от настройки среды до сохранения измененной книги. Не стесняйтесь больше экспериментировать с функциями Aspose.Cells для создания персонализированных и профессиональных документов Excel.

Часто задаваемые вопросы

Вопрос 1. Можно ли вставить несколько изображений в верхний или нижний колонтитул документа Excel?

О1: Да, вы можете вставить несколько изображений в верхний или нижний колонтитул документа Excel, повторяя шаги 8 и 9 для каждого дополнительного изображения.

Вопрос 2. Какие форматы изображений поддерживаются для вставки в верхний или нижний колонтитул?

A2: Aspose.Cells поддерживает множество распространенных форматов изображений, таких как JPEG, PNG, GIF, BMP и т. д.

Вопрос 3. Могу ли я дополнительно настроить внешний вид верхнего или нижнего колонтитула?

О3: Да, вы можете использовать специальные скрипты и коды для дальнейшего форматирования и настройки внешнего вида верхнего или нижнего колонтитула. Обратитесь к документации Aspose.Cells для получения дополнительной информации о параметрах настройки.

Вопрос 4. Работает ли Aspose.Cells с разными версиями Excel?

О4: Да, Aspose.Cells совместим с различными версиями Excel, включая Excel 2003, Excel 2007, Excel 2010, Excel 2013, Excel 2016 и Excel 2019.

Вопрос 5. Можно ли вставлять изображения в другие части документа Excel, например в ячейки или диаграммы?

О5: Да, Aspose.Cells предоставляет обширные функциональные возможности для вставки изображений в различные части документа Excel, включая ячейки, диаграммы и графические объекты.

Колонтитулы в ворде. Рамки для word

Колонтитулы в ворде — это текст и изображения размещаемые на страницах документа, не относящиеся к основному тексту, а носят информационный и оформительский характер. При правильном использовании вы сможете оформить документ который останется только отправить на печать.

Рамки для текста в ворде и колонтитулы

Колонтитулы в word размещаются на каждой из страниц документа в верхнем, нижнем и боковом полях. В этих областях можно разместить номера страниц, рамки для текста, время и дату, логотип компании, название документа, имя файла. На мой взгляд, колонтитулы в word полезны для инженера тем, что с помощью них можно оформить документ согласно требований к проектной и рабочей документации, вставить рамку и штампики соответствующих форм. Для знакомства с колонтитулами в ворде, предлагаю проделать небольшую практическую работу по созданию шаблона первого листа с рамкой для всех видов документов по ГОСТ 21.1101-2013.

Как сделать рамку в ворде используя колонтитулы

Думаю, разобравшись на конкретном примере, дальнейшая работа с колонтитулами, для вставки рамки word, не будет наводить на вас ужас. Различные способы выполнения тех или иных действий не будем рассматривать (раздувать статью), с ними думаю ознакомитесь сами. Давайте рассмотрим последовательность действий, как сделать рамку в колонтитулах в ворде 2010 (другие версии подобны):

1. Первым делом скачайте файл, с подготовленными исходными материалами кликнув здесь.

2. Откройте файл, и скопируйте внутреннюю рамку для текста документа на второй странице, кликнув правой клавишей мыши, в тот момент, когда у курсора появится перекрестие при наведении на рамку.

3. Далее установите курсор на первой странице. В ленте верхнего меню Вставка → Верхний колонтитул → Изменить верхний колонтитул .

4. Важно. Для создания особого колонтитула для первой страницы, установить галку на вкладке «Колонтитулы» в разделе «Параметры»

5. Нажмите сочетание клавиш Ctrl+V, или вставьте рамку word документа по клику правой клавиши мыши.

6. В верхнем меню Формат → Положение → Дополнительные параметры разметки.

7. В открывшемся окне установите параметры рамки для текста как на рисунке ниже.

8. Перейдите на вкладку «Конструктор» и нажмите «Закрыть окно колонтитулов»

9. Скопируйте табличку дополнительных граф листа на третьей странице. Выделение таблицы происходит при клике перекрестия, появляющегося при наведении курсора в область таблицы.

10. Аналогично вставке рамки для текста word на листе, проделайте шаги 3 и 5.

11. Установив курсор в область таблицы по клику правой клавиши откройте окно «Свойства таблицы».

12. Кликните, в последовательности указанной на рисунке ниже, и установите аналогичные параметры. Закройте окно колонтитулов (аналогично шагу 8)

13. Скопируйте табличку шаблона основной надписи по форме 5 на четвертой странице. Выделение таблицы происходит при клике перекрестия, появляющегося при наведении курсора в область таблицы.

14. Установите курсор на первой странице с рамкой для текста. В ленте верхнего меню Вставка → Нижний колонтитул → Изменить нижний колонтитул .

15. Повторите последовательно шаги 5, 11 и установите параметры как на рисунке ниже.

16. Эхх. ну вроде как все, рамку для текста в ворде сделали, закрывайте окно редактирования колонтитулов (шаг 8).

Разные колонтитулы в одном документе

Методика создания колонтитулов с рамками для текста в ворде на последующих страницах документа подобна описанной, с той лишь разницей, что в нижнем колонтитуле необходимо вставить таблицу по форме 6. Теперь вы сможете создать бесплатно документ с двумя разными колонтитулами (рамками), для первой и последующих страниц. Но как быть, если необходимо создать разные колонтитулы (более двух) в одном документе? Этому посвящена отдельная статья расположенная здесь. Кстати в ней вы сможете бесплатно скачать рамки для word документа с готовыми колонтитулами.

Как убрать рамку в ворде из колонтитулов

Для того, чтоб удалить или изменить рамку текста или весь колонтитул, перейдите в режим редактирования и удалите все имеющиеся элементы. Быстрей и проще всего попасть в режим редактирования по двойному клику мыши, установив курсор на элементе колонтитула (рамке, штампе), или воспользоваться лентой верхнего меню Вставка → Верхний/Нижний колонтитул → Удалить верхний/нижний колонтитул .

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

Как вставить рисунок в колонтитул word

Добрый день!
На просторах интернета нашел макрос, который вставляет картинку в колонтитул документа Word. Он прекрасно работает из Ворда.

Sub UpdateHeader() Dim oDoc As Word.Document Dim oSec As Word.Section, rng As Range Set oDoc = ActiveDocument For Each oSec In oDoc.Sections Set rng = oSec.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range With rng .Tables.Add Range:=rng, NumRows:=1, NumColumns:=1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitWindow With .Tables(1) .Borders.InsideLineStyle = wdLineStyleNone .Borders.OutsideLineStyle = wdLineStyleNone .Rows.SetLeftIndent LeftIndent:=-35, RulerStyle:=wdAdjustNone .Cell(1, 1).Range.InlineShapes.AddPicture FileName:="C:\Users\valek\Desktop\Images\шапка.EN4VW (1).jpg", LinkToFile:=False, SaveWithDocument:=True End With End With Next oSec MsgBox rng.Tables(1).Cell(1, 1).Range.InlineShapes.Count 'ActiveDocument.PageSetup.HeaderDistance = CentimetersToPoints(0) 'With ActiveDocument.ShapeRanges(1) With rng.Tables(1).Cell(1, 1).Range.InlineShapes(1) .LockAspectRatio = msoFalse .Height = .Height * 1.11111 .Width = .Width * 1.1111 .LockAspectRatio = msoTrue End With With ActiveDocument.PageSetup .HeaderDistance = CentimetersToPoints(0) End With

Также у меня есть макрос в Excel, который работает с этим файлом (который с миру по нитке насобирал по всему интернету, понимания пока не хватает в чем разница между работой из Excel с другим приложением Microsoft, поэтому часто даже рабочий код у меня не работает))
Вот код основного макроса в Excel

Sub Zapusk_Word_iz_Excel_02(strFile As String) Dim objWrdApp As Object Dim objWrdDoc As Object On Error Resume Next Set objWrdApp = GetObject(, "Word.Application") 'пытаемся подключится к объекту Word If objWrdApp Is Nothing Then Set objWrdApp = CreateObject("Word.Application") 'если приложение закрыто - создаем новый экземпляр Set objWrdDoc = objWrdApp.Documents.Open(strFile) 'открываем документ Word - документ с таким именем должен существовать objWrdApp.Visible = True End If Set objWrdDoc = objWrdApp.Documents.Open(strFile) 'открываем документ Word - документ с таким именем должен существовать Set WdRange = objWrdDoc.Content 'задаем переменную для содержимого документа WdRange.Find.ClearFormatting WdRange.Find.Text = "Страхователь" WdRange.Find.Execute ContractNumber = WdRange.Cells(1).RowIndex 'задаем переменную номера строки необходимого поля в таблице Set WdRange = objWrdDoc.Content WdRange.Find.Text = "Номер договора страхования" WdRange.Find.Execute FullName = WdRange.Cells(1).RowIndex Set wdTable = WdRange.Tables(1) 'переменная для таблицы документа ThisWorkbook.Worksheets(1).Range("A1").Value = Left(wdTable.Cell(ContractNumber, 3), Len(wdTable.Cell(ContractNumber, 3)) - 1) 'вставка значений в Excel на один символ меньше ThisWorkbook.Worksheets(1).Range("B1").Value = Left(wdTable.Cell(FullName, 3), Len(wdTable.Cell(FullName, 3)) - 1) 'для избавления от символа Set WdRange = objWrdDoc.Content WdRange.Find.ClearFormatting WdRange.Find.Text = "По месту требования" WdRange.Find.Execute UpDelete = WdRange.Cells(1).RowIndex 'задаем переменную номера строки необходимого поля в таблице X = wdTable.Columns.Count With wdTable For i = 1 To X - 1 .Cell(Row:=UpDelete, Column:=i).Merge _ MergeTo:=.Cell(Row:=UpDelete, Column:=i + 1) Next i End With wdTable.Cell(UpDelete, 1).Delete Set WdRange = objWrdDoc.Content WdRange.Find.ClearFormatting WdRange.Find.Text = "О направлении ответа по запросу" WdRange.Find.Execute ResponseByRequest = WdRange.Cells(1).RowIndex 'задаем переменную номера строки необходимого поля в таблице X = wdTable.Columns.Count With wdTable For i = 1 To X - 1 .Cell(Row:=ResponseByRequest, Column:=i).Merge _ MergeTo:=.Cell(Row:=ResponseByRequest, Column:=i + 1) Next i End With wdTable.Cell(ResponseByRequest, 1).Split NumRows:=7, NumColumns:=1 wdTable.Cell(ResponseByRequest + 1, 1).Delete wdTable.Cell(ResponseByRequest + 1, 1).Delete wdTable.Cell(ResponseByRequest + 1, 1).Delete wdTable.Cell(ResponseByRequest + 1, 1).Delete wdTable.Cell(ResponseByRequest + 1, 1).Delete wdTable.Cell(ResponseByRequest + 1, 1).Delete wdTable.Cell(ResponseByRequest, 1).Split NumRows:=1, NumColumns:=2 wdTable.Cell(ResponseByRequest, 2).Range.Text = wdTable.Cell(ResponseByRequest, 1).Range.Text wdTable.Cell(ResponseByRequest, 2).Range.Font.Size = 11 wdTable.Cell(ResponseByRequest, 2).Range.Font.Bold = True wdTable.Cell(ResponseByRequest, 1).Range.Delete wdTable.Cell(1, 1).SetWidth _ ColumnWidth:=49.9, _ RulerStyle:=wdAdjustNone Set WdRange = objWrdDoc.Content WdRange.Find.ClearFormatting WdRange.Find.Text = "И.о. Главного бухгалтера" WdRange.Find.Execute BottomFirst = WdRange.Cells(1).RowIndex 'задаем переменную номера строки необходимого поля в таблице Set WdRange = objWrdDoc.Content WdRange.Find.ClearFormatting WdRange.Find.Text = "доб. 21-75" WdRange.Find.Execute BottomSecond = WdRange.Cells(1).RowIndex 'задаем переменную номера строки необходимого поля в таблице A = "Управление бухгалтерского учета" B = "и отчетности ООО СК «ВТБ Страхование»" C = "№322/20 от 05.06.2020" Set wshSwitch = ThisWorkbook.Worksheets("Значения переключателей") D = wshSwitch.Cells(wshSwitch.Range("A1").Value, 3).Value F = "Исп. " & wshSwitch.Cells(wshSwitch.Range("A2").Value, 3).Value E = wshSwitch.Cells(wshSwitch.Range("A2").Value, 4).Value objWrdDoc.Range(wdTable.Cell(BottomFirst, ColumnsCount).Range.Start, wdTable.Cell(BottomSecond, ColumnsCount).Range.End).Cells.Delete wdTable.Rows.Add wdTable.Cell(BottomFirst, 2).Range.Text = "Руководитель проекта" wdTable.Cell(BottomFirst, 2).Range.Font.Size = 11 wdTable.Cell(BottomFirst, 2).Range.Font.Bold = True wdTable.Rows.Add wdTable.Cell(BottomFirst + 1, 2).Split 1, 2 wdTable.Cell(BottomFirst + 1, 2).Range.Text = A & vbNewLine & B & vbNewLine & C wdTable.Cell(BottomFirst + 1, 2).Range.Font.Size = 11 wdTable.Cell(BottomFirst + 1, 2).Range.Font.Bold = True wdTable.Cell(BottomFirst + 1, 3).Range.Text = D wdTable.Cell(BottomFirst + 1, 3).Range.Font.Size = 11 wdTable.Cell(BottomFirst + 1, 3).Range.Font.Bold = True wdTable.Cell(BottomFirst + 1, 3).Range.ParagraphFormat.Alignment = 2 wdTable.Rows.Add wdTable.Rows.Add wdTable.Rows.Add wdTable.Cell(BottomFirst + 4, 2).Range.Text = F wdTable.Cell(BottomFirst + 4, 2).Range.Font.Size = 10 wdTable.Cell(BottomFirst + 4, 2).Range.Font.Bold = False wdTable.Rows.Add wdTable.Cell(BottomFirst + 5, 2).Range.Text = E wdTable.Cell(BottomFirst + 5, 2).Range.Font.Size = 10 wdTable.Cell(BottomFirst + 5, 2).Range.Font.Bold = False wdTable.Cell(BottomFirst + 5, 2).VerticalAlignment = wdAlignVerticalTop Set objWrdDoc = Nothing Set objWrdApp = Nothing 'очищаем переменные Word End Sub Sub Certificate() Dim Response Response = MsgBox("Вы уверены, что хотите продолжить?", vbOKCancel, "^_^") If Response = vbCancel Then Exit Sub Else End If Application.ScreenUpdating = False 'Отключаем обновление экрана Dim strFile As String 'Имя текстового файла Dim xFiles() As String 'Массив с именами найденных файлов Dim N As Integer 'Кол-во найденных файлов Dim X As Range Dim iFirstRow As Long 'Количество строк в файле изначальное N = 1 strFile = Dir(ThisWorkbook.Path & "\" & "*.docx") 'Поиск всех текстовых файлов в папке Do Until strFile = "" ReDim Preserve xFiles(1 To N) 'Увеличиваем массив до номера последнего найденного файла, с сохранением предыдущих элементов xFiles(N) = strFile 'Значение найденного элемента добавляемого в массив Call Zapusk_Word_iz_Excel_02(ThisWorkbook.Path & "\" & xFiles(N)) strFile = Dir 'Повторить поиcк с теми же аргументами N = N + 1 Loop Application.ScreenUpdating = True End Sub

Тут даже не знаю как сформулировать свой вопрос, заранее извиняюсь.
Как мне сделать так, чтобы я из процедуры Zapusk_Word_iz_Excel_02 сделал Call UpdateHeader и это дело заработало?
Поначалу выдает ошибку еще при объявлении типа данных

Dim oDoc As Word.Document Dim oSec As Word.Section