Уважаемые форумчане!
Необходимо из excel файла (VBA) в определенной папке во всех word файлах добавить текст в конце нижнего колонтитула.
Пожалуйста, подскажите что не так в коде? Выделяет строку Selection. ...
Во вложении excel файл c этим кодом и WordFile куда нужно вставить "Необходимый текст"
Необходимо из excel файла (VBA) в определенной папке во всех word файлах добавить текст в конце нижнего колонтитула.
Пожалуйста, подскажите что не так в коде? Выделяет строку Selection. ...
Во вложении excel файл c этим кодом и WordFile куда нужно вставить "Необходимый текст"
Код |
---|
Sub InsertTextInFooterDown() Dim sFolder As String, sFiles As String Dim wdApp As New Word.Application Dim wdDoc As Word.Document Dim pShape As InlineShape Application.DisplayAlerts = wdAlertsNone Set wdApp = CreateObject("Word.Application") sFolder = "C:\....\" 'задать свой путь к папке sFiles = Dir(sFolder & "*.docx") 'полный путь к word файлу Do While sFiles <> "" 'открваем все word файлы в папке sFolder Set wdDoc = wdApp.Documents.Open(sFolder & sFiles) 'открываем файл wdDoc.Sections(1).Footers(1).Range.Tables.Item(1).Cell(1, 1).Range.Select 'выделяем первую ячейку таблицы Selection.MoveDown Unit:=wdScreen, Count:=1 'идем в конец колонтитула 'задаем необходимый формат Selection.Font.Name = "Tahoma" Selection.Font.Italic = wdToggle Selection.Font.Size = 7 Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.ParagraphFormat.SpaceBefore = 1 Selection.ParagraphFormat.SpaceBeforeAuto = False Selection.ParagraphFormat.SpaceAfter = 3 Selection.ParagraphFormat.SpaceAfterAuto = False Selection.TypeText Text:="Необходимый текст" 'вставляем необходимый текст wdDoc.Close 'закрываем word файл sFiles = Dir Loop Set wdDoc = Nothing Set wdApp = Nothing Application.DisplayAlerts = wdAlertsAll End Sub |