Вот задачка!

[Ramzes]

Есть 31 страничка 1-31.HTML, надо открыть их с помощю ворда, и распечатать.

(просто ради интереса)

[mefestofele]

Програмно?

[Ramzes]

Ну а как-же , в ручную я и сам могу!

[alibek]

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

[Ramzes]

Мне не надо через макрос!!!!!!!!! :Мне надо из чистого бейсика!!!!!!!! Если бы я хотел через макрос я бы так и сделал!!! А если бы не знал как это сделать! то Спросил бы на форуме VBA

[mefestofele]

Можно попробовать через ASCII код
По алгоритму
For I=1 to 31
Ctrl+A 'выделить все
Alt+Tab
Ctrl+V 'вставить
Alt+Tab
Next
Я не знаю как это реализовать, но и не знаю как сделать по другому
Может кто знает?

[Ramzes]

Ну если не знаешь, то не надо просто-так оставлять сообщение

[Bethy]

Открываешь shell'мо, печатаешь SendKey'ем - итак 31 раз

[Tin]

Знаю что с оле должна послаться такая команда
[REM _DDE_Minimize][FileOpen("%1")][t=IsDocumentDirty()][FilePrint 0][SetDocumentDirty t][DocClose]

но как её туда послать?

[Sedge]

Ставишь ссылку на MSWord Object Library. Далее примерно так:

Код: Выделить всё

Dim oWord As New Word.Application

With oWord
  .Documents.Open FileName:="<html-file>", ConfirmConversions:=False, ReadOnly _
      :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
      :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
      , Format:=wdOpenFormatAuto
  .Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
      wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
      ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
      False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
      PrintZoomPaperHeight:=0
  .Documents.Close
End With

Set oWord = Nothing



внутри запускаешь цикл по всем твоим файлам.

[Sedge]

Кстати, почти весь код в предыдущем постинге создан с помощью записи макросов в Word (хотя и работает из-под чистого VB). Очень хорошее средство для изучения объектной модели приложений MS Office. Записываешь макрос, а потом смотришь код, который сгенерился автоматом. Так что народ тебе дело предлагал.

[Ramzes]

Ладно буду пробовать