[excel] makro | excel -pomoc

Zdravo!

jest mam pa en problem v zvezi z excelom.
ima seznam v word-u, ki bi ga dal rad v excel. je pa fora da je ta seznam narejen kot tabela v kateri sta ime in priimek napisana v isti celic. torej prvi problem je to kako to prenest v excel v dve celici,torej v ime in priimek. Nato pa bi me se zanimalo kako bi naredil, da bi imela vsaka crka v priimku med crkami vmes en presledek. seznam je pa kar dolg, okoli 4000 vnosov.

za vse ideje in pomoc se zahvlajujem.

lp
nevednež

Skopiraš v excel, daš Podatki -> besedilo v stolpce in naštimaš, naj ti upošteva presledek kot ločilo.

Uporabi sledeči makro:
Sub dodaj_presledke()
Kolona = 1 ' A=1 B=2 ...
For i = 1 To 100 ' od vrstice do vrstice
vh_str = Cells(i, Kolona).Value
izh_str = ""
For j = 1 To Len(vh_str)
izh_str = izh_str & Mid(vh_str, j, Kolona) & " "
Next j
Cells(i, Kolona).Value = izh_str
Next i
End Sub


S tem da če hočes spremembe v kolini A naj bo vrednost spremenljivke Kolona 1, za B 2 itd in stavek For i = 1 To 100 spremeniš tako da prva številka začetek območja in druga številka število vrstic ki naj jih obdela.

Sub dodaj_presledke()
Kolona = 1 ' A=1 B=2 ...
For i = 1 To 100 ' od vrstice do vrstice
vh_str = Cells(i, Kolona).Value
izh_str = ""
dolzina_stringa = Len(vh_str)
Dolzina_besede = InStr(1, vh_str, " ")
If Dolzina_besede = 0 Then ' Ena beseda
For j = 1 To dolzina_stringa
izh_str = izh_str & Mid(vh_str, j, Kolona) & " "
Cells(i, Kolona).Value = izh_str & Right(vh_str, dolzina_stringa - Dolzina_besede)
Next j
ElseIf Dolzina_besede < 8 Then ' 1. beseda krajša od 7 znakov
For j = 1 To Dolzina_besede
izh_str = izh_str & Mid(vh_str, j, Kolona) & " "
Next j
Cells(i, Kolona).Value = izh_str & Right(vh_str, dolzina_stringa - Dolzina_besede)
End If
Next i
End Sub

V prvivem makroju se mi je prikradel en hrošč in sicer:
namesto: izh_str = izh_str & Mid(vh_str, j, Kolona) & " "
mora biti: izh_str = izh_str & Mid(vh_str, j, 1) & " "
in ta napake se vleče tudi v drugi del.
Popravljeni drugi del se glasi:

Sub dodaj_presledke_1()
Kolona = 2 ' A=1 B=2 ...
For i = 1 To 100 ' od vrstice do vrstice
vh_str = Cells(i, Kolona).Value
izh_str = ""
dolzina_stringa = Len(vh_str)
Dolzina_besede = InStr(1, vh_str, " ")
If Dolzina_besede = 0 Or Dolzina_besede < 8 Then 'Ena beseda ali vec kot 7znakov
For j = 1 To dolzina_stringa
izh_str = izh_str & Mid(vh_str, j, 1) & " "
Cells(i, Kolona).Value = izh_str
Next j
Else
For j = 1 To Dolzina_besede
izh_str = izh_str & Mid(vh_str, j, 1) & " "
Next j
Cells(i, Kolona).Value = izh_str & Right(vh_str, dolzina_stringa - Dolzina_besede)
End If
Next i
End Sub

Da neodpiram nove teme, bi rad samo vprašal, če se da naresti sledeče.
Namreč imam wordov dokument, v katerega bi vstavil excelov delovni list, ampak da bi se ta excel odpru ko bi kliknu kot na link povezavo. A se to da ?

Se prav, v wordu bi mel kot neko povezavo za excel, a je to mogoče ?
Ker bi se moral ta wordov dokument, pošiljati naprej, brez excelovih listov, se prav bi morala bit sam povezava. Pa te excelovi listi nesmejo bit na netu, se prav bi jih moru nekak v word not nabasat.

Ma mogoče kdo od vas kakšno idejo ?

Že vnaprej se vam zahvaljujem za odgovor.