Question mark in find and replace Macro

Question

I am busy creating a macro, what I want is that the macro delete a space before a question mark, without changing the lay-out.

The problem is that a question mark in Publisher automatically is being converted to a wildcard. How can I prevent this in Publisher?

(I tried to use MatchWildecard like in Word but this doesn't work in Publisher)

my code:

 Function RepText(SFind As String, sRep As String)

    With Selection.ShapeRange.TextFrame.TextRange.Find

        .FindText = " ?"

        .MatchCase = False

        .ReplaceWithText = "? "

        .Forward = True

        .MatchWholeWord = False

        .ReplaceScope = pbReplaceScopeAll

        .Execute

    End With

End Function

Answer 1

Give this a try:

.FindText = " " + "^063"

Answer 2

if i use your code, some random letters are changed by the macro into question marks and thats exactly the problem what we are trying to solve.... any ideas how we can avoid this?

Answer 3

Your previous macro required that you select each text box to search. This searches the entire document and replaces all instances:

Sub ReplaceText()

  With ThisDocument.Find

    .FindText = " " + Chr(63)

    .MatchCase = False

    .ReplaceWithText = Chr(63) + " "

    .Forward = True

    .MatchWholeWord = True

    .ReplaceScope = pbReplaceScopeAll

    .Execute

  End With

End Sub

Answer 4

We have tried this methode before but the replace function keeps seeing the question mark as a wildcard as the sRep ans sFind are remainders of a previous trial

Answer 5

Try substituting Chr(63) for the question mark:

.FindText = " " + Chr(63)

.ReplaceWithText = Chr(63) + " "

But you have other issues here. You've written it as a function but are using it like a sub. Neither of the parameters passed to the function (SFind and sRep) are used in the code.