I'm assuming you're using Word.
I've noticed this problem before but don't know a built in way around it. The only way I know is to store all of the formfield results in an array before you unprotect the document and then copy the array values back to the formfield result after you've...
The book I used to learn PHP was 'PHP and MySQL for Dynamic Websites' by Larry Ullman. http://www.amazon.co.uk/exec/obidos/ASIN/0321336577/qid=1136391494/sr=8-1/ref=sr_8_xs_ap_i1_xgl/026-0602950-0301214
If you know other languages you should be able to pick it up quite quickly. As jpadie says...
You can assign it to a variable as:
Dim w As Workbook
Set w = Application.ActiveWorkbook
and you can reference w instead of activeworkbook.
You can put the Dim statement in the Declarations but not the Set. This way you will need to Set the variable once in each module.
Bogiemon
I've got a css file called blue.css code below:
<style type="text/css">
<!--
body { background-color: #003A4D;
background-image: url(pictures/background450x500.jpg);
color: #A8BAff;
font-family: haettenschweiler, tahoma, courier; }
-->
</style>
When I link to this from a...
One way to do it would be to create a sub that requires controls as inputs:
Sub myStuff(c1 as Control, c2 as Control)
Do Stuff
End Sub
And on each of your BeforeUpdate sub's call the MyStuff routine:
Private Sub tbEAResiDem_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
mystuff...
Why don't you have another sheet that's formatted how you want the header page and when you do the print copy the name and subject over to this new sheet and print that.
You can set the Visible property to 2 (Very Hidden), this way the user can not unhide the sheet.
You can always protect the sheet with a password and unprotect the sheet in your VBA before you do any amendments to it.
Wouldn't it be easier to have the Monday Date in say Cell A1. Then the formula in B1 =A1 + 1, C1 = B1 + 1 etc...
Then all you would need to do is add 7 to Cell A1.
Range("A1").Value = Range("A1").Value + 7
This might help:
Dim nms As NameSpace, sel As Selection ', fld As MAPIFolder
Set sel = Application.ActiveExplorer.Selection
Set nms = Application.GetNamespace("MAPI")
Set fld = nms.Folders("MainFolder").Folders("SubFolder1").Folders("SubfFolder2") 'Keep using .Folders until...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.