Word macro to find any character (^?) without using Selection

RobiNew · #1 10-09-2023, 01:07 AM

I need a word macro to find any character without using Selection. In other words I need the equivalent of '^?'. Thanks!

Italophile · #2 10-09-2023, 03:27 AM

Several of the questions you have asked here already contain code that finds things without using Selection. I'm sure that, if you invest a few short minutes of your time, you could modify the code you already have to meet your new requirement. It isn't difficult to do.

RobiNew · #3 10-09-2023, 03:32 AM

Thank you, but I don't want to find just 'things'. I need the equivalent of '^?'.

Italophile · #4 10-09-2023, 03:40 AM

Quote:

Originally Posted by RobiNew

Thank you, but I don't want to find just 'things'. I need the equivalent of '^?'.

And you can modify code that you already have to do that. It isn't difficult to do.

RobiNew · #5 10-10-2023, 11:34 PM

I have the following macro to find any character before minus. Is it possible to use the equivalent of '^?' instead of the long string in .Text? Can someone help? Thanks!

Code:

Sub CharPlusMinus()
'Find ANY character before -
Dim xRng As Range, iType As Integer
For iType = 1 To 2
Set xRng = ActiveDocument.StoryRanges(iType)
  With xRng.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchWildcards = False
'Find any character before -
        .Text = "[!ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÄÇÈÒÖÙÜßçàäèéìòóöùü0123456789]-[!ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzÀÄÇÈÒÖÙÜßçàäèéìòóöùü0123456789]"
'    .Text = "^?-"
    .Execute
  End With
Next iType
End Sub

Italophile · #6 10-11-2023, 01:42 AM

You don't need an equivalent. You just need .Text = "^?-"

If you are unsure of syntax just record a macro. The syntax for Find is identical whether it is used with Selection or a Range.

RobiNew · #7 10-12-2023, 09:05 AM

Many thanks, Italophile!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Weird character appearing in Word at cursor position after using FIND	cwword77	Word	11	06-13-2017 12:18 PM
VBA/Macro & Allowing Multiple Hyperlinks Per Character/Word	JustAboutNoon	Word VBA	1	04-10-2015 11:27 PM
macro to find a character and insert space so autocorrect will expand	redzan	Word VBA	3	05-22-2014 04:22 PM
Macro ? - Checkbox in Word + drop down selection help	dice1976	Word	4	07-24-2012 11:18 AM
*Word 2007 Macro for Character Count	gbartlet	Word	0	07-21-2010 11:12 AM