---

Selection_Test_2.jpg

Hallo da ich Anfänger bin habe ich schon wieder eine Frage.

Ich möchte durch eine Userselection ein Oben Body Selektieren und dann unter dem Selektiertem Body einen neuen Body erzeugen.
Dies Funktioniert auch soweit nur wenn ich einen Body Selektiere der Nicht auf der Ebene 1 Liegt (Im Anhang unter Body "Test")dann bekomm ich eine Fehlermeldung.
Hier mal mein Code:

Dim UserSel As Selection
Set UserSel = myPartDocument.Selection

Dim HB1 As HybridBody
Set HB1 = myPartDocument.Part.Hybridbodies.Item (UserSel.Item(1).Value.Name)

Dim HKoerper As HybridBodies
Set HKoerper = HB1.Hybridbodies

Dim HB2 As HybridBody
Set HB2 = HKoerper.Add
Hb2.Name = "Kugeln"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin AndyKrenz,

ändere mal deine Zeile:
  Set HB1 = myPartDocument.Part.Hybridbodies.Item (UserSel.Item(1).Value.Name)

in :
  Set HB1 = UserSel.Item(1).Value

dann sollte im HB1 deine selektierter body gespeichert sein.

Gruß
Proofin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Proofin,

vielen Dank für deine Antwort hat Funktioniert....

Gruß Andy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andy,

sowas wollte ich auch schon mal haben.
Kann aber leider nicht programmieren, höchstens lesbaren coden verbiegen.
Kannst Du dein Makro mal komplett veröffentlichen?

------------------
kri

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP