Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с Word [D7, WinXP]

yurik85 © (2008-12-15 11:29:00)
Здравствуйте,подскажите плиз... Проблема: необходим в множество word-овских файлов добавить разрыв страницы и данные из другого файла. Добавляются текст и картинка из одного и того же файла. Подскажите как?

yurik85 (2008-12-22 14:18:00) [1]
Подскажите, пожалуйста,а как включить в выполнение программы вложенные папки программно?

yurik85 (2008-12-18 09:35:00) [2]
Простите за глупые вопросы. Спасибо, что помогли разобраться. Теперь хоть буду знать, что в макросах почти все можно найти!!!!

Smile (2008-12-18 09:17:00) [3]
Попробуй так:

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

Сергей М. (2008-12-18 09:07:00) [4]

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

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

yurik85 (2008-12-18 09:04:00) [5]
Вроде со всем разобрался. Осталась проблема. Подскажите, пожалуйста, как добавить в документ разрыв страницы?

yurik85 (2008-12-17 16:17:00) [6]
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;

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

Сергей М. (2008-12-17 14:02:00) [7]

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

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

yurik85 (2008-12-17 13:33:00) [8]
Подскажите, пожалуйста, какие параметры надо вводить:
Documents.Add(?, ?, ?, ?);

Сергей М. (2008-12-17 12:01:00) [9]

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

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

myRange.WholeStory
и
myRange.Copy

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

Amoeba (2008-12-17 11:58:00) [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

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

yurik85 (2008-12-17 11:55:00) [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

Сергей М. (2008-12-17 11:51:00) [12]

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

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

yurik85 (2008-12-17 11:48:00) [13]
Сергей, чего-то понять не могу... Не мог бы ты какой-нибудь кусочек программы кинуть

Сергей М. (2008-12-17 10:09:00) [14]
http://msdn.microsoft.com/en-us/library/aa221359(office.11).aspx

yurik85 (2008-12-17 09:09:00) [15]
Или где можно найти help по процедурам и функциям для работы с Word&

yurik85 (2008-12-17 09:08:00) [16]
Подскажите пожалуйста, какой командой можно все данные из файла выделить для последующей вставки во второй

yurik85 (2008-12-16 09:28:00) [17]

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

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

yurik85 (2008-12-16 09:27:00) [18]

> В цикле.

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

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

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

Сергей М. (2008-12-15 11:44:00) [20]
В цикле.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »