Setting a character style

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Setting a character style Tag: 96622
  - 2
    - 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: Setting a character style Tag: 96619
  - 3
    - 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: Setting a character style Tag: 96618
  - 4
    - 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: Setting a character style Tag: 96612
  - 5
    - 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: Setting a character style Tag: 96609
  - 6
    - 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: Setting a character style Tag: 96603
  - 7
    - 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: Setting a character style Tag: 96602
  - 8
    - 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: Setting a character style Tag: 96601
  - 9
    - 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: Setting a character style Tag: 96599
  - 10
    - 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: Setting a character style Tag: 96589
  - 11
    - 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: Setting a character style Tag: 96581
  - 12
    - 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: Setting a character style Tag: 96580
  - 13
    - 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: Setting a character style Tag: 96578
  - 14
    - 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: Setting a character style Tag: 96569
  - 15
    - 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: Setting a character style Tag: 96566
  - 16
    - 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: Setting a character style Tag: 96561
  - 17
    - 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: Setting a character style Tag: 96559
  - 18
    - 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: Setting a character style Tag: 96558
  - 19
    - 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: Setting a character style Tag: 96553
  - 20
    - 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: Setting a character style Tag: 96550
  - 21
    - 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: Setting a character style Tag: 96547
  - 22
    - 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: Setting a character style Tag: 96546
  - 23
    - 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: Setting a character style Tag: 96543
  - 24
    - 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: Setting a character style Tag: 96542
  - 25
    - 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: Setting a character style Tag: 96541
- Next
  - 1
    - 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: Setting a character style Tag: 96540
  - 2
    - 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: Setting a character style Tag: 96529
  - 3
    - 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: Setting a character style Tag: 96515
  - 4
    - 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: Setting a character style Tag: 96512
  - 5
    - 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: Setting a character style Tag: 96510
  - 6
    - 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: Setting a character style Tag: 96500
  - 7
    - 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: Setting a character style Tag: 96499
  - 8
    - 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: Setting a character style Tag: 96493
  - 9
    - 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: Setting a character style Tag: 96489
  - 10
    - 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: Setting a character style Tag: 96484
  - 11
    - @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: Setting a character style Tag: 96477
  - 12
    - 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: Setting a character style Tag: 96473
  - 13
    - 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: Setting a character style Tag: 96466
  - 14
    - 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: Setting a character style Tag: 96462
  - 15
    - 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: Setting a character style Tag: 96461
  - 16
    - 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: Setting a character style Tag: 96460
  - 17
    - Userform Problem This is probably a very simple task but I cannot seem to get it to work. I am displaying a userform and when one of the radio buttons is selected, I am opening a Word document, searching for something and then closing that document. At that point, the form is still displayed but in order to activate it, the user must click on it. What code do I need to use in order for the userform to automatically be activated? Tag: Setting a character style Tag: 96454
  - 18
    - List of styles used in header/footer Is it possible to programatically get a list of styles used in a header or footer in a Word document? It looks like you can get the style used for a selected range, but I don't want to select the entire header (or footer) because multiple styles might be used within that selection. And I know you can get a list of styles for an entire Word document, but can that be broken down into what styles are used where within a document? Thanks! Tag: Setting a character style Tag: 96445
  - 19
    - Macro won't travel with document I think I must have posted this question under the wrong heading previously. Hopefully someone can help. Iâ??m using Word 2003, and Iâ??ve created a macro in my Word template using the code you posted at http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm. Iâ??ve also added the macro to the Standard toolbar and the Tools menu. It works fine on my computer, but I cannot seem to email it. Hereâ??s whatâ??s happening: 1. I double-click the template (which is not protected) to create a new document. The custom SpellCheck button is on the Standard toolbar. 2. I add a subheading in the document. 3. I lock the document and turn off the Forms toolbar. The custom SpellCheck button is still on the Standard toolbar. 4. I save the document with a new (.DOC) filename. 5. I reopen the document (just to peek at it). The custom SpellCheck button is still on the Standard toolbar. 6. I email the document to a coworker. When she opens the document, the custom SpellCheck button is gone, and the macro doesnâ??t even exist under Tools > Macros. Am I doing something wrong? Thanks in advance. Tag: Setting a character style Tag: 96439
  - 20
    - Deploy a SelfCert certificate Hi there, is it possible to deploy a certificate created with SelfCert through a NT-Domain (W2k3 and XP) using policies or whatever? By now, every user must install and trust the certificate on each first usage. To trust the certificate manually is ok (otherwise, of what use would certificates be?), but the installation of the certificate is something I'd like to automate. I know SelfCert certificates are not intended to be used in productive environments, but in my scenario the costs for a trusted certificate would exceed the benefits. Thanks for your help, Tobi Tag: Setting a character style Tag: 96438
  - 21
    - document has lost reference Hi I have some problems with document that looses their references to other templates after a word crash. I have read that the course for this can be that a word crash leaves the temp file version of the file. And the solution is to remove those files. I just wonder if my "design" of templates is wrong and if there is a better way to solve my problem? Here is what I have done: I have made some templates. They all have the same functionality, extra buttons, menus etc but the layout differs between them, the functions must be uppdated from time to time. For that reason I made one template code.dot that contains all the code. Then I have made templets with onley the layout, f ex letter.dot. This template references to code.dot. I also have a globel.dot in the startupfolder that contains a menu and some code. I made it like this to separate the code from the layout and so that I just have to change the code in one file and not in all 20 templates. But it looks like this give me the referenceproblem. Is there a better way to solve this? Thanks! Tag: Setting a character style Tag: 96434
  - 22
    - DAO or ADO I use Word as the user interface for accessing, searching and updating databases. Up to now I've stored the data in Excel workbooks but the problems there are multiple access and some trouble getting Excel to quit properly (apparently a known 'bug'). First question: is mdb the best database format to use in this case ? Second question: what method should I use for calling up the database from VBA ? The examples I've found here seem to tend towards DAO but I've found lots of references on the web to ADO being better, faster, easier to program etc. Since my experience with either is limited, I'm prepared for some long hours of studying but I want to know which to concentrate on for automation from Word. Any advice, anecdotes, links that could help me make up my mind ? -- David M WinXP - Office2003 (Italian) Tag: Setting a character style Tag: 96431
  - 23
    - word macro - navigaiton at pages hi, There are 3 command button, "next page", "previous page" and "first page". I use [appliacation.browser.next] and [application.browser.previous] for "next page" and "previous page", ok. ///not: for ex. 6 pages ahead I use a for loop: for i=1 to 6: app.browser.next: next i/ and for the "first page" what should I use ? Or is there an alternative way for navigation over the pages ? Tag: Setting a character style Tag: 96430
  - 24
    - How to avoiding "rng.select" in a macro ? Hello, Allow me to quickly portray my problem. My figure captions are formatted like this (example): Figure 1-1: (inserted tabstop) The difference between ... - The whole paragraph is formatted with a custom caption style - The beginning up to the caption description itself (Figure 1-1:inserted tabstop) is formatted with a custom character style Now I would like to reset the character style formatting of the tabstop to the underlying custom caption style by using below macro. It is working fine but I would like to avoid the "rng.select" line because one should use ranges without having to select them, am I right? How can I achieve this? Sub ResetTabFormat() Dim para As Word.Paragraph Dim rng As Word.Range Application.ScreenUpdating = False For Each para In ActiveDocument.Paragraphs If para.Range.Style.NameLocal = "custom_caption_style" Then Set rng = para.Range rng.StartOf unit:=wdParagraph With rng .MoveUntil Cset:=vbTab, Count:=wdForward .MoveEnd unit:=wdCharacter, Count:=1 .Select 'How do I have to rewrite the macro not using "with rng.select" End With rng.Font.Reset End If Next para End Sub Help is appreciated. Thank you in advance Regards, Andreas Tag: Setting a character style Tag: 96427
  - 25
    - Word 2007 backward compatibility - RoutingSlips This code is failing at the HasRoutingSlip Sub HasRoutingSlip() If ActiveDocument.HasRoutingSlip = True Then End If End Sub Error 5892 Method 'HasRoutingSlip' of object '_Document' failed I realize this is a hidden property in Word 2007, but shouldn't it still work? The code fails regardless if the Activedocument has a routing slip or not. Tag: Setting a character style Tag: 96420

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

Top

Re: Setting a character style by Klaus

Klaus
Fri Feb 09 17:33:13 CST 2007

Hi Stephen,

Instead of

With rngWord
.Style = "NormalBold"
.InsertAfter "Tel: " & rs!Clubphone
End With

try

With rngWord
.Text = "Tel: "& rs!Clubphone
.Style = "NormalBold"
End With

... or some other solution where you keep track of the range of the inserted
text, then apply the style.

Regards,
Klaus

Top