ASK and REF field problem

[ilkks]

I want to ask the document-template-user to insert his name. And then his name automaticly get copied to different places around the document.



This is working:

I have Text From Field, I double-click it and insert the name to 'Default text', and I write to bookmark field 'testBookmark'. I got { REF testBookmark } all over the document. I select the whole document and update by pressinf F9. And voilà!

This is what I want:

I want more sophisticated approach of inserting the name. For example using ASK-field that is launched by doubleclicking MacroButton. The sub of the MacroButton is:

Sub Macro3()

' Macro3 Macro
' Launch ASK-field and update the REF-fields

    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "ASK  testBookmark ""Write your name here"" \d First name Last name \o ", PreserveFormatting:=True
    
    Selection.WholeStory
    Selection.Fields.Update
    
End Sub

This is not working properly. It updates REF-fields, which is fine, but. First of all it asks me to write the name 2 times, and after that the MacroButton disappeares. I want to keep MacroButton alive so I can change the name if necessary.

[macropod]

Hi ilkks,

If you check the formfield's 'calculate on exit' property, you don't need a macro to update the cross-references.

Conversely, If you use an ASK field coded as:
{IF{REF BkMk}= {DOCPROPERTY Author} {ASK BkMk "Write your name here" \d {DOCPROPERTY Author}}}
or:
{ASK BkMk "Write your name here" \d {DOCPROPERTY Author}}
and an AutoOpen macro whose code is:

Sub AutoOpen
ActiveDocument.Fields.Update
End Sub

you don't need the MACROBUTTON field.

[ilkks]

Thanks Paul for your reply.

Since I am so keen on Macrobuttons I put these {}-fields next to each other




{ Macrobutton AutoOpen Double-click Me }{ASK BkMk "Write your name here" \d {DOCPROPERTY Author}}}

And edited AutoOpen-macro a bit so it updates only {REF BkMK}-fields:

Sub AutoOpen()

'Updates/launches ASK-field next to Macrobutton
Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Fields.Update

'Updates only REF-fields with bookmark named BkMk
    Dim Fld As Field
With ActiveDocument
  For Each Fld In .Fields
    With Fld
      If .Type = wdFieldRef Then
        If Split(Trim(.Code.Text), " ")(1) = "BkMk" Then .Update
      End If
    End With
  Next
End With

End Sub

I was wondering could the inserted bookmark become the DisplayText for the MacroButton, similar to thread https://www.msofficeforums.com/vba/7...html#post18034

Then there would be one extra line to the AutoOpen-macro, something like this:

Selection.Fields(1).Code.Text = "MACROBUTTON AutoOpen " & BkMk

But I don't know the correct format for BkMk-bookmark.

[macropod]

Hi ilkks,

You could do that by changing the content of a {DOCPROPERTY Author} field (if there is one) to {REF BkMk}. I'll leave you to figure that out - you've got enough code to show you how to edit a field if it exists.