Selectie tussen dubbele aanhalingstekens plaatsen

Status
Niet open voor verdere reacties.
Ik kijk het even aan, het is niet zo heel erg, maar het zou leuk zijn als we het probleem kunnen achterhalen. Het werkt bijna vlekkeloos en heb het al voor een aantal documenten goed kunnen gebruiken.
Bedankt zover.
 
Dus hij doet het soms wel goed, en soms niet? Dat zou er op duiden dat er in de documenten instellingen anders zijn.
 
Nee, ik bedoel goed genoeg. In principe gaat alles behalve voor de woorden aan het eind van een zin.
 
probeer deze variant eens.
Code: 
Sub mcrWoordKwoots()
Dim tekst As String, spatieV As String, spatieA As String
Const kwoot As String = """"
    With Selection
        If .Type = 1 Then
            .Extend
            .Extend
        End If
        If Right(Selection.Text, 1) = " " Then
            spatieA = " "
        End If
        If Left(Selection.Text, 1) = " " Then
            spatieV = " "
        End If
        tekst = Trim(.Range.Text)
        .Cut
        If Selection.Text = "." Then spatieV = " "
        tekst = spatieV & kwoot & tekst & kwoot & spatieA
        .TypeText Text:=tekst
    End With
End Sub
 
Dit werkt.

Als ik de code ook wil laten werken voor andere leestekens zoals coma's en dubbele punten, dan kan ik dat doen met OR, of is er ook een alomvattende code voor leestekens?

Code: 
Sub mcrWoordKwoots()
Dim tekst As String, spatieV As String, spatieA As String
Const kwoot As String = """"
    With Selection
        If .Type = 1 Then
            .Extend
            .Extend
        End If
        If Right(Selection.Text, 1) = " " Then
            spatieA = " "
        End If
        If Left(Selection.Text, 1) = " " Then
            spatieV = " "
        End If
        tekst = Trim(.Range.Text)
        .Cut
        If Selection.Text = "." Or Selection.Text = "," Or Selection.Text = ":" Then spatieV = " "
        tekst = spatieV & kwoot & tekst & kwoot & spatieA
        .TypeText Text:=tekst
    End With
End Sub
 
Er is geen ‘allesomvattende’ code voor leestekens, dus jouw manier is prima. Als het er heel veel worden, kan je er een Select Case van maken, maar dat lijkt mij niet nodig. En volgens mij mag je het uitroepteken nog toevoegen :).
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan