select current includetext field?

Question

I hope I am following proper etiquette in posing this question about Word 2010 VBA.

When in Print Layout view, I'd like to be able to place my cursor in an INCLUDETEXT field and switch \* MERGFORMAT off using VBA. The field might be part of a paragraph, not a separate paragraph.

If only I could select the field in which the cursor sits, I think I could change the Field.Code to include or exclude the \* MERGEFORMAT string.

But I can't figure out how to select the field in which the cursor sits. I've tried a lot of ways, but I'm stumped. I bet it's really easy, and I'll be very grateful if someone can tell me how.

Thanks in advance for any help, and apologies if I've transgressed netiquette.

Answer 1

Ah, thanks Greg and Doug. I got the same error from Doug's code as Greg did.

Now I see that Greg's code should work through the document until it finds the currently selected field. For some reason, this didn't seem to work on my file. Incidentally, my file is rather large and has hundreds of INCLUDETEXT fields. Word seemed to run through them all quite quickly, but it didn't change the field where the selection pointer (cursor) stood.

Answer 2

Doug,

Here that returns RTE 5941.

Joe,  You are not processing each field.  You are only process the field that contains the selection in its results range.  However, this would be better:

Sub ScratchMacro()

'A basic Word macro coded by Greg Maxey

Dim oFld As Word.Field

For Each oFld In ActiveDocument.Fields

   If Selection.Range.InRange(oFld.Result) Then

      oFld.Code.Text = Replace(oFld.Code.Text, "\* MergeFormat", "")

      oFld.Updat

      Exit For

  End If

Next oFld

End Sub

Answer 3

Use

With Selection.Fields(1)

   .Code.Text = Replace(.Code.Text, "\* MergeFormat", "")

End WIth

Answer 4

Thanks for this code, but I don't want to change all fields in the document. I need to change only the field where the cursor (or selection pointer) sits. Any further thoughts on how I might do that? Thanks!

Answer 5

Sub ScratchMacro()

'A basic Word macro coded by Greg Maxey

Dim oFld As Word.Field

For Each oFld In ActiveDocument.Fields

  If Selection.Range.InRange(oFld.Result) Then

    oFld.Code.Text = Replace(oFld.Code.Text, "\* MergeFormat", "")

    Exit For

  End If

  oFld.Update

Next

End Sub