Помощь в создании простой программы

[Сергей005]

Всем привет, товарищи кто подскажет какую создать простенькую программу для автоматической расстановки по тексту знака *.Необходимо:
К примеру: текст ворд перенести в ексель в таблицу , чтобы он автоматически по разделителям расставил по столбцам.

Иванов иван* 1991*инженер* обучался в Москве*
Сидоров Сидор 1993 инженер обучался в Питере....

[Aleksandr H.]

С чем нужна помощь:
Связать ворд с екселем?
Текст в ексель перенести?
определить где * ставить?
как пользоваться "Текст по столбцам" в екселе?

[Сергей005]

Итак, у меня два файла ворд и ексель. Задача: данные из ворд перенести в ексель, при этом данных много и на каждой строке данных ставить разделитель для столбцов * вручную очень долго. Можно ли написать программу , чтобы она сама расставила * там где это нужно ?

[Aleksandr H.]

Какие критерии для процесса

расставила * там где это нужно

? Где * должна ставиться?

[Сергей005]

1.Иванов иван* 1991*инженер* обучался в Москве*
2.Сидоров Сидор 1993 инженер обучался в Питере....
3. .....
Вот как в первой строке, чтобы и 2 и далее так было

[Aleksandr H.]

Да ты прям мастер формулировок. ну ок. принимаем:
1. ты умеешь в ворде скопировать и вставить в ексель в столбец А данные
2. следующие условия выполняются ВСЕГДА(!!!)
- фамилия+имя это 2 слова
- год строго третье слово в фразе
- образование строго одно слово и оно 4-ое во фразе
3. ты умеешь в ексель вставлять макросы и запускать их.

Sub starInsert()
    Dim r As Integer, i As Integer, spaces As Integer
    Dim str As String, str1 As String, words() As String
    Dim ws As Worksheet
    r = 1
    Set ws = ActiveSheet
    With ws
        Do While .Cells(r, "A") <> ""
            str = .Cells(r, "A")
            str = Application.Trim(str)
            spaces = 0
            str1 = ""
            For i = 1 To Len(str)
                
                If Mid(str, i, 1) = " " Then spaces = spaces + 1
                If (spaces >= 2) And (spaces <= 4) And (Mid(str, i, 1) = " ") Then
                    str1 = str1 & "*"
                End If
                str1 = str1 & Mid(str, i, 1)
                If spaces > 4 Then Exit For
            Next i
            words = Split(str1, "* ")
            .Cells(r, "C").Resize(1, UBound(words) + 1).Value = words
            r = r + 1
        Loop
    End With
    Set ws = Nothing
    
End Sub

[Сергей005]

Копировать и вставлять я умею. Макросы вставлять VBA и запускать умею. Вопрос: Как использовать эти условия? Куда их вписывать

[Сергей005]

Я не думал, что так быстро ты мне поможешь.....Мне на самом деле необходимо вот это:
10:00* 01.08.2016* «Солнышко»*Въехал*СИДОРОВ СИДОР Витальевич,*25.05.1990* РФ* 0000 000000*ВОЖАТЫЙ ПУПКИН*«А»* 55555 ОТ 10.10.2015 ТУРПУТЕВКА МОСКВА* 10.30 *ОПОВЕЩЕНЫ РОДИТЕЛИ*

-фамилия, имя (может быть,не быть отчество)
-РФ (страна клиента, может быть УКРА или др.)
-0000 000000 (номер документа)
-"А" (группа, класс)
- 55555 от 10.10.2015 (когда куплена путевка)

И таких клиентов ,примерно, около 50-ти и каждый раз вручную ставить * ,там где это нужно, напрягает.

[Aleksandr H.]

Ну вот представь что надо научить человека, который никогда этого не делал и, визуально, не знает какое слово имя, а какое число, для него все это непонятные иероглифы, ставить эти звездочки. Пропиши для него скрипт проставления "*"

я вижу так:

время - часть строки до 1ого пробела
дата - часть строки от 1го до 2го пробела
название - часть строки от 2го пробела до 1ого "»"
действие(въехал/выехал) - часть строки от 1ого "»" до след пробела
ФИО - часть строки от конца "действия" до 1ой запятой
дата2 - часть строки от 1ой запятой до следующего пробела
кодСтраны - часть строки от конца дата2 до след пробела
номер документа - часть строки от конца кодаСтраны до след буквы (?)
вожатый - часть строки от конца номерДокумента до след "«"
класс - часть строки от "«" до "»"
когда - часть строки до встречи фрагмента ЧЧ.ЧЧ
когдаВремя - фрагмент ЧЧ.ЧЧ
примечание - оставшийся фрагмент строки

[Сергей005]

Я не умею писать коды и скрипты.