En ole löytänyt kuinka saan "laatikon" lisättyä vaikkapa viereen. En oikein osannut hommaa 2003 versiossakaan, mutta 2007 on näköjään vielä vaikeampi. Osaako kukaan neuvoa?
Organisaatiokaavio
5
1104
Vastaukset
- organisaatiokaavio
http://office.microsoft.com/fi-fi/powerpoint/HA100758531035.aspx
- vastauksesta, mutta
ei silti onnistunut. Yritän tehdä sukupuuta. Alussa on muutama, mutta mitä enemmän mennään alaspäin, sitä enemmän nimiä tulee. Aina avioparin äiti ja isä ja taas heidän äiti ja isä. Muita sukulaisia en siihen ota (siskot, veljet). Olen edennyt jo 1700-luvulle. Ratkaisin asian ja teen sen Wordiin. Valitsen tekstikehyksen ja laitan sen sinne mihin kuuluu. Sitten yhdistelen viivoilla. Harmittaa kyllä, olen sentään suorittanut tietokoneen AB-ajokortin, joten pitäisi kyllä osata. Tosin opettelin sen organisaatiokaavio versiossa 2000. Silloin se oli helppo!
- hölöttäjä222
vastauksesta, mutta kirjoitti:
ei silti onnistunut. Yritän tehdä sukupuuta. Alussa on muutama, mutta mitä enemmän mennään alaspäin, sitä enemmän nimiä tulee. Aina avioparin äiti ja isä ja taas heidän äiti ja isä. Muita sukulaisia en siihen ota (siskot, veljet). Olen edennyt jo 1700-luvulle. Ratkaisin asian ja teen sen Wordiin. Valitsen tekstikehyksen ja laitan sen sinne mihin kuuluu. Sitten yhdistelen viivoilla. Harmittaa kyllä, olen sentään suorittanut tietokoneen AB-ajokortin, joten pitäisi kyllä osata. Tosin opettelin sen organisaatiokaavio versiossa 2000. Silloin se oli helppo!
sukututkimukseen on ihan omia ohjelmia olemassa. Käytä niitä ja pääset PAAAAALJON helpommalla jatkossa....
Linuxille ja windowsille saatavilla sekä ilmaisia, että maksullisia suomen kielisiä ohjelmia tai vaikka enkuksi jos haluat....
:) vastauksesta, mutta kirjoitti:
ei silti onnistunut. Yritän tehdä sukupuuta. Alussa on muutama, mutta mitä enemmän mennään alaspäin, sitä enemmän nimiä tulee. Aina avioparin äiti ja isä ja taas heidän äiti ja isä. Muita sukulaisia en siihen ota (siskot, veljet). Olen edennyt jo 1700-luvulle. Ratkaisin asian ja teen sen Wordiin. Valitsen tekstikehyksen ja laitan sen sinne mihin kuuluu. Sitten yhdistelen viivoilla. Harmittaa kyllä, olen sentään suorittanut tietokoneen AB-ajokortin, joten pitäisi kyllä osata. Tosin opettelin sen organisaatiokaavio versiossa 2000. Silloin se oli helppo!
Kiinnostus heräsi ja tsekkasin makron mahdollisuutta...
Wordissahan voi tehdä 9 eri otsikkotasoa maksimissaan, mikä lienee riittää sukupuussakin ikäpolviksi???
eli helpommalla pääsee kun valitsee valikosta näkymäksi VIEW/OUTLINE
sitten vaan alkaa kirjotteleen sukupuuta tyyliin
1 otsikko oma nimesi
2 otsikko(sisennyksellä) äiti
3 otsikko(sisennyksellä) äitin äiti
3 otsikko(sisennyksellä) äitin isä
2 otsikko(sisennyksellä) isä
3 otsikko(sisennyksellä) isän äiti
3 otsikko(sisennyksellä) isän isä
4 jne...
ja sitten vaan suorittaa makron...
ja sukupuu siististi uudessa dokkarissa...
liitä moduuliin...
Sub OrganisaatioKaavio()
Dim doc As Document
Dim para As Paragraph
Dim Teksti As String
Dim nodeRoot As DiagramNode
Dim Laatikko As Shape
Dim node1 As DiagramNode
Dim node2 As DiagramNode
Dim node3 As DiagramNode
Dim node4 As DiagramNode
Dim node5 As DiagramNode
Dim node6 As DiagramNode
Dim node7 As DiagramNode
Dim node8 As DiagramNode
Dim node9 As DiagramNode
On Error Resume Next
Set doc = ActiveDocument
Set Laatikko = Documents.Add.Shapes.AddDiagram(msoDiagramOrgChart, 0, 0, 500, 500)
Set nodeRoot = Laatikko.DiagramNode.Children.AddNode
nodeRoot.TextShape.TextFrame.TextRange.Text = "Sukupuu"
For Each para In doc.Paragraphs
Select Case para.OutlineLevel
Case wdOutlineLevel1
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node1 = nodeRoot.Children.AddNode
node1.TextShape.TextFrame.TextRange.Text = Teksti
Set node2 = Nothing
Set node3 = Nothing
Set node4 = Nothing
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel2
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node2 = node1.Children.AddNode
node2.TextShape.TextFrame.TextRange.Text = Teksti
Set node3 = Nothing
Set node4 = Nothing
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel3
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node3 = node2.Children.AddNode
node3.TextShape.TextFrame.TextRange.Text = Teksti
Set node4 = Nothing
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel4
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node4 = node3.Children.AddNode
node4.TextShape.TextFrame.TextRange.Text = Teksti
Set node5 = Nothing
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel5
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node5 = node4.Children.AddNode
node5.TextShape.TextFrame.TextRange.Text = Teksti
Set node6 = Nothing
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel6
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node6 = node5.Children.AddNode
node6.TextShape.TextFrame.TextRange.Text = Teksti
Set node7 = Nothing
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel7
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node7 = node6.Children.AddNode
node7.TextShape.TextFrame.TextRange.Text = Teksti
Set node8 = Nothing
Set node9 = Nothing
Case wdOutlineLevel8
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node8 = node7.Children.AddNode
node8.TextShape.TextFrame.TextRange.Text = Teksti
Set node9 = Nothing
Case wdOutlineLevel9
Teksti = Left(para.Range.Text, para.Range.Characters.Count - 1)
Set node9 = node8.Children.AddNode
node9.TextShape.TextFrame.TextRange.Text = Teksti
End Select
Next para
End Sub
Keep Wording
@Kunde- laaja suku
hölöttäjä222 kirjoitti:
sukututkimukseen on ihan omia ohjelmia olemassa. Käytä niitä ja pääset PAAAAALJON helpommalla jatkossa....
Linuxille ja windowsille saatavilla sekä ilmaisia, että maksullisia suomen kielisiä ohjelmia tai vaikka enkuksi jos haluat....
:)myös kaikille vastaajille. Satuin nyt uudelleen tähän sivulle. Kesällä lainasin kirjastosta sellaisen kirjan kuin Sukututkimus internetissä. Siinä opetettiin hakemaan tämä PAF tiedosto ja myös suomennos siihen. Nyt minulla on siellä sukuani jo lähemmäs 1000 henkilöä (tosin turhaa noin laaja, mutta oli niin mielenkiintoista).
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1563273En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois971735- 1431677
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1251551Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3921546Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.991365Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171103- 621019
- 215926
On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s48922