Change text from lower to uppercase in word FIXED

Thomas_Holding

https://forums.moneysavingexpert.com/discussion/comment/82085021#Comment_82085021

That is the correct interpretation the speech marks are wrong for all letters

Thomas_Holding

I should have said word - I will try that tomorrow.

Cornucopia

I asked Google to create VBA macro for MS Word… again, this looks plausible but I have not tested it.

Sub ConvertTextAfterQuoteToUppercase()
    Dim rng As Range
    
    Set rng = ActiveDocument.Content
    
    With rng.Find
        .ClearFormatting
        ' Finds an opening quote followed by any lowercase letter
        ' [""'‘“] covers straight and curly, single and double quotes
        .Text = "([""''‘“])([a-z])"
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
        
        ' Loop through all matches in the document
        Do While .Execute
            ' Changes the lowercase letter (the second captured group) to uppercase
            rng.Words(1).Characters(2).Case = wdUpperCase
            ' Collapse range to move past the current match
            rng.Collapse wdCollapseEnd
        Loop
    End With
    
    MsgBox "Finished converting text after quotation marks to uppercase.", vbInformation
End Sub

MyRealNameToo

https://forums.moneysavingexpert.com/discussion/comment/82085628#Comment_82085628

How is your VBA going to understand the context of the quote to know if it should be capitalised (ie its a complete quote) or should not be capitalised (ie its a partial quote)?

Cornucopia

https://forums.moneysavingexpert.com/discussion/comment/82085644#Comment_82085644

I think the OP wants them all converted, and then will fix any oddities manually.

Thomas_Holding

https://forums.moneysavingexpert.com/discussion/comment/82084783#Comment_82084783

Thank you, for some reason the search doesn't work, if you have a minute please can you help?

Thomas_Holding

https://forums.moneysavingexpert.com/discussion/comment/82085628#Comment_82085628

Thank you I got this message

This is the problem line any ideas please?

rng.Words(1).Characters(2).Case = wdUpperCase

Cornucopia

https://forums.moneysavingexpert.com/discussion/comment/82087012#Comment_82087012

Seems like AI coding has limits. Weirdly, Google knows that line is incorrect in isolation.

It suggests this as an alternative (substitute for the line in error). Unfortunately, I do not have MS Word to be able to test it.

Dim ch As Range
Set ch = rng.Words(1).Characters(2)
ch.Text = UCase(ch.Text)

Cornucopia

The entire macro with the amendment suggested…

Sub ConvertTextAfterQuoteToUppercase()

    Dim rng As Range


    Set rng = ActiveDocument.Content


    With rng.Find

        .ClearFormatting

        ' Finds an opening quote followed by any lowercase letter

        ' [""'‘“] covers straight and curly, single and double quotes

        .Text = "([""''‘“])([a-z])"

        .MatchWildcards = True

        .Forward = True

        .Wrap = wdFindStop


        ' Loop through all matches in the document

        Do While .Execute

            ' Changes the lowercase letter (the second captured group) to uppercase

            Dim ch As Range

            Set ch = rng.Words(1).Characters(2)

            ch.Text = UCase(ch.Text)

            ' Collapse range to move past the current match

            rng.Collapse wdCollapseEnd

        Loop

    End With


    MsgBox "Finished converting text after quotation marks to uppercase.", vbInformation

End Sub

Thomas_Holding

Firstly thank you very much I still get these errors (I will try your google idea I just need to clear my account)