Toobar Button FaceID display on userform

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - compare & merge (with boiler macro)? lifehacker.com posted a good tool that was modified by gmayor using boiler template as a macro for word. While it does what I want to insert a document, I really want to modify it to use word 2003+'s compare and merge feature rather than just inserting a document into each other like chapters. desired results: 2+ same structure files to merge, but different contents all merged into file 1's structure with content appended to the appropriate sections and TOC's updated. question: I'm looking at the OK button inside the VB editor but I do not know the command for compare and merge. Could someone point me in the correct direction? modified boiler: http://www.gmayor.com/downloads.htm Tag: Toobar Button FaceID display on userform Tag: 110980
  - 2
    - Using Macro to Change case of text in merge I'm trying to run a merge from Goldmine to word 2003, however the fields I'm bringing in are all in UPPERCASE, is it possible to run a macro that changes the fields to title case? The fields look like: {DDEAUTO GoldMine Data &Company \*CHARFORMAT } I've tried the usual right click "edit field" and change the case in the properties dialogue - but it isn't listed as an option.. Any help appreciated. Thanks, Jon Tag: Toobar Button FaceID display on userform Tag: 110974
  - 3
    - Hyperlink Target Frame I am trying to set up my word Documents so that clicking on any hyperlink will make the hyperlink destination appear in a frame to the right of the document. Is there a way to do any of the following a) On opening the document, if the right hand frame does not exist, create it and give it a name b) On clicking on the hyperlink, open up the right hand frame if it doesn't exist. c) Protecting the document so that the user cannot delete the right hande frame TIA Tony Tag: Toobar Button FaceID display on userform Tag: 110966
  - 4
    - HOW TO KEEP A RANGE INSIDE QUOTES? Hi, programmers, I have a question on a very helpful macro posted here for finding and underlining text between quotation marks. It works great--except when quotes are preceded or followed by a comma or Wildcard. In that case, the range extends right on through to the next instance of quotes that DONâ??T have any commas right before or after them. Is there a way to keep the range from extending in these instances? Thank you for all your help. Here is the code: Sub FindAndUnderlineTextInQuotes() Dim oRng As Range Set oRng = ActiveDocument.Content With oRng.Find .ClearFormatting .Text = "[^0034^0147]<*>[^0034^0148]" .Forward = True .Wrap = wdFindStop .MatchWildcards = True Do While .Execute If oRng.Find.Found = True Then With oRng .MoveEnd Unit:=wdCharacter, Count:=-1 .MoveStart Unit:=wdCharacter, Count:=1 .Font.Underline = True .Collapse wdCollapseEnd End With End If Loop End With End Sub Thanks! -Lynne Tag: Toobar Button FaceID display on userform Tag: 110962
  - 5
    - Populate Comments property from paragraph items Hello, Searching for something like this for many hours and still no luck. I have an account that provides me with approx. 300 word documents a month. I process these in batches and send them to a file server for further action. Is it possible to write a script or macro to take the first 4 paragraphs and insert that data into the document properties with BuiltinDocumentProperties? I have tried recording a macro, and using keyboard shortcuts to copy the paragraphs and pasting into the properties doesn't work. Paragraph 1 is always Name [To Subject Field] Paragraph 2 is always Date [To Keywords] Paragraph 3 is always Account Number [Also to Keywords] Paragraph 4 is alwayds chief complaint [To comments] Thanks for any help on this in advance! Tag: Toobar Button FaceID display on userform Tag: 110954
  - 6
    - Ribbon Customizatin AddIn This is a long post with multiple questions. Please don't be discouraged and feel free to answer all or part. Thank you. The other day I became interested in creating an Template AddIn that will add a group to the built-in Add-Ins tab. The group holds one Dropdown. I wanted the dropdown item count, labels, and OnAction events to be dynamic based on information stored in a table contained in the AddIn. The RibbonX was fairly simple. I just added a new group to the Add-Ins tab that contained one dropdown control: <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Onload"> <ribbon> <tabs> <tab idMso="TabAddIns"> <group id="Grp1" label="Proof Reading"> <dropDown id="DD1" label="Add Marks" getItemCount="GetItemCount" getItemLabel="GetItemLabel" getSelectedItemIndex="GetSelectedItemIndex" onAction="MyDDMacro"> </dropDown> </group> </tab> </tabs> </ribbon> </customUI> I used call backs to set the dropdown list count, the label for each list item, and the default displayed list item As a practical exercise (and prompted by a another post in the newsgroups) I decided to use the OnAction callback to insert pre-definded comments in the text at the selection. I used a two column table in the Addin to define the dropdown labels and default comment text. E.g., Column 1 Column2 Select error agree. Agreement of subject and verb ant. Antecendnet. "the person believed that they." The sentence is incorrect because person is singular, and they is plural The code in my VB Project (with comments) is as follows: Option Explicit Public myRibbon As IRibbonUI Private myArrayPri() As String Private myArraySec() As String 'This procedure fires when the Add-In is loaded. Its purposes is to load the values contained in the template Add-In table into a pair of arrays. myArrayPri() holds the data to be used for the dropdown labels. myArraySec() holds the data for the predefined comment text. The procedure opens a new document based on the template AddIn and populates the arrays with data in the tables. The new document is then closed without saving changes. Sub AutoExec() Dim aTemplate As Template Dim oDoc As Word.Document Dim oTbl As Table For Each aTemplate In Templates If aTemplate.Name = "Proofreading Marks.dotm" Then Set oDoc = Documents.Add(aTemplate.FullName, , , False) Set oTbl = oDoc.Tables(1) myArrayPri() = GetErrorArray(oTbl) myArraySec() = GetDescriptiveArray(oTbl) oDoc.Close wdDoNotSaveChanges Exit For End If Next End Sub 'This procedure fires when the template AddIn is opened directly for editing (i.e., either the VB code or the table data) Sub AutoOpen() AutoExec End Sub 'The next two function actually populate the two arrays. Function GetErrorArray(ByVal oTbl As Table) As String() Dim i As Long Dim tempArray() As String ReDim tempArray(oTbl.Rows.count) For i = 1 To oTbl.Rows.count tempArray(i - 1) = Left(oTbl.Cell(i, 1).Range.Text, Len(oTbl.Cell(i, 1).Range.Text) - 2) Next i GetErrorArray = tempArray End Function Function GetDescriptiveArray(ByVal oTbl As Table) As String() Dim i As Long Dim tempArray() As String ReDim tempArray(oTbl.Rows.count) For i = 1 To oTbl.Rows.count tempArray(i - 1) = Left(oTbl.Cell(i, 2).Range.Text, Len(oTbl.Cell(i, 2).Range.Text) - 2) Next i GetDescriptiveArray = tempArray End Function 'This is a RibbonX callback needed to create a ribbon object (I think that is what it does???) Sub Onload(ribbon As IRibbonUI) Set myRibbon = ribbon End Sub 'This RibbonX callback establishes the number of items in the dropdown. The "id" of the dropdown created by the RibbonX is "DD1." The count of items is = to the number of items in myArrayPri() Sub GetItemCount(ByVal control As IRibbonControl, ByRef count) Select Case control.id Case "DD1" count = UBound(myArrayPri) Case Else 'Do Nothing End Select End Sub 'This RibbonX callback is used to define the labels for each item in the dropdown. The procedure is called once for each item in the dropdown: Sub GetItemLabel(ByVal control As IRibbonControl, Index As Integer, ByRef label) Select Case control.id Case "DD1" label = myArrayPri(Index) Case Else 'Do nothing End Select End Sub 'This RibbonX callback sets the default dropdown item to display when the Ribbon control is created. In this AddIn, I want "Select error" to be displayed intially and after each OnAction event: Sub GetSelectedItemIndex(ByVal control As IRibbonControl, ByRef Index) Select Case control.id Case "DD1" Index = 0 Case Else 'Do nothing End Select End Sub 'This RibbonX callback is fired when the user selects one of the items in the dropdown. It does several things: '1. Determines if there is an open document. If not, the control is invalidated (causes the control to be rebuilt with "Select error" displayed) '2. Determines if there is text selected to comment on. If not the control is invalidated '3. Uses the dropdown item selected to insert a custom (customizable) comment at the selection ' a. Displays a userform containing pre-defined comment text ' b. Temporarily sets the Application.UserInitials = the contol label text Sub MyDDMacro(ByVal control As IRibbonControl, selectedId As String, selectedIndex As Integer) Dim oFrm As UserForm1 Dim pUserInt As String Select Case control.id Case "DD1" If Documents.count < 1 Then myRibbon.InvalidateControl control.id Exit Sub End If If Selection.Type = wdSelectionIP Or wdNoSelection Then MsgBox "Please select the proofreading error in the text before inserting comments." myRibbon.InvalidateControl control.id Exit Sub End If Select Case selectedIndex Case Is = 0 'Do Nothing Case Else pUserInt = Application.UserInitials Set oFrm = New UserForm1 oFrm.TextBox1 = myArraySec(selectedIndex) oFrm.Show Application.UserInitials = myArrayPri(selectedIndex) Selection.Comments.Add Selection.Range, oFrm.TextBox1.Text Unload oFrm Set oFrm = Nothing Application.UserInitials = pUserInt myRibbon.InvalidateControl control.id End Select Case Else 'Do Nothing End Select End Sub The UserForm contains one textbox and one command button. The textbox is set for multi-line. The command button code is: Private Sub CommandButton1_Click() Me.Hide End Sub Problems/Questions: 1. I am not very confident of my process for populating the two arrays with the data needed for the callbacks. My goals is to find the simplest way to make the data customizable to the user and accessible to the the callback. By putting the data in a table contained in the template. All the user needs to do is open the template and edit the table. Once that is done, then when the template loads the the compiler has to get to it. AutoExec is the only event that I know of that fires when a template is loaded. Is this correct and is this the best way? 2. a. I have not been able to isolate why, but when I put my Addin in the Word Startup Folder and start Word I always get an error message "Subscript out of range." b. If I remove the AddIn from the Startup folder and attempt to load the Add-In manually, I get a get the same message: "Subscript out of range." c. If I leave Word running, remove the AddIn, and load it a second time it loads and works perfectly without error. d. The error message never happens when I open the AddIn directly. I assume that this problem is caused by some sort of timing conflict with the AutoExec procedure and maybe I could correct it with a Do Events statement but I am not very familiar with those and I don't know how to proceed. Any thoughts or ideas to fix this? I'll be happy to share the complete template with anyone that is interested in assisting to resolve the issue above. Just contact me vai my website feedback at the link below and I will send it as an attachment. Thanks. -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Greg Maxey - Word MVP My web site http://gregmaxey.mvps.org Word MVP web site http://word.mvps.org ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Tag: Toobar Button FaceID display on userform Tag: 110939
  - 7
    - Word 97 Won't Allow File Replacement Though this has worked well for years, it isn't anymore. - I export an ASCII delimited text file from another database program; - DDE commands are sent to Word to run a macro. The macro opens the exported file and performs mail merge ; - Suddenly newly exported text files from the database are not replacing the old ones (by the same name); - I have to shut down Word and restart. Then it's fine until the first merge; - I'm not getting error messages. If there's no way ensure that Word automatically 'releases' the file, can I build something into the macro? Thank you for any help. Tag: Toobar Button FaceID display on userform Tag: 110917
  - 8
    - limit accessibility to specific form fields in Word protected temp Turning protection on in a word template allows several things, protecting the contents and allows form fields to exist. Is there a way, either a field itself or macro code, to block all but a specific user from entering information into a field. Can an entry, password macro be written which would allow this to happen? It's easy enough in Excel to block or allow entry into a cell, but not obvious, if at all possible in Word tables. Can someone illustrate some possibilities? Best Regards.... Lenny Tag: Toobar Button FaceID display on userform Tag: 110916
  - 9
    - How to get perform this operation only in the current Cell of a ta Hi, I have a macro that splits the cells that have Hard returns inside all the tables in my current document into separate rows. Someone sent me this macro below to perform this function. If I need this macro to operate only on the current Cell where my cursor is and not all the tables in my document, how should I modify this? Macro Below: Sub RowSplit() For x = 1 To ThisDocument.Tables.Count For Each r In ThisDocument.Tables(x).Rows If InStr(1, r, Chr(13)) < Len(r.Cells(1).Range) Then rowsArray = Split(r.Cells(1).Range, Chr(13)) nSubRowCount = UBound(rowsArray) If nSubRowCount > 1 Then r.Select For i = nSubRowCount To 1 Step -1 If Len(Replace(rowsArray(i), Chr(7), "")) > 0 Then Selection.InsertRowsBelow ThisDocument.Tables(x).Cell(r.Index + 1, 1).Range = rowsArray(i) r.Select End If Next Selection.Range = rowsArray(0) End If End If Next Next End Sub Tag: Toobar Button FaceID display on userform Tag: 110911
  - 10
    - Reset to default printer I have a user that occasionally needs to send a print job somewhere other than the default printer. At that point Word remembers his last used printer but he does not and he ends up "losing" his print jobs by sending them to the wrong printer. Is there any way to force Word to always select the default printer when the Print dialog is open, even if the last print job went to a different printer? I'm hoping that there is a Print event that can be triggered with every print request to reset the selected printer to the default. This would need to happen whether the Print...(Ctrl+P) command was used or the Print button on the toolbar was clicked. Regardless of how, it needs to be pretty much invisible to the user. Thanks, Tag: Toobar Button FaceID display on userform Tag: 110909
  - 11
    - Print msgbox or print string values? At the end of my Word macro I use a msgbox filled with text and the value of some strings is it possible to print the value of these strings in a document or to print the msgbox as a whole? Tag: Toobar Button FaceID display on userform Tag: 110905
  - 12
    - Text Entry in Forms, Variables I am constructing forms in Word 2007 where I want to have the same functionality as is present in WordPerfect's variables. In WordPerfect, I create a variable in a form (for example, a variable for the name of a building, and I insert that variable in 12 different locations in the document. If I want to change the building name, I double click on any of the 12 occurrences of the variable, and the change is reflected in all 12 locations. I assumed Word 2007 has similar functionality, but I can't really find it, at least "out of the box". I am using the content controls with some coding to automate the updating of all similarly named controls, but I am having problems with that method. Am I missing something? Is there something in word that allows m, without writing code, to get more or less the same functionality as is present in WordPerfect's variables? I am trying to transition from WordPerfect to Word, and am creating Word versions of my WordPerfect forms. Thanks very much. Drew Capuder d.capuder@att.net Tag: Toobar Button FaceID display on userform Tag: 110891
  - 13
    - Selecting Specific Range Within A Document Without Search (Word 2003) Here's a Word 2003 VBA question about RANGEs that's been driving me nuts for a while. Supposing I have a document that somewhere has the following on a line by itself, effectively being a paragraph: ********** (A) MY SAMPLE WORDS TO SELECT: Hello World and later on it has a line that has (B) MY OTHER SAMPLE WORDS TO SELECT: Hello Universe, So Vast Thou Art. ********* Without using the search functionality, how would one code to do the following three tasks: 1. Select the the stuff following the colon and two spaces in sample (A), whatever it may be (in this case, "Hello World") 2. Select the stuff before the comma in my example (B), whatever it may be (in this case it is Hello Universe) 3 Select the stuff between the comma and end of the line (in this case, it is "So Vast Thou Art"). Regards, Alan Tag: Toobar Button FaceID display on userform Tag: 110873
  - 14
    - Controlling Pages in Word through automation Hi All, I'm fairly new to using the Word object model (2007) and have a couple of questions regarding controling the pages programatically. What i need to be able to do is to copy various charts and images from excel and lay them out on a word page. I'm going to be resizing these images so that the fill a 1/4 page size each. WHat i'd like to know firstly is how are new pages added? My intention is to resize the images and ensure that there is no way that 4 images will flow over onto the next page. How, if i do this can i add a new page and then reference this to start adding further elements? Any help is most appreciated, thanks in advance, G Tag: Toobar Button FaceID display on userform Tag: 110871
  - 15
    - How to change grammar/style option for sentences more than 60 word I want to know how to change the grammar and style option that calls out sentences that are more than 60 words per sentence. I want to change the grammar checking so when I run the Spelling and Grammar tool, it will flag sentences with more than 25 words, rather than 60 words. Tag: Toobar Button FaceID display on userform Tag: 110870
  - 16
    - Disable pop up windows in Office 2003/2007 Hi, I am using the Office object model 2007/2003(word excel and ppt) with visual studio 2005. While opening the File through office object model of ppt,excel and word from network location.It is opening a pop up while opening the file with office object model 2007.how can we hide the popup. is there any property to hide the popup. thanks Tag: Toobar Button FaceID display on userform Tag: 110862
  - 17
    - code line number Is there a way to retrieve the line number of the vba code itself? Such as, if an error occurs, throwing up a message box that says "Error at code line 173" Tag: Toobar Button FaceID display on userform Tag: 110853
  - 18
    - determine last word selected or changed possition Hello, Is there a way to set a variable with the possition of the last word changed??? last word selected??? TIA Tag: Toobar Button FaceID display on userform Tag: 110851
  - 19
    - Identifying a grammar error VBA Gerus, If my code selects a word in a document (e.g., "while"), how do I determine if the word is part of a grammar error without stepping through each error in the document to locate it? The code "For Each MisWord In ActiveDocument.GrammaticalErrors" can be used to step through and identity each error, but what I need is to be on a word and determine if it is part of a grammar error. Thanks. Charlie from Texas Tag: Toobar Button FaceID display on userform Tag: 110846
  - 20
    - XML for Comment Button Alright, so here's what I'm looking at. I'm making a custom tab on the Ribbon/Fluent UI in Word 2007. I've got that part down. It'll be populated with a series of buttons and/or drop down boxes, each of which is set to insert a prescripted comment into the document at where the cursor is. How do I do this? I know how to make a button which inserts some text into the document, but not how to make the button (or alternatively choosing an option from a drop down list or whatever) insert a comment. Also, on a related note, is there a way to make this user customizable? By that I mean, have like a Word document or Excel file that has all the names of the comments and the comment text and the user can change the text of a comment or title? Thanks! Tag: Toobar Button FaceID display on userform Tag: 110842
  - 21
    - Installing a macro I've written a macro for Word which multiple people would like to have installed on their office and personal machines. In some cases, bringing their personal machines to me would be inconvenient for them, and travelling to their residence is an awkward option at best. In these cases, I would like to provide them a way to easily and painlessly install my macro (one or two-click installation, not a 13 step process of manually installing it in Word). Is there such a way to create a macro installation file, and if so, how? Tag: Toobar Button FaceID display on userform Tag: 110839
  - 22
    - Inserting a full stop (period) at the end of each footnote should one Dear Experts, I wonder whether it is possible to insert a full stop at the end of each footnote should a full stop be missing. If there is already a full stop in place, the code should skip that footnote. I tried to write the macro myself but kept getting error messages. Your valuable help is much appreciated. Regards, Andreas Tag: Toobar Button FaceID display on userform Tag: 110834
  - 23
    - Linked drop down fields - auto populate second field Hi, This macro works fine http://gregmaxey.mvps.org/Linked_DropDown_Fields.htm however is it possible to modify this so the second field Auto Populates based on the selection of the first drop down box? At present the user has to manually click in the second field and select from a list. In my case my list only needs to contain one choice. Eg. My first drop down list includes a list of names: John Smith, Bob Smith, Fred Smith which correspond to each of their own postal addresses. So If I select Bob Smith then the second field should auto populate with his address and so forth. This doesnt happen in the macro above can anyone suggest how this second field can be auto populated. Thanks. Tag: Toobar Button FaceID display on userform Tag: 110817
  - 24
    - Macro to fix control click for a sentence Is there a way to create a macro using a simple keyboard shortcut that will only select one sentence quickly like control click does normally? Control+click has a serious flaw for use in a manuscript with a lot of endnotes at the end of sentences. It always selects not only the sentence clicked on, but also the previous endnote on the previous sentence. Is there a way to make it only selected the sentence at hand and not the previous endnote, with a keyboard macro. I use this control+click a lot on large mss with lots of endnotes. Note: control+click will not select, oddly eneough, spaces before a sentence or a bracket after a previous sentence's period, just an endnote number after the last sentence's period?? Tag: Toobar Button FaceID display on userform Tag: 110814
  - 25
    - Trying to move label control using VBA I have a Word 2003 document that allows users to select a location from a drop-down list to pre-populate the letterhead with the correct address. The letter is used for several companies within our organization. After making the selection from the drop-down list, the company name gets loaded into one label control with bold formatting, and the address gets loaded into a second label control directly below the company name. Some of the international addresses have more lines in them than the domestic addresses, and I want the last line to line up with a graphic on the letterhead. Since the company names and addresses are in two separate label controls, bottom-alignment causes blank spaces under the company name. It appears that my best solution is to determine how much vertical space the address will require, then move the label controls accordingly so the bottom lines up with the graphic. I attempted to combine the label controls, but it appears I cannot use multiple formats within the same control (which would also solve my problem). I found some information for programmatically placing shapes in Word, but I have not been able to use the code for the label control. Does anyone have sample code to place the label control relative to the top of the page? For what it's worth, the document must remain backward compatible with Word 2000. Thanks in advance! Tag: Toobar Button FaceID display on userform Tag: 110811
- Next
  - 1
    - Disable VBA Hi, I have a bunch of documents that use all sorts of macro code to format and control the document. The documents are all based on a template and the code is located in the template. I want to add a "publish" function that will prepare the document for sending out to customers (update a few fields, set document protection etc). At the completion of the publish function, I want it to either disable or remove the macros from the published instance document. This is important, because we don't want to expose the macros and other bits and pieces to our customers (or even to have the warning dialogue pop-up). Is this possible? The second piece that would be wonderful is to add the ability to reactivate the code from the original template, to allow us to manage and update the document. I can assume that the original template is available for this function. Tag: Toobar Button FaceID display on userform Tag: 110808
  - 2
    - any idea how I can do this instead If I use a drop down list with 5 choices, if choice 2 or 3 is selected, a pop up box would disply to specify below. Any code snipets would be extrmemyl helpful I am under a huge crunch to get many forms done adn all will need to contain same macros. -- Thanks,, Kim Tag: Toobar Button FaceID display on userform Tag: 110805
  - 3
    - Creating Header / Footer pages in a loop ! Automating a word report from access. Having problem with Header and Footer when looping throught the recordset. I must create 1 page for each record and each page must have it's owned Head/Foot. Note that the first page is OK but an error occur on the second page. The sample code use an array instead of a recordset. sub test() MyArray = Split("aaaa bbbb cccc dddd eeee ffff") Set wrd = CreateObject("Word.Application") Set doc = wrd.Documents.Add wrd.Visible = True For x = 0 To UBound(MyArray) Set Tbl = wrd.ActiveDocument.Tables.Add(wrd.Selection.Range, 1, 2) With Tbl Set Rng = .Cell(1, 1).Range Rng.Text = MyArray(x) End With CurIndex = wrd.Selection.Sections(1).Index wrd.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True wrd.ActiveDocument.Sections(CurIndex).Headers(wdHeaderFooterFirstPage).LinkToPrevious = False Set Rng = wrd.ActiveDocument.Sections(CurIndex).Headers(wdHeaderFooterFirstPage).Range Set TblHeader = Rng.Tables.Add(Range:=Rng, numrows:=1, numcolumns:=2) With TblHeader Set Rng = .Cell(1, 1).Range Rng.Text = "Header for " & MyArray(x) Set Rng = .Cell(1, 2).Range Rng.Text = "Header" End With wrd.ActiveDocument.Sections(CurIndex).Footers(wdHeaderFooterFirstPage).LinkToPrevious = False Set Rng = wrd.ActiveDocument.Sections(CurIndex).Footers(wdHeaderFooterFirstPage).Range Set TblFooter = Rng.Tables.Add(Range:=Rng, numrows:=1, numcolumns:=2) With TblFooter Set Rng = .Cell(1, 1).Range Rng.Text = "Footer for " & MyArray(x) Set Rng = .Cell(1, 2).Range Rng.Text = "Footer" End With Tbl.Select With wrd.Selection .Move wdCharacter, 1 ' get past table marker .InsertBreak Type:=wdSectionBreakNextPage .Goto What:=wdGoToPage, Which:=wdGoToNext End With Next x End Sub Merci ! Tag: Toobar Button FaceID display on userform Tag: 110804
  - 4
    - Incredibly frustrated with Macro I have a macro that I am using that works like this, drop down selection has 5 choices, if choice 2 or 3 is selected then a message will pop up stating that the next field needs further clarification and to please fill in, in otherwards it will not allow the user to go past the next field if choice 2 or 3 is not clarified. I can set up my document and get this in and test it - works fine. I then build from there, adding header, footer, tables, check boxes, popup calendar macro, list box macros, specify continuous breaks and protections, then test All macros work except the choice 2-3 macro. It allows for bypass and does not show pop up message. What am I doing wrong? This is word 07 saved in dot format for use on re is macro code I am using: Option Explicit Public mstrFF As String Public Sub AOnExit() Dim oDoc As Word.Document Set oDoc = ActiveDocument With GetCurrentFF Select Case .Name Case Is = "SchoolType" Select Case .Result Case Is = "Other District School", "Private School/Home Schooled" ActiveDocument.FormFields("MyText").Enabled = True ActiveDocument.Bookmarks("MyText").Range.Fields(1).Result.Select Case Else ActiveDocument.FormFields("MyText").Result = "" ActiveDocument.FormFields("MyText").Enabled = False ActiveDocument.Bookmarks("MyText2").Range.Fields(1).Result.Select End Select Case Is = "MyText" If Len(.Result) < 1 Then mstrFF = .Name End If End Select End With End Sub Public Sub AOnEntry() Dim strCurrentFF As String If LenB(mstrFF) > 0 Then DoEvents MsgBox "Please list Other District School or Private School/Home Schooled" ActiveDocument.Bookmarks(mstrFF).Range.Fields(1).Result.Select mstrFF = vbNullString End If End Sub Public Function GetCurrentFF() As Word.FormField With Selection If .FormFields.Count = 1 Then Set GetCurrentFF = .FormFields(1) ElseIf .FormFields.Count = 0 And .Bookmarks.Count > 0 Then Set GetCurrentFF = ActiveDocument.FormFields _ (.Bookmarks(.Bookmarks.Count).Name) End If End With End Function -- Thanks,, Kim Tag: Toobar Button FaceID display on userform Tag: 110802
  - 5
    - Disabling macros. Hello, I have a word document containing macros which run automatically when I launch the document. Specifically, the macro displays a userform which prompts the user to enter data that will go into the word file but saves a copy of this word file with the changes. The original file is untouched. So far so good. Here is my dilemma: I do not want the macro to run each time I open the copy of the original file. I found WordBasic.DisableAutoMacros at the following link but do not know how or where to use it. Can I use this command to disable auto-open macros from copies but keep the auto-open macros enabled in the original file? Thanks. http://word.mvps.org/FAQs/InterDev/DisableAutoMacros.htm Tag: Toobar Button FaceID display on userform Tag: 110793
  - 6
    - { STYLEREF "EPRI Chapter Number"\n }-{ PAGE} I am using this field code to generate page numbers in the footer of a long document. It is working properly. Page 1 in Chapter 3, for example, appears as "3-1" at the bottom of the page. Ditto for page 2 in Chapter 3, which appears as "3-2". However, the Table of Contents does not reflect these page numbers. Instead, it uses page numbers such as 61, 62, etc. Here is the current field code for the Table of Contents: { TOC \O "1-3" \H \Z \U } How do I need to modify it so that it uses "EPRI Heading 2" for level 2 headers and and "Heading 2" for level three headers in the TOC? Help! Gwen H Tag: Toobar Button FaceID display on userform Tag: 110792
  - 7
    - ToC: Testing for Table of Contents existence Hi, I've got a macro that updates existing Word ToC's. I'd like to enhance it by first testing for the existence of a ToC. If one exists, it would be updated; if not, one would be created. Is such a test possible? Thanks, Paul -- Using Office 2003 on Windows XP Home Tag: Toobar Button FaceID display on userform Tag: 110791
  - 8
    - Macro to convert current doc to PDF Hi All. I need to write a Macro that will convert the current active document to PDF (to a specific location / file name). I've had a look around the forums and seem to get anything to work. This will eventually become part of a larger script that will batch convert bunch of Word docs to PDF (opening each one, running another Macro, saving to PDF, closing the Word doc and then moving on to the next). If anybody has any suggestions for the rest of this process I would welcome them. or now, my main concern is the conversion to PDF part. I have Acrobat 8 installed and I'm running Word 2003. Cheers! Dan. Tag: Toobar Button FaceID display on userform Tag: 110776
  - 9
    - modify context menus programmatically Is it possible, as in Excel, to add controls to the context menus ? Just in certain situations, in certain templates I want specific custom menu items. With Excel you can: With Application.CommandBars("Whatever") Controls("...").Add etc.... OK in Excel you can even specify it to happen only if you right-click over a certain cell range and of course I won't get that from Word. But to set this through a routine would be much easier as I've seen the number of different context menus is bewildering in Word. For every user who might possibly use that template I have to manually insert the macro, change the name, get the icon etc etc As an example, how would I go about putting in a "Paste unformatted" into all context menus ? Sub PasteNoFormat() Selection.PasteSpecial DataType:=wdPasteText End Sub -- David M WinXP - Office2003 (Italian) Tag: Toobar Button FaceID display on userform Tag: 110775
  - 10
    - Create new .doc files in every heading level Hi All, I'm a newbie on VB and I need little help. I have a long .doc document and my target is create new docs on every heading level. For example my document looks like this: 1. General This is general. 1.1 Cars Here you can find cars. 1.2 Houses Here you cand find houses. 2. Theory This is theory. So if I have a nice script it creates 4 files: general.doc, cars.doc, houses.doc and theory.doc. These files contains text between headings e.g. general.doc includes text "This is general" and houses.doc "Here you can find houses" I try to build a script but I found too many problems :(. Here is the body of my code. Sub create_files_from_headings() all_Headings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading) For i = 1 To UBound(all_Headings) MsgBox (myHeadings(i)) 'only for test purpose ActiveDocument.Content.InsertAfter Text:=myHeadings(i) Next i End Sub Thanks in advance ! Tag: Toobar Button FaceID display on userform Tag: 110767
  - 11
    - Only print certain sections of a document in a form Hello Apologies if this is in the wrong discussion group. I'm modifying a word document that when protected will be used as a form/template. The document consists of 8 pages which the last 3 are guidelines. I want to create some sort of print macro or script that forces the print option to not print the last 3 pages. Ideally I'd like to avoid macros or script as I'm not the best with them, but i think this might be unavoidable. Any other suggestions would be helpful. thanks tish Tag: Toobar Button FaceID display on userform Tag: 110765
  - 12
    - Macro to open built-in dialog in Word 2003 This question deals with Word 2003 on Windows XP. I know, in general, how to add a command or macro to the toolbar by clicking on Tools>Customize, clicking on the Commands tab, scrolling down the Categories list on the left side, highlighting the appropriate category, and then dragging the appropriate item to the menu bar. But not everything can be got to that way. For example, I would like to have a menu item or button that enables one to go immediately to the dialog box that opens when one clicks Tools>Customize>Keyboard with Macros highlighted in the left-hand side. The keystrokes, which are not recordable to bring up this dialog, in the macro recorder, would b. the following: <alt><T>, <alt><C>, <alt><K>, <alt>C>, <M>,<M>,<Right>. How would I write a macro that does this? I have an AutoHotKey script that does this, but I wanted to have a macro that does this. Regards, Alan Stancliff Tag: Toobar Button FaceID display on userform Tag: 110764
  - 13
    - VBA Style Changes Effecting Template Hi, I have a piece of VBA code that updates styles in a document. The problem is every time this code executes, the base template is changed and I'm prompted to save it. What I want is for the change to only apply to the current document. An example of the code is If langUK Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUK Else If langUS Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUS ActiveDocument.PageSetup.PaperSize = wdPaperLetter Else ActiveDocument.Styles("Normal").LanguageID = wdEnglishAUS End If Tag: Toobar Button FaceID display on userform Tag: 110762
  - 14
    - Insert Fields to Bookmark Hi, I have a document where I want to enter particular fields and text, depending on a condition. When completed, the bookmark should refer to the inserted text. The fields and bookmarks are already defined in the document. It's important that the fields be inserted in the bookmark, rather than just the value. The code should look something like: <delete existing bookmark text> If (condition) Then <add field1 to bookmark> <add text to bookmark> <add field2 to bookmark> Else <add field3 to bookmark> End If The cleanest way to do it would be to build the appropriate insert string then replace the bookmark. I can do this easily with text, but not with fields. Any suggestions would be much appreciated. Thanks, Geoff. Tag: Toobar Button FaceID display on userform Tag: 110761
  - 15
    - ISASCII function VBA Gerus, Is there a function in VBA to derermine if a character is an ASCII character (A - Z or a - z)? I need something like this: msgbox IsASCII(aWord) returning a one or zero. Thanks. Charlie from Texas Tag: Toobar Button FaceID display on userform Tag: 110755
  - 16
    - Update table cell in footer ! looking for the right syntax to access a cell in a footer ? here's what I've tried with no success... Set Rng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range with rng.table(1).cell(2,2) .text = "updated on february 25" end with Merci ! Tag: Toobar Button FaceID display on userform Tag: 110752
  - 17
    - macro help please I need a macro that works like this: Drop down box contains 5 selections, if selection 2 or 3 are selected, then teh next field will highlight and a pop up will state " please list school attending" Word 2003 and 07 form is in *.dot format. -- Thanks,, Kim Tag: Toobar Button FaceID display on userform Tag: 110748
  - 18
    - Using Middle Mouse Button to Cut/Paste Selection Is there a way to tie a VBA script to the middle mouse button? I want the middle mouse button to cut selected text and paste it where the user clicks the middle mouse button - is this possible? Tag: Toobar Button FaceID display on userform Tag: 110740
  - 19
    - Looping WordPerfect used to automatically quit the macro when it couldn't find the search criteria anymore. Can Word do the same thing? Tried to do a loop but can't get it to work. Here is my code that I want to keep looping until it can't find anymore occurrences of *#*. Selection.Find.ClearFormatting With Selection.Find .Text = "*#*" .Forward = True End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="Macrobutton nomacro [Keyboard]" Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Fields.ToggleShowCodes Tks . . . Tag: Toobar Button FaceID display on userform Tag: 110739
  - 20
    - { STYLEREF "Heading 1,Chapter Level" } Not Working I have a document with multiple chapters. The first page of each chapter has this: 1 Introduction The number 1 has the style "Heading 1,Chapter Level" applied. The word "Introduction" has the style "Heading 1,Chapter Level + Before: 0pt" applied. When I attempt to use { STYLEREF "Heading 1,Chapter Level" } to insert the chapter number in table numbers (i.e., "Table 1-2", where "1" is the chapter number and "2" is the table number), it doesn't work. The table number portion of it is working just fine, using { SEQ Table \* ARABIC \s 1 }. It's just the chapter number that isn't working. Instead of a chapter number, I'm getting the word "Introduction". Any ideas how to fix this? Thanks in advance, Gwen H Tag: Toobar Button FaceID display on userform Tag: 110738
  - 21
    - inserting webpage as text into word doc. I am looking for a script or some advises how to write a script that sequentially opens several (specified) html pages, reads the text and inserts it into a word document, one after the other. A little help from my friends out there, please.... Tag: Toobar Button FaceID display on userform Tag: 110737
  - 22
    - What does this WordBasic statement do? Hi all, I need to understand what this piece of WordBasic code do, in order to translate it to vba. Dim Q As Object Set Q = WordBasic.DialogRecord.EditFind(False) WordBasic.CurValues.EditFind Q I cant' find any information neither in the VBA help nor in the WordBasic help file. Thanks in advance, if you could help me. Regards, Philippe Tag: Toobar Button FaceID display on userform Tag: 110732
  - 23
    - Bookmarks inside text box to insert text or pictures Using Word 2000. I am building a document that I want to use to generate written prescriptions for medicines. In order to control the exact placement of some text and graphics on the page, I would like to use textboxes. However, when I use the following code to do the insertion, the code can't find the bookmarks that are inside a textbox. In the instance of inserting text (for the final version of code, sBoxVal and sMark are set from controls on a UserForm): Sub Macro3() Dim sBoxVal As String, sMark As String sBoxVal = "SomeDrugName" sMark = "DrugName" Call FillMark(sMark, sBoxVal) End Sub Sub FillMark(sMark As String, sBoxVal As String) 'Go to bookmark and transfer the data. Selection.GoTo What:=wdGoToBookmark, Name:=sMark Selection.Range.Text = sBoxVal End Sub In the instance of inserting a graphic (in this case a .bmp of a signature that will vary depending on what doctor is writing the prescription): Sub Macro2() 'Go to Signature bookmark Selection.GoTo What:=wdGoToBookmark, Name:="Signature" 'Insert Signature Selection.InlineShapes.AddPicture FileName:= _ ThisDocument.Path & "\JPM Signature.bmp" _ , LinkToFile:=False, SaveWithDocument:=True End Sub Both of these approaches seem to work if I am using bookmarks in the main body of the document. I have discovered through fiddling around that if I click on the desired textbox before running the macro so that it has the focus before the macro runs the insertion works just fine. So, I think it might work if I could figure out how to set the focus on the correct textbox programatically. Thanks in advance Tag: Toobar Button FaceID display on userform Tag: 110727
  - 24
    - how to put default suggested filename in SaveAs FileName:? I have the following simple macro to take a selection from a long document and create a new document from it, the problem is that every time I use it, the new file is saved to the same file name and over writes the old one. What I would like is to have the file saved to the default suggested file name that word would normally generate from the first line of the selection. Anyone know what the variable for FileName should be to make this so? Thanks Jim Sub NewDocFromSelection() ' ' NewDocFromSelection Macro ' Create new document from selection ' Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) ChangeFileOpenDirectory "D:\My websites\" ActiveDocument.SaveAs FileName:="What causes this Syndrome.docx", _ FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False ActiveWindow.Close End Sub Tag: Toobar Button FaceID display on userform Tag: 110721
  - 25
    - se positionner sur un signet =?iso-8859-1?Q?plac=E9?= dans une zone de Bonjour, j'utilise la méthode suivante pour me positionner sur un signet: signet= "ici" Set rrange = odoc.Goto(wdGoToBookmark, , , signet) Ca marche en général très bien... Mais si le signet est dans une zone de texte (menu insertion/zone de texte), il me dit que le signet n'existe pas. En effet, dans word, si j'ouvre le document et fais ctrl-b, le signet présent dans la zone de texte n'est pas dans la liste. Il apparait uniquement après avoir cliqué dans la zone de texte. Quelqu'un pourrait-il me dire comment me positionner si le signet est dans une zone de texte? Merci, Alain Tag: Toobar Button FaceID display on userform Tag: 110718

Hello,

Is it possible (and if so, how) to add an object (don't care what kind) to a
userform to which I can set the picture of a toolbar button FaceID? I've
developed a userform that allows me to scroll through all the icons available
and it sets the selected toolbar button's icon to the selected FaceID number
but I'd rather do it to a control or object on the form rather than directly
on the toolbar.

Many thanks!
Peter

Top

RE: Toobar Button FaceID display on userform by Peter

Peter
Fri Feb 29 07:55:02 PST 2008

I just found I can add a toolbar and toolbar button to a userform by adding
the Microsoft Toolbar Control and the button has a property called image.
When I try to set the image to a number, I get an error message saying I must
first initialize the image list. Can someone help me figure out how to do
that?

Thanks,
Peter

"Peter" wrote:

> Hello,
>
> Is it possible (and if so, how) to add an object (don't care what kind) to a
> userform to which I can set the picture of a toolbar button FaceID? I've
> developed a userform that allows me to scroll through all the icons available
> and it sets the selected toolbar button's icon to the selected FaceID number
> but I'd rather do it to a control or object on the form rather than directly
> on the toolbar.
>
> Many thanks!
> Peter

Top