2 Corinthians 9:7
You must each make up your own mind as to how much you should give. Don't give reluctantly or in response to pressure. For God loves the person who gives cheerfully.
Candy Canes
Candy Cane History
About's History of Christmas Inventions
Christ Story Christmas Symbols
Urban Legends Reference Pages: Holdidays (Candy Cane)
History of the candy cane
Candy USA - Candy Cane History
Candy Cane News
Candy cane controversy avoids court
Judge OKs Christian Candy Canes in Texas
Refresh Fields in Microsoft Word
The concept of having page numbers and other fields in Word to dynamically display information works and sounds great. The only drawback is getting the information to stay up to date. Yes, there is the F9 feature that refreshes all the selected fields. Having to remember to select all the text and then press F9 is not bad. But the headers and footers are not selected so they do not get updated. Each different header needs to be updated individually. This macro will update all the fields in each section of the active document.
Create Macro
- Select Tools - Macro - Macros from the menu bar
- Enter RefreshAllFields for the 'Macro Name'
- Select 'Normal.doc' for 'Macros in'
- Select 'Create' option
- Copy the following text between Sub and End Sub
- Paste into Visual Basic Editor
Sub RefreshAllFields() ' ' RefreshAllFields Macro ' ' For i = 1 To ActiveDocument.Sections.Count If Not ActiveDocument.Sections(i).Headers Is Nothing Then For h = 1 To ActiveDocument.Sections(i).Headers.Count x = ActiveDocument.Sections(i).Headers(h).Range.Fields.Update() Next h End If x = ActiveDocument.Range.Fields.Update() If Not ActiveDocument.Sections(i).Footers Is Nothing Then For f = 1 To ActiveDocument.Sections(i).Footers.Count x = ActiveDocument.Sections(i).Footers(f).Range.Fields.Update() Next f End If Next i End Sub
Run Macro
- Select Tools - Macro - Macros from the menu bar
- Select RefreshAllFields for List of macros
- Sit back and watch
I use this macro so often that I added it to my personal toolbar that is always displayed in every document.
Proverbs 18:1
A man who isolates himself seeks his own desire He rages against all wise judgment
One Teamstudio Icon
Updated version of One Teamstudio Iconis now available.
If you have ever used Teamstudio you will notice there could eight different icons to choose from. Over the past four years that I have been using Teamstudio I have frequently clicked on the wrong icon. After wasting time to close down the tool and select a different one. I created one icon that would contain all options and prompt me which tool I wanted to open.
So now I have something like this:
The standard Teamstudio icons are on the right. The new icon will display the following prompt to select the tool to use.
The other annoying thing about implementation Teamstudio's tools is that they lock Designer while they are open. In one of Teamstudio's beta release they were testing the ability to launch a tool in Modal mode which would not lock Designer. This was very nice feature, but it was not implemented because it had some bugs according to them. The one Teamstudio icon that I implemented uses the modal implementation and I never had a problem.
For this article I have split up the code into three sections: Teamstudio Modal, Teamstudio Standard, and Original Teamstudio's Posting. Use what ever fits your needs.
Teamstudio Modal (allows the use of Notes/Domino)
Option := @Prompt( [OKCANCELLIST] ; "Select Option" ; "What would you like to do:" ; "CIAO! Modal" ; "Analyzer Modal" : "Configurator Modal" : "CIAO! Modal" : "Delta Modal" : "Librarian Modal" : "Snapper" : "Form Snippet" : "Validator (Linkchecker) Modal" ) ; File := "Nothing"; @If( Option = "Analyzer Modal" ; @Command([Execute]; "ndean.exe"; @DbLookup ("NAME":"Nocache";"") ) ; Option = "Configurator Modal" ; @Command([Execute]; "nconfy.exe";@DbLookup ("NAME":"Nocache";"") ) ; Option = "Delta Modal" ; @Command([Execute]; "ndelta.exe";@DbLookup("NAME":"Nocache";"") ) ; Option = "CIAO! Modal" ; @Command([Execute]; "nciao.exe";@DbLookup("NAME":"Nocache";"") ) ; Option = "Librarian Modal" ; @Command([Execute]; "nlibr.exe";@DbLookup("NAME":"Nocache";"") ) ; Option = "Snapper" ; @Set( File ; @DbColumn( "TMS":"NoCache" ; "SNAP") ) ; Option = "Form Snippet" ; @Command( [FileImport]; "Form Snippet";"") ; Option = "Validator (Linkchecker) Modal" ; @Command([Execute]; "nvalidator.exe";@DbLookup("NAME":"Nocache";"") ) ; "" ); @If ( File != "Nothing" & Option = "Analyzer":"Linkchecker"; @Do( @PostedCommand( [AddDatabase]; File ); @PostedCommand( [FileOpenDatabase]; File ) ); "" )
Teamstudio Standard
Option := @Prompt( [OKCANCELLIST] ; "Select Option" ; "What would you like to do:" ; "CIAO!" ; "Analyzer": "Configurator" : "CIAO!" : "Delta" : "Librarian" : "Snapper" : "Form Snippet" : "Validator (Linkchecker)") ; File := "Nothing"; @If( Option = "Analyzer" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "DEAN" ) ); Option = "Configurator" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "STAR" ) ) ; Option = "Delta" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "DIFF" ) ) ; Option = "CIAO!" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "CIAO" ) ) ; Option = "Librarian" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "LIBR" ) ); Option = "Snapper" ; @Set( File ; @DbColumn( "TMS":"NoCache" ; "SNAP") ) ; Option = "Form Snippet" ; @Command( [FileImport]; "Form Snippet";"") ; Option = "Validator (Linkchecker)" ; @Set( File ; @DbLookup( "TMS" : "NoCache";"LINKCHK" ) ) ; "" ); @If ( File != "Nothing" & Option = "Analyzer":"Linkchecker"; @Do( @PostedCommand( [AddDatabase]; File ); @PostedCommand( [FileOpenDatabase]; File ) ); "" )
Original Teamstudio's Posting
The current posting at Teamstudio for Run *Non-Modal* and *Modeless* Versions of Teamstudio Products from a Single Smarticon (You will need to log in)
The link has the following disclaimer on it:
[Editor's note: The modeless (or non-modal) versions of these Teamstudio for Notes products are not supported by the company. Under certain special circumstances crashes have occasionally been reported]
Option := @Prompt( [OKCANCELLIST] ; "Select Option" ; "What would you like to do:" ; "CIAO! Modal" ; "Analyzer" : "Analyzer Modal" : "Configurator Modal" : "Configurator" : "CIAO!" : "CIAO! Modal" : "Delta" : "Delta Modal" : "Librarian" : "Librarian Modal" : "Snapper" : "Form Snippet" : "Linkchecker" ) ; File := "Nothing"; @If( Option = "Analyzer" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "DEAN" ) ); Option = "Analyzer Modal" ; @Command([Execute]; "ndean.exe"; @DbLookup ("NAME":"Nocache";"") ) ; Option = "Configurator" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "STAR" ) ) ; Option = "Configurator Modal" ; @Command([Execute]; "nconfy.exe";@DbLookup ("NAME":"Nocache";"") ) ; Option = "Delta" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "DIFF" ) ) ; Option = "Delta Modal" ; @Command([Execute]; "ndelta.exe";@DbLookup("NAME":"Nocache";"") ) ; Option = "CIAO!" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "CIAO" ) ) ; Option = "CIAO! Modal" ; @Command([Execute]; "nciao.exe";@DbLookup("NAME":"Nocache";"") ) ; Option = "Librarian" ; @Set( File ; @DbLookup( "TMS" : "NoCache"; "LIBR" ) ); Option = "Librarian Modal" ; @Command([Execute]; "nlibr.exe";@DbLookup("NAME":"Nocache";"") ) ; Option = "Snapper" ; @Set( File ; @DbColumn( "TMS":"NoCache" ; "SNAP") ) ; Option = "Form Snippet" ; @Command( [FileImport]; "Form Snippet";"") ; Option = "Linkchecker" ; @Set( File ; @DbLookup( "TMS" : "NoCache";"LINKCHK" ) ) ; "" ); @If ( File != "Nothing" & Option = "Analyzer":"Linkchecker"; @Do( @PostedCommand( [AddDatabase]; File ); @PostedCommand( [FileOpenDatabase]; File ) ); "" )
Teamstudio Build Manager
Was just told about a new software that Teamstudio is selling which would simplify the task of migration. Teamstudio Build Manager
Proverbs 12:1
Whoever loves instruction loves knowledge, But he who hates correction is stupid.