цикл
Windows("Документ2").Activate
[COLOR=red]Selection.HomeKey Unit:=wdStory[/COLOR] 'В начало документа
Selection.Movedown Unit:=wdLine, Count:=1
[COLOR=red]Selection.EndKey Unit:=wdStory, Extend:=wdExtend[/COLOR] 'Выделяем до конца
Selection.Copy
Windows("Документ1").Activate
Selection.Paste
ActiveDocument.PrintOut
конец цикла
Обьясните построчно
Windows("Документ2").Activate
Selection.MoveUp Unit:=wdLine, Count:=8
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
Selection.Copy
Windows("Документ1").Activate
Selection.Paste
ActiveDocument.PrintOut
Selection.MoveUp Unit:=wdLine, Count:=8
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
Selection.Copy
Windows("Документ1").Activate
Selection.Paste
ActiveDocument.PrintOut
Цитата:
Originally posted by Greenering
Windows("Документ2").Activate
Selection.MoveUp Unit:=wdLine, Count:=8
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
Selection.Copy
Windows("Документ1").Activate
Selection.Paste
ActiveDocument.PrintOut
Windows("Документ2").Activate
Selection.MoveUp Unit:=wdLine, Count:=8
Selection.MoveRight Unit:=wdCharacter, Count:=5, Extend:=wdExtend
Selection.Copy
Windows("Документ1").Activate
Selection.Paste
ActiveDocument.PrintOut
Активизировать Документ2
Подвинуть курсор на 8 строчек вверх
Выделить 5 символов вправо
Нажать "Копировать Ctrl+C"
Активизировать Документ1
Нажать "Вставить Ctrl+V"
Распечатать активный документ
А если я хочу, так
док2 первая строчка сверху , выделить до конца, копия,
на док1, вставить, печать,
док2 вторая строчка сверху , выделить до конца, копия,
на док1, вставить, печать,
То
цикл
Windows("Документ2").Activate
Selection.Movedown Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, ?????? (эээ... может быть EOL, но вроде не к месту), Extend:=wdExtend
Selection.Copy
Windows("Документ1").Activate
Selection.Paste
ActiveDocument.PrintOut
конец цикла
И еще, в док1 вставка происходит от текущего места курсора?
док2 первая строчка сверху , выделить до конца, копия,
на док1, вставить, печать,
док2 вторая строчка сверху , выделить до конца, копия,
на док1, вставить, печать,
То
цикл
Windows("Документ2").Activate
Selection.Movedown Unit:=wdLine, Count:=1
Selection.MoveRight Unit:=wdCharacter, ?????? (эээ... может быть EOL, но вроде не к месту), Extend:=wdExtend
Selection.Copy
Windows("Документ1").Activate
Selection.Paste
ActiveDocument.PrintOut
конец цикла
И еще, в док1 вставка происходит от текущего места курсора?
Цитата:
Originally posted by Greenering
И еще, в док1 вставка происходит от текущего места курсора?
И еще, в док1 вставка происходит от текущего места курсора?
От текущего. Причем, если было что-то выделено, то оно заменится.
Далее, ты уж извини, просто экспериментировать ломает. Если из док2. выделено, скопированно на док2, То на док1 вставляется с выделением?
И еще на строка2 док2 переход-то будет или нет (Варианты ответов: да или нет, без обьяснения)
И еще на строка2 док2 переход-то будет или нет (Варианты ответов: да или нет, без обьяснения)
Цитата:
Originally posted by Greenering
Далее, ты уж извини, просто экспериментировать ломает. Если из док2. выделено, скопированно на док2, То на док1 вставляется с выделением?
И еще на строка2 док2 переход-то будет или нет (Варианты ответов: да или нет, без обьяснения)
Далее, ты уж извини, просто экспериментировать ломает. Если из док2. выделено, скопированно на док2, То на док1 вставляется с выделением?
И еще на строка2 док2 переход-то будет или нет (Варианты ответов: да или нет, без обьяснения)
На док1 вставляется без выделения. Курсор будет в конце.
Извини, в программе опечатался:
Selection.Movedown Unit:=wdLine, Count:=i
Каждый раз от начала придется начинать.