Kopier tekst ud af Tekstbokse

Prøv denne:

Sub HentFraTekstbokse()

Dim ashape As Shape, Findwhat As String, Replacewith As String

Dok = ActiveDocument.Name

Application.Documents.Add

DokNyt = ActiveDocument.Name

Application.Documents(Dok).Activate

For Each ashape In ActiveDocument.Shapes
      Indhold = ashape.TextFrame.TextRange.Text
      længde = Len(Indhold)
      Indhold = Mid(Indhold, 1, længde - 1)
     
      Application.Documents(DokNyt).Activate
      Selection.TypeText Indhold
      Selection.TypeParagraph
      Application.Documents(Dok).Activate
Next

End Sub

Det var bare genialt. Tak for hjælpen