View Single Post
 
Old 04-28-2020, 06:11 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,176
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

When you grab the editor info, where do you want it to go? You could save it as metadata in the document, put it on the page somewhere or even email the info to someone. The editor's name is stored in an application property but their email address might be harder to come by.

Assuming you want to save the approver's name where the button was, the code could look like
Code:
Sub ApproveIt()
  Dim aRng As Range, sApp As String
  Set aRng = Selection.Range
  sApp = "Approved by: " & Application.UserName
  aRng.Text = sApp
End Sub
To make a macrobutton field which will run the above macro you type the following text, select it and press Ctrl-F9 then press F9
Macrobutton ApproveIt Double Click this text to approve the document!
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote