Simulate a key press (left arrow)

darkmaster006 · #3 08-03-2023, 11:40 AM

Quote:

Originally Posted by Italophile

It is very rare that you need to select anything when using VBA code. Here is your routine rewritten to avoid selecting the text.

Code:

Sub AutoOpen()
    '
    ' AutoOpen Macro
    '
    ' This macro opens itself (AutoOpen) automatically with every Word document that's opened normally
    ' Choose background colour (light green 2)
    With ActiveDocument.Background.Fill
        .ForeColor.ObjectThe meColor = wdThemeColorAccent6
        .ForeColor.TintAndSh ade = 0.6
        .Visible = msoTrue
        .Solid
    End With
    ' Turn option 'Show background colors and images in Display view' on
    ActiveWindow.View.DisplayBackgrounds = True
    ' Select all text and change font to black colour
    ActiveDocument.Content.Font.Color = wdColorBlack
End Sub

Thank you, yes, this was better than what I could come up with, thank you very much!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
TOC goes into update after using the QAT back button or Alt and left arrow key to return	craigt	Word	7	01-30-2023 05:45 AM
left - right arrow keys don't function properly	natanzel	Word	1	06-27-2017 04:38 AM
Problem with [Ctrl] + [Left Arrow] in Word 2010 (32bit)	alxx86	Word	4	03-03-2016 07:22 AM
Why does the circular and U Turn arrow only go left to right?	Cerdic	PowerPoint	1	10-22-2013 07:16 PM
Left arrow won't work on Word	LaBecs	Word	2	09-26-2011 09:27 AM