Tekst uit tekstblokken halen en samenvoegen tot 1 tekst

[CD007]

Is er mogelijkheid om met een macro of met een bewerking de tekst uit tekstblokken te halen en achter elkaar te plaatsen.
Indien mogelijk met een macro...


Blok 1 L
Blok 2 L
Blok 3 L
enz.
Blok 1 R
Blok 2 R
Blok 3 R

Gewone tekst met alinea's

Bijlage toegevoegd met tekstblokken.Bekijk bijlage Tekstblokken.docx

 

[OctaFish]

Ik heb een macrootje gemaakt waarmee je het gewenste effect kunt bereiken. Overigens is de macro gebaseerd op de letterlijke inhoud van je voorbeeldje, dus of je er wat aan hebt...

Sub TekstSelecteren()
Dim shp As Shape
Dim arrL() As String, arrR() As String
Dim iL As Integer, iR As Integer
Dim tmp As String, t As String
    
    For Each shp In ActiveDocument.Shapes
        tmp = shp.TextFrame.TextRange.Text
        t = Trim(Right(tmp, 3))
        If InStr(1, t, "L") > 0 Then
            ReDim Preserve arrL(iL)
            arrL(iL) = tmp
            iL = iL + 1
        ElseIf InStr(1, t, "R") > 0 Then
            ReDim Preserve arrR(iR)
            arrR(iR) = tmp
            iR = iR + 1
        End If
    Next shp
    If iL = 0 Then Exit Sub
    
    Documents.Add
    For iL = LBound(arrL) To UBound(arrL)
        Selection.TypeText arrL(iL)
    Next iL
    For iR = LBound(arrR) To UBound(arrR)
        Selection.TypeText arrR(iR)
    Next iR
    
End Sub

 

[CD007]

Dit werkt inderdaad. Nu eens kijken op ik dit kan toepassen op de verschillende documenten.
Bedankt voor je inspanning.

Is het mogelijk om gewoon die shapes te verwijderen en de tekst te laten staan ?

 

[OctaFish]

Dat kan; neem zelf maar eens een macro op (eerst een shape selecteren) die de shape verwijdert. Dan weet je hoe je de macro moet aanpassen. En wat er gebeurt .