---

Hallo,
ich möchte Texte(ca. 1000 Einträge)von *.dwg Zeichnung ins Word oder Excel einfügen (als Text nicht als Grafik). Hat jemand eine Idee?

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

---

text.dvb.txt

Hallo & Willkommen auf cad.de,

mal absolut auf die Schnelle gemacht,
bei formatierten MTexten haste aber schlechte Karten ...

Benütze aber ggf. auch mal die Suchfunktion,
in der Richtung gab's/gibt's vielleicht noch bessere Lösungen als meine;-) http://ww3.cad.de/foren/ubb/Forum54/HTML/009287.shtml#000001

Gruss Nancy
--

Code:

---

Option Explicit

Sub desd()
    Dim dObj As New DataObject
    Dim sset As AcadSelectionSet
    Dim ent As AcadEntity, s$
    On Error GoTo hell
    Set sset = ThisDrawing.SelectionSets.Add("myset")
    sset.SelectOnScreen
    For Each ent In sset
        If UCase(TypeName(ent)) = "IACADTEXT2" Then
            s = s & ent.TextString & vbCrLf & vbCrLf
        ElseIf UCase(TypeName(ent)) = "IACADMTEXT2" Then
            s = s & Replace(ent.TextString, "\P", vbCrLf) & vbCrLf & vbCrLf
        End If
    Next
    dObj.SetText (s)
    dObj.PutInClipboard
hell:
    sset.Delete
End Sub

---

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

---

Hallo Nancy,

danke für die Antwort, probiere den Code aus (bin nicht sicher ob ich damit zurecht komme da meine VB Kenntnisse gleich null sind)

Bis dann
Wernig

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