Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Office Новый топик    Ответить
 удаление первого листа из всех документов ворд в папке  [new]
cptdamien
Member

Откуда:
Сообщений: 3
Здравствуйте, есть код:

Sub Get_All_File_from_Folder()
    Dim sFolder As String, sFiles As String
    'диалог запроса выбора папки с файлами
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = False Then Exit Sub
        sFolder = .SelectedItems(1)
    End With
    sFolder = sFolder & IIf(Right(sFolder, 1) = Application.PathSeparator, "", Application.PathSeparator)
    'отключаем обновление экрана, чтобы наши действия не мелькали
    Application.ScreenUpdating = False
    sFiles = Dir(sFolder & "*.doc*")
    Do While sFiles <> ""
        'открываем книгу
        Workbooks.Open sFolder & sFiles
        'действия с файлом
        'Удаляем 1 страницу документа
        Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
        Selection.Bookmarks("\page").Range.Delete
        'Закрываем книгу с сохранением изменений
        ActiveWorkbook.Close True 'если поставить False - книга будет закрыта без сохранения
        sFiles = Dir
    Loop
    'возвращаем ранее отключенное обновление экрана
    Application.ScreenUpdating = True
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ


если в строчке sFiles = Dir(sFolder & "*.doc*") указан "*xls.*" и я выбираю папку с экселевскими документами - все работает
в таком же варианте и с папкой вордовских документов выдает ошибку Runtime error '424' Object Required
Подскажите что не так?
16 ноя 18, 05:30    [21735898]     Ответить | Цитировать Сообщить модератору
 Re: удаление первого листа из всех документов ворд в папке  [new]
ПЕНСИОНЕРКА
Member

Откуда: Владимирская обл
Сообщений: 4537
cptdamien
'открываем книгу
Workbooks.Open sFolder & sFiles
у ворда нет такого открытия документа(да и закрытие иное)
16 ноя 18, 06:35    [21735905]     Ответить | Цитировать Сообщить модератору
 Re: удаление первого листа из всех документов ворд в папке  [new]
cptdamien
Member

Откуда:
Сообщений: 3
ПЕНСИОНЕРКА, да уже разные вариации попробовал. Для ворда нашел только открытие вместе с указанием пути до файла. в ВБА совсем не грамотен, можешь подсказать?
19 ноя 18, 04:19    [21737704]     Ответить | Цитировать Сообщить модератору
 Re: удаление первого листа из всех документов ворд в папке  [new]
Казанский
Member

Откуда:
Сообщений: 1307
cptdamien,
Workbook заменить на Document (в 2 местах), запускать из Ворда
19 ноя 18, 09:08    [21737773]     Ответить | Цитировать Сообщить модератору
 Re: удаление первого листа из всех документов ворд в папке  [new]
cptdamien
Member

Откуда:
Сообщений: 3
Казанский
cptdamien,
Workbook заменить на Document (в 2 местах), запускать из Ворда


да все то же самое - 424 object required
20 ноя 18, 03:33    [21738669]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Office Ответить