Userform_Terminate ??

[Aaronjames]

Hi All,

I have slowly worked my way through creating my userform - final steps.

I have a dotm. that when opened it the userform appears - using the following module

Sub AutoNew()
StartProcess
End Sub

Sub StartProcess()
Dim oFrm As New UserForm1
If ActiveDocument = ThisDocument Then
MsgBox "You are attempting to process the template." & vbCr & "Create a new document from the template."
GoTo lbl_Exit
End If
With oFrm
.Show
Unload oFrm
End With
lbl_Exit:
Set oFrm = Nothing
Exit Sub
End Sub

I am wanting the word document to close if a user closes the userform by using the 'X'. I have used the following:

Private Sub UserForm_Terminate()
ActiveDocument.Close
End Sub

this works perfectly if the userform is closed (without being run), however, when the userform is run (via a command button) it brings up the save option - 'save', 'Don't save', 'cancel'.
if the user clicks:
'Save': they can save it then the document automatically closes.
'Don't save': the document closes
'Cancel': a error message comes up.

I only want it to close everything if the user form is closed (without completing it) solely to prevent users from closing the userform and trying to manually complete the form.
any guidance would be great.

Thanks

[gmayor]

I think what you are looking for is

ActiveDocument.Close Savechanges:=False

[Aaronjames]

Thanks Graham.

I have also tried that, but it is closing as soon as the Command Button is actioned. It is as if the Command Button contains a termination event in it?

Could it be something in the Module that is causing this? I have used the "activeDocument.close" code before and it worked fine until i added that module?

Thanks

[Paul_Hossler]

I think you're looking for this event



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

End Sub




https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/queryclose-event


Example from the link



Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Prevent user from closing with the Close box in the title bar.
If CloseMode <> 1 Then Cancel = 1
UserForm1.Caption = "The Close box won't work! Click me!"
End Sub

[Aaronjames]

Hi Paul,

This seems to deactivate the 'X'. I want the user to be able to X the user form, but if they do, i want the document to also close with it?

i have tried the standard Userform_Terminate, however for some reason, ever since i added the module (above) the Userform_Terminate is also closing the document when the userform is run.
It is allowing the user to save, once they select the save location and press save, it is saving it and then closing it. Making the user find the save location and re open it to view.

[gmayor]

Get rid of the Userform_Terminate and add


Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "This is the X Button"
Hide
Tag = 0
Cancel = True
End If
lbl_Exit:
Exit Sub
End Sub


If you have a cancel button on the form then add e.g.


Private Sub CommandButton1_Click()
MsgBox "This is the cancel Button"
Hide
Tag = 0
lbl_Exit:
Exit Sub
End Sub


You could validate the entries so that the user needs to make selections e.g.


Private Sub CommandButton2_Click()
MsgBox "This is the OK Button"
'validate the entries e.g.
If TextBox1.Text = "" Then
MsgBox "Complete TextBox1"
TextBox1.SetFocus
GoTo lbl_Exit
End If
If TextBox2.Text = "" Then
MsgBox "Complete TextBox2"
TextBox1.SetFocus
GoTo lbl_Exit
End If
Hide
Tag = 1
lbl_Exit:
Exit Sub
End Sub

Modify the main code to handle the tags and process the document from the values entered in the userform (rather than do it in the form code)


Sub StartProcess()
Dim oFrm As New UserForm1
If ActiveDocument = ThisDocument Then
MsgBox "You are attempting to process the template." & vbCr & "Create a new document from the template."
GoTo lbl_Exit
End If
With oFrm
.Show
If .Tag = 0 Then
ActiveDocument.Close SaveChanges:=False
End If
'do stuff related to the document and the userform here
Unload oFrm
End With
lbl_Exit:
Set oFrm = Nothing
Exit Sub
End Sub

Ultimately whatever you do some user will screw it up. You just have to plan for everything.

[Aaronjames]

You're a legend Graham.

this is defiantly what I want it to do however once the userform is run it comes up with this error

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAXoAAADRCAIAAABNbu5eAAAgAElEQVR4nO2daXMb yZnnC19Kn2FndsZ2N8m2Z8bupnWwb6kltVrqrt3YCUd4NStKerER 2JjHXbHzNozbk2vW1TLnp2ZdeukRIIESfDAfQOF 0YdmVmVz76oA4WTF0Adfn7xD6lYSBSqgKwfM7OKSOEP//bdH/7tu//9j3f //4n2 vYDBYE4 MwfPO93MvrMwO98Tc/2bby 88ZOFH/x44ft/s/CDHy 88eOFN36y8ObbCzPvLMzOL8z9dOGt0ws/PLPwo7MLf3Vu4a8WFn50duGHZxbe unC3PzC3PzC7DsLs 8szL2z8KPTC399buEnCwvvLCzMLyycXlg4s7Bw9jA5t7BwbmHhV7/61fPnz589eyZ8c 9f/m7x9szbCz aX/j23x/WNX601JyoZgwzVcWMXlH0iqxXZFbpWClboWPDXkxkVpb1bjp6uaOXZfMQ9Ir7oZNK6fjpjEzxBD NkB6w9NMqyUVaMihVuRR2S6kRTO/HUnRz XGuYIXYob1DeILxhF6gqvCLzckcvtfVyR690jKrMqwqvqbxBeJPyFuMtnXcM3uG8w3nH4C2dtxh vUt6kvEl4U NNwts6lw2ucq5xTjmnnOu9McwFwxiTBw8fmtL5xS9 IVz/b7f wxs/ v3/e5TrQLwJodpA6odI0AoP1nigxveqxl7F2KvouxV9t8x2SmS7SLYLmr g QvaVl7dyqubkjI W5KyJand5FX7ieOjbeWPmoIZMhj/sGwV6FZxeDbtbBTpZoFuFOhGnm7m2cZAfH0pdLPuJD88a6PjdUcaktWDZWVI6IpEV3JWVl1ZyZF RWc0Rb454c9RrL6xJ9oEUmK g 4rGRtHYKBmbJb5V5ltl8FfGZXtsdpxUR2bX/tfM3mESOEhqQxIclqGnW7jRn0jTSrQF0TbEOhDrQKQFoQYE67BXhe0C38gSb1JejbW9SXk9rW1m iT9v7JYhVIdYB1IapAnkdMhzKABIOmQIpFVIdCDRgXgL4k1ItCBDoGBAFaAJ0OFcASAAOuesVzr MMJxQV4iuE12nus50/cHDh2/98IfC7Dvv/f7fH2VbEKxAsGolNJDwYRKqQqjCgxUerBjBihEsG4GysVdiu0W6UyQ7BW27oPnzml/Stszk1M39spXTupFGZrM3XYP0lTyEfUhP lyTJ/482crTrcKI5K1s5ulmnm7k6Uae swFiW3k2EaO XLMl2PrfZG6WXMn1xPv6Kz2JduflYPl bjQ51n6PNPNip3nGTI0KxmykiGrVuhqhnqz1Jt1DlBfz u guErGL4C3yjyzSLfLMJmCbZGxD8mZdg QHZ6s7tvKj3ZO0L6hDUgoD7vhPukM6CbaBvCTcs1OyXYlJg3pTyPNpZD1efRxmq87U0rG1myU SBKkRbkFQhTSDL nWTNHXThngT4gfWje7SjVs6pm7MmMYR3vrrt3MtCFQgaCdk5vCWCfcYiocqPFThobIRLBuBkhEo 6XsltltkOwW6kyfbEvFLmr8rEbUn2YH0Gedg8efIljQkpia6kcaEmtkyk6f YdnKs2GhW3m6JdFNOz6J iS6nqO HO0qJsvWs8yb6U22m35TZKysjM3zoUlbeXaYLI8MXU7T5ZSVZ71ZTpExeZ6iVixD2UeX0705fU0 yzPjy3JfnvjxsFIZnc1SKsLVf/K5sD6Y0JDv7ZsBfw0U2qCpbPSOlM6CbSAuibSuhBgRrsFuF7RJsZMlqsvMsUn8SrDwL11diTW y40tr/ryxV4VIC5LKwXSjuXQDYOkGQB/oVY1s4zjGYYzpuvDtvz6MVPluie V F6ZB8o8UOZBMxVbGRUeqvDwIROq8FDFCJaNYNkIlvRASd8r6rsFtpunOxLZlsi2pG1L2nZO9edU/1DFuGKVOWyyqj r nNaX7atHbCtt0/G 6hfTF03SXQzZ2UjSzey1Jelvixdy5C1DFnLUG aetN0NU1X03QlRVecMzBJnyfp81TvyoE8S47M8qgk6HKCPj1wnhwgjxPkcbybJ3Yex7VReRLXns bJ04RmJUmWk2Q5aXrKEuJKRl/N6KtZw2tnLcf7su6O1B/fiGxIfNOd/MhsOSkcKP6RATNunTl6Mu0zUjpjjNOyGjiObvZM3eSoN6U8jzWWQzWrdZNSNjJku8ADVYi0IKFA Wju8bjgnnOsjjDO S2X2qoR8y9gtGrtFY69o7BWNQMkIloxgyQiVjVDZCNuJVPZJeFTKRqish0p6sMSCRRYo0r0C2S2 Q3by2I2k7OXUnp zklO2sFf/obGdlp5g7O8NWdpNTtnPqYHZyWl 2R4b0ZUciw4v1WIxY/buctpnTNrLaRkbzZbT1jLae1tbS2mpK86a01ZS2ktRWktozMwltOaEtx7XluLac0J4lyPLoPI2T p3GtL0/GJ6Y9iWmP98ujw RhTH0YUx9G /Moqj6KKg9H53FUeRxVH8fVx3H1SVx94tgnoS0nid1KYs/TbCXNVtJs1RSQK14n2f6sjc56Vvfl9smGGWn/bJrJj49hZitvbBWMrYLhL3B/kftd6hkjHaeZ4 5V9enG7EwFqrBbBn/B2MgSb0pZTXS8KWU9rW1kyZZkjd1E293WjTQ53ZgDw O7VEJF1ncKbLfAdotsr8gCJT1Q0oMlPVTWQ2U9XNbDZT1SOWrKerjMwiUWLtFQiYaKNFikgSINF Eggr 7l1V1J3cmpjnR2svKobFsLypDkjhpJ7SZ3mEjD0vvQtqRu2y2yzay6mVU3sqovra6nlbWU4k0pq 0llNamsJJTnCfV5XHkWV56aiSlPYsqTqPIk5kQdmscx9XG0P4 iyqg8jOyfB0fKdxH5u4j8XdjKA1e C3dG5UG4Y5Z5GOk8jMqPovKjqPI4pjyOKU/i6pO4Sz12 tp3ZutvJT0kq90wM14nGbY2Klmrbzs vtz 2ejNphlLT5Z6/AVju8C3B6VTHW2cwQaOrRtzqDhQg90ybBdhU9I3cnRT0v15Y6cIu2UIVCHcgFinO3YzUjetIbpR nc4UgAFgDDPO C6VUJX13QLbK7C9IgsUWbDIQiUWKrFwmUXKLFJm0QqLVljsyCmzqJkSjZRopETDJRIqaqGiFiqo QUkNSIqZPSvyXq4/uzl511yW5L1uSWUvZ8XZyNDsjc6By6sHi ZkV9J2JG3HkU5W2coqmxllI62sp5S1lOxNyqtJeTUhr8SVZ3HlWVxejslPzUTlJxH5SUR HJEfR UnUcWdx2Yi/XlkRR7Mw/D eXDwhOwM1UqomwehzoNQ 0Go/d2wPLDSeRDqPAh3HkY6jyKdR1H5cVR bNo2rj6Nq5Z0EtqzhPYsSZ4Py0rKHepk1RWvkzT1pqk3Q9dGZH1osj3x7ZeNwfRJxzaOv8C3i7z bwyrDbnlYG2egS2XqxjROpAWRZlc6e1XYrXTlFahCsA7hhjW03NWNAXmAnA5p95UpUzftEbrh3N LNYBtnxJixYxyhJut7RRYo6sGSHirp4bIeKeuRih6t6LGKHqvqcTuJI8V6eoXFKjRWprEyjZZot EQjJRIuauGCFiqowbwTxcpodwRHJX 0qAeOZiZgpqAFzeR7Yj4UKGiBvLZX0PbymtNtNMenNrPqRsZq5thtHHUloT5PKM9iyrOYshxTnr r9ElOexJSn7nZNtD PHQcN5FFk/xyk1WMlPCw9jaNRkuqMysNw52FYfhixYuk1pjyJqU/j6rLZu0yQZVcDZ2V0VtPDYynGbuCsOcmw9cG4GzLjM6whM6RR023X6Jt5vadLVeD Ylc37mbO/sZpdo3jjikd0zvmglnSumouQ0KBNIEMA8kAiVu6SamQ6EB8X904rZuhDZyxgzhCXeHhCo9UeKTK o1Ueq/F4jcdr0q9 IAjCrT/UearBU3WeqvNUg//Lf/UIwtyXIZ56ctsjCP/5CU81RqfujpGqGcmakawZiZqeqOmJqh43BVSi0RKJlkikRCJFrZs/LnoEQRBuLBW1sCvmo/d 5hG 981yt3zyF98T/uw3yXs/8wjCjXvu7fSEDE/JzneLHmHxnvNjkUSKqV98T3D4s9 kI0XqJGw32XpSpJFS n99XxC t/SkxOxBK7ZXoLsFum1eyZKs8WNflq5n6HqaeNPUm6Kr5mnj r39LEGeJcwz7WDjwRMcCY4fIWRU3OPEg3kaN4ei7JGpJH2WpM9TbCXFVtLmSI2xmrGHjccMGLvi czJstHhonPHjLck1TtyX/QeGhw0V917w6l7GKsFOach1saHGGTJs3OzvVTl34kSd9K6PdSAuQ0qDNIWcAZIBGQZpAkkV4h2I tSHWglgD4k1Iq5DXoQLQAGgDyAAaAAWgAIxzBsDMBc6ZfR8g5ZwaBhkaXReaGo83INGEZBNSTUi 1IN2CTCv/928KgiD8xddStg25Ns 1ea69 bceQRDm/iHK7TWHSYtnWzzTMqw0jXRDTzVYqk6TNZqo0USNdFP1/ieP8Oe/TcarWnzv7n8UZn65p8Wr3SQeLXqExd9XScLM3tJ/FGZ tWf/OCa1oaFWHt30CIu/N5erZtK//IHw579N24/O/CpAu VHJ15jsRqL1Vi0xqI1FqmycJWFqixUYcEK2yuz3TLbKbHtEvMXmXOTjnlXjk i671Zy9Oe /ek/gy9he9wN/UN3qozLCu9GShAV3N0NTuQ0ff rVr3/tHh9/7l9e69f0Vjo8i3SnyrBP7yyBzorr/R2a10b/kbzKHv8bMTrA6/ry9Yhb2K1fFxeYcPGmfwQlXIPY7T6jZe4mYUiCsQlyEmd0VjaijWgYQKaQIZHbIGpCmkNEgoEOt ArAXRJkQaEG1ASgaJQhmg7mrgaHYIAOGcOAtObL9orqiGoRqG0GY8q0BWhZwKkgqSCnkV8lr 1zOCIAjCzH2/xosaL2p8 6cIAiCMPebpLXmcFF5UeUF1XCSV/S8rEsdJnVorkNzbZpr02ybZtsk2/L rUf4L09Jtkmy4aW/FGb PkyyTTstV4EWybaI7 tZ4Y27vjbJHiotkm05P9Jsm2af3fQIi/9q7YaZ9D 8KfzF1 lsm2ajS38pzPx91P3oyGTaLNNmaTupNku1WLLFEi0Wb7JYk0WbLNJkkQYLN1ioQYN1EqjTYJ3u1 eheje4OTZ3u1tnOwbLdl9qx4t8vrsJ0uzok/ir1V4m/MpAq8VeJv2Zlu0a3a3SnTnfrbLfB9hpsr6EHmnqgaQRbRrDFgy0ebPNQG/oS7k1kaNy/88cm1hd5eOKHitIbcyNm36cGgSrsVkzjcH/B6GnjmHYbdfNxA8L2LX9xGRIqJFVIapDSIKVBUoOE Vod64ZA862IKZDUIM0gbUCaQEKDmAzRNkSaEKpDqAbhGsQ7Vn q4jKOAqAAqOa/nKsAqrlgRzFjGGZkVwTZ4GUDygZU7FQNqPL8V3PC9 ///uce4ec XjN43ZC mhN /u39HwhzX V4PWcvGLy cdtjdTXmvsrxR7c9wq3bP/cIwuz9gCF9Ned0ROZ m M1g9eMjZ9bT5j9p4xeZvqDmx6n0M 8tKh5f9Zd4eKGt6ASJ3 84RFueAsaKWipX88If/lNqqAR/91ZYeauXyOF7kZmfp10ryf pVlh5q6fkIJ3sfs6i2tFQovemx5h8Y EFrtJ/2ZW N7ddJFQ/9KsMLPkJ7RAMr edZ45 5sUKxJW9N6yX/Cen7A/3vQIi sFygrUVXhxXaIsS1iGsAxhacLShKUITRKaJCShkQShcULjhMY0GtNo1JWYE8LciU46kWNGo2bC9 oIrJKKOjV3MOmT7GONUTzAjwYyEbiR1I6XzlM7TBhw8mcMk60ruGJHs5HsjGSDpIOmQZZDWIK5A rA3hBgSrsFuB7SL4890rVjslu4Ez6g5AUzdtiMuQVCGlQYpAikCaQppCikBKg6RqGSfahnALwi2 IyhDXIEUhrUOSQEyFSAdCTQjVIVCFvQoEyjxSh6QMWQJFA8oAVYAGQAugbadjpw3Q5txJy4xhmG naETTOmwBmWnbakP/6LeGN 9LybY9wa6PNeXvztke4tSzdf1OY 1ribWdh87bHXLBf6dltjyAI1zfs5bn7Uc7bnEfvzwnCrWUufT0nvPFtztmJ8LdzgnDzCWMNSutr Nz3CzG9TpEa8P/cIP/eSGiG11NIPrJU9qXoXPcLiQ0KqdoEqIYGlWWHmboCkvpoVvn835RS21/cvW/EueoSZ36Zpbe2mR1h8RGmtm/RXXbPM/DZtr2esxliNZb6aFYSb67XMvR8Is7/NMHs9e3TTIyyudQswVrVTZqzMWImxEmNFSouUFigtEFIgJE9pnlJpWHKU5sxlxo6Z3AmE0uzQEO IkNxhKnQXzSPNmdL2g60XDsMJ5ifMSQPkAqRw71UnH2XIZoMAhQyGpQqwNoTrsVWC7CFt5w20cs 4ETqPZ3xJxBHHMYOKFYIzIZBlndUl6GWcYx 0qRNoSaEGxCpAMxFRIEkgxiGkQVCLUhUIfdKuyW U6B7eRpoGJ1qbIE8joUuSWdKkANoAZQB6hzXjcXAGqc98Qwqq5UDENgnCt2A8lsI6kAKuS/eUt4876kSvdnhLlvJL562 P 0b1euLXhbkq51mze8Ag3NpyHnB lb aEGz6zrZX73Zzw5r1sh7EOY22a/npWeONuqkW81z3CdS9pEdJKLb0hzNxJkSbpi1UmsjQrzNyNENIi7uXU17P2FsioMt7r3ebNzD nSGvtpkdYfEppq5v017PCG0vpFqWt9NIbgnB9jbYpjd7rSki4ud5mrJW596Zwc5mxNmNtxp7d9A iLa63MvTeE2X/OsBZjLcaadhqMNShtUFqntG76i5AqIVXTpJSOiWO0Mam 8FBaGRVCyqNTcR2 qfW6nYauN8zfUpybaXHecv2aHEx7EulMIrKdjr3ZFkADoAJQAMhQSCgQaUGgCtsFvinptnGMvgb O4A3H4QZEWhDvQNIe/c0ZIHHIA QBcgZkbePEZYh2LN2EOxBVIUYgTiGqQagDgSbs1mCnDP6CvpnTNrPqToEFKxBtQLIDabUrnSKHE lgpcl40F8xlVwqG4SRvGHnDEHTOqT3a7IRB/t5bwux9iXJpaU6YuX17Vpi7J3Em3e9bWL/tEW5tOKPTjLvXbN7yCDc3nIe6P1K edMjCMLsUi63NCfM3Mtquq4yprLMN7PCm0tpha7d8Ah/5yUyIXJq6U1h5v kiEz683zRIyze/d2s8ObdlLkmvjQrzNyNEaIQohDvDY8gCDO/S5HE0qwwczdOiNItk/rdrCAset0voazd9AiLK5Qq3aR/Z 2Sa3ntpkeY/SbDVMZWb3mEm sqYypj6votjyAIs/fijK3c9AiLa0p6aUaY/SbDFOYKpbIrHTOEdOOsHEjbjinolzeuXe2L QtgVNqEtCltOwv2kcqMybqu6Lo5ImD DtPMuMYvR4W8TDF3SQWQAeoAZQBJh5QGsRYETd3k2KbEtiTdMY7TwHEbx7o 1bT LiFFIKtbd 4VbR0UoNvGSagQ60CoBcEmhDoQUSFGIEYgokKoA7sN2KmCv2RsSmQ9La lO5s5baeoB6sQbUC8DSkZ0hpkKeQo5ChIrJsc486CFcqzVowssSIYnBvOVXQ7HPL33xLm7ksG58 bmbY8gCLc2DM4N6f6cMPet5FrYvO0RhFsb3OBWNm57rMLmsnDLx7nBee7 nLNscK5z6ds5YfbbXObbOUGYXcrqVNfp2k2PMHM3TTW6dsMj3PASlRA1tTQjzHyTIioZiDX40n3 U1EqiWyb1zazw5t2U6l30mMVSSzOCIMzcTRDvoke44SUaIcmlWXMjmnfRIyx6KSXdpO/OCjNLaY1SLb00Iwg31mhyaVaYWUpSSujaokcQFte65dNLs8LM3TT13vQIi2saTS/NCsLsvRRjxAylhFJtMH2HRun4aIy9/Bm184r1 2BcnDdBsw WMEZ03byJw/0bTrdvBnmFwgAogArQMhs4HNIaxNoQrFp/grCRo5s52zjmmPGw23CcnpR5517OgIItGrO/VoLujXxJDWLyEN2EVQh2YLcB21XYLBq nOZNd7zJ1kZG3c7TvTKEahBtQrwDKQXSGqQ1yGiQIe5w10JfjDQx0pqR1gyBcw5DyP/ LWHuvgQAAJu3PcKtDc4559L9OWHuvuRaMBftweD7EneV7n3QKu9ac2vDMAzDMLpjzYKwuEYppZS u3fQIi2uUEEIIsaxyY1Xrx7voEYSZb5KaZpZMLc0KM3dTJLXUHZ31Oo YnabFxRlh5m7KvU4QBHOVd9Hj7IJFuqfQUrq7f 6ddpUyn28dAKWMrd/y9D42DDLAqJJu2MvNmD0fPN4xh 9sUNd1XdcNG7uaDa3DLy GLR0C0AGoAhQA0sTRje7LaBtZspG1jLNd5H26CfS2bkzdZChIvOsac5Cl28ChkNIgJkO4PU43Wy VjQyJradmbam9mtZ0CC1QgXIdYCxIdSNuWyRLI0uHJUN6NSzoZMlI3/fCp4VQdsyYN1lFCyIBlhrNvDR5kzLMOcrYfSgdHOPcOtf2Xk8MesvvY3W Cs8E 4zjSmbYjJgsH0AEogAxQAyjauglUYSuv 9KaL635MpZxzOviuwN/vdmjGw0yDPIAJXuA3NRNGaAI1r18KQ1iiqWbsKMbCmENgh3YbcJ2Dfwlvpmn6xl1PS1vSWS3ZIS qVtMmrUKGQE4fcq3NDnctWJHM6IakH1g303rTe41jSsddR91emLhuxj/roEY5mAvGlzzyPpy0PA7PEY561OE723w9dGMAsD7dtCBQgU2JrafVrnFybCtvD98M1U0LYm1Iml 8o4WramBePzP6UxCGrQ4pAXIFIG4ItCHcgqlm6iWgQlCHQgt06bFdgq2hsSGQzq 0U9UAVIg2Im 0aCpLRHRUach2Q8 6CKyXOS4ZRMl4O3fS1dAbbOIf1yKTY92w/yDm/79OPuQ/TtcWEOPLhk2G9qtegS9WnmwJAWoNoC/bKsJljaynVMc5Glm7lje0C7JRdDZyxuikfRjdxBlENQgoE29Zo8XaJb XplkR2yzxUh1gbUipkiOUad9OpNj6c1zivuvKCdQPDGjiGYbARuplIG fgz9r3VD84Qze4764eZDdeqEYOyr7vzL6HT3p7Va96l2pQNykNok3YLcNGlnqTStc4GbIl6dsFe/hmOroJKxDswF7D/D5AvpVnWxLZLbl0Q0Hqve/GvNemMT6c1zmvc97gvPEy6AbGdqkOKIsD6maCHbExJ8a Z9ShXDNms6 HdA5y O73wdna0DbOi67LB2WobiKWbog3Ia8l1fWUup7WfBmyKenbBb49Qd0M3HcTViDYhj2rdWNsSmQj p20XDXdnSjK6PbV9XMO5s y4pvky62aocUw1qPsxVCj7PmvUE4/jhYM/97BbfhWlM2bPD/UOOBt8dXtVY3Tjy2irCdlu4GjrGbKZ0/22bnZdf7F5NN1YQ8VtiKgQHRy7KcNmgfmy2npK3pLIjm2chAxpApJhDdO4Gzjdu4oBambzh/PuXdSc1 wGzkuhG3AN4vQ1cFivcY4mjoOUn7huBh89TmMKdUNdbRz3Nl8D3VQB8hySGkSasFMCX0ZbjXe8C cWbVNfT6npa28yxIbqpHkU35pWpQANCbQgrENUgSiCsQqDtXAjnvhzxpjqrieZ6St7Mke2CEahA pAFJGTIE8rx/BKfq puMsnO3sX3DcRGgzLkpnZdFNyaDbRw64kL4wfVxcNeM0s1hGbrDR1bYoaTzojxyKI5sHPc74N6g Yxz3ZYcXXZf3wdFNx6WbcAN2SuBLa6vxzmpC9iZVb0pdT2vWxalj68a5zW vAcE2hDoQViGsQaADuy3YqcNWGXwSW00pz2P15XB1NVb3JtsbKcUvkd0ShOvdW2 sy Ec8rz7l6g5HbIMMhTSxAxPE8hQyBk8z3n5JdTNYAPHMU6fGpSpMT0THdM4f JtHKdM32G il2qUbrZdulmNansq5vQAXRTdOkmKkOoCXt1CDQh2IaQAkEF9tqwUwd/FTZK4M2SlUR7OVx9vFdcDlVWovXVeMuXkv0S3StBuA7xNiSc24uJdZNxyvzWC7n7BV3RVveLTRM KZBiXRulm9E15J8TQcZyD19rjc4Jn3yHQX3eO/FYMXqJ6 TG/eZNwrnDe4bzJeE3jZZkXmyzfIPkGzTdpockKTVZs66WOUZa5M5Fx1YxqzZRdJ7xpzsPLucy5zLn i vYZ2fxSCIM3Ga8TXtV4ReUVjVcIrxJeJbyi8bLKSzIvdHi yXJ1LVuVM5V2rirnakq rhYaWrHJyh3DnPnXmj6Y8AbhdeKatlvlNcWaMrgi85IMu2XYK/NwE IypOkw3dy9e1dEEGTKfCGKn4viFVG8JIrnRfHDq K7l8WzF8SffnT17fevvP3BlXc OydD6/Of3Ttpx9/fvr8F2cuiGc/Ec9eFM9dFM9dFBcuiQuXxIXL4rufiu9dET 4Kn70uXheFC I4ieieFEUL4niJVH8RBQviOLHovjR5 IHV8X3rogLl8Wzl8Szl8Wzn4rnrohnr4hnLounL4o/vSC 8/EXP/ng6t 8d/mvzl340ZmP//rshb9Z OQn7156 /1P5z/87PTH185eEBcuigvOqzu5KJ67KJ79RDxzQTxz/ovT5z8//fHnv/zHb/Jtw5839soQbkJcGdAN51wUxQaCIMjx OlH10ottpmlO0UI1iHaAdQNgiBTwdJNju4UebAKkRbqBkGQ6XDm/BfljuHPG7tlCNVQNwiCTI1zF8WKzPfK1kW0SBPHbhAEmQ7vfSrWNR6pQ6QB0SZEsXWDIMiU OAzsUl5906cJuoGQZDp8NE1scm4ORdwrAWROuoGQZDp8PHnYsvRTQNCNdQNgiDT4ePPxSbjSRli TQjXIFBG3SAIMh0 uiY2KY 3IFKHYBl28jrqBkGQqfDhVbFBeKQOoQrsFibL7RwAAA uSURBVI3tHEHdIAgyFT68KjY0bnajdvK6P6uhbhAEmQqWbqoQKMNuAVs3CIJMjY uiU3CY3UIVyFYgp3CwMQvqBsEQSaCdWWqA/EmROsQquKVKQRBpsMFUWzrPKNBWoFkB L4RwwIgkyJT0RR5jxvgMQgSyCtoW4G8V0/JczfmWxJBPnT46IoypybszIUOOSNY jmlOBw6rrvqHvku37KfLaz8MLp35M7890f78w7Bz1/5yXaZwR5 bgoioozazhAGY6jG dMO84v ZfxjO36xXf9VI9O78zbx2nut9tECIL08Indupmobhp35k3duN1hLvuunzp1/fp8t0HQi3U6C4Jwan7eLj8/f8osbD1qPctVtv8U73uo 6Lzd9zLPSW7O9x9dCjDhWgfcncHUDwI0sN5UWwbXNK7M FNQjd35oXBDpGjG dUdoq56etMOeftnXnBWTh13ec vQc7O30PuV/Uvdy4M28vWw2ynkdH0P9yprF6n4S6QZABPrwmNhlPa5AlIBlQMHXjNs5Rxm76FONeHlzjamGcuu 4bops c7kM4qKvZdH70LAXHbLcV3IUI1s36BcEGcf7V8Q64bE2JBVrfvFj6MbRwdB2x2jd9HBw3Yw6uwc fOgnd9PWmEATp591LYk3l4RrE2pBSIcNAcGYdPFZnqjsy4urEHFA37nGfUbpx9YMGGHho5IsO60 wdRje 6/MDHUj30Y7fEIL8abFwUawqPFiBaAMSMqQJCO55To86VGx2aKy 0cDQ71jd2NeW 8sPXRh15b3voTEvOmyoeIwl3Buev9N/Hby3HOoGQXo45 imCclj6gZBEGQMC2Znqg7xDqQ1yOm2btwTuaNuEAQ5Pu99KjYIj3cgrUKOQQFA0HVd13W3cVA3C IIcnw vii3GMwTyOhTM 250G8c4qBsEQY7PeVHscG6KpgpQN3XDGHN0YxgG6gZBkONzURRVzmsAdYAGQMvUDaXUbRzUDYIg x eyKGqcNwHaAB2ATp9uTOOgbhAEOT5XRJFw3gGQARQAxdQNIcTdwEHdIAhyfK6IIuNcBTCjAQiMM UKIYxzUDYIgE EzUWScawBmCOoGQZApcVUUGecEwInAGNM0zTGOruuoGwRBjs8Q3VBKVVU1jYO6QRBkUuyjG0II6 gZBkIkwXDeKopjG0TSNMYa6QRDk Fx1DRX36MYxDuoGQZCJcHXwyhSlVJZlxzioGwRBJkKfbjRTNx0bWZYppagbBEGOz9Xe2/zUP2ndvIxTXCHI68MkdSP0Mq0z9/hSGLUF1A2CTJN9dNPpdAghh2jdvBJnLOoGQV4EU9WNewqYO/PCqet3ulNi7j8Z5qj5Mwdmp7K//Hz4ZJuuLzPv/0Z1Z7o8a3 uj5/hE0GQYzHl1o0z95K54J6fwJpzZfRkmKPmz xOa dMxmkaZuhkmy6cl q UO9k5vvO8IkgyDGYdmfKOsWt//rneDp1/c7YyTDHTWhntkoGVHWQ WEGywzuPHasEGTSTH3s5s68MH/HblcM1c2 k2GOmz/Tls64uX27c9CNVNLgzqNuEGTSTH o2Jngru9Rq7cyejLM8brpzl/pu37Kpa3Rbuqap9uFGuhMoW4QZGqcwJWpvjN oN80ajLMA3Wm7CeNbrk45axpORuNhjNRp3uWT3uoGHWDIFPiswnrZhD3mCuewwjyJ8xnokg5V wvKlYmrhvXlSfUDYL8SeN8NXrbzqRbNwiCII1GwzXxi5kG6gZBkClxURQVzisATlA3CIJMBXPS3 jyAxEEyIKejbhAEmQ4fXhWbjKc0SKqQVCEpo24QBJkO730q1jUebUK4AaE6hKqoGwRBpsPCJbGq 8EAF9sqwU TbeR11gyDIVDj3iViR U4JtvO6P0e3sgR1gyDIVDj3iViW XaRb f1rRzdRN0gCDIlFi6JFYXvlmGnBNsFwy/p1kwMqBsEQSbLe5 KNY2H6hCsQaAKgYo98YtjHNQNgiATwbwQnlAgrkBchlgHdYMgyHQ4L4ptg d0yOqQ0SHDXLoxjYO6QRBkIph/xFAGKAOUAErQqxtZllE3CIJMhMuiqHJeB3CCukEQZCqYX0DR7vsCCtQNgiATx/x6LRnACY7dIAgyFYZ/mx9emUIQZOIM/2p0bN0gCDJxUDcIgpwQ hGlmVKKeoGQZDjg7pBEOSEQN0gCHJCoG4QBDkhUDcIgpwQqBsEQU4I1A2CICfEcN0oioK6QRBks qBuEAQ5IVA3CIKcECN1Y4K6QRBkUqBuEAQ5IfbRjaIoqBsEQSYC6gZBkBMCdYMgyAmBukEQ5IRA 3SAIckKgbhAEOSGG6IYxhrpBEGTioG4QBDkhhutGVVXUDYIgk2WkbhzjoG4QBJkIV0WRom4QBDk BrtqzaA7RjWkc1A2CIBNhnG6wdYMgyAS56pojHIeKEQSZIm7dKKgbBEGmR59uFNQNgiBTYqRucK gYQZDJso9uVFVF3SAIMhH21w1jDHWDIMjxQd0gCHJCoG4QBDkhUDcIgpwQqBsEQU6I4brRNA11g yDIZEHdIAhyQozUjQnqBkGQSYG6QRDkhNhHN5qmoW4QBJkIqBsEQU6IIbrRdR11gyDIxEHdIAhy QgzXDSEEdYMgyGQZqRvHOKgbBEEmAuoGQZATwtSNDCAP6sYEdYMgyERA3SAIckKgbhAEOSHcujG DukEQZCp8NlQ3lFLUDYIgk2WkbkxQNwiCTIrPRJFw3gFwIui6zhhD3SAIMlmuiCLhvA3gRDAMgz FmGgd1gyDIpLgiihrnLQAngmEY7gaOruuoGwRBjo pmyaAE0s3jnFQNwiCTIRPRVHjvAHgpEc3jDHUDYIgE FTUVQ5rwM4ETjnbuOgbhAEmQjDdeM2DuoGQZCJME43jnFQNwiCHJ8hYzfchSkd1A2CIMcHdYMgy Amxj25M46BuEAQ5PqgbBEFOCNQNgiAnxP664ZyjbhAEOT7DdQMAqBsEQSbL8PtuAMBtHNQNgiDH B3WDIMgJcVkUVc5rAE66unGkcxDdwGvN /f8A39EXv6XQ5 PuAbwW D4OMa92YHFw3mdeUL7/88lB160Xv77Q41PuAbwW D4OMHCo mm4O/sKvEEeoW1PdnxfF0XQzvf15gWCVMDlslRjybX6omz6wbpmgbhywSpgctkoM Wp01E0fWLdMUDcOWCVMDlslzGntFHsKTQV1MwjWLRPUjQNWCZPDVolrosg41wCcoG76ecXqlu/6qVPXfVPY8Eurmy //PIEXqXvFV/2KjG1auDmsFXic1HUOacATk5UN1 6OPhThi5Pjxdct3zXTwlu9qtEr5FuDlg9vvzySwA4zgsdlhdZJfo 31Ef90usGwbg5OR0Y9Yh92sd8FnukidQz168bg5Vb14v3Th1Y4xxUDevim6 EEWDcx3AyQnpxnHN4Hr3b7PB32/uH51/B8v0vdDglg 1qy XbnzXT526fn3eau3M37FXHrgBdDRelG7cPzoL 1aSMc86fqP4ZdRNtwKcuu6z1/uunzo1P3 qt6pMjldJN0Nd07DbO45K n6/9a1x/h0s436hwS0faldfos6UWYecqnNnXjh13de4M /2zuurm6Ef5REqwDFbQy9YN0IvVgWwZdIVjVlV7NrgqiOT4pXXzWAtmdQaN4eqbS9eN8NaNz738u CaSe6Bxcujm76P8mhV4pg79nK1bvodNH9nsGLYv5omCOpm3Bo3h9pV1E3jZdJN30eJuvGNqiSoG/e Dq6Zqm5Gve6 /my68ZVk9zN58nyYnXj9IYGV6JufIM9pUHdTN42r5RuGvuNBI qJU6BMTVpsOvUt VD7eRLNHYjnLp Z1hb5o41dHxqfv51at0M/dQGK8lgsTEV4HXUzcC1giGdrImPFL9qumkMuxA KO7sLuMs2ZMmTFbPiAvWDcvDSevm8bo yRGfbJ9NWFosVdbN4diypfDXz3dvPy8MnVryrwQ3UyQIzdvh27q1agSqJtXjlembk2ZV103jaM2 bwfBKmGCupk8WLdMXgPdTAqsEiaom8mDdcsEdeOAVcIEdTN5sG6ZoG4csEqYHLZKTPJPNL98fTl U3XrROztFDqubF72/UwSrhMkRvu GADg5om7ef9054Bv6ondz6hy8br3oPZ06 D6YHLxKTOzb/BAEQcZjfjV6E8AJ6gZBkKlwSRRlzssAZiqoGwRBpsQFUWwZPG1AxoAMhwxH3SAIMh0 vCrWCA 3IdyBcAciMuoGQZDp8N4lsSxzfxn8ZfBXwF9B3SAIMh3OXfii0DbWs8Z61ljPGes5jrpBEGQqnD l/Ld9kz1NkxQ7qBkGQqXDm42tSgz1PaCtJ7XlSe57QUDcIgkwFs3WzmqKrabqaoqvYukEQZEqcuyA WWnxd4us5vp7l6zmjXzcAcPfuXRFBkCnzhSheE8UronhRFD/ QvzgM3Hhknj6/Bdvf3Dlx 9e vF7l3/y3uWfvPfp2 9/ s4Hn81/ePWnH107/fEXp89/cfqCeMbMJ LZT8SzF8Vzl8SFy K7V8T3PxM/uCp cE380JUProrvfya f0V891Nx4bJ47pJ41sxl8eyn4tkr4tlPxTOXxTOXxDMXxdOfiKcviKfPf37642tnPr7qyrUz56 dPf/52QtfnL3wxbkL4rlPxIXBXLTy7iXxl//0Tb7D/WXuL3N/CfzlgStTThtn4hg2ugt2eOhhIAdDOyTOE81XMXfMPCLnMKfxHr4o j67UZ/FQd7qQ3184zlC5Zk4 jFguk51XdH1lq7XmF5W9Xxbz9ZZsqzEC514sRMvyominCjJybKaqmjpGs3UWLbOsg0929CzTT1n pqVLbT3f0QuyXlT0kqaXzRC9TKzlkqoXVb2g6AVZz3d0qaNLsi4pel7V86ouKXpO1nMdPdfSs00 929SzdZar01yd5hpUalCpyfJNlm xQosV2laKHXf0kqyXZL0s62VFLytGRTVKGk/LPNTiQTNNEB48eDCom4kwtNY69XVUBe07sdURKC7k0XRG03bROjzmEzudjizLqqqaDjLPAcc7zo FP6R0 Ady6cX925iflfBAHecNNxnxYY1BGMKp6DHKo3yKH4mhmpIxpjMmMVRjLMhbR2HadrUrsUVT7v9v Vb9fz3/oK933F32 U/rBV/ted r/vtb4LyQ8j2qMYeRynjxPsSZI9TbHlDHuWZc9zbLXA1srMV2WbdbbVYP4m226xnTbbbjF/k/kbbKvONmpsvcK8ZbZaZt4qW6uz9SZbbzFvna5U6LMiXc7T5SxdTtPlJF1OaCsp6s3QtRzZkMhmk fjLZLtKdmtkt072GiTQIIEmCTSpk2CbhjssIrOIzGKqHidGghgJaoZnKP//n47/bwosBUMAAAAASUVORK5CYIIA

[gmayor]

What error? If the following still causes an error, can you post the template with the userform?


Sub StartProcess()
Dim oFrm As New UserForm1
If ActiveDocument = ThisDocument Then
MsgBox "You are attempting to process the template." & vbCr & "Create a new document from the template."
GoTo lbl_Exit
End If
With oFrm
.Show
If .Tag = 0 Then
ActiveDocument.Close SaveChanges:=False
GoTo lbl_Exit 'add this line
End If
'do stuff related to the document and the userform here
Unload oFrm
End With
lbl_Exit:
Set oFrm = Nothing
Exit Sub
End Sub

[Aaronjames]

Sorry Graham,

It's the "Run-Time Error '13': Type Mismatch" but it only appears in the .Dotm

The debug seems to pick up this:

21757

both .docm and .dotm attached

thanks again for all your help

[SamT]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'They Clicked the "X".

'Close Document with out saving
ActiveDocument.Close SaveChanges:=False

End Sub

Go back to the Docm and in the Document_Close Event sub, Call "FormsUnload."
In Private Sub FormsUnload(), Unload all UserForms in the Document's UserForms Collection.
This is usually not necessary, but, just in case, you don't want it/them floating in memory.

nb. If UserForms.Count = 0 then there are no UFs loaded in memory.

nb. Word is wierd, you maight have to check whether the Document is the Template or a regular document. :dunno: