Копирование

[FLAGER]

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

[GSerg]

Макрос записать не пробовал?

[FLAGER]

Пробовал, но чегото не получаеться, поэтому и спрашываю помощи.

[FLAGER]

Может, подскажеш?

[GSerg]

Получается.
Если не получается, значит, не пробовал.
Подробно расскажи, что пробовал и что получилось, даже если получилось не то, что пробовал, всё равно расскажи.


ЗЫ: ненавижу, когда не ставят мягкий знак после шипящих во втором числе... патологически не переношу...

[FLAGER]

2GSerg: не нравиться мой русский? Извини, я из Украины, там же написано, и так еще нормально по русски разговариваю, а с грамматикой немного проблемы - нигде же русский не изучал.

Про макрос напишу завтра, детально...

[GSerg]

из Украины

Мои извинения.

[FLAGER]

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

Код: Выделить всё

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 26.09.2005 FLAGER
'
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=4, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Операцыонная"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Copy
    Documents.Add DocumentType:=wdNewBlankDocument
    Windows("Документ2").Activate
    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=5, Name:=""
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "система"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.Copy
    Windows("Документ3").Activate
    Selection.HomeKey Unit:=wdStory
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.TypeText Text:=" "
    Selection.PasteAndFormat (wdPasteDefault)
    Selection.TypeParagraph
End Sub


[lord0n]

тебе каким то образом придется определять от куда копировать и куда вставлять
можно сделать так: пользователь выделяет какой кусок ему надо, нажимает на кнопку и этот кусок вставляется в какое-нить место (например в конец документа)

[FLAGER]

Ну это мне понятно.
У меня есть конкретная задача: чтобы в бланк билета на екзамен вставлять вопросы. По теории все ясно, а по практике никак.

[lord0n]

Ну это мне понятно.
У меня есть конкретная задача: чтобы в бланк билета на екзамен вставлять вопросы. По теории все ясно, а по практике никак.

я так понимаю на листе находятся несколько бланков и между ними равное растояние, если это так, то я не вижу каких либо трудностей
копируешь один вопрос из документа, переходишь к бланкам, делаешь смещение до определенного билета в цикле, вставляешь
и снова все по новой.
всего два цикла

[FLAGER]

Немного сложнее. Бланк один - в одном документе. Вопросы в другом. И готовые билеты должны быть в третьем.

[lord0n]

ну поставь запись макроса, на пустом листе сконструируй форму билета, а потом в цикле вставляй в пустой документ

[FLAGER]

Да я уже половину проги сделал, то есть у меня в чистый документа вставляеться бланк, потом там где надо в этот же бланк в третьем документе вставляються вопросы. Но не знаю, как сделать так, чтобы потом уже заповненые билеты отличались от еще не заполненых вопросами, как задать распознавание?

[lord0n]

Да я уже половину проги сделал, то есть у меня в чистый документа вставляеться бланк, потом там где надо в этот же бланк в третьем документе вставляються вопросы. Но не знаю, как сделать так, чтобы потом уже заповненые билеты отличались от еще не заполненых вопросами, как задать распознавание?

чет я недогоняю:
если билет пустой то в него можно вставлять вопрос, если заполнен то незя.
вот в этом месте я совсем туплю: в чем проблема?

Код: Выделить всё


if Selection.TypeText Text:="" then Selection.TypeText Text:="Вопрос"


или я не ток понял?

[FLAGER]

2lord0n: Всё, прогу я сделал. Даже с вариантами: сколько билетов, сколько вопросов в каждом и т.д.
Но нужна помощь еще лиш в одном вопросе: как сделать еще и случайный выбор билетов из файла вопросов, но так, чтобы уже выбраные не повторялись???

[lord0n]

2lord0n: Всё, прогу я сделал. Даже с вариантами: сколько билетов, сколько вопросов в каждом и т.д.
Но нужна помощь еще лиш в одном вопросе: как сделать еще и случайный выбор билетов из файла вопросов, но так, чтобы уже выбраные не повторялись???

я вижу это так: создаешь массив с вопросами, рендомом выбираешь вопрос, вставляешь его в билет, затираешь строку в массиве, снова выбираешь вопрос, если строка пустая, выбираешь следующий и так далее пова не кончатся вопросы

[FLAGER]

Спасибо, попробую позже.

[FLAGER]

Идея помогла.

[FLAGER]

Все, прога готова. Спасибо всем, кто помогал мне!!!

[lord0n]

Все, прога готова. Спасибо всем, кто помогал мне!!!

да ради бога
обращайся ещё