Automatic update of footer macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - linked drop down text box i have a word form with a drop down text box. depending on what is chosen i would like two other boxes to be populated. Can anyone point me in the right direction? Tag: Automatic update of footer macro Tag: 106697
  - 2
    - Help with inlineshpae textbox hello, I have a form with a number of textboxes embedded as inlineshapes, each of which have a dblclick event assigned to them - this works just fine. I would very much like to have a seperate click event to do something else, but a textbox (as an inline shape) does not have a click event. I tried using a mousedown event, but this activated before I could double click it. Embedded labels do have both click and doubleclick events, and these work but are not what I need for this application. here is what the double click does: , the single click would have to start a different subroutine. Private Sub TBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) TBox1.Text = ChangeTextBoxText(GetILS, TBox1.SelStart, TBox1.Text) End Sub Thanks Jim Tag: Automatic update of footer macro Tag: 106694
  - 3
    - Can you suggest modifications to speed up this function? What I am trying to do it to go through a list of Word documents and create an array containing two parameters for each TOC entry. The first entry is made up of the filename, a "|" as a delimiter and the TOC entry text (includes all levels up to that point concatenated with a >). The second entry of the array is the page number associated with the TOC entry. This works as it is but it is painfully slow. I added the flag that is set when the TOC Title paragraph is found to be able to stop the processing once all of the TOC # entries had been processed and that has helped some but this is still very slow. Is there a different approach that would speed this up? Thanks. Private Sub GetDocumentsHeadingsForFileInPath(wordFileName, wordFilePath) Dim oApp As Object Dim oDoc As Object Dim oSec As Object Dim NumSections As Integer Dim foundTOC As Boolean Dim st As String Dim tocLastValues(9) As String 'Start Word and open the document. Set oApp = CreateObject("Word.Application") On Error Resume Next Set oDoc = oApp.Documents.Open(wordFilePath) If Not oDoc Is Nothing Then 'Iterate each paragraph in the document to find the table of content entries 'Get their level, text and page values 'Once you have found the Table of Contents, stop at the next style that is not a TOC # NumSections = oDoc.Paragraphs.Count foundTOC = False For i = 1 To NumSections Set oSec = oDoc.Paragraphs(i) If Not oSec Is Nothing Then st = oSec.Style If st = "TOC Title" Then foundTOC = True ElseIf Left(st, 3) = "TOC" Then currentLevel = Right(st, 1) currenttext = Split(oSec.Range.Text, vbTab)(0) currentPageNo = Split(oSec.Range.Text, vbTab)(1) currenttext = GetFullTextForLevel(tocLastValues, currentLevel, currenttext) 'Debug.Print "Level: " & currentLevel & " Text: " & currenttext & " Page: " & currentPageNo allValues(0, noEntries) = wordFileName & "|" & currenttext allValues(1, noEntries) = currentPageNo noEntries = noEntries + 1 ElseIf foundTOC Then Exit For End If End If Next End If 'Close the document without saving changes and quit Word. On Error Resume Next oDoc.Close oApp.Quit Set oSec = Nothing Set oDoc = Nothing Set oApp = Nothing End Sub Private Function GetFullTextForLevel(currentValues, thisLevel, levelText) Dim i As Integer Dim tempText As String tempText = "" 'blank out everything above this level For i = thisLevel To 9 currentValues(i) = "" Next 'set this level's text currentValues(thisLevel) = levelText 'build the string for this level For i = 1 To thisLevel - 1 tempText = tempText & currentValues(i) & " > " Next tempText = tempText & currentValues(thisLevel) GetFullTextForLevel = tempText End Function Tag: Automatic update of footer macro Tag: 106692
  - 4
    - Find String, Copy/Paste Next 255+ Characters to New .doc Does anyone know of a way to search for a certain string, such as â??Additionalâ?? and then copy/paste this into a new document, along with the following 255 characters? Is 255 the limit? I found the code below on this DG: Sub RTM4() Dim oDoc As Document Dim oSrcRg As Range, oDestRg As Range Set oSrcRg = ActiveDocument.Range Set oDoc = Documents.Add Set oDestRg = oDoc.Range oDestRg.Collapse wdCollapseEnd With oSrcRg.Find .ClearFormatting .Text = "Additional ?{255}" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True Do While .Execute oDestRg.FormattedText = oSrcRg.FormattedText oDestRg.Collapse wdCollapseEnd oDestRg.InsertParagraph oDestRg.Collapse wdCollapseEnd Loop End With Set oDestRg = oDoc.Range oDestRg.ConvertToTable Separator:=wdSeparateByTabs, _ NumColumns:=3, NumRows:=100, _ AutoFitBehavior:=wdAutoFitFixed With oDoc.Tables(1) .Style = "Table Grid" .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True End With oDoc.Activate Set oSrcRg = Nothing Set oDestRg = Nothing Set oDoc = Nothing End Sub It works great. Sometimes the string, such as â??Additionalâ?? is in a table, and the code seems to struggle with the tables sometimes. For instance, if I have the word â??Additionalâ?? in one table, I'd like to find 255 characters, or more, up to 500 characters, in an adjacent table, just to the right on this table. Any suggestions? Regards, Ryan -- RyGuy Tag: Automatic update of footer macro Tag: 106690
  - 5
    - INCLUDETEXT w/DOCVARIABLE I have two documents, â??DOCUMENT Aâ?? reads, â??Thank you for the amount of {docvariable MONEY}, etc..... â??DOCUMENT Bâ?? reads: â??I received your payment,, {include text \\server\path\documentA.doc}. Your prompt payment etc, etcâ?¦â?? The problem is when DOCUMENT B is opened by a user to complete, â??DOCUMENT Aâ?? is inserted but it does not include the {docvariable MONEY}â?? â?? only the text. Is there another field that I should be using instead of the INCLUDETEXT? Is this my problem, the INCLUDETEXT statement? â?? Diane Tag: Automatic update of footer macro Tag: 106688
  - 6
    - MVP Userform How2 question for Doug Robbins At the MVP website location: http://word.mvps.org/FAQs/Userforms/CreateAUserForm.htm ...Under Step 2, Doug says that after creating a bookmark, "You can then use a cross reference to the text of the bookmark if you want the same information to appear in another location." Several of the items in my userform need to appear in multiple locations throughout the document, but so far, my experiments with cross references produce no success. In fact, when I place the cursor in those other locations and try to insert a cross reference to the original bookmark, nothing gets inserted. What am I missing? Thanks, Tag: Automatic update of footer macro Tag: 106687
  - 7
    - need code to copy paste extended Hi All, I need some VBA code that will Copy a highlighted part of a document to the clipboard including the name of my document (ActiveDocument.Name). So when I paste it in a new blanc document I will have the highlighted text and at the end of it my filename, like: "This is my highlighted text which was copied from another document". MySourceDoc.20071018.doc Marco Tag: Automatic update of footer macro Tag: 106685
  - 8
    - Word support for Resource Protocol(res) Hi, I have a html page with an IMG tag as shown below <img src="res://MyDLL.dll/IMAGE/XYZ" id="IMG3" />. This html page when opened in internet explorer, will display the page with image properly. But when i insert this file in word document, the image is not getting displayed. Please let me know whether there is a way to render resources from an assembly into a word document. Thanks, Best Regards, Ram. Tag: Automatic update of footer macro Tag: 106682
  - 9
    - How to remove specifik emty lines after data merge in word200x I have at problem with data merge from CRM system to Word200x. The problem is that the CRM system send all data from CRM to Word tempalet and some Parmeter is emty, but word do a next line(a emty line"field"). How to auto remove this emty fields Customer Compani name attension name (that field could be emty, but not always) add. zip code ... .. How to do that ? Regards Eravn Tag: Automatic update of footer macro Tag: 106677
  - 10
    - Word Open event I want to have some code to run as Word (client opens Word) opens. However I can not find the right Event. I thought it will do so at Document_New(), but this event is happening when you hit the New Icon. What event is happening as soon as Word opens? Thanks, Dirk Tag: Automatic update of footer macro Tag: 106675
  - 11
    - Hide/show bookmark through macro what would i put in to a macro to hide/show a section of text whichi is bookmarked? Using xp and w2007. Many thanks. Tag: Automatic update of footer macro Tag: 106659
  - 12
    - Access to the properties with the Quick Part Hi, There is a list of properties accessible with Content Controls through Quick Parts. The list of the properties accessible this way is very limited. Is it possible to add Content Control binded to any property not available on Insert/Quick Part/Property menu? Is it possible to bind custom property to the Content Control? Thank you, -- Maxim Tag: Automatic update of footer macro Tag: 106658
  - 13
    - Validate Inputbox entry It seems like there should be a cleaner way of doing this. I want the user to enter a valid date in a inputbox and set the value of the input box to a string. Sub CalcAge() Dim pStr As String Do Until IsDate(pStr) pStr = InputBox("Enter the birthdate", "Birthdate") If Not IsDate(pStr) Then MsgBox "Please enter a valid date" End If Loop 'More code here. End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Automatic update of footer macro Tag: 106656
  - 14
    - cursor won't move to selection My code is below. It works fine, moving from textframe to textframe and asks the user about making changes to the text in the textframe BUT the cursor and or screen doesn't move to the next location, it just stays on page one. Screen update, maybe? Sub fixTextBoxes() Dim s As Shape For Each s In ActiveDocument.Shapes With s.TextFrame If .HasText Then s.Select Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Do you want to Remove strikethrough and change font color to black?" ' Define message. Style = vbYesNoCancel + vbCritical + vbDefaultButton2 ' Define buttons. Title = "MsgBox Demonstration" ' Define title. Help = "DEMO.HLP" ' Define Help file. Ctxt = 1000 ' Define topic Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' User chose Yes Selection.Font.Color = wdColorBlack Selection.Font.StrikeThrough = False If Response = vbCancel Then Exit Sub Else ' User chose No. MyString = "No" ' Perform some action. End If End With Next End Sub Tag: Automatic update of footer macro Tag: 106637
  - 15
    - Renaming documents from text within the document using existing Ma I've been working with the following Macro to seperate a large document into individual documents. The Macro saves these new documents as "test_1.doc", "test_2.doc," etc. Everytime I run the macro, I have to then go back and rename all the documents manually. The first line of the document always begins with "Name:" and I rename the document simply by copying and pasting the name that follows. Is there a way to have the macro do this for me? Something that tells it to copy line 1 col 7-50 and paste into the FileName? Sub BreakOnSection() ' Used to set criteria for moving through the document by section. Application.Browser.Target = wdBrowseSection 'A mail merge document ends with a section break next page. 'Subtracting one from the section count stop error message. For i = 1 To ((ActiveDocument.Sections.Count) - 1) 'Note: If a document does not end with a section break, 'substitute the following line of code for the one above: 'For I = 1 To ActiveDocument.Sections.Count 'Select and copy the section text to the clipboard. ActiveDocument.Bookmarks("\Section").Range.Copy 'Create a new document to paste text from clipboard. Documents.Add Selection.Paste ' Removes the break that is copied at the end of the section, if any. Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ChangeFileOpenDirectory "C:\My Documents" DocNum = DocNum + 1 ActiveDocument.SaveAs FileName:="test_" & DocNum & ".doc" ActiveDocument.Close ' Move the selection to the next section in the document. Application.Browser.Next Next i ActiveDocument.Close savechanges:=wdDoNotSaveChanges End Sub Tag: Automatic update of footer macro Tag: 106635
  - 16
    - Reading a txt file and updating fields Hi I must have develop a solution and don't know how... When the user opens a Word document, a macro must be executed (using AutoOpen(), perhaps?), read a separated .txt file and with this information updating the fields in the document (DOCVARIABLE). The name of the DocVariables are referenced in txt file like document_version=1.0... Somebody can help me, please? Tag: Automatic update of footer macro Tag: 106634
  - 17
    - Macro very slow in Word 2003 Back in June, I posted a problem on this newsgroup about as macro that searches for a regular pattern in table cells and defines tab positions if the pattern is found (Thread 'find, format tabs and replace in table cells'). Thanks to Helmut Weber, my initial attempt was greatly improved and worked at an acceptable speed in Word 2000 (from 25 seconds on a 19 page document to .375 seconds!). But now I've got Word 2003 and I'm also working on larger documents (60 pages) and processing time has increased to 6 minutes. I suspect that memory problems are playing up as well since another macro creates garbage if run after this first one, whereas it runs perfectly if I save and quit Word before running it. Does anyone have any suggestions on how to improve the performance of this macro? (From my posting on June 27: I've got tables with counts and percentages in many of the table cells in the form "35.3% (47/133)". I want the percentages to align so I wrote a macro to define right-aligning tab positions at 40% and 100% of the cells usable width and then insert a tab character between the percentage sign and the opening parenthesis.) Advance thanks for any help, John Hendrickx Public Sub TabsForPctAndCount() Dim t As Single t = Timer Dim aRange As Range Dim oCell As Cell Dim UseableWidth As Single Set aRange = ActiveDocument.Range System.Cursor = wdCursorWait ' Displays the hourglass Application.ScreenUpdating = False With aRange.find .Text = "([0-9.]{1,8}%)[ ]{1,5}\(" .Replacement.Text = "^t\1^t(" .MatchWildcards = True While .Execute If aRange.Information(wdWithInTable) Then .Execute replace:=wdReplaceOne Set oCell = aRange.Cells(1) UseableWidth = _ oCell.Width - oCell.LeftPadding - oCell.RightPadding oCell.Range.ParagraphFormat.TabStops.ClearAll oCell.Range.ParagraphFormat.TabStops.add _ Position:=UseableWidth * 0.4, Alignment:=wdAlignTabRight oCell.Range.ParagraphFormat.TabStops.add _ Position:=UseableWidth, Alignment:=wdAlignTabRight aRange.Start = oCell.Range.End + 1 aRange.End = ActiveDocument.Range.End End If Wend End With System.Cursor = wdCursorNormal ' Normal cursor Application.ScreenUpdating = True StatusBar = "Macro TabsForPctAndCount completed." MsgBox Timer - t End Sub Tag: Automatic update of footer macro Tag: 106630
  - 18
    - Annoyance: Documents opening in markup mode I think my word is configured to open in markup mode, because no matter if I save a document in normal or print, it always appears in markup mode as well. I don't want it, so I recently added the following code to my documents, to switch off markup mode, when the document is opened. Sub Document_Open() WordBasic.ViewChanges If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdPrintView Else ActiveWindow.View.Type = wdPrintView End If End Sub Is there a way to switch markup mode off through word options, or is there a way to add the above code to my personal macro workbook, so that all documents open normally? Kind regards Dylan Tag: Automatic update of footer macro Tag: 106628
  - 19
    - How to create a toggle button for a toolbar command Hi there, First, I have never written a visual basic program or code or however it is called, only recorded macros a few times and looked at the code (?) in the Visual Basic Editor. Therefore, if anyone can help me, I'm afraid I will need the complete code (or whatever) that I can just paste into VBA and - hey presto! I am working with WORD 2003 and found out, thanks to this discussion group, that in order to use "select all instances" of a style I have to click "Keep track of formatting". Well, I do hate "Keep track of formatting" because it generates these stupid styles like "block text bold" etc. But, on the other hand, I sometimes would like to find all instances where a certain style is used in a document. For this purpose, I want to create a toggle button that switches on and off the "Keep track of formatting" function. I have recorded a macro to click "keep track of formatting" and it looks like this: Sub TrackFormatting() ' ' TrackFormatting Macro ' Application.DisplayStatusBar = True Application.ShowWindowsInTaskbar = True Application.ShowStartupDialog = False With ActiveWindow .DisplayHorizontalScrollBar = True .DisplayVerticalScrollBar = True .DisplayLeftScrollBar = False .StyleAreaWidth = CentimetersToPoints(0) .DisplayVerticalRuler = True .DisplayRightRuler = False .DisplayScreenTips = True With .View .ShowAnimation = True .Draft = False .WrapToWindow = False .ShowPicturePlaceHolders = False .ShowFieldCodes = False .ShowBookmarks = False .FieldShading = wdFieldShadingWhenSelected .ShowTabs = False .ShowSpaces = False .ShowParagraphs = False .ShowHyphens = False .ShowHiddenText = False .ShowAll = True .ShowDrawings = True .ShowObjectAnchors = False .ShowTextBoundaries = True .ShowHighlight = True .DisplayPageBoundaries = True .DisplaySmartTags = True End With End With With Options .ReplaceSelection = True .AllowDragAndDrop = True .AutoWordSelection = False .INSKeyForPaste = False .PasteSmartCutPaste = True .AllowAccentedUppercase = False .PictureEditor = "Microsoft Office Word" .TabIndentKey = True .Overtype = False .AllowClickAndTypeMouse = False .CtrlClickHyperlinkToOpen = True .AutoKeyboardSwitching = False .PictureWrapType = wdWrapMergeInline .DisplayPasteOptions = False .PromptUpdateStyle = True .FormatScanning = True .ShowFormatError = False .SmartParaSelection = False .SmartCursoring = True End With ActiveDocument.ClickAndTypeParagraphStyle = "Normal" End Sub Well, there seem to be quite a lot of things in this that probably are not necessary for my purpose. And I can't identify which line refers to my "keep track of formatting" function.... But, more important, I have no idea what to do now. I can assign a button to this macro, but how can I make this button toggle between the two states, so that I can click and unclick "keep track of formatting"? I am totally helpless. Tag: Automatic update of footer macro Tag: 106623
  - 20
    - Converting Visual Basic inside Word Document to VBScript Hello, I am trying to put MS Word COM Objects in to a VBScript - I am struggling with a bit of translation. Basically I want to alter a Heading style..... I use Word Macro to get me the code, which is.... objSelection.Style = ActiveDocument.Styles("Heading 1") With ActiveDocument.Styles("Heading 1").ParagraphFormat .LeftIndent = CentimetersToPoints(1.27) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 12 .SpaceBeforeAuto = False .SpaceAfter = 3 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = True .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(-0.63) .OutlineLevel = wdOutlineLevel1 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 End With How do I put that in to VBScript?? I understand I have to create the object and create a new document (as below) set objword = CreateObject("Word.Application") objword.visible = True set objDoc = objword.Documents.Add() set objSelection = objWord.Selection What else do I need to do?? Many Thanks in advane Mark Holland Tag: Automatic update of footer macro Tag: 106622
  - 21
    - How can I determine presence insertion point into some table? There is one macro which applies to table in which there is insertion point. If insertion point there not exist (insertion point is there out of table) then we is of error. How can I determine is there is insertion point into any table or not? Thank you! Tag: Automatic update of footer macro Tag: 106614
  - 22
    - Copying hyperlink including nametag Hello all, I haven't posted here in quite a while. The below macro copies the first hyperlink in the document. However, when the hyperlink includes a nametag, the copy does not include the name tag. For example, if the first hyperlink in the document is http://www.mysite.com/xxxx.html#test what the macro puts in the Clipboard is http://www.mysite.com/xxxx.html For whatever reason, the code ActiveDocument.Hyperlinks(1).Address does not include the nametag. Is there any way I can get this macro to copy the nametag if there is one? Thanks. Here's the macro: If ActiveDocument.Hyperlinks.Count = 0 Then Exit Sub End If Dim MyData As DataObject Dim strURL As String strURL = ActiveDocument.Hyperlinks(1).Address Set MyData = New DataObject MyData.SetText strURL MyData.PutInClipboard Tag: Automatic update of footer macro Tag: 106601
  - 23
    - how to make a read-only word file in word 2003? Hi , how to make a read-only word file in word 2003? thank you in advance, best regards. davidxu Tag: Automatic update of footer macro Tag: 106600
  - 24
    - Automatic Page Numbering Outside Header/Footer Hi! I'm trying to insert Page No. and No. of Pages text form fields (# of # format) in a protected MS Word form, but not inside header/ footer areas. Is this possible by using macros, autotexts, etc.? If it is, can anyone help me on this? Joy Tag: Automatic update of footer macro Tag: 106596
  - 25
    - Calculating time differences? How would I get Word to calculate time as in a time sheet, such as: In Time 8:00AM Out Time 12:30PM Word would give me 4.5 from that... Tag: Automatic update of footer macro Tag: 106590
- Next
  - 1
    - How to replace a string of characters with the count of the charac I have what seemed at first to be a trivial task for a Word 2003 SP2 macro (VB 6.3). Given a body of text containing a range of characters (letters (upper and lower case), digits, punctuation, spaces), all but the letters A-Z need to be removed, then the resulting text needs to be sorted, and finally, the count of each letter should replace each block of sorted letters. So: â??I wandered lonely as a cloud, that floats on high oâ??er vales and hills, etc., etc., with a few 12345 thrown in for good measure!â?? becomes penultimately: â??AAAAAAAAACCCDDDDDEEEEEEEEEEFFFGGHHHHHHIIIIILLLLLLLMNNNNNNOOOOOOOOORRRRRSSSSSTTTTTTTUUVWWWWYâ?? and then finally: 9 0 3 5 10 3 2 6 5 0 0 7 1 6 9 0 0 5 5 7 2 1 4 0 1 0. (The zeros appear where a letter in the sequence is missing and so the count for that letter is zero). I did some searching around and found very useful information on the use of Search/Replace with wildcards from Graham Mayor and Klaus Linke at word.mvps.org (excellent job â?? thank you!. Iâ??ve been using MS Word for probably 15 years and I still find something to learn :)) My initial code worked OK â?? my approach was to first select the entire body of text and render it upper case, then use Search/Replace with the FIND wildcard sequence [!A-Z] and the REPLACE sequence null to reduce the text to solely A-Z. A subsequent Search/Replace on the text added a carriage return after every character, the result was sorted, followed by another Search/Replace to remove all the carriage returns. (There may be a quicker/simpler way but Iâ??m not aware of it.) When it came to replacing each block of the same letter with its count, I hit a snag. Try as I might, I cannot find a simple programmatic way to do what I want. I thought I had a solution when I tested a manual approach, using FIND with Highlight checked (so the count is returned, but more importantly the block of matching text is selected on exiting FIND, so that â?? I thought â?? I could just replace the selection with the contents of Selection.Characters.Count (and add a space as a separator). Not so. What works manually doesnâ??t appear to work in a macro. If I create a macro (even if I record one) that uses FIND to locate and select all matching characters, upon completion only the first character in the group is selected, whether I use Selection or Range. I havenâ??t found a bug report that describes the FIND problem â?? yet â?? and there are clearly more complex workarounds that I could devise, but Iâ??d prefer to keep the solution minimal and simple if I can. Iâ??d be very grateful for some guidance, even if itâ??s to say: â??Use a workaround; FIND is bugged.â?? Best, Peter Example code: Sub M8() ' ' Macro M8 created 10/15/2007 by Peter GQ Brooks ' ' Sort the text. Simplest way is to begin by making everything upper case (A-Z), then use ' Search/Replace to remove everything that is NOT in the range A-Z (use wildcards and the ' expression [!A-Z] for the FIND and null for the REPLACE). ' Then replace every character with itself plus a carriage return, making each character a ' line on its own, then sort, then delete all carriage returns (replace every carriage return ' with a null). ' Select the entire document. ' Change case to upper. Selection.WholeStory Selection.Range.Case = wdUpperCase ' Ensure Find/Replace boxes have no prior formatting to impede process Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting ' Dump everything that isn't in the range A to Z. With Selection.Find .Text = "[!A-Z]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Now look for "any single character" and replace it with the same character and a carriage return With Selection.Find .Text = "^?" .Replacement.Text = "^&^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Sort entire document by paragraphs Selection.Sort ExcludeHeader:=False, FieldNumber:="Paragraphs", _ SortFieldType:=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, _ FieldNumber2:="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _ :=wdEnglishUS, SubFieldNumber:="Paragraphs", SubFieldNumber2:= _ "Paragraphs", SubFieldNumber3:="Paragraphs" ' Remove all carriage returns after sorting. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' Loop from A to Z and replace with count of character For asciipointer = 65 To 90 Selection.Find.ClearFormatting With Selection.Find .Text = Chr(asciipointer) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ' Experimental section, trying various solutions: ' Set myRange = ActiveDocument.Content ' myRange.Find.Execute FindText:=Chr(asciipointer), Forward:=True ' Stop ' If myRange.Find.Found = True Then myRange.Text = Selection.Characters.Count ' Stop ' Selection.Find.Execute ' 'Selection.Delete ' Stop ' MsgBox (Selection.Characters.Count) ' Selection.InsertBefore Selection.Characters.Count ' Stop ' 'Selection.Replace Next asciipointer End Sub Tag: Automatic update of footer macro Tag: 106588
  - 2
    - Reappearance of Error 91 Strange behaviour. I have just reinstalled Office 2003 in place of 2007, I have regained ability to add to my custom dictionary and to Spell Check in Outlook Express but a weird on exit error message has reappeared. Whenever I exit from Word I get a Microsoft Visual Basic message box saying run-time error '91': Object variable or With block variable not set. I thought I was running Word not Visual Basic. Could somebody please tell me how to get rid of this annoying artefact. -- -- Wisdom and experience come with age, they say, but I wish I could remember the darn question Tag: Automatic update of footer macro Tag: 106584
  - 3
    - Embedded document's Word icon missing after closing. Using Word 97. When I embed other Word documents in a document and select to display them as icons, the documents open fine and allow changes, but after closing, the Word icon is missing from the main document. If I double-click the area where the icon previously appeared, the embedded document reopens. But, when it closes, the icon does not display in the main document. The placeholder is there but no icon. How can this problem be solved? Thank you, Charlie charlie6067 Tag: Automatic update of footer macro Tag: 106583
  - 4
    - calculating age in word xp i want to list a birthdate on one line and todays date on another, and then in a third spot have the persons age calculated. Can anyone tell me how to do this. I am new to this and would need step by step instructions. Help please Tag: Automatic update of footer macro Tag: 106580
  - 5
    - Macro to print watermark Thanks to this group I have code to print the part of a document located between two bookmarks: Set r = ActiveDocument.Range( _ Start:=ActiveDocument.Bookmarks("DocStart").End, _ End:=ActiveDocument.Bookmarks("DocEnd").Start) r.Select ActiveDocument.PrintOut Range:=wdPrintSelection Set r = Nothing Selection.HomeKey unit:=wdStory I have placed this code into an add-in, and I use an autoexec macro to add a custom toolbar with a button for running the macro. It works as it should (although I wish I could get it to print the header and footer, but that may not be possible, from what I can understand). However, the main reason for this post is that I would like to add a watermark to the range of pages being printed. This is some code (abridged for readability) I created using the macro recorder (except that I changed "PowerPlusWaterMarkObject1" to "msoTextEffect1"). ActiveDocument.Sections(1).Range.Select ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.Shapes.AddTextEffect(msoTextEffect1, _ "XYZ Company", "Arial Black", 1, False, False, 0, 0).Select Selection.ShapeRange.Name = "msoTextEffect1" Selection.ShapeRange.TextEffect.NormalizedHeight = False ' More Selection.ShapeRange items ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument I can run the macro in the document in which it was created, but I cannot find the trick to having the macro run in the document containing the bookmarks. In other words, I open a document, and the Add-In loads with the code to print between the bookmarks. I can run the macro, and it prints only the part of the document it should. However, I cannot get it to run the watermark code on the open document. I expect part of the problem is that Sections(1) does not apply, and things of that sort, but I can't seem to sort it all out. Can I run the watermark code along with the code to print the selection between the bookmarks? Tag: Automatic update of footer macro Tag: 106579
  - 6
    - Placing checkbox on Flexgrid Hi, I am trying to place a checkbox on a flexgrid using the following code. Everything works fine, but I cannot see the checkbox. Can you please let me know what am I missing here? I have 11 columns in the grid and I want the checkbox to be on 1st row after heading row and on the last column. Dim NewCheckBox As MSForms.CheckBox mshflgrReport.Row = 1 mshflgrReport.Col = 10 Set NewCheckBox = Me.Controls.Add("Forms.checkbox.1") With NewCheckBox .Name = "MyCheck" .Caption = "" .Top = mshflgrReport.Top + mshflgrReport.CellTop .Left = mshflgrReport.Left + mshflgrReport.CellLeft .Width = mshflgrReport.CellWidth .Height = mshflgrReport.CellHeight .Font.Size = 7 .Font.Name = "Tahoma" .BackColor = &HFF00& .Visible = True .Value = True End With Thanks in advance, -- Pranav Vaidya VBA Developer PN, MH-India Tag: Automatic update of footer macro Tag: 106577
  - 7
    - Tidying up code - printing macro I need help tidying up my code or making it easier to reference. I have a few macros that do similar things each one sets a different paper tray on the printer. You will see that I have written it so that it checks the printers location so it knows which printer tray to select. Is there a way I can change it to references the printers once instead of in each macro. Many thanks for your help in advance Code:Sub Print_LH() sLocation = GetPrinterDetails.Location 'HP Printers If InStr(sLocation, "TH20194") Or InStr(sLocation, "TH20485") Or _ InStr(sLocation, "TH30412") Or InStr(sLocation, "TH20192") Or _ InStr(sLocation, "TH20482") Or InStr(sLocation, "TH30413") Or _ InStr(sLocation, "TH20484") Or InStr(sLocation, "TH20193") Or _ InStr(sLocation, "TH20195") Or InStr(sLocation, "TH30142") Or _ InStr(sLocation, "TH20164") Or InStr(sLocation, "TH30041") Or _ InStr(sLocation, "TH20165") Then With ActiveDocument.PageSetup .FirstPageTray = 2 .OtherPagesTray = 2 End With 'Sharp MX4500 Printers ElseIf InStr(sLocation, "TH30441") Or InStr(sLocation, "TH30449") Or _ InStr(sLocation, "TH30143") Or InStr(sLocation, "TH30461") Then With ActiveDocument.PageSetup .FirstPageTray = 259 .OtherPagesTray = 259 End With 'Sharp 450 Printers ElseIf InStr(sLocation, "TH30141") Or InStr(sLocation, "TH30442") Or _ InStr(sLocation, "TH30143") Or InStr(sLocation, "TH30245") Then With ActiveDocument.PageSetup .FirstPageTray = 2 .OtherPagesTray = 2 End With Else: MsgBox "The Printer you are trying to use is either not networked or incorrectly set up." _ & vbCrLf & "In the first instance please use the File|Print Menu (Ctrl P)." _ & vbCrLf & "In the second instance please contact IT on Ext 109. " & sLocation, vbOKOnly End If Application.PrintOut filename:="", Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=False, PrintToFile:=False End Sub Tag: Automatic update of footer macro Tag: 106571
  - 8
    - Inserting Table of Contents @ End of Word Document Hello, I am using Word COM to automatically add some text to page 1 of a document, then insert a TOC (Table of Contents) on Page 2. I am struggling on how to tell it to insert the TOC at the END of the document (As I am building it upwards). When I try and do an insert it deletes the text I've placed on page 1. set objword = CreateObject("Word.Application") objword.visible = True set objDoc = objword.Documents.Add() set objSelection = objWord.Selection objselection.TypeText("FIRST PAGE TEXT HERE") objSelection.InsertBreak(7) set myRange = objDoc.Range(0,0) objdoc.TablesOfContents.Add myRange Many Thanks in advance Mark Tag: Automatic update of footer macro Tag: 106565
  - 9
    - how to control the encrypted word document's password? i have added readonly and modify password to word document using VBA,but when i open the encrypted word document ,i can remove the readonly and modify password with word's tool,how to let me can not remove the readonly and modify password . Tag: Automatic update of footer macro Tag: 106564
  - 10
    - Macro that searches for highlights Strange happenings. I have a macro that searches for highlighting and copies it to the clipboard. Occasionally, the macro aborts with an error because there's nothing to copy. 1) If I manually search for highlights, I don't find any. 2) The macro supposedly finds something, but the cursor is still sitting at the top of the dcoument when the error occurs. 3) I tried to test for a zero-length field to work around the problem, but the selected data wasn't zero-length. ???? Note #2. 4) I eventually traced the problem to certain cells in a table. a) If I delete the data in that cell, the problem persists. b) If I select the cells and "remove highlighting" then the macro works fine. I know the solution, but I need more.. * Does anyone know what might be happening? * I want to find a way to train my macro to detect the problem and not abort when it encounters it. Just in case, here's the relevent portion of the macro (I've test it to see if it is troubled by those nasty cells -- it is): Sub temp3() Selection.Find.ClearFormatting Selection.Find.Highlight = True With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True End With If Selection.Find.Execute = True Then MsgBox "Found" End Sub I'm afraid I don't know how to let you examine the cells. -- JohnTheTemp Tag: Automatic update of footer macro Tag: 106509
  - 11
    - Making a Process Alphabetical I have an ongoing problem. I use a program written in Access that manipulates a bunch of Word documents. I'll spare you the details, but the program basically does the following... (1) Creates and opens a new word file (called the "collection document"), and then creates a header and inserts a blank table of contents. (2) Begins opening Word files, one at a time, n a specified folder path. (3) When each Word file is opened, the program searches for a bookmarked block of text, copies that text, switches back to the "collection document," inserts a heading equal to the filename of the Word document from which it copied the text, and pastes the text immediately below. (4) The program loops through all of the documents in the specified folder. (5) When there are no more documents, the program updates the TOC to show the page numbers of each heading, and saves and closes the "collection document." My problem is... I want the blocks of text to be alphabetized by their heading. I thought that the program would loop through the files in the folder in alphabetical order, but it seems to use some random order that I can't figure out. I'm just using a simple Do While loop to loop through the files, as shown below [code establishing variables and such] myname = Dir(filedir, vbNormal) ' Retrieve the first entry. Do While myname <> "" ' Start the loop. If Left(myname, 1) <> "~" Then If (GetAttr(filedir & myname) And vbNormal) = vbNormal Then If Right$(myname, 4) = ".doc" Then Set mydoc = myapp.Documents.Open(filedir & myname, False, True, False) [the code for finding and copying the bookmarks, and pasting them into the collection document, is here] 'close the file mydoc.Close SaveChanges:=False End If End If End If myname = Dir Loop [code to update TOC, and some other random formatting stuff, and to save and close the document] Any idea where it is getting the order to go through the files? Any way to change something so that it goes through them in alphabetical order? Thanks, td Tag: Automatic update of footer macro Tag: 106501
  - 12
    - Command Bar ID I have the ORK .ADM templates added into a GPO. I need to prevent users from using the Send To.. Command Bar. It's not listed in the predefined "Disable command bar and menu items" so I have to go to the custom "Disable command bar and menu items" section, and it wants the commands bar ID to disable it. I don't have Visual Basic for Applications, and it isn't looking like I will be getting it any time soon. Does anyone happen to know the command bar ID for "Send To..." and/or any of it's sub-commands? Thanks for your time. Tag: Automatic update of footer macro Tag: 106498
  - 13
    - Conditional Macro Word 2003 I have a form document that is comprised of a series of six questions. Each question is followed by a Check Box; The CheckBox Bookmarks are named: Schedule1A, Schedule2A, etc. ending with Schedule6A I would like to set up a macro that begins with a *Submission Button* which would appear at the end of the form, analyze the condition of the preceding CheckBoxes and *fire* the remainder of the macro, which would beâ?¦ If the Check Box for Schedule1A is checked, insert Document No. XYZ at the end of the current document, followed by a Section Break If the Check Box for Schedule2A is checked, insert Document No. ABC at the end of the current document, followed by a Section Break So forth and so on, up to and including Schedule6A The reason for wanting the Section Breaks between the inserted documents is to facilitate the reordering of the subsequent compiled document if needed. If any one of you has a suggestion as to how to go about the above, I would be most appreciative. This is my first undertaking of anything beyond simple recorded macros â?? so please be gentle! Hopefully, Iâ??ve written out this macro scenario in a manner that is capable of being understood. Thanking you in advance, I remainâ?¦ Very truly yours â?? Rod Tag: Automatic update of footer macro Tag: 106496
  - 14
    - what is VBA? Im sorry but Im new to the whole microsoft office software and I wanted to know what VBA is and what does it do? Tag: Automatic update of footer macro Tag: 106494
  - 15
    - Working with FormFields in VBA I am having one .rtf file protected with some form fields enabled for user entry. I wanted to have Spell Check enabled for this protected document. I found your code online and seems that is working perfectly fine for spell check. Now the issue is that while running spell check, this code somehow also removes the name associated with the form fields, this is problematic as I want to parse the document on the basis of the name. I tried creating array of the form field name and assigning those name back after spell check but seems like that FormFields is a read only property. So can you please help me out in this problem? Thanking you in advance. Tag: Automatic update of footer macro Tag: 106493
  - 16
    - auto update invoice date and number. What can I do to get my invoice template to automatically update the date and invoice number when I open it? Tag: Automatic update of footer macro Tag: 106490
  - 17
    - printing multiple copies VBA Hi This line of code works perfectly in Word 2002 but ignores whatever is in the text box now in Word 2003? ActiveDocument.Printout Copies: = txtnum.value I have tried ActiveDocument.Printout Copies: = val(txtnum.value) and this does not work either? Any suggestions anyone please? Thanks GwenP Tag: Automatic update of footer macro Tag: 106484
  - 18
    - Center-Align a table I need to center align some tables. I am using a macro in which I go to the table using a bookmark and then do: Selection.Tables(1).Rows.Alignment = wdAlignRowCenter this seems to center-align a right-aligned table but is not working for a left-aligned table. I am thoroughly stumped...! Tag: Automatic update of footer macro Tag: 106480
  - 19
    - Style changes Where, oh! where is the default setting which, if set (or is it unset?), means I can confirm a style change and click the style box and a dialog box comes up asking if I want to keep changes or revert back? I set it ages ago and cannot find where so I can tell a friend. I am using 2002 but is it the same for all? Francis Hookham Tag: Automatic update of footer macro Tag: 106475
  - 20
    - please clarify menu customization context Hello I've read to not change normal.dot when adding a custom menu. So I've put my custom menu and macros on a global template and saved the template in the startup folder (wdStartupPath). When i do this (and checked its loaded as an add-in) I can only see my menu when there is a document open that is attached to the global template (which I've read I should never have, and don't want). When the active document is attached to normal.dot I cannot see my menu. But with alt-F8 I can see my macros on the template. I thought I had read customization and macros on global templates were available (and visible) to all open documents, whatever their template. Can someone pleases clarify if this is supposed to work? FYI... I've built my menu at runtime with customization context as the global template and set to visible and enabled. I've also made one manually at design time with the same result. Word 2002 and 2007 Thanks! Tag: Automatic update of footer macro Tag: 106471
  - 21
    - Want to protect, but not lock for viewing Hi there, for ask field purposes, I've needed to create a lock function that locks the sheet but does not refresh the fields. So using this: ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="pfhlock" The only problem is, this is inserting a "lock for viewing" password too. This is to be sent out for people to update certain fields but I don't want to have to provide them with a password because this will unlock the entire sheet. How can I get around this? Tag: Automatic update of footer macro Tag: 106470
  - 22
    - Saving a setting for a document and template no matter who opens i ---Saving a setting for a document and template no matter who opens it (and no matter what their normal.dot template specifies)--- Saving a setting for a document and template no matter who opens it (and no matter what their normal.dot template specifies) Hello all, I need to know if setting the Tools>Options > check spelling as you type while working in a particular document... will save for just that document, or for all documents ever opened from that computer. i.e is the setting a.. document setting, or a user profile setting, or a template setting? How do I make Word always 'check spelling as you type' for EVERY document opened and created, without having to set the option for every document?I'm guessing I set my own normal.dot template this way. This is fine for me...but on a network level like SharePoint when many people may look at one document, just say my normal.dot says to 'check spelling...', but their normal.dot doesn't have it checked, is there any way I can make it so at least that particular document has the option set? i.e can i save the setting to the document itself, not just to normal.dot? Tag: Automatic update of footer macro Tag: 106468
  - 23
    - Enable/Disable Toolbar button Word does it, so how can I do it? I want to enable/disable a toolbar button depending on cursor location/selection. For example, if I put the 'Restart Numbering' and 'Continue Numbering' buttons on the 'Formatting' toolbar, Word "knows" to enable these buttons _only_ if the current selection is numbered. Any ideas on how to replicate this functionality for the buttons on my own custom toolbar so the macro assigned to the button can be run only in the correct context? (In fact, the 'Restart/Continue Numbering' functionality is the functionality that I want to replicate, but I can't just add the native Word buttons to my custom toolbar because this functionality doesn't work with protected documents. So if somebody has a clever idea for getting around this...) -- Cheers! The Kiwi Koder Go the (~cough-splutter-gag~) 'Boks... Tag: Automatic update of footer macro Tag: 106459
  - 24
    - Saving changes made in a form If a user opens a form to edit a document, is there a way to save the original information of the changes made in the document as Variables? If it can be done is there a way to call it back up later for review? LEU Tag: Automatic update of footer macro Tag: 106458
  - 25
    - Compile Error: Method or data member not found I keep getting a message that says the following: Compile Error: Method or data member not found The code looks like this: Private Sub CommandButton1_Click() ListBox1.BoundColumn = 1 ActiveDocument.Variables("FirstName").Range.InsertBefore ListBox1.ValueNext i ListBox1.BoundColumn = 2 ActiveDocument.Variables("LastName").Range.InsertBefore ListBox1.ValueNext i ' etc. ActiveDocument.Fields.Update UserForm1.Hide End Sub And the error occurs on this line: ActiveDocument.Variables("FirstName").Range.InsertBefore I got this idea form this site: http://www.pcreview.co.uk/forums/thread-875661.php I get my ListBox1 to load with this sub: Sub Userform_Initialize() Dim i As Integer, Addressee As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim NoOfRecords As Long ' Open the database Set db = OpenDatabase("C:\Documents and Settings\RMS\Desktop\Contacts.xls", False, False, "Excel 8.0") ' Retrieve the recordset Set rs = db.OpenRecordset("SELECT * FROM `List`") ' Determine the number of retrieved records With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With ' Set the number of Columns = number of Fields in recordset ListBox1.ColumnCount = rs.Fields.Count ' Load the ListBox with the retrieved records ListBox1.Column = rs.GetRows(NoOfRecords) 'ListBox1.List = rs.GetRows(NoOfRecords) 'Transposed List ' Cleanup rs.Close db.Close 'AddressBlock = db Set rs = Nothing Set db = Nothing End Sub Does anyone have any ideas as to what I'm doing wrong? This would be so awesome if I could get it to work!!! Thanks, Ryan-- -- RyGuy Tag: Automatic update of footer macro Tag: 106451

I'm posting this for a user who sent me the following query, which I've
inserted below as submitted to me:

"Hi ,

Don't know if you know any VBA but I have a problem that I haven't been able
to resolve. I don't know any VBA but I can usually cheat by looking
something up via google or recording a macro and transferring and altering
parts of the code to do what I need it to do. But I haven't been able to
figure this one out:

I have a footer macro that I set up to include the "last author" and "last
modified" items rather than the current date/time and the original author.
The problem with my footer is that it doesn't update these items
automatically when I save. It will only update if I re-run the macro to
insert the footer. (This is the same problem as with using the regular
pathname footer in Excel - which doesn't update when you use save as and save
a file with the pathname in the footer to a new location.)

Sub Footer()
'
' Footer Macro
' Macro recorded 3/26/2007 by atao
'

ActiveSheet.PageSetup.LeftFooter = "&8Last Modified by " & ActiveWorkbook. _
BuiltinDocumentProperties("last author").Value & " " &
ActiveWorkbook. _
BuiltinDocumentProperties("last save time") & Chr(10) & "&Z&F\&A"

ActiveSheet.PageSetup.RightFooter = "&8&P of &N"

End Sub

So, I am either trying to find a way for those items to auto-update as does
current date and time (when you use &[date] &[time] (which I have a feeling
can't be done for Builtin Document Properties or have the macro re-run
automatically upon saving. I found something called "OnAction" property that
may do the trick when save is pressed but I actually don't know any VBA so I
thought maybe you would be able to help me?"

Top

Re: Automatic update of footer macro by Graham

Graham
Thu Oct 18 23:15:11 PDT 2007

This forum is for Microsoft Word. Ask your Excel questions in an Excel
forum.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Greg wrote:
> I'm posting this for a user who sent me the following query, which
> I've inserted below as submitted to me:
>
> "Hi ,
>
> Don't know if you know any VBA but I have a problem that I haven't
> been able to resolve. I don't know any VBA but I can usually cheat
> by looking something up via google or recording a macro and
> transferring and altering parts of the code to do what I need it to
> do. But I haven't been able to figure this one out:
>
> I have a footer macro that I set up to include the "last author" and
> "last modified" items rather than the current date/time and the
> original author. The problem with my footer is that it doesn't update
> these items automatically when I save. It will only update if I
> re-run the macro to insert the footer. (This is the same problem as
> with using the regular pathname footer in Excel - which doesn't
> update when you use save as and save a file with the pathname in the
> footer to a new location.)
>
> Sub Footer()
> '
> ' Footer Macro
> ' Macro recorded 3/26/2007 by atao
> '
>
> ActiveSheet.PageSetup.LeftFooter = "&8Last Modified by " &
> ActiveWorkbook. _ BuiltinDocumentProperties("last
> author").Value & " " &
> ActiveWorkbook. _
> BuiltinDocumentProperties("last save time") & Chr(10) &
> "&Z&F\&A"
>
> ActiveSheet.PageSetup.RightFooter = "&8&P of &N"
>
> End Sub
>
>
> So, I am either trying to find a way for those items to auto-update
> as does current date and time (when you use &[date] &[time] (which I
> have a feeling can't be done for Builtin Document Properties or have
> the macro re-run automatically upon saving. I found something called
> "OnAction" property that may do the trick when save is pressed but I
> actually don't know any VBA so I thought maybe you would be able to
> help me?"

Top