Adding buttons from a macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Deletion of date info in Word comments (I tried to post this question but it did not seem to work). I like to use word to mimic HTML web documents with Word screen tips mimicking HTML title attribute comments, but I can not get rid of the date from the comment. I can get rid of the author in the comment by changing the author in the document to " ". I might also like to be able to control the word data that appears in the screen tips for links in word. Tag: Adding buttons from a macro Tag: 96665
  - 2
    - Delete date & other Word provided data from Comments and screen ti I like to use word screen tips to mimic web page HTML <span... title="comment....whatever">. However I would like to know how to get rid of the date that word insists on providing. (I can get rid of the author by changing the author in the document settings to " ".) I would also like to get rid of the word provided details from the screen tips that I get from my links in word. Tag: Adding buttons from a macro Tag: 96664
  - 3
    - Inserting text into protected field/textbox Hi, I have a letter with fields, which is protected. For the content of the letter, I want to use variable text. I made a userform which can select several textlines, which then are to be inserted in the letter. The textlines are in separate word-files. What I want to do is insert a or multiple word-file(s) into a field. If I unprotect the letter, then the field is overwritten. Is it possible to insert the text, which is in another file into a protected field? Or insert the text and put a field on top of the text? Thanks, Mike Tag: Adding buttons from a macro Tag: 96661
  - 4
    - Compress Pictures Is there a way to have VBA macro compress pictures? If I use CommandBars.FindControl(Id:=6382).Execute the dialog box pops up. I want to be able to do the whole compression in the macro without a dialog box popping up. Is there any way to do that? Gerald Tag: Adding buttons from a macro Tag: 96658
  - 5
    - Switch function, If Then, or Select Case? (or something else?) I need to write a function which checks for certain strings in a field, then reports back a "field type" (my term, not the actual fieldtype in Word) based on the strings it finds. I don't know quite how to write this. Here's what I have so far: Function FieldType(oField As Field) As String FieldType = Switch((InStr(oField.Code, "mNL1")), "mNL1", (InStr(oField.Code, "mNLa")), "mNLa", _ (InStr(oField.Code, "MACROBUTTON")), "TypeHere") End Function The problem is that if none of the expressions in the Switch function are true, there's an error. I'd like to add an "OTHER" string that the function would produce if the field it checks isn't any of my "types" (mNL1, mNLa, and TypeHere). How would I do that? Should I be using something other than the Switch function? I thought of using a Select Case statement, but I'm not sure how to phrase the InStr checks as a single expression that could be evaluated for each case. I feel like the answer is staring me in the face, but I'm not familiar enough with programming to know what I should do. Thanks for any advice you can give me! Tag: Adding buttons from a macro Tag: 96651
  - 6
    - Finding information related to headings I have hundreds of legacy documents that I need to add to a index database. I am looking for a way within Word to search on Criteria such as Author, creation data, update date , doument revison etc. The intention is to put a block of files in a dedicated directory, run a routine containing a list of criteria such as above. Ideally the results which would be reported back on each document should give any information held in the document against each criteria, i.e. Author would indicate a name that would be written to a file that could be imported into Excel and then indexed . Any help on this would be greatly appreciated as at present I have no idea and am doing the search manually. Regards Bill Warden Tag: Adding buttons from a macro Tag: 96645
  - 7
    - MsBox showing all the headings of each section Dear Experts: I am trying to write a macro that shows me all the headings of all the sections in a MessageBox, i.e the text from the first paragraph of each section along with the section number should appear in a Message Box: Example: Section 1: Cover Sheet Section 2: Acknowledgments Seciont 3: Contents Section 4: Preface Section 5: Chapter 1 Section 6: Chapter 2 etc. I was able to write part of the macro, ie. loop through all the sections and get the text from the first paragraph of each section. But there it ends. Could anybody please give me a hand. Thank you very much in advance. Sub ShowSectionHeadings() Dim rng As Range Dim sect As Section Dim strSectionHeading As String For Each sect In ActiveDocument.Sections 'Get text from first paragraph in section strSectionHeading = sect.Range.Paragraphs(1).Range.Text 'Trim paragraph mark if present If Right(strSectionHeading, 1) = vbCr Then strSectionHeading = Left(strSectionHeading, Len(strSectionHeading) - 1) End If Next sect End Sub Tag: Adding buttons from a macro Tag: 96643
  - 8
    - Formatting text in Footer? I have some vba code that I use to update my footer from a userform. It all works as I have coded it but I am having trouble formatting the footer text after I update it. For example on my first bookmark I want it to be left justified and my page x of y that is already in the footer, I want it right justified. Any ideas? Thanks! Tag: Adding buttons from a macro Tag: 96638
  - 9
    - AutoOpen macros and the startup folder In Word 2007, if I want to put all my macros in "AllMacros.dot" and run some from Normal.dot's AutoOpen macro, how do I get around the fact that the AllMacros.dot might not be open in time? (I'm trying to stay compatible with word 2003 so I don't want to use ribbon stuff. These macros add CommandBar's that I want available in all documents) If I put "Application.Run "AllMacros.Module1.MyMacro"" in Normal.dot's AutoOpen it works if I open word (to a blank document) and then open a document. But if I run "winword myfile.doc" from the command line, it fails because Normal.dot's AutoOpen seems to be run BEFORE AllMacros.dot is loaded from the startup folder. How can I handle this case? (AutoOpen from AllMacros is not run for all documents so this isn't an option). Thank you. Tag: Adding buttons from a macro Tag: 96635
  - 10
    - Setting a character style I am creating Word documents from an Access database and I am trying to insert two fields into one line so I thought I could do it with a character style (NormalBold) but the paragraph style is overriding it My code is rngWord.Collapse wdCollapseEnd With rngWord .Style = "NormalBold" .InsertAfter "Tel: " & rs!Clubphone End With rngWord.Collapse wdCollapseEnd With rngWord .Style = "Normal" .InsertAfter vbTab If Not IsNull(rs!Clubfax) Then .InsertAfter "Fax: " & rs!Clubfax & vbCrLf Else .InsertAfter vbCrLf End If Any ideas please -- Regards Stephen English Tag: Adding buttons from a macro Tag: 96628
  - 11
    - Limit variable to text/number I have some code that asks the user for information on a template: Dim ACCTSSN As Integer ACCTSSN = InputBox("Enter Borrower's SSN (123456789)", "SSN") I check the value to make sure they put in 9 characters: If Len(Trim(ACCTSSN)) <> 9 Then ERROR = MsgBox("SSN must be 9 digits", vbOKOnly, "SSN Error") GoSub SUB_GET_ACCTSSN End If Now how do I make sure they don't put in text/special characters? I initially had the field set as a string, but thought that making it an integer would prevent the field from accepting letters. It does accept letters and gives me an error when I click OK on the box. I also have other input boxes that I'm going to want to check to see if the user put in a valid date format (00/00/00 or 00/00/0000 or 0/0/0000). How can I check a variable to see if it's got the right format, or limit the variable so you can't put an invalid value in it while using an input box to obtain the value? THX! Tag: Adding buttons from a macro Tag: 96622
  - 12
    - macro for applying one Style conditional on another Style I'm trying to create a macro that will do the following: Let's say I had a table and I applied a certain Style to one of its cells. I would like for Word to automatically apply a different Style to its neighboring cell when I tab over. I'm basically trying to translate the conditional, "If I use Style X in a cell, apply Style Y in the cell to the right. Otherwise, keep the Style in the cell to the right as Normal." into a macro. I would appreciate any hints or even websites that will help me do this. Thanks! Tag: Adding buttons from a macro Tag: 96619
  - 13
    - Making a form field required First of all, I have a form with several fields. Several of the fields are drop down boxes. 1. Can I make these fields required (and how do I do it) 2. If I'm already using all 25 items for the list, can I make sure none are set as the default and/or how could I tell that they had actually made a selection and not just accepted the default? Thanks much Tag: Adding buttons from a macro Tag: 96618
  - 14
    - Numbered Documents - Protected Forms I am trying to created a form template (.dot) that has an invoice number that automatically updates (+1) each time the template is used to created a new document. I found the following script for a macro that works great until I protect the form. Then I get an error because the macro can't update a protected area. I can't figure out how to "unprotect" the bookmark on the page so it can update. Any ideas? Sub AutoNew() Order = System.PrivateProfileString("C:\Settings.Txt", _ "MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("C:\Settings.txt", "MacroSettings", _ "Order") = Order ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Date, "yymmdd" & "-") & Format(Order, "00#") ActiveDocument.SaveAs FileName:="path" & Format(Order, "00#") End Sub Tag: Adding buttons from a macro Tag: 96612
  - 15
    - Automating charts in word Is it possible to automatically update charts within a word document from a data source and thus create automated reports? I want to create several research reports which will contain around 10 charts (e.g. excel bar charts). The data will be in one source and will contain flags for sector. Each sector will get a seperate report. I want to create it in word so that I can easily add text to form a story around the charts. The text will not be generated automatically and may be of different lengths depending on the results. Any suggestions would be appreciated, thanks. Tag: Adding buttons from a macro Tag: 96609
  - 16
    - merging with query in access 2003 Hi, I would like to automate merging between word and access 2003. I had code that worked in 2000, but now I'm getting error messages. Thanks. jbc Tag: Adding buttons from a macro Tag: 96603
  - 17
    - Deleting a graphic in a Header Hello, I have the following code that needs to go into the Header, go to the bookmark which is a graphic that I created a bookmark for, and then delete the graphic. When I do it manually it works fine but the macro returns an error that says it cannot find the bookmark. What am I doing wrong?? Thanks for any suggestions: Selection.HomeKey Unit:=wdStory ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.GoTo What:=wdGoToBookmark, Name:="bkLogo" Selection.ShapeRange.Delete ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Tag: Adding buttons from a macro Tag: 96602
  - 18
    - Creating a Blank Style? Hi, Everyone. I'm trying to simplify creating a table of contents for my documents. I've got a font setup for my documents that I like, so I don't want a style to mess with it. Unfortunately, when I create a new style using: ActiveDocument.Styles.Add ("macrotoc") the style it creates isn't blank. I would like a style to be created that keeps all the text within the style the same as it was before the style was applied (e.g., things that are bolded stay bolded, underline stays underlined, non-bold stays non-bold, etc.). Is there a way to specify that the style is blank in this way?? Thanks! Tag: Adding buttons from a macro Tag: 96601
  - 19
    - how can I create a macro from text I have already typed? I frequently find myself typing chunks of text that, once Iâ??ve finished, I realize Iâ??d like to save for repeated future use. But since I didnâ??t have the macro â??recorderâ?? turned on when I was typing, there is no macro created. Iâ??ve tried to remedy this by by copying the text and then pasting it into a blank page with the recorder feature running. For example, if I type â??Now is the time for all good men to come to the aid of their party,â?? then copy that text, turn on the macro recorder, paste that text into the macro, and then turn off the recorder, I have created a great little macro that reads â??Now is the timeâ?¦.â?? However, the very next time I copy any other text (â??The quick brown fox jumped over the lazy dogâ??), regardless of my reason for doing so, my â??Now is the timeâ?? macro changes to â??The Quick brown foxâ?¦â??, or whatever other words I have copied to my clipboard. In effect, the macro I created is a macro that ALWAYS picks up whatever I have pasted to my clipboard, not a macro that repeats the same desired text over and over. Any thoughts about how I can create a macro from text I have already typed? Thank you very much for any insight!! Tag: Adding buttons from a macro Tag: 96599
  - 20
    - Deleting lines I have a document with a lot of shapes in it. I have the following macro the deletes only the lines. The problem is that it deletes all the lines. I need help to fine-tune it to only delete the vertical lines. Dim i As Long For i = ActiveDocument.Range.ShapeRange.Count To 1 Step -1 If ActiveDocument.Range.ShapeRange(i).Type = msoLine Then ActiveDocument.Range.ShapeRange(i).Delete End If Next Tag: Adding buttons from a macro Tag: 96589
  - 21
    - Connection to FoxPro Database I am writing some VBA code that will show a user form when opening the document it is within. The form will include a drop down (combobox) list and a generate report command button. I have created the document template and placed the bookmarks necessary to place the queried FoxPro data in. I have ran a test without connectivity to the data to check my command button and it works just fine. The problem I am having is connecting to the database and filtering certain information to the drop down list for selection and then querying based on that selection for further database information from FoxPro. I am using Word (Office XP/2000/2003) and VBA 6. I was trying to connect to the data using the vfpoledb driver, but I am having no luck it appears. Could anybody out there help me get started with this? Thanks. I have tried the various snippets out there for ADO/OleDB/ODBC, but I am afraid it is my references that is out of whack. Thanks in advance for any help any of you can provide. Michael P. Griba West Coast Charters, Inc. mgriba@westcoastcharters.com Tag: Adding buttons from a macro Tag: 96581
  - 22
    - Remove whitespace in footnotes fails I am trying to remove all whitespace from the end of a footnote in Word 2007. I create a footnote in a new document with lots of space on the end: "My footnote " I turn on the reveal codes/show marks (backwards P in ribbon). I run this macro. Every space is removed except for the last one! Why?? (I could Trim the Range.Text, but that removes character styles as well which I don't want to do) Sub TrimSpaces() lChr = ActiveDocument.Footnotes(1).Range.Characters.Last cnt = 0 While lChr = Chr(32) ActiveDocument.Footnotes(1).Range.Characters.Last.Delete If cnt > 50 Then Exit Sub cnt = cnt + 1 Wend End Sub Tag: Adding buttons from a macro Tag: 96580
  - 23
    - Repeatedly Change First Letter After [period][blank] to Uppercase I'm developing a macro in Word 2003 to convert text from point form to finished test. One step is supposed to find the string [period][blank] i.e., the end of each sentence. Then it's supposed to convert the character immediately following this string to uppercase because this character will be the first letter in the next sentence, which therefore should be in uppercase. Here's what I've been trying to use, which converts a large number of consecutive characters to uppercase: With ActiveDocument.Content.Find .Text = ". " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False Do While .Execute = True With .Parent Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Range.Case = wdUpperCase .Move Unit:=wdSentence, Count:=1 End With Loop End With Thanks for your help. Tag: Adding buttons from a macro Tag: 96578
  - 24
    - Text form field losing macro when file saved as template I have a text form field that calls a macro upon exit. I save the file as a template. When I open the template( and create a new doc file) the new file has the macros but the text form field has nothing in the run macro on exit box. Help please. Thanks -- Jason V Tag: Adding buttons from a macro Tag: 96569
  - 25
    - checkbox contentcontrol word My Word 2007 project absolutely needs checkbox content controls. Are these going to be available anytime soon? Is there any other work-around? Tag: Adding buttons from a macro Tag: 96566
- Next
  - 1
    - Working With Fonts\Character Code\Symbols in VBA I am really not very good at working with fonts, character codes, and symbols in VBA and need some help. I have been playing around with a UserForm macro that will replicate UserForm option button selections in the document. The UserForm displays 7 frames containing 5 optionbuttons each. The document displays a seven questions with 5 WingDings2 Symbol 154 (a small unfilled circle). All 35 symbols are bookmarked with a name corresponding to the groups and optionbuttons in the UserForm. When the user makes their selection in the UserForm and the command button click event in the the UserForm is executed, corresponding the symbols in the document are changed WindDings2 Symbol 158 (a small circle with a filled center). I used the macro recorder to get a start on how to insert the appropriate symbol at the bookmark using VBA. The result is: Selection.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3942, _ Unicode:=True Normally when I write to a bookmark and need to preserve the bookmark I use: Dim oRng as Word.Range Set oRng = ActiveDocument.Bookmarks("Groupa1").Range oRng.Text = "My desired text here" ActiveDocument.Bookmarks.Add "Groupa1", oRng Using .InsertSymbol as shown above the only way I have been able to achieve the same result is: Set oRng = ActiveDocument.Bookmarks("Groupa1").Range oRng.Delete oRng.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3938, _ Unicode:=True oRng.MoveEnd wdCharacter, 1 ActiveDocument.Bookmarks.Add "Groupa1", oRng Note: CharacterNumber:=-3938 inserts the filled circle symbol. Question: Is there a way I can use "Range.Text = ????" to do this job? I often see code containing lines like ChrW$(####) that represents text or symbol. Is there something like that that will represent the WindDing2 symbols I need? Thanks. P.S. Here is my complete Command_Button code: Private Sub CommandButton1_Click() Dim catArray() As String Dim lngGroup As Long Dim bSelection As Boolean Dim i As Long Dim acontrol As Control Dim resultsArray(6) As Long 'One less than number of groups Dim oRng As Word.Range catArray = Split("a|b|c|d|e|f|g", "|") 'Loop throug each group. Note: controls are indexed starting with 0 Application.ScreenUpdating = False For lngGroup = 0 To 6 bSelection = False 'Loop through each frame control For i = 0 To 4 Set acontrol = Controls("Frame" & catArray(lngGroup)).Controls(i) Set oRng = ActiveDocument.Bookmarks("Group" & catArray(lngGroup) & i + 1).Range oRng.Delete oRng.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3942, _ Unicode:=True oRng.MoveEnd wdCharacter, 1 ActiveDocument.Bookmarks.Add "Group" & catArray(lngGroup) & i + 1, oRng If acontrol.Value = True Then resultsArray(lngGroup) = i + 1 bSelection = True Set oRng = ActiveDocument.Bookmarks("Group" & catArray(lngGroup) & i + 1).Range oRng.Delete oRng.InsertSymbol Font:="Wingdings 2", CharacterNumber:=-3938, _ Unicode:=True oRng.MoveEnd wdCharacter, 1 ActiveDocument.Bookmarks.Add "Group" & catArray(lngGroup) & i + 1, oRng End If Next i If Not bSelection Then MsgBox "No selection was made for Group " & lngGroup + 1 Exit Sub End If Next lngGroup lngGroup = 0 For i = 0 To UBound(resultsArray) lngGroup = lngGroup + resultsArray(i) Next i MsgBox Format(Val(lngGroup) / 7, "#.00") Unload Me Application.ScreenUpdating = True Application.ScreenRefresh End Sub Tag: Adding buttons from a macro Tag: 96561
  - 2
    - Set Default File Type I have a template that I am sharing - when users save the template after they have modified it, is there a way that that the default save as type can be set to Web Page Filtered? Tag: Adding buttons from a macro Tag: 96559
  - 3
    - template on network : file.dotm is locked for editing by 'username Hi, I put on a network share a word 2007 template file (.dotm). I create on my laptop a new document, with this template. I write some sentences, save it (.doc or .docm) on my desktop, and close word. When i want to open my file, i got this folowing message: file.dotm is locked for editing by 'username' . Do you want to: open in readonly / create a local copy ... / receive notification ... and when i want to close the file, i got this one: You have modified the styles, building blocks (such as cover pages or headers), or other content that is stored in file.dotm. Do you want to save changes to file.dotm The template is not used by anybody and I don't receive these messages if my template is store on my laptop. Have you got any ideas to open and close my file without these messages ? Thank you Tag: Adding buttons from a macro Tag: 96558
  - 4
    - Finding sections automatically that only contain heading 1 level Hello, I got a long word document with 8 sections. Almost all of the sections contain headings level 1,2 and 3. Two of the sections only contain a heading 1 level. I now would like to write a macro that automatically finds the sections where there is only a heading 1 level and set the headers for these sections automatically. FOR EXAMPLE, say Section 4 and 7 each contain one heading level 1 and no headings level 2 and 3. The macro should first find these sections (section 4 and 7) and then with this information do the following (the below part of the macro is working fine): Set sect = ActiveDocument.Sections(4) Set rng = sect.Headers(wdHeaderFooterPrimary).Range sect.Headers(wdHeaderFooterPrimary).LinkToPrevious = False rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "STYLEREF ""Heading 1"" " rng.Collapse wdCollapseEnd rng.Text = vbTab rng.Collapse wdCollapseEnd rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "PAGE \* Roman " Set sect = ActiveDocument.Sections(7) Set rng = sect.Headers(wdHeaderFooterPrimary).Range sect.Headers(wdHeaderFooterPrimary).LinkToPrevious = False rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "STYLEREF ""Heading 1"" " rng.Collapse wdCollapseEnd rng.Text = vbTab rng.Collapse wdCollapseEnd rng.Fields.Add rng, Type:=wdFieldEmpty, Text:= _ "PAGE \* Roman " Help is much appreciated. Thank you in advance Regards, Andreas Tag: Adding buttons from a macro Tag: 96553
  - 5
    - Copy pages from a new document to an existing one Hello, Thru automation, I can get a mail merge to work to create a letter with address etc, and the document becomes visible. How do I open a second document (I have its path). Copy its contents. Do I use; Activedocument.Range.copy????????? or Activedocument.Wholestory.copy????? Then paste it to the first document: Activedocument.selection.paste ????????? so that the contents appear But the second document is now closed. Any help would really be appreciated. I have had error messages that say along the lines that the method is unsupported. -- Regards Bill Tag: Adding buttons from a macro Tag: 96550
  - 6
    - Keydown/up events in userform to set shortcut keys (Revisited) The other day I posted a question re. setting up a user form to assign shortcut keys to various macros. (Thank you Perry and Jean-Guy for assistance with this!) This is sort of an update -- with new code and three new questions... (And sorry for the excrutiatingly long post.) Below is the code I finally ended up with. It seems to work the way I want it to. That is, it assigns a shortcut key to a macro based on user input in a userform text box. (The shortcut key combo must include Ctrl or Alt or both and an alphanumeric key -- and may include the Shift key.) However, I'm new to all of this coding stuff, and would very much appreciate help fixing a few things if feasible. I've been trying, but I haven't figured out how. Specifically: 1) I have a total of 10 text boxes that will be used to assign shortcut keys to 10 different macros. The KeyDown code for each of these would be identical except for "TextBox1.text = strKeySequence" at the end of the macro. (Obviously, that would vary by text box.) Also the KeyUp code for each could be identical except for the "strCurrent=TextBox1.text" at the beginning of the macro and the command assigned to the shortcut key. I've tried putting the common bits of code in a separate sub, but it won't compile ("Argument not optional"). How can I push the "meat" of the code out of the field-specific stuff, so I don't have the same thing repeated 10 times (once for each text box)? 2) I think there's probably a more elegant/streamlined way to do the keybinding based on what the user enters in the text box. However, my attempts to use the "strKeySequence" more directly/efficiently have not worked. How can I better capture the KeyDown info and use it in the KeyUp code, so I don't have all those silly-looking "Ifs" in the KeyUp? 3) Everytime I press the Alt key in the (modal) userform text box, I get a "ding" (error-type sound... I don't know what it's officially called). I don't get this when pressing other keys (Ctrl, Shift, etc.) How can I make that annoying dinging stop? Thanks in advance for any help/guidance. THE INELEGANT BUT FUNCTIONAL CODE Public myKey, myChar As String Private Sub TextBox1_KeyDown(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer) 'Based on code from Peter Hewett posted to _ microsoft.public.word.vba.general Const MaskShift As Integer = 1 Const MaskCtrl As Integer = 2 Const MaskAlt As Integer = 4 Dim strKeys As String ' Ignore keystroke sequence unless Ctrl and/or Alt is pressed as well If Shift And (MaskCtrl Or MaskAlt) Then ' Add Ctrl/Alt/Shift prefix text If Shift And MaskCtrl Then strKeys = "Ctrl" End If If Shift And MaskAlt Then If LenB(strKeys) > 0 Then strKeys = strKeys & "+Alt" Else strKeys = "Alt" End If End If If Shift And MaskShift Then If LenB(strKeys) > 0 Then strKeys = strKeys & "+Shift" Else strKeys = "Shift" End If End If 'For use in KeyUp to determine the Ctrl, Alt, and Shift combo for shortcut key myKey = strKeys ' Keyboard character If LenB(strKeys) > 0 Then strKeys = strKeys & "+" & Chr$(KeyCode) Else strKeys = Chr$(KeyCode) End If myChar = (KeyCode) Else: strKeys = "" End If TextBox1.Text = strKeys End Sub Private Sub TextBox1_KeyUp(ByVal KeyCode As _ MSForms.ReturnInteger, ByVal Shift As Integer) Dim strCurrent As String strCurrent = TextBox1.Text If LenB(strCurrent) = 2 Then msgbox "need to use ctrl or alt (or both)" Else If myKey = "Ctrl" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Ctrl+Alt" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _ wdKeyAlt, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Ctrl+Shift" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _ wdKeyShift, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Ctrl+Alt+Shift" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _ wdKeyAlt, wdKeyShift, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Alt" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If If myKey = "Alt+Shift" Then CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, _ wdKeyShift, myChar), _ KeyCategory:=wdKeyCategoryMacro, Command:="a_testarea.test1" End If End If myKey = "" End Sub Tag: Adding buttons from a macro Tag: 96547
  - 7
    - Section Break If I have a document with 2 sections, is the section break in sections(1).range or sections(2).range, and where in the range, so I can find it to delete it? Thanks. Tag: Adding buttons from a macro Tag: 96546
  - 8
    - Modifying arrays in a macro I have a Word (2002) form, widely distributed throughout an organisation. The form has a number of combo boxes, each of which contains greater than 25 items. I have therefore set up a macro with an array for each combo box hard coded with the combo box items. These items may change several times during the year. I need a method to change the array values WITHIN THE MACRO without going into the code, as changes will be made by someone who knows nothing about VBA. Any ideas along with sample code would be appreciated, as I am a VBA novice. Many thanks Tag: Adding buttons from a macro Tag: 96543
  - 9
    - Coping info from form to form I have a form that has text, check and combo boxes in it. Is there a way to copy the information from a existing form thats filled out to a new form? Tag: Adding buttons from a macro Tag: 96542
  - 10
    - Fill-In Field displays results twice I have a fill-in field on a document template that is displaying the results twice. Here is my code: {FILLIN "Enter the EDFUND Account Number" \o} I saved the document as a template and it prompts me as expected, but once I'm done entering my data, it displays it twice. I.E, if I enter E12345678 The field displays: E12345678E12345678 Any ideas what's going on? Also, I have a drop down box that I want to select then have it update another field. I don't want to rely on the 'update fields at print' option since that is machine-specific...so what kind of macro or code would I write to have it update another field? Thanks, any help would be appreciated!!! Tag: Adding buttons from a macro Tag: 96541
  - 11
    - Shapes.AddPicture in MailMerge causes Word crash I am developing a VBA script to add barcode picture. Barcode value comes from DataSource during MailMerge. To do this Shape is added in MailMergeBeforeRecordMerge even handler. For example: Set oShape = Doc.Shapes.AddPicture(filename, false, true, 100, 100) Examining oShape object in Watch produces "Automation Error" for number of properties (e.g Left) Access to these properties (even after just using Watch) causes crash of Word. - Problem is not related to barcode. Adding any picture fails. - Can add InlineShape. But after ConvertToShape, the same problem. - Can add Shape in event handler to some other document. But not to merged document. - Same problem in MailMergeAfterRecordMerge Any advise is highly appreciated. Thans Gene Tag: Adding buttons from a macro Tag: 96540
  - 12
    - Protecting a Word doc sent as an attachment Hello Thanks everyone for your help so far in my efforts to send a document as an Email attachment. I have to protect the attached document so that it cannot b changed at the other end. I wrote code to protect the document in the macro, but it protects the document at this end and leaves the attachment unprotected. Help!!! I'm climbing the walls now. My code is: Sub Send_As_Mail_Attachment() 'unprotect the two protected sections of the document (need to do this before protecting all) ActiveDocument.Unprotect Password:="equities" 'protect the document before sending ActiveDocument.Sections(1).ProtectedForForms = True ActiveDocument.Sections(2).ProtectedForForms = True ActiveDocument.Sections(3).ProtectedForForms = True ActiveDocument.Protect Password:="equities", NoReset:=False, Type:= _ wdAllowOnlyFormFields ' send the document as an attachment in an Outlook Email message Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next If Len(ActiveDocument.Path) = 0 Then MsgBox "Document needs to be saved first" Exit Sub End If 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") 'Outlook wasn't running, start it from code If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for a copy .CC = "MyMail@mail.com" 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:="Document as attachment" .Display End With 'If we started Outlook from code, then close it If bStarted Then oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub Tag: Adding buttons from a macro Tag: 96529
  - 13
    - TmpDDE() ? When I try to execute Any Word macro from outside Word (say FileMakerPro) I get error : Compile error: Sub or fuction not defined. As runtime adds a new module 'WordTmpDDEMod' to project Normal and it is vanished as soon as I stop the run. so I am not able to run this macro successfully Tag: Adding buttons from a macro Tag: 96515
  - 14
    - HP Printer and MS Word When printing MS Word documents on my HP deskjet 722C it recently began printing in landscape only. I have selected Portrait as preferences both in the word printing preferences and in the control panel, yet it still prints in landscape. This happens only when using MS Word. Documents from other programs print in either portrait or landscape as I select. Tag: Adding buttons from a macro Tag: 96512
  - 15
    - Send document as attachment in Outlook I need to send a docoment directly from Word as an Outlook attachment with a specific address in the cc field. I have managed to do this with help. However, the users do not want to save the document before sending. Can I amend the code to reflect that? Would really appreciate the help. The code I have is: Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next If Len(ActiveDocument.Path) = 0 Then MsgBox "Document needs to be saved first" Exit Sub End If 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") 'Outlook wasn't running, start it from code If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for a copy .CC = "MyEmail.com" 'Add the document as an attachment; you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:="Document as attachment" .Display End With 'If we started Outlook from code, then close it If bStarted Then oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing Tag: Adding buttons from a macro Tag: 96510
  - 16
    - Get the system file created date I have files that I need to access the date the file was created via VBA. However, for some reason, the properties of the document show a created date of yesterday but in actuallity the files have been created over the last several month. Using the detail view in Windows Explorer, the Date Created is correct. I have copied files back and forth from a portable drive, so I am assuming Word is using that date. Is there a way to access the date that Windows has using VBA? Tag: Adding buttons from a macro Tag: 96500
  - 17
    - Userforms Textbox control Hi Guys I am trying to use an array to select various textboxes on a userform but keep getting an error when compiling the code saying 'Method or data member not found'. I understand the essage but cannot work out how to overcome it. Here is the code, it is pretty simple as it is just trying to sort out the code. Thanks Damon & Elizabeth ****************CODE**************** Private Sub CommandButton1_Click() Dim myTest, myTest1 Dim i As Integer myTest = Array("txt1", "txt2") myTest1 = Array("Goodbye", "So long", "Adiue") For i = LBound(myTest) To UBound(myTest) UserForm1.myTest(i) = myTest1(i) Next i End Sub *******************END CDE********************** Tag: Adding buttons from a macro Tag: 96499
  - 18
    - Bug in ColorIndex in Word 2007? Pretty simple repro: 1. Create some text - change the font color to white via the Word font 2007 UI 2. Select the Text 3. Goto VBA and in the Immediate Windows type ? Selection.Range.Font.ColorIndex I'm getting the value of 7 which is the colorindex value wdYellow instead of 8 - wdWhite. 4. If I do the very same repro steps in Word 2003 I get 8 - the expected value. It seems like the Font.ColorIndex property "likes" the value 7 for almost any font color that isn't part of the WdColorIndex set. That would be fine if 7 was "undefined" but 7 is wdYellow. I realize Word 2007 is much more "RGB" dependent but the ColorIndex still shouldn't be wrong. Tag: Adding buttons from a macro Tag: 96493
  - 19
    - changing code to also copy the header and footer 2 saved docs The following code works really well for splitting a merged document into separate documents and saving them as files; but the header and footer information from the original merged document is missing in the individual documents. Is it possible to have the footer and header from the original merge document appear in the individual documents? Sub MailMergeLetterSplitter() ' ' MailMergeLetterSplitter Macro ' Macro created 1/24/2007 by solsenb ' ' splitter Macro ' Macro created by Doug Robbins to save each letter created by a mailmerge as a separate file. Dim i As Long, Source As Document, Target As Document, Letter As Range Set Source = ActiveDocument For i = 1 To Source.Sections.Count Set Letter = Source.Sections(i).Range Letter.End = Letter.End - 1 Set Target = Documents.Add Target.Range = Letter Target.SaveAs FileName:="Letter" & i Target.Close Next i End Sub Tag: Adding buttons from a macro Tag: 96489
  - 20
    - VBA: Right-Clicking in ListBoxes Is there a way to get Word to return the Index of an item in a ListBox that you right-clicked over? This is for Word 2002. Tag: Adding buttons from a macro Tag: 96484
  - 21
    - @variable parameter Does anyone know if it's possible, when inserting values into a database like I'm showing below, to use the "@variable" form? This is something I've done with ASP but not sure if it can be done in VBA; or if I'm just not handling it correctly. strSQL = "INSERT INTO [TableName] (CO, JOB) VALUES(@CO,@JOB)" I received errors while trying to define the parameters as shown below. The error came from the first parenthesis in the first line. cmdInsert = New adodb.Command( strsql, csconn) cmdInsert.Parameters.Add( new SqlParameter( "@CO", CO) cmdInsert.Parameters.Add( new SqlParameter( "@JOB", JOB) Could it be that there is a VB reference I need to add, or am I missing some other concept? -- Bryan Tag: Adding buttons from a macro Tag: 96477
  - 22
    - AutoText or VBA I have a template that currently uses a custom toolbar to call macros, which then insert AutoText using WordBasic functions. I need to make changes to the existing AutoText entries, add new functions, and make some general enhancements to the template. I am assuming I should first replace the WordBasic functions with the VBA Equivalents.... ex: WordBasic.WW7_EditAutoText Name:="PreDefinedAutoText", Context:=0, Insert:=1 changes to... ActiveDocument.AttachedTemplate.AutoTextEntries("PreDefinedAutoText").Insert Where:=Selection.Range, RichText:=True Would I be better off placing all the formatting within the VBA function itself, or still using AutoText to set the formatting? Note: The types of information stored in the AutoText entries are mainly Table Layouts, but there are also bullets, Headings, Page Breaks, etc. Tag: Adding buttons from a macro Tag: 96473
  - 23
    - Need Macro help to Convert date to text Below is is my macro to find the date in the current selection only and convert it to text. I am having two problems. 1. I don't want to be asked if I want to find and replace thoughout the document, so I need to have Screen updating off. The first time I run this macro in a document I do not have a problem. The second time I run the macro it asks me if I want to search and replace throughout the rest of the document. Which is not what I need. 2. Now this macro is changing my 01/01/06 dates to October 1, 2006 and I can't see why. Please help!! Sub Convert_MMDDYY_to_Text() Application.ScreenUpdating = False Selection.ClearFormatting Selection.Find.Execute FindText:="<[01]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="January \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[12]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="December \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[11]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="November \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[10]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="October \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[09]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="September \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[08]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="August \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[07]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="July \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[06]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="June \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[05]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="May \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[04]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="April \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[03]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="March \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[02]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="February \1, 20\2", Replace:=wdReplaceAll Tag: Adding buttons from a macro Tag: 96466
  - 24
    - Convert MMDDYY to Text--Need with with my Macro Below is is my macro to find the date in the current selection only and convert it to text. I am having two problems. 1. I don't want to be asked if I want to find and replace thoughout the document, so I need to have Screen updating off. The first time I run this macro in a document I do not have a problem. The second time I run the macro it asks me if I want to search and replace throughout the rest of the document. Which is not what I need. 2. Now this macro is changing my 01/01/06 dates to October 1, 2006 and I can't see why. Please help!! Sub Convert_MMDDYY_to_Text() Application.ScreenUpdating = False Selection.ClearFormatting Selection.Find.Execute FindText:="<[01]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="January \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[12]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="December \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[11]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="November \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[10]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="October \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[09]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="September \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[08]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="August \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[07]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="July \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[06]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="June \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[05]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="May \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[04]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="April \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[03]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="March \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[02]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="February \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[01]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="January \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[12]{2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="December \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[11]{2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="November \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[10]{2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="October \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[09]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="September \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[08]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="August \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[07]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="July \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[06]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="June \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[05]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="May \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[04]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="April \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[03]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="March \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[02]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="February \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="2020", Replacewith:="20", Replace:=wdReplaceAll Selection.Find.Execute FindText:="2019", Replacewith:="19", Replace:=wdReplaceAll Application.ScreenUpdating = True Selection.ClearFormatting End Sub Tag: Adding buttons from a macro Tag: 96462
  - 25
    - Convert MMDDYY to Text--Need with with my Macro Below is is my macro to find the date in the current selection only and convert it to text. I am having two problems. 1. I don't want to be asked if I want to find and replace thoughout the document, so I need to have Screen updating off. The first time I run this macro in a document I do not have a problem. The second time I run the macro it asks me if I want to search and replace throughout the rest of the document. Which is not what I need. 2. Now this macro is changing my 01/01/06 dates to October 1, 2006 and I can't see why. Please help!! Sub Convert_MMDDYY_to_Text() Application.ScreenUpdating = False Selection.ClearFormatting Selection.Find.Execute FindText:="<[01]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="January \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[12]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="December \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[11]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="November \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[10]{2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="October \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[09]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="September \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[08]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="August \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[07]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="July \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[06]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="June \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[05]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="May \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[04]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="April \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[03]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="March \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[02]{1,2}/([0-9]{1,2})/([0-9] {2,4})", MatchWildcards:=True, Replacewith:="February \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[01]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="January \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[12]{2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="December \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[11]{2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="November \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[10]{2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="October \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[09]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="September \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[08]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="August \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[07]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="July \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[06]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="June \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[05]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="May \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[04]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="April \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[03]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="March \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="<[02]{1,2}-([0-9]{1,2})-([0-9] {2,4})", MatchWildcards:=True, Replacewith:="February \1, 20\2", Replace:=wdReplaceAll Selection.Find.Execute FindText:="2020", Replacewith:="20", Replace:=wdReplaceAll Selection.Find.Execute FindText:="2019", Replacewith:="19", Replace:=wdReplaceAll Application.ScreenUpdating = True Selection.ClearFormatting End Sub Tag: Adding buttons from a macro Tag: 96461

Is it possible to add buttons to a custom toolbar from a macro?

Thanks,

Flint

Re: Adding buttons from a macro by Shauna

Shauna
Mon Feb 12 03:17:48 CST 2007

Hi Flint

Sure. Try something like this:

Sub CreateToolbarButtons()

Dim oBar As Office.CommandBar
Dim oButton As Office.CommandBarButton

'MUST tell Word where to save the changes
'Change this to suit your needs
Application.CustomizationContext = ActiveDocument.AttachedTemplate

'Add the toolbar
Set oBar = CommandBars.Add("MyToolbar")

With oBar
'Set the toolbar to be visible
.Visible = True

'Add a button
Set oButton = .Controls.Add(Type:=msoControlButton)

'Set properties for the button
With oButton
.Style = msoButtonIconAndCaption
.Caption = "My button caption"
.FaceId = 352
.OnAction = "MyMacro"
.TooltipText = "Click here to run MyMacro"
End With
End With

'You'll now need to save the template in which you
'created the menu bar and buttons

End Sub

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

"Flint" <qwerty@ctv_nospam.es> wrote in message
news:84455D50-C1A0-485B-B9EC-B59175C455D9@microsoft.com...
> Is it possible to add buttons to a custom toolbar from a macro?
>
> Thanks,
>
> Flint

Top