Disabling Copy Text Macro

[boredofcities]

I have a macro that copies the text from one text formfield to another in a
document that I have created. I am using this code below.

Sub CopyText()

With ActiveDocument
.FormFields("Bookmark1").Result = .FormFields("Bookmark2").Result
End With

End Sub

The problem I'm having is when the macro has run, I want it to be disabled,
so it doesn't overwrite the amendments that anyone makes to the formfield.

How would I go about doing this?

Using Office 2007, with protected for filling in forms.

Thanks for your time.

Matt.

 

[Karl E. Peterson]

I have a macro that copies the text from one text formfield to another in a
document that I have created. I am using this code below.

Sub CopyText()

With ActiveDocument
.FormFields("Bookmark1").Result = .FormFields("Bookmark2").Result
End With

End Sub

The problem I'm having is when the macro has run, I want it to be disabled,
so it doesn't overwrite the amendments that anyone makes to the formfield.

How would I go about doing this?

One common way to prevent code from running more than once is with a
Static flag. Using your example...

Sub CopyText()
Static BeenHere As Boolean
If Not BeenHere Then
With ActiveDocument
.FormFields("Bookmark1").Result =
..FormFields("Bookmark2").Result
End With
BeenHere = True
End If
End Sub

Of course, that only prevents it from happening more than once per
execution. If you want to do it based on a given field content, you'd
have to test for that, I suppose.

 

[Karl E. Peterson]

I have a macro that copies the text from one text formfield to another in a
document that I have created. I am using this code below.

Sub CopyText()

With ActiveDocument
.FormFields("Bookmark1").Result = .FormFields("Bookmark2").Result
End With

End Sub

The problem I'm having is when the macro has run, I want it to be disabled,
so it doesn't overwrite the amendments that anyone makes to the formfield.

How would I go about doing this?

One common way to prevent code from running more than once is with a
Static flag. Using your example...

Sub CopyText()
Static BeenHere As Boolean
If Not BeenHere Then
With ActiveDocument
.FormFields("Bookmark1").Result =
..FormFields("Bookmark2").Result
End With
BeenHere = True
End If
End Sub

Of course, that only prevents it from happening more than once per
execution. If you want to do it based on a given field content, you'd
have to test for that, I suppose.

 

[boredofcities]

Thanks Karl, it seems to do the trick. I will do some further testing but
from what I can tell it solves the initial problem that I was having.

Thanks again,

Matt.