Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.02.08;
Скачать: CL | DM;

Вниз

Работа с 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 почитать ты так и не удосужился ?
Там же сказано  ..


 
yurik85 ©   (2008-12-17 16:17) [15]

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 ©   (2008-12-18 09:04) [16]

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


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


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


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


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

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

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


 
yurik85 ©   (2008-12-18 09:35) [19]

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


 
yurik85 ©   (2008-12-22 14:18) [20]

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



Страницы: 1 вся ветка

Текущий архив: 2009.02.08;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.005 c
2-1229958159
Broflovski
2008-12-22 18:02
2009.02.08
Занят ли файл другим приложением


15-1229265371
@!!ex
2008-12-14 17:36
2009.02.08
Компилировать модуль ВСЕГДА. Как?


15-1229281073
Правильный$Вася
2008-12-14 21:57
2009.02.08
сегодня в магазине обнаружил


8-1190348540
BAHO_KEX
2007-09-21 08:22
2009.02.08
Как добавить в ListBox имена файлов


3-1214294131
Oleg_teacher
2008-06-24 11:55
2009.02.08
Експорт из базы.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский