> Автор: PlanB
> забыл сказать: прога должна запускаться из Excel

Макрос запиши, и подставляй по записанному пути одинаковые doc-файлы

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: PlanB
> ...так это понятно, как копировать таблицу Word в Excel я не
> понимаю))

А для этого нужно записать макрос в ворде ;)))

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: PlanB
> Я правильно понял: нельзя из Excel открыть word и из него что-то
> скопировать?
> Т.е, когда ББ банков присылают в Word-e, а тебе надо в Excel их
> переместить автоматически, это невозможно без того, чтобы в word не
> прописать макрос в каждом файле???

Нет! Ты понял неправильно! Из программы в которую встроен VBA(заметь, я не
ограничиваюсь только Екселем и Вордом ;)) ) можно сделать ОЧЧЧЕЕЕНЬ много
чего. И твоя задача очень проста и делается за 5 минут. Только ты этого не
понимаешь :(



--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: PlanB
> Да, неплохо! Спасиоб. Правда я не допёр что значат прописанные
> свойства OPEN кроме Filename, так что их все поудалял (с ними, кстати, не
> пашет). Мож подскажешь, какое из них позволяет не менять формат при
> вставке.

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

открой редактор ВБА в ворде, напиши там Documents.Open поставь курсор на
Open и нажми F1 ;)))


--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: PlanB
> Не знаю, откуда ты всё это знаешь.

"и опыт, сын ошибок трудных" (с) А. С. Пушкин
+ чтение справки, иногда вместо сна ;)))

Удачи
--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: PlanB
> Ты программист что-ли профессиональный? Мена VBA никто не учил)))

Ну насчет профессионального не знаю, т.к самоучка, но последние 6 лет(из 10
прошедших после института) работаю программистом, так что можно сказать и
профессиональный.
А по специальности - инженер литейного производства

> Я просто фин. аналитик, решил по нерезам балансы прогой в сводную
> таблицу формировать, чтобы динамику смотреть.

Все когда-то начинали :)

> А милый АВТОКРАЗБАНК присылает отчётность в worde. Вот и заморочки
> отсюда...


О и у нас в городе есть такой банк :)

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: PlanB
> У меня последний вопрос: твой код открывает файл word или из
> закрытого берёт инфу? Уж очень он быстро всё делает.

Открывает. Но не показывает.

> Когда я из excel в excel делал примерно так:
>
> Private Sub BVN_NES()
> Name$ = "имя б"
> nnn = ActiveWorkbook.Name
> Naz = Application.GetOpenFilename
> If Naz = False Then
> End
> End If
> Workbooks.OpenText Filename:=Naz
> nnn1 = ActiveWorkbook.Name
> ActiveWorkbook.Sheets(1).Columns("A:E").Copy
> Workbooks(nnn).Activate
>
> Sheets.Add
> With ActiveSheet
> .Name = "1"
> .Paste
> .Columns("a:e").ColumnWidth = 11
> End With
> Application.CutCopyMode = False
> Workbooks(nnn1).Close (False)
> Call Group2
> Call Import1(Name)
> Application.DisplayAlerts = False
> Worksheets("1").Delete
> Application.DisplayAlerts = True
> End Sub
>
> вот в этом случае прога тупит секунд по 10 (это с процедурами Call не
> связано, они небольшие)

У меня тупит просто сам вызов Application.GetOpenFilename.
Если возможно, стараюсь обходится без диалогов выбора файла
Ну и ещё может тупить операция копирования/вставки, т.к. вставляеш с
форматами и это может занимать продолжительное время на больших объемах
Попробуй вставлять специальной вставкой, только значения, если подходит

> может можно не открывая файл всё это сделать?
Вот делал кому-то пример:
Здесь в Tools -> Referens нужно поставить птичку напротив Microsoft ActiveX
Data Object 2.???

--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4

> Автор: PlanB
> И напоследок: можно заставить твой код копировать только таблицу. Там
> текст тоже бывает
:))
вместо строки:
wdApp.Selection.WholeStory
ставиш:
wdDoc.Tables(1).Select



--
С уважением Горбонос Игорь Леонидович

Posted via ActualForum NNTP Server 1.4