VBA Fensteranpassung Kategorien
21.02.2014 11:09:46
Michael
ich bräuchte mal ein wenig hilfe mit meinem VBA Problem.
Ich weiß es geht hier um vba/makros in word, aber mir wurde in der Vergangenheit hier
sehr viel geholfen.
Schaut euch bitte ma das Problem an, falls nicht gewünscht und falschen Forum
dürft ihr den Beitrag auch gerne löschen.
Aufgabe:
ich habe einige Schnellbausteine inder normal.dotm / buildingblocks.dotm
gespeichert.
Nun habe ich ein tolles Makro im Internet gefunden, um diese Bausteine einfach
Aufzulisten und einzuladen
=> sieht so aus: www.herber.de/bbs/user/89381.jpg
=> hier nochmal die "normal.dotm" mit dem Makro => www.herber.de/bbs/user/89382.zip
jedoch wie ihr seht, stimmt die "spaltenbreite" nicht, zudem sollte noch eine
Zeile mit der Beschreibung ("Description") hinzugefügt werden.
hier ein teil des VBA Codes, der Denke ich für die Kategorieren verantwortlich ist:
Function funcLoadCategories(Optional objTemp As Template, Optional iCat As Integer)
Dim objTemplate As Template
Dim objBBT As BuildingBlockType
Dim objCat As Category
Dim intKatalog As Integer, intCat As Integer, intBB As Integer
Me.ListBox1.Clear
Me.cbKategorie.Clear
Me.cbKategorie.AddItem "Alle Kategorien"
Me.cbKategorie.List(Me.cbKategorie.ListCount - 1, 0) = "Alle Kategorien"
Me.cbKategorie.List(Me.cbKategorie.ListCount - 1, 1) = 9999
If objTemp Is Nothing Then
For Each objTemplate In Templates
If objTemplate.BuildingBlockTypes.Count > 0 Then
If iCat = 9999 Or iCat = 0 Then
For intKatalog = 1 To Me.cbKatalog.ListCount - 1
Set objBBT = objTemplate.BuildingBlockTypes(intKatalog)
For intCat = 1 To objBBT.Categories.Count
Set objCat = objBBT.Categories(intCat)
Call funcIsListed(objCat, Me.cbKategorie)
For intBB = 1 To objCat.BuildingBlocks.Count
Me.ListBox1.AddItem
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = objTemplate.Name
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = objCat.Name
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = objBBT.Name
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = objCat.BuildingBlocks(intBB).Name
Vielen Dank schonmal vorab