Covered here: “Offline activation”.
What specifically are you having trouble with?
Offline activation example in MS Word VBAAnswered
Can someone point me to a “REAL” example on how to do an “Offline/Manual Activation” using Microsoft Word VBA…I can't figure this out for the life of me looking at the VBA Excel file that was included.
Also…I use a PC, not a Mac.
Thanks for any assistance.
The example code that was provided in one of the modules…see below.
Private Sub btnActivationRequest_Click()
' TODO: handle the user canceling the dialog
Dim sFile As String
sFile = MacScript("set myFile to (choose file name with prompt ""Save file as:"" default name ""ActivationRequest.xml"") as string" _
& vbLf & "return myFile")
' Convert horrible Mac format path to POSIX form paths (required by TurboActivate)
sFile = Replace(Mid(sFile, InStr(sFile, ":")), ":", "/")
TurboActivate.ActivationRequestToFile (sFile)
End Sub
The MacScript function gives me errors…I'm assuming because I'm not using MS Office for the MAC. I'm using a PC. Also a Google Search for “MacScript” says that that function is no longer supported.
I'm looking for a complete example for:
1. Save activation request Function
and
2. Activate using the response Function
for MSOffice (Word) for a PC…not a MAC
When using your “Example App” for VBA (Excel), I get the following Runtime Errors when using the “Activate YourApp offline” Userform.
When clicking the button: “Save activation request”
Runtime Error on VBA line:
sFile = MacScript("set myFile to (choose file name with prompt ""Save file as:"" default name ""ActivationRequest.xml"") as string" & vbLf & "return myFile")
When clicking the button: “Activate using the response”
Runtime Error on VBA line:
sFile = MacScript(sMacScript)
Answer
Right, so the example is an example. If you want to create an interface, then you'll need to create the interface.
If not, just use the TurboActivate Wizard.