Hold Previous Selecton Sentence variables

ilcaa72 · #1 04-28-2017, 07:33 AM

hi, I am trying to create a easier way for me to read my Word docs, i have posted before on getting 1 line per sentence which is working, i also figured the way to increase the font size and color of the text for each sentence that my cursor is at, helps in my readings. But once i move up or down to next sentence, the text stays the increased size and color.

what is a method I can revert the previous sentence to its original size, color, font when I move away from it?

The document has different font sizes for Chapter Headings, Section Heading, Sub-Section headings, and Text which i want to maintain, so changing all text as 1 isn't an option. i know I can store the values of Font.Size, Color, Name into variables but how would i apply it to the previously selected sentence? thanks even if you can point me in a direction to explore some options...

the code runs as a WindowsSelectionChange()

Code:

Private Sub msWordApp_WindowSelectionChange(ByVal oSel As Selection)
    Dim doc As Document
    Dim paras As Paragraphs
    Dim para As Paragraph
    Dim sents As Sentences
    Dim sent As Range

    Set doc = ActiveDocument
    Set paras = doc.Paragraphs

    With Selection
        selSize = .Font.Size
        selColor = .Font.Color
        selName = .Font.Name

        .Sentences(1).Select
        .Font.Size = "20"
        .Font.ColorIndex = wdBlue

    End With 
end Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Timing Doesn't Hold	yonargi2	PowerPoint	0	11-13-2015 03:15 PM
Array to iterate through variables and trap blank variables	Marrick13	Word VBA	5	08-04-2015 06:19 AM
can word: make variables, find appropriate pages, fill out pages with variables, print only those	20GT	Word VBA	1	10-15-2014 09:48 PM
Delete does not bring second sentence closer to first sentence	Andoheb	Word	29	07-03-2014 01:48 PM
Headers won't hold formatting	leftylee	Word	0	08-09-2010 01:13 PM