---

Hallo Forum

wie kann ich auf den iPropertie Wert Autor zugreifen habe es mit folgenden Code probiert funktioniert aber nicht:
oDoc.PropertySets("{32853F0F-3444-11d1-9E93-0060B03C1CA6}").Item("Author").Value
Was mache ich falsch?

Weiters habe ich noch ein Problem mit dem Datum, wenn ich die Variable "Creation Time" für Erstelldatum und Zeit nehme bekomme ich die Uhrzeit mit. Kann ich das irgendwie unterdrücken oder gibt es einen ander Variable das ich nur das Datum habe ohne Uhrzeit?

Vielen Dank
Thomas

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

---

Hallo Thomas,

ich habe mal kurz was zusammengenagelt und das Funktioniert:

Public Sub chgAuthor()

  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
   
  Dim oPropSets As PropertySets
  Set oPropSets = oDoc.PropertySets
 
  Dim oPropSet As PropertySet
 
  For Each oPropSet In oPropSets
       
    For i = 1 To oPropSet.Count
     
      If oPropSet(i).Name = "Author" Then
        On Error Resume Next
        Debug.Print oPropSet(i).Name & "    " & oPropSet(i).Value
        oPropSet(i).Value = "ich"
      End If
     
      If oPropSet(i).Name = "Creation Time" Then
        On Error Resume Next
        Debug.Print oPropSet(i).Name & "    " & oPropSet(i).Value
        oPropSet(i).Value = Now
      End If
     
    Next i
 
  Next oPropSet
   
End Sub

Ich hab's nicht ausprobiert, aber ich glaube, dass das Problem die Sprache ist. Versuch mal in Deinem Code

Item("Author").Value

durch

Item("Autor").Value

zu ersetzten.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul,

Danke, Danke, Danke

Der Code hat toll funktioniert (das mit der Sprache hat nicht funktioniert), ist nur mehr das Problem mit der Zeit?

Gruß
Thomas

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

---

Hallo Thomas,

die Eintraege in den Properties sind ja nur Strings, also einfach den hinteren Teil wegschneiden:

Public Sub chgAuthor()

  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
   
  Dim oPropSets As PropertySets
  Set oPropSets = oDoc.PropertySets
 
  Dim oPropSet As PropertySet
 
  For Each oPropSet In oPropSets
       
    For i = 1 To oPropSet.Count
     
      If oPropSet(i).Name = "Author" Then
        On Error Resume Next
        Debug.Print oPropSet(i).Name & "    " & oPropSet(i).Value
        oPropSet(i).Value = "ich"
      End If
     
      If oPropSet(i).Name = "Creation Time" Then
        On Error Resume Next
        Debug.Print oPropSet(i).Name & "    " & oPropSet(i).Value
       
        ' Uhrzeit wegschneiden
        Dim Datum() As String
        Datum = Split(Now, " ")
        oPropSet(i).Value = Datum(0)
      End If
     
    Next i
 
  Next oPropSet
   
End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul,

jetzt funktionierts Einwandfrei.
nochmals Vielen Dank.

Weißt du zufällig noch wie ich ein Register Endabled schalten kann?
Ich bekomme das igrendwie nicht hin.

Thomas

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

---

Zitat:

---

Original erstellt von inventomas:
Weißt du zufällig noch wie ich ein Register Endabled schalten kann?

---

Hallo Thomas,

was willst Du machen ????

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Ich habe ein Fenster wo ich die iProperties ausfülle.
Das besteht aus Zwei Register und ich will wenn die Datei eine Zeichnung ist das Zweite Register inaktiv Schalten.

Anbei der ganze Code(Funktioniert noch nicht alles)

Gruß
Thomas

[Diese Nachricht wurde von inventomas am 11. Apr. 2005 editiert.]

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

---

Hallo Thomas,

das geht so:

MultiPage1.Pages.Item(1).Enabled = False

Dass '.Enabled' nicht vom Objektkatalog vorgeschlagen wird, ist offensichtlich ein Fehler in VB.
'.Item(0)' waere die erste Registerkarte.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Thomas,

das geht so:

MultiPage1.Pages.Item(1).Enabled = False

Dass '.Enabled' nicht vom Objektkatalog vorgeschlagen wird, ist offensichtlich ein Fehler in VB.
'.Item(0)' waere die erste Registerkarte.

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Danke,

Jetzt sind alle Probleme gelöst.

Thomas

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

---

Zitat:

---

Original erstellt von inventomas:
Jetzt sind alle Probleme gelöst.

---

... und vielen Dank fuer all die Unities....

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo,

hätte noch ein Problem:
Habe 8 Combo Boxen die die selbe auswahl haben sollen. Habe es mit folgenden Code probiert:

Public Sub cbo_ausfüllen()

    Dim j As Integer

    For j = 1 To 8
    If j > 8 Then Exit For

        cbous(j).AddItem "x"
        cbous(j).AddItem "xx"
        cbous(j).AddItem "xxx"

    Next j
End Sub

Der wird mit einer Sub in Modul1 gestartet. Die cbous1 bis cbous8 sind die Combo Boxen 1-8.

Was mache ich Falsch?

Danke
Thomas

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