Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Не ставить разделитель в конце посл. файла при объединении - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Не ставить разделитель в конце посл. файла при объединении
Не ставить разделитель в конце посл. файла при объединении
maximich Дата: Пятница, 30.08.2019, 10:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Уважаемые форумчане, доброго времени суток!
Для объединения файлов word использую макрос следующего вида:

Подскажите пожалуйста, как можно доработать макрос, чтобы он не ставил разделитель страниц в конце последнего объединяемого файла?
Заранее спасибо.
 
Ответить
СообщениеУважаемые форумчане, доброго времени суток!
Для объединения файлов word использую макрос следующего вида:

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

Автор - maximich
Дата добавления - 30.08.2019 в 10:38
Gustav Дата: Пятница, 30.08.2019, 11:42 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1669
Репутация: 678 ±
Замечаний: 0% ±

начинал с Excel 4.0...
Например, так:
[vba]
Код
If lr < .SelectedItems.Count Then docAct.Range(docAct.Range.End - 1).InsertBreak Type:=wdSectionBreakNextPage
[/vba]
И это всё вместо существующей строки, которая после Then. Т.е. расширяем эту строку на условие If в начале.


Мой tip box - яд 41001663842605

Сообщение отредактировал Gustav - Пятница, 30.08.2019, 11:53
 
Ответить
СообщениеНапример, так:
[vba]
Код
If lr < .SelectedItems.Count Then docAct.Range(docAct.Range.End - 1).InsertBreak Type:=wdSectionBreakNextPage
[/vba]
И это всё вместо существующей строки, которая после Then. Т.е. расширяем эту строку на условие If в начале.

Автор - Gustav
Дата добавления - 30.08.2019 в 11:42
maximich Дата: Пятница, 30.08.2019, 12:19 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Gustav, правильно ли я Вас понял?
 
Ответить
СообщениеGustav, правильно ли я Вас понял?

Автор - maximich
Дата добавления - 30.08.2019 в 12:19
Gustav Дата: Пятница, 30.08.2019, 13:47 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 1669
Репутация: 678 ±
Замечаний: 0% ±

начинал с Excel 4.0...
Gustav, правильно ли я Вас понял?

Думаю, что нет. Я имел в виду всего лишь:
[vba]
Код
Sub Объединение_файлов()
    Dim avFiles, lr As Long
    Dim docAct As Document, docNow As Document

    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "*.doc*"
        .AllowMultiSelect = True
        If .Show = False Then Exit Sub
        Set docAct = ActiveDocument
        For lr = 1 To .SelectedItems.Count
            Set docNow = Documents.Open(.SelectedItems(lr))
            docNow.Range.Copy
            docAct.Range(docAct.Range.End - 1).Paste

            'docAct.Range(docAct.Range.End - 1).InsertBreak Type:=wdSectionBreakNextPage
            If lr < .SelectedItems.Count Then docAct.Range(docAct.Range.End - 1).InsertBreak Type:=wdSectionBreakNextPage

            docNow.Close 0
        Next lr
    End With
End Sub
[/vba]


Мой tip box - яд 41001663842605
 
Ответить
Сообщение
Gustav, правильно ли я Вас понял?

Думаю, что нет. Я имел в виду всего лишь:
[vba]
Код
Sub Объединение_файлов()
    Dim avFiles, lr As Long
    Dim docAct As Document, docNow As Document

    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "*.doc*"
        .AllowMultiSelect = True
        If .Show = False Then Exit Sub
        Set docAct = ActiveDocument
        For lr = 1 To .SelectedItems.Count
            Set docNow = Documents.Open(.SelectedItems(lr))
            docNow.Range.Copy
            docAct.Range(docAct.Range.End - 1).Paste

            'docAct.Range(docAct.Range.End - 1).InsertBreak Type:=wdSectionBreakNextPage
            If lr < .SelectedItems.Count Then docAct.Range(docAct.Range.End - 1).InsertBreak Type:=wdSectionBreakNextPage

            docNow.Close 0
        Next lr
    End With
End Sub
[/vba]

Автор - Gustav
Дата добавления - 30.08.2019 в 13:47
maximich Дата: Пятница, 30.08.2019, 14:38 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Gustav, спасибо! Все работает
 
Ответить
СообщениеGustav, спасибо! Все работает

Автор - maximich
Дата добавления - 30.08.2019 в 14:38
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Не ставить разделитель в конце посл. файла при объединении
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!