Share via

a macro for character map arrows

Anonymous
2012-04-25T15:50:02+00:00

For lab values I use arrow characters  up or down- is there a macro to put these characters ↓ ↑  into a word doc with cut and paste over and over and over?

Microsoft 365 and Office | Word | For home | Windows

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 comments

Answer accepted by question author

  1. Jay Freedman 207.6K Reputation points Volunteer Moderator
    2012-04-26T01:55:23+00:00

    Although you can use a macro for this, it isn't necessary. You can assign a shortcut key directly to a symbol such as the arrows.

    On the Insert ribbon, click the Symbol button and choose More Symbols from the dropdown to open the Symbols dialog. Set the Font dropdown to "(normal text)" which is the default, and set the "from" box in the lower right to "Unicode (hex)". Open the Subset dropdown in the upper right to "Arrows" (it's about 2/3 of the way down the list).

    Click on the up arrow (character code 2191) and click the Shortcut Key button at the lower left. In that dialog, click in the "Press new shortcut key" box and press the key combination you want, then click the Assign button before clicking Close. In the Symbol dialog, click on the down arrow (character code 2193) and assign another shortcut key to that one.

    2 people found this answer helpful.
    0 comments

1 additional answer

Sort by: Most helpful
Most helpful Newest Oldest
  1. Anonymous
    2012-04-25T16:00:43+00:00

    The code below has two subroutines:  one for an up arrow, one for a down arrow.  It currently inserts four different arrow styles from the "Wingdings" font.  Pick the style you want and comment out the rest of the lines in the code.

    Insert this code into your Normal.dotm file and then assign each macro to a new button in your Quick Access Toolbar.  You can also assigne it a keyboard equivalent (Ctrl-Alt-Whatever) if you want.

    ======  BEGIN CODE ======

    Option Explicit

    '

    ' InsertUpArrow Macro

    '

    Sub InsertUpArrow()

    '

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3855, Unicode:=True

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3863, Unicode:=True

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3871, Unicode:=True

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3875, Unicode:=True

    End Sub

    '

    ' InsertDownArrow Macro

    '

    Sub InsertDownArrow()

    '

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3854, Unicode:=True

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3862, Unicode:=True

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3870, Unicode:=True

        Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3874, Unicode:=True

    End Sub

    ======= END CODE =======

    0 comments