Работа с Word

← →
yurik85 © (2008-12-15 11:29) [0]

Здравствуйте,подскажите плиз... Проблема: необходим в множество word-овских файлов добавить разрыв страницы и данные из другого файла. Добавляются текст и картинка из одного и того же файла. Подскажите как?

← →
Сергей М. © (2008-12-15 11:44) [1]

В цикле.

← →
YurikGL © (2008-12-15 20:30) [2]

Посмотри http://code.progler.ru/view/65
Программа позволяет переименовывать кучу вордовских документов. В качестве имени выбираются первые несколько слов из документа. Для работы необходим установленный Word. Использовалась, когда в результате сбоя диска потерялись имена у файлов.

Тебе только нужно не переименовывать файлы, а их слегка править.

← →
yurik85 © (2008-12-16 09:27) [3]

> В цикле.

Это понятно, я команды спрашиваю, как добавить разрыв, а затем данные из другого файла?

← →
yurik85 © (2008-12-16 09:28) [4]

> YurikGL © (15.12.08 20:30) [2]
> Посмотри http://code.progler.ru/view/65
> Программа позволяет переименовывать кучу вордовских документов.
> В качестве имени выбираются первые несколько слов из документа.
> Для работы необходим установленный Word.
> Использовалась, когда в результате сбоя диска потерялись
> имена у файлов.
>
> Тебе только нужно не переименовывать файлы, а их слегка
> править.

Спасибо, посмотрел, сейчас поюзаю!!! ;-)

← →
yurik85 © (2008-12-17 09:08) [5]

Подскажите пожалуйста, какой командой можно все данные из файла выделить для последующей вставки во второй

← →
yurik85 © (2008-12-17 09:09) [6]

Или где можно найти help по процедурам и функциям для работы с Word&

← →
Сергей М. © (2008-12-17 10:09) [7]

http://msdn.microsoft.com/en-us/library/aa221359(office.11).aspx

← →
yurik85 © (2008-12-17 11:48) [8]

Сергей, чего-то понять не могу... Не мог бы ты какой-нибудь кусочек программы кинуть

← →
Сергей М. © (2008-12-17 11:51) [9]

> чего-то понять не могу

Чего ты понять не можешь ?

← →
yurik85 © (2008-12-17 11:55) [10]

If ActiveDocument.Comments.Count >= 1 Then
Set myRange = Activedocument.Comments(1).Range
myRange.WholeStory
myRange.Copy
Documents.Add.Content.Paste
End If
Что такое Comments? Я пишу этот код в своей программе, выдает ошибку:
[Error] UnitMain.pas(47): Statement expected but "SET" found

← →
Amoeba © (2008-12-17 11:58) [11]

> If ActiveDocument.Comments.Count >= 1 Then
> Set myRange = Activedocument.Comments(1).Range
> myRange.WholeStory
> myRange.Copy
> Documents.Add.Content.Paste
> End If
> Что такое Comments? Я пишу этот код в своей программе, выдает
> ошибку:
> [Error] UnitMain.pas(47): Statement expected but "SET" found

Такое и компилироваться не будет, это же не Pascal.

← →
Сергей М. © (2008-12-17 12:01) [12]

> yurik85 © (17.12.08 11:55) [10]

Это пример кода на WordVBA.
Из всего этого примера тевоего вопроса касаются всего две строчки

myRange.WholeStory
и
myRange.Copy

В кач-ве myRange можешь использовать объект WordApplication.Selection

← →
yurik85 © (2008-12-17 13:33) [13]

Подскажите, пожалуйста, какие параметры надо вводить:
Documents.Add(?, ?, ?, ?);

← →
Сергей М. © (2008-12-17 14:02) [14]

> yurik85 © (17.12.08 13:33) [13]

Справку по WordVBA почитать ты так и не удосужился ?
Там же сказано ..

vr:=OpenDialog1.Files.Strings[i];
vr1 := "C:\tmp\1.doc";
w1.Documents.Open(vr,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Empt yParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyPa ram,EmptyParam);
st:="";
w2.Documents.Open(vr1,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Emp tyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyP aram,EmptyParam);
w2.Selection.WholeStory;
w2.Selection.Copy;
w1.Documents.Add(vr1, EmptyParam,EmptyParam,EmptyParam).Content.Paste;

Все отлично, подскажите еще один вопрос. После выполнения это кода создается третий файл, куда копируются данные. А можно, чтобы эти данные добавлялись в первый файл?

Вроде со всем разобрался. Осталась проблема. Подскажите, пожалуйста, как добавить в документ разрыв страницы?

> yurik85 © (18.12.08 09:04) [16]

Т.е. ты записал в Ворде соотв.макрос, открыл его текст и вновь ни шиша в нем не понял, так ?)

← →
Smile (2008-12-18 09:17) [18]

Попробуй так:

var u1: olevariant; ..... u1:= wdSectionBreakNextPage; w1.selection.InsertBreak(u1);

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

Подскажите, пожалуйста,а как включить в выполнение программы вложенные папки программно?

Работа с Word Найти похожие ветки