Guten Tag zusammen,
ich habe eine Frage. Und zwar möchte ich den Text von Führungslinientextobjekten auslesen und in eine Datei schreiben.
Mit Positionsnummern habe ich das schon im folgenden Code realisiert.
Komme aber nicht an die Texteinträge ran. Hat jemand eine Idee - würde mich sehr freuen.
Public Sub Liste()
' Get the active drawing document.
Dim drawDoc As DrawingDocument
Set drawDoc = ThisApplication.ActiveDocument
Dim filename As String
filename = "C:\Exchange\Liste_Zeichnungsnummern.txt"
Open filename For Output As #1
Dim drawSheet As Sheet
For Each drawSheet In drawDoc.Sheets
' Iterate through each value set associated with this balloon.
Dim drawBalloon As Balloon
For Each drawBalloon In drawSheet.Balloons
Dim valueSet As BalloonValueSet
For Each valueSet In drawBalloon.BalloonValueSets
Print #1, " Positionsnummer: " & valueSet.Value; ""
Next
Next
Next
Close #1
MsgBox "Liste wurde unter -- C:\Collaboration\Exchange -- gespeichert!!"
End Sub
Danke für alle Hilfe
------------------
MFG
BlueJay
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP