Selectie maken

[rvdsch]

Hoi,

Ik heb een word bestand. De opmaak lijkt een beetje op een tabel maar is het niet. Ik wil er graag een tabel van maken. Is het mogelijk om in VBA een macro te maken die een voorwaardelijke selectie maakt en vervolgens de selectie naar een tabel converteert.

Ik wil graag dat als de regel in het document met een E begint de gehele regel wordt geselecteerd.

Ik heb zelf dit maar dat werkt niet:

Selection.Find
    .Text= "E*"

Selection.ConvertToTable

 

[OctaFish]

Deze misschien?

Sub RegelnaarTabel()
Dim par As Paragraph
Dim Tekst As String

For Each par In ActiveDocument.Paragraphs
    If Left(par.Range.Text, 1) = "E" Then
        par.Range.Select
        Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, NumRows:=1, AutoFitBehavior:=wdAutoFitFixed
    End If
Next par

End Sub

 

[rvdsch]

Dankjewel, de macro werkt. Er is een klein probleem. Iedere regel heeft slechts 1 column, terwijl het er 7 moeten zijn. Ik heb geprobeerd NumColumn=7 maar dat werkt niet. Ik heb het idee dat de Seperator moet worden aangepast maar ik heb geen idee hoe. Als ik de selectie handmatig maak en dan op tabel maken druk maakt hij wel automatisch de 7 columns

 

[rvdsch]

Ik heb zelf al wat gevonden

Dim par As Paragraph
Dim Tekst As String

For Each par In ActiveDocument.Paragraphs
    If Left(par.Range.Text, 1) = "E" Then
        par.Range.Select
        Selection.ConvertToTable
            End If
Next par

Bedankt voor de hulp :thumb: