---

Hallo Zusammen

Ich bekomme immer eine Fehlermeldung bei auslesen der Masse.

"Die Objektvariable oder die With-Blockvariable wurde nicht festgelegt."

Ich finde den Fehler nicht. 

Code:

---

        Dim oMassProp As MassProperties
        oMassProp = oDoc.MassProperties
        Dim omass As String

        If oDoc.RequiresUpdate = True Then
            Call oDoc.Update()
        End If

        omass = oMassProp.Mass

---

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

---

Hi

Da stimmt irgendwas nicht. Entweder ist oDoc ein PartDocument oder eine PartComponentDefinition vom Typ. Deswegen geht entweder oDoc.Update oder oDoc.MassProperties in die Binsen.

Code:

---

Private Sub Mass()

Dim oDoc As PartDocument
Set oDoc = ThisApplication.ActiveDocument

Dim oPartOcc As PartComponentDefinition
Set oPartOcc = oDoc.ComponentDefinition

Dim oMassProp As MassProperties
Set oMassProp = oPartOcc.MassProperties
Dim omass As String

If oDoc.RequiresUpdate = True Then
    Call oDoc.Update
End If

omass = oMassProp.Mass

End Sub

---

------------------
MfG
RK

[Diese Nachricht wurde von rkauskh am 14. Apr. 2012 editiert.]

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