Отправлено: 20.11.06 17:15. Заголовок: 1.doc + 2.doc + 3.doc + 4.doc = all.doc

Кто может подсказать как объединить несколько WORD'овских файлов в один файл.
И желательно чтоб в нем сделать "нумерацию страниц".
Заранее спасибо за решение.

 Отправлено: 06.12.06 09:57. Заголовок: Re:

Andrey пишет:

цитата:

И еще вопрос, как отправить файл на печать и задать кол-во копий ?

oActive:PrintOut(.f.,,,,,,, nCopies)

Совет 1. Открываешь vbawd10.chm, набираешь в поиске Print, находишь метод PrintOut и смотришь его параметры

Совет 2. Включаешь в ворде запись макросов, выдаешь команду на печать, останавливаешь запись и смотришь что получилось в макросах

 Отправлено: 08.12.06 00:54. Заголовок: Re:

Люди, ау.
Подскажи, еще такой момент.
Если doc файлы различаются оформлением (поля и ориентацией), то при копировании в один файл
тоже теряется оформление, т.е. 1-файл книжная оринт., 2-альбомная, 3-альбомная, 4-альбамная.
Результирующий файл - книжный. Как сохранить ориентацию у страниц.

 Отправлено: 08.12.06 09:30. Заголовок: Re:

У ActiveDocument (обьект типа Document) есть свойство PageSetup

У него есть поля:

Orientation
TopMargin
BottomMargin
LeftMargin
RightMargin

их надо считать из исходного документа и установить в резутьтирующем

т.е

nOrient := oDoc1:PageSetup:Orientation

...

oDoc2:PageSetup:Orientation := nOrient

и так для остальных свойств

 Отправлено: 10.12.06 22:19. Заголовок: Re:

Pasha пишет:

цитата:

nOrient := oDoc1:PageSetup:Orientation ... oDoc2:PageSetup:Orientation := nOrient

Спасибо Петр, что бы я делал без тебя !
Подскажи, еще такой момент. Если ты с этим разбиралься и тебе не трудно ответить.

Если doc файлы различаются оформлением (поля и ориентацией), то при копировании в один файл
тоже теряется оформление, т.е. 1-файл книжная оринт., 2-альбомная, 3-альбомная, 4-альбамная.
Результирующий файл - книжный. Как сохранить ориентацию у страниц.

 Отправлено: 11.12.06 09:41. Заголовок: Re:

Вот как это выглядит на бейсике

'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 11.12.2006 Ïàøà
'
ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _
InsertBreak Type:=wdSectionBreakNextPage
Selection.Start = Selection.Start + 1
With ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument. _
Content.End).PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(3)
.RightMargin = CentimetersToPoints(1.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With

ЗЫ что-то с клипбоард не в порядке. Может мне нужен SP к оффису ?

 Отправлено: 11.12.06 09:51. Заголовок: Re:

Pasha пишет:

цитата:

Может мне нужен SP к оффису ?

а что за оффис у тебя ?
SP найдем ;) уточни версию.

 Отправлено: 11.12.06 10:39. Заголовок: Re:

Да я уже поставил, все равно не помогло
Office 2003 был без sp, поставил sp2

 Отправлено: 11.12.06 20:02. Заголовок: Re:

Слушайте, а win32ole.prg не работает с Офисом 97, вылетает по ошибке.
Он как должен или не должен работать с 97 ?

 Отправлено: 12.12.06 00:06. Заголовок: Re:

Как это не работает
у меня все в порядке
Что за ошибка

 Отправлено: 13.12.06 19:27. Заголовок: Re:

Не знаю, что за ошибка, чуть позже опять протестирую связку Win2000 Prof Engl + Word 97 Rus.

Сделал чтение оринтации страницы, поля замерил, все бестолку.
---------------------
? "Copy ClipBoard and Paste New Document"
FOR nI := 2 TO LEN(aFileDoc)+1
oWord:Windows[nI]:Activate()
nOrient := oWord:Selection():PageSetup():Orientation()
nTopMargin := oWord:Selection():PageSetup():TopMargin()
nBottomMargin := oWord:Selection():PageSetup():BottomMargin()
nLeftMargin := oWord:Selection():PageSetup():LeftMargin()
nRightMargin := oWord:Selection():PageSetup():RightMargin()
? nOrient,nTopMargin,nBottomMargin,nLeftMargin,nRightMargin
oText := oWord:Selection() ; oText:WholeStory() ; oText:Copy()

oWord:Windows[1]:Activate()
oWord:Selection():PageSetup():Orientation() := nOrient
oWord:Selection():PageSetup():TopMargin() := nTopMargin
oWord:Selection():PageSetup():BottomMargin() := nBottomMargin
oWord:Selection():PageSetup():LeftMargin() := nLeftMargin
oWord:Selection():PageSetup():RightMargin() := nRightMargin
oText := oWord:Selection() ; oText:PasteAndFormat( 0 )
oText:TypeText ( CHR(12) )
oText:TypeParagraph()
NEXT
-------------------------
Документ становится книжным, а следующие страницы тоже книжними, хотя ставишь альбомную.
Где зарыта "собака" ?

 Отправлено: 14.12.06 19:37. Заголовок: Где зарыта "собака" ?

 Отправлено: 19.12.06 00:25. Заголовок: Re:

Народ, так кто может подсказать как объединить несколько DOC файлов имеющих различные типы ориентации:
1-файл КНИЖНУЮ
2-3-4 файл АЛБОМНУЮ
5-файл КНИЖНУЮ
------------------
Т.е. в вышеперечисленной программе почему-то не преключаются на другую оринтацию страницы.