Find and Replace VBA help!

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - en dashes in VBA Is there a way to get VBA to search for en dashes or em dashes? I can only seem to get it to do hyphens. Even copying and pasting an en or em dash from a Word document yields a hyphen. Thanks. Tag: Find and Replace VBA help! Tag: 81255
  - 2
    - GetSpellingSuggestions fails with custom dictionary I am running into an issue with the GetSpellingSuggestions method. If I call it without specifying a custom dictionary, the call works find and returns a list of words as expected. However, if I provide the path to a custom dictionary it fails with an HR of 0x800a239d (which I can find no reference to anywhere). Here is the code that displays the error... If I make the 'dictionary' variant vtMissing, the GetSpellingSuggestions works perfectly. Anybody have any suggestions (pun intented)... STDMETHODIMP CSpellChecker::GetSpellingSuggestions ( BSTR word, BSTR customDictionary, ISpellingSuggestions **suggestions ){ HRESULT returnValue; MSWord::_ApplicationPtr spellChecker = _Module.getMSWordApplication(); if( NULL == spellChecker ) { returnValue = E_UNEXPECTED; } else if( NULL == word || NULL == suggestions ) { returnValue = E_POINTER; } else { try { _variant_t ignoreUppercase( m_ignoreUppercase ); _variant_t dictionary = validateCustomDictionary( customDictionary ) ? _variant_t(customDictionary) : vtMissing; MSWord::SpellingSuggestionsPtr sug = spellChecker->GetSpellingSuggestions( word, &dictionary, &ignoreUppercase ); CSpellingSuggestions * cSug = new CComObject<CSpellingSuggestions>; cSug->SetSuggestions( sug ); *suggestions = cSug; (*suggestions)->AddRef(); returnValue = S_OK; } catch( const _com_error & e ) { _bstr_t message( e.ErrorMessage() ); _bstr_t desc( e.Description() ); OutputDebugString( e.ErrorMessage() ); OutputDebugString( "\n" ); returnValue = E_FAIL; } } return( returnValue ); } Tag: Find and Replace VBA help! Tag: 81254
  - 3
    - insert multiple images into doc I want to insert 3(rows)x2(cols) images per page into a document, but I am having problems inserting the pagebreaks. I can't seem to get the page break to occur after images. Right now, the images are pushed down a page, thus mixing up the order and the first page ends up blank. If anybody can help me with solving the problem, I would be very grateful. Thanks! Here is the following function that will take a directory of jpgs inserts them into a document: Public Sub InsertGraphicFiles(ByVal strDir As String) Dim doc As Document Dim ShapeGraph As Shape Dim strFile As String Dim arrFiles(10000) As String Dim lngCount As Long Dim lngWidth As Long Dim lngHeight As Long Dim lngLeftOffset As Long Dim lngTopOffset As Long Dim i As Long Dim rngEnd As Word.Range Set rngEnd = ActiveDocument.Range lngWidth = 200 lngHeight = 170 Set doc = ActiveDocument Dim ilshape As InlineShape For Each ilshape In doc.InlineShapes ilshape.Delete Next strFile = Dir(strDir & "\*.jpg") i = 0 Do While strFile <> "" arrFiles(i) = strDir & "\" & strFile strFile = Dir i = i + 1 Loop lngCount = i - 1 lngLeftOffset = 20 lngTopOffset = 20 Dim lngMaxColsPerPage As Long Dim lngMaxRowsPerPage As Long Dim lngColCount As Long Dim lngRowCount As Long Dim lngLeft As Long Dim lngTop As Long lngMaxColsPerPage = 2 lngMaxRowsPerPage = 3 lngColCount = 0 lngRowCount = 0 lngLeft = lngLeftOffset lngTop = lngTopOffset For i = 0 To lngCount Set ShapeGraph = doc.Shapes.AddPicture(FileName:=arrFiles(i), LinkToFile:=False, SaveWithDocument:=True, Anchor:=Selection.Range) ShapeGraph.Width = lngWidth ShapeGraph.Height = lngHeight If lngColCount > 0 Then lngLeft = lngLeft + ShapeGraph.Width + 20 Else lngLeft = lngLeftOffset End If ShapeGraph.Top = lngTop ShapeGraph.Left = lngLeft ShapeGraph.WrapFormat.Type = wdWrapThrough lngColCount = lngColCount + 1 If lngColCount > lngMaxColsPerPage - 1 Then lngTop = lngTop + ShapeGraph.Height + 20 lngLeft = lngLeftOffset lngColCount = 0 lngRowCount = lngRowCount + 1 End If If lngRowCount > lngMaxRowsPerPage - 1 Then Selection.InsertBreak Type:=wdPageBreak lngTop = lngTopOffset lngRowCount = 0 End If Next End Sub Tag: Find and Replace VBA help! Tag: 81252
  - 4
    - Variable Use in Multiple Documents I have several documents that list the same information, such as the current amount for monthly dues to our cabana club. Every time the dues change, someone has to edit each document to change the amount. I would like to create a variable and set the value in one place, but use the variable in multiple documents. It looks like I might be able to do this with a doc variable. But I don't quite understand how to do it. I see thread with the subject Set Variable in VBA, use in document, dated 11/29/2005, which talks about it. My problem is I don't know where to create the variable in the first place. Do I do it right in my Word document, or do I do it somewhere else? Also, how do I make it so the variable can be used in multiple documents? -- Thanks for the help Tag: Find and Replace VBA help! Tag: 81250
  - 5
    - refreshing toolbar Some of my VBA code is triggered by a button on the toolbar. The user is expected to create a new document from a template that includes the button. The trouble is, the button does not become visible until the user switches to another document and back, which presumably repaints the toolbar. Is it possible to avoid requiring this workaround by the user? How can I explicitly refresh the toolbar so as to make the button appear? -- Paul Bishop Tag: Find and Replace VBA help! Tag: 81249
  - 6
    - A very visually basic question I want to put a macro in a template I have (Word 2003). I open the template and go to Tools>Macros>Record Macro. I assign the macro a name and tell Word I want to store it in this template. Then I record the macro. I save and close the template. I open a new document from that template and sure enough, there's the text of my macro, just as I typed it. It doesn't do anything â?? it just sits there in the template, for all the world to see. What (or should I say how many things) have I done wrong? -- Wallace Tag: Find and Replace VBA help! Tag: 81242
  - 7
    - Insert Calander Object I want to insert a calendar object into my word document. I go to Insert - Object-Calendar. How do I change the month of the calendar. Is there a way I can just use this as an object and have the calendar show a different month. For example, I want to insert the calendar object but I want the month of March dispayed. Thanks very much for your help. Regards, Dee Tag: Find and Replace VBA help! Tag: 81241
  - 8
    - Version Problems Hi I have Word 2003 installed (I use VB.NET) and the users have a variety of other versions and the users experience different problems. Can it be related to the version and what solution exist? Does it support to work properly? Thank you, Shmuel Tag: Find and Replace VBA help! Tag: 81235
  - 9
    - custom colors for fonts and backgrounds Is there anyway to create a custom set of colors on the palette to apply and reapply to fonts, table/cell backgrounds, and table borders? For the fonts, if using a style, is there anyway to apply a color to whatever fontstyle or fontsize chosen? Can this be created usnig VBA if it's not standard functionality? _____ Glenn Tag: Find and Replace VBA help! Tag: 81234
  - 10
    - Insert textfile into formfield I am using Office XP. Can someone please assist me with some code which with a case statement as below picksup a value from another formfield and selects the appropriate text file which is an address and places it in a formfield wrapping round the rows of text? I have tried various suggestions but to no avail! Sub CrimeNo() Dim strDivision As String strDivision = Left(ActiveDocument.FormFields("CrimeNo").Result, 2) Select Case strDivision Case "EA" 'Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldIncludeText, _ 'Text:="H:\\Victims Code\\EA.txt", PreserveFormatting:=False 'ActiveDocument.FormFields("Address").Select _ 'Selection.TypeText Text:="H:\\Victims Code\\EA.txt" 'ActiveDocument.FormFields("Address").Select _ 'Selection.Range.Text , Type:=wdFieldIncludeText, _ 'Text:="H:\\Victims Code\\EA.txt", PreserveFormatting:=False Case Else End Select Thanks -- Mark Tag: Find and Replace VBA help! Tag: 81232
  - 11
    - Create a bullet list automatically Hi all, I am trying to output records from a database into a particular part of a word document. That bit works fine, and I have created a document template with a bookmark to receive the data. The problem I have is that the items are not appearing as a bulleted list as I expect. I have trawled the word object model and tried various methods without success :o( Here is some of the code I have written (missing the variable declarations), with the database records being replaced with a for...next loop to create some lines of data temporarily to test the concept; Set wdApp = New Word.Application wdApp.Documents.Open strDocPath & strDocName Set wdBookmarks = wdApp.ActiveDocument.bookmarks Set wdLstTemplate = wdApp.ListGalleries(wdBulletGallery).ListTemplates(1) ' Update the document bookmark range with the new text On Error GoTo Error_DocumentNotValidForExport Set wdRange = wdApp.ActiveDocument.bookmarks("Requirements").Range For l% = 1 To sngNumLines strNewText = strNewText & vbTab & "Auto Line " & l% & " inserted" & vbCrLf Next l% // THIS IS ONE METHOD ATTEMPTED TO APPLY A BULLET FORMAT TO THE LIST If wdRange.ListFormat.ListType = wdListNoNumbering Then wdRange.ListFormat.ApplyBulletDefault End If // END METHOD // THIS IS ANOTHER METHOD I TRIED wdRange.ListFormat.ApplyListTemplate ListTemplate:=wdLstTemplate, _ ContinuePreviousList:=False, ApplyTo:=wdListApplyToWholeList, _ DefaultListBehavior:=wdWord8ListBehavior // END METHOD // THE REMAINDER OF THE CODE I AM HAPPY WITH wdRange.Text = strNewText wdBookmarks.Add "Requirements", wdRange On Error GoTo 0 wdApp.ActiveDocument.Save wdApp.Quit Set wdBookmarks = Nothing Set wdLstTemplate = Nothing Set wdApp = Nothing Tag: Find and Replace VBA help! Tag: 81229
  - 12
    - XML seed file, "lost" VB macro and WML2XSLT.EXE # my WordML source file has a working VB macro # the XSL output file generated with WML2XSLT.EXE includes this entry: w:macrosPresent="yes" # I then open from Word 2003 an XML data file and apply the XSL, I answer yes to the Security Warning to enable macros and the transformation completes as expected except the resulting file doesn't contain my macro (why not?!) # any ideas what I need to do in order for the resulting file to have a copy of my macro? is it correct to assume my macro code is also contained in my XSL file? Thanks! Tag: Find and Replace VBA help! Tag: 81227
  - 13
    - How can I represent a Greek character and Unicode in a macro? How can I represent a Greek character and Unicode in a macro? Tag: Find and Replace VBA help! Tag: 81220
  - 14
    - Table text wrapping property from VBA? Is there any way to retrieve/set the "Text Wrapping" property (None/Around) of a table programmatically? I have weird problems inserting text into text-wrapped tables and need to temporarily change this option while I manipulate the table's contents. Thanks, Chris Peacock. Tag: Find and Replace VBA help! Tag: 81219
  - 15
    - Out of memory I have created a template which runs a macro containing a form and some code in a module. But if Word has (or have had) several instances of a document created from the template open the user gets a â??out of memoryâ?? error when the macro runs. If all instances of word are closed the macro runs again and functions probably. I figure itâ??s because the form and the module isnâ??t unloaded probably. I have tried to insert an â??Unload Meâ?? statement in the form instead of hide. But itâ??s the same. How can I avoid getting â??Out of memoryâ?? errors? Tag: Find and Replace VBA help! Tag: 81215
  - 16
    - Insert Graphics and other objects in a Word Document I've been reading the help and I'm still confused. I'm trying to get a grip on the Word Document Hierarchy, but to no avail. Section, Range, HeaderFooter ??????? The specific issue is, I want to insert a graphic at a specific point in an existing Word document. In my case, the graphic will go in the header of the first page, where from there it should of course show up on the remaining page's header area. I'm using a VBA in an Access module, opening the document.... from there I would like to insert the graphic (from a file) then position and resize, etc. ...save the document and move on to the next. I would like to start with a document where there is a pre-existing graphic that says "Insert Graphic Here". This "blank" graphic will be in the exact same place where the new graphic will be inserted. So...I would like to open the doc, find the "blank" graphic, delete it, insert the new graphic, position and resize (if necessary), save, and move on to the next doc. The "blank" graphic is not really necessary because the following code works (though I'm sure, it cant be proper method), without a "blank". However, there are some docs where there is a graphic in the header already (btw there are sometimes 2-3 total, even distributed, ie non-overlapping), so I would need a method to "find" the existing graphic and delete it. Here's the code I'm using now 'The app and doc are open already, at this point... Dim objShp As Word.Shape Dim objRng As Word.Range Set objRng = objDoc.StoryRanges.Item(wdPrimaryHeaderStory) ' I'm guessing here... Set objShp = objDoc.Shapes.AddPicture(filename:="C:\My.gif", LinkToFile:=False, Anchor:=objRng) With objShp .Height = InchesToPoints(1) .Width = InchesToPoints(1) .Left = InchesToPoints(0.25) .Top = InchesToPoints(0.25) 'Do I need to use relative positioning? End With I'm expecting a way to insert an object at any "coordinate" onthe document in general or within a specific "section" (a word I use to describe, Header, Footer, or Page Body) I'm just not sure how to specify the Header, Footer, Body, or just the document in general. The general idea is to start with a base set of documents with a "blank" graphic in the header. For any reason (a new project, client, etc), create a new set of documents from the originals where the appropriate graphic is inserted in the same place where the "blank" graphic was, thus creating a set of docs specific to a client or project or whatever. The point is, I feel that my current method is a lucky guess, or a "hack" and I can't seem to glean any proper methods from the confusing, help. Any ideas or references would be appreciated. TIA Tag: Find and Replace VBA help! Tag: 81207
  - 17
    - PAGEREF field help! Please We are in the process of creating a directory book at work with about 5000 resources in it. Now the problem is: When it originally was merged after hand tweaking (removing some items, spaces, etc.) it seems it was merged with errors such as page numbers don't match in the <pageref></pageref> field. My desparate question is - Is there an easy way to resort the document so that the PAGEREF fields are corrected? ie - right now let's say the product Window Pane is on page 45 but the merged document Table of Contents says it's on page 256 (this is what is in the tags <pageref></pageref>. I cannot start from scratch as too many fields have been edited but I'm going crazy now and need an easy way to correct. PLEASE HELP! -- Mich Tag: Find and Replace VBA help! Tag: 81204
  - 18
    - enable option buttons at runtime i have a userform with two listboxes, and six optionbuttions. the options buttons are split into 3 pairs of two. at the outset only the first pair of option buttons is enabled. the following code tests to see if more than one selection is made in a listbox, and if it is, then enables a relevant pair of option buttons. Private Sub Listbox1_change() 'check to see if there is a multiple selection Dim i As Integer Dim Acount As Integer Acount = 0 With Userform1.Listbox1 For i = 0 To .ListCount - 1 If .Selected(i) Then Acount = Acount + 1 End If Next i End With If Acount > 1 Then Userform1.OptionButton5.Enabled = True Userform1.OptionButton6.Enabled = True End If Userform1.Repaint End Sub this code works fine, when i run the code, by stepping through it. In fact i don't need the Userform1.Repaint line, when i run it this way. But the appearance of the userform doesn't change when i run the code normally. Is there some other trick to getting this change to happen? thanks for your help. Tag: Find and Replace VBA help! Tag: 81202
  - 19
    - Re-post Chad, This message refers to a previous post dealing with auto popoulating multiple pages of forms with repetitive info. I am trying to create a single document that has four separate forms. The of the two of the forms use the same information. I form is built on pleading paper. 1. How do I add these forms into one document? 2. I would like to auto populate the two similar for forms. My attempts at this have failed thus far. I also discovered while trying to copy the form built on pleading paper, the vertical lines running the full length of the paper do not transfer. I also discovered that trying to add a new page after this form resulted in the new page being formatted as pleading paper. Any help would be verrrrrrrrrrrry appreciated!!!!!!!! Thank You, mojr Tag: Find and Replace VBA help! Tag: 81200
  - 20
    - Send mouse event in Word? Is there anyway to send a left mouse click event? I just need to have it click down once where my cursor is. The reason behind this is that I am using a webbrowser to display my Word Document and it is losing focus after I insert a bookmark from my ActionsPane. Anyway, is it possible to send a mouse event that way? Thanks! -- Brenda Tag: Find and Replace VBA help! Tag: 81194
  - 21
    - Form Fields & UserForms Interactions HeLp! Great Forums for everthing Office but sometimes there is a lot of reading required when you want to do something that seems simple and to no avail! Here is the issue: Our firm uses templates to create Functional Analsys Documents. The first two pages of the FA Doc have on them two types of form fields. (Hopefully I got all the terminology correct as I am a newbie to this type of programming.) Ones that can be edited by the user and ones that can get updated by refrence when pressing the <F9> function key from within the field. I wanted to simplify this by creating an optional user form that can be called up through a Custom Menu. I have manage to do so but I'm running in to updating the text fields in the user form correctly. The first time I use the user form the defaulted values from the form fields get displayed in the user form correctly. I used the following code when initailizing the user form; Private Sub UserForm_Initialize() With UserForm1 .TextBox2.Text = ActiveDocument.FormFields("Text2").Result .TextBox1.Text = ActiveDocument.FormFields("Text1").Result .TextBox3.Text = ActiveDocument.FormFields("Text6").Result .TextBox4.Text = ActiveDocument.FormFields("Text4").Result .TextBox5.Text = ActiveDocument.FormFields("Text3").Result .TextBox6.Text = ActiveDocument.FormFields("Text5").Result End With End Sub Which I obtained through reading in this forum. I attached the follwoing code to a command button that update the form fields without killing them ( I had some trouble keeping the form fields in tact until once again you forum came to the rescue); Private Sub CommandButton1_Click() With ActiveDocument .FormFields("Text2").Result = TextBox2 .FormFields("Text1").Result = TextBox1 .FormFields("Text6").Result = TextBox3 .FormFields("Text4").Result = TextBox4 .FormFields("Text3").Result = TextBox5 .FormFields("Text5").Result = TextBox6 End With UserForm1.Hide End Sub All runs A-Ok until I change the value on the actual FA Document by clicking on the form field then calling up the user form through the custom menu. The values in the user form recall the previous values that I entered the last time I used the user form. It's as if the user form has a buffer that doesn't get reloaded after the first time the user form is called up. How can I have the user form reflect the changes of the FA Doc fields No mater how menay time the user form is called up? I want to be able to edit these field from either the FA Doc form fields or the new user form but alway displaying the correct values! I have done quite a bit of reading that my eyes a bugging out and can't hurdle this one yet! HeLp! -- Thanks, Bugs Tag: Find and Replace VBA help! Tag: 81187
  - 22
    - how does a check box work? clk'ng on it = nothing ? boswell6@sbcglobal.net <- recently new Tag: Find and Replace VBA help! Tag: 81175
  - 23
    - Word VBA Code Cleaner I've seen several suppliers of Excel VBA Code Cleaners, but none that is focused on Word VBA. Any knowledge/opinions out there? /BosseH Tag: Find and Replace VBA help! Tag: 81174
  - 24
    - track changes and Reviewer (WP) - compatible? I've got WP 12 and use Reviewer (which is Track Changes in WORD). Has anyone been able to view both the Word and WP "changes"? ex. If I Review a document in WP then send it to a Word person for them to Track Changes will they see my WP Reviewer edits? thx. krista Tag: Find and Replace VBA help! Tag: 81164
  - 25
    - Large Document Creation We have created a program in VB & VBA that assists users in creating midsize documents daily. There will be one file for each day anywhere from 3-25 pages in length. We need to combine these documents once a year into one large file to be published into a book. The document is straight text. No images. In the end it will be approximately 1500-2000 pages in length including table of contents and index. We hope to index and do TOC using Word's automated features. Before we attempt this I would like to know any limitations of Word. Can Word handle a document of this size? What do we need to do to prevent file corruption? Are there any special steps we need to take? What is the easiest way to combine all the daily files into one at the end? We looked at Master Docs but read about corruption. Tag: Find and Replace VBA help! Tag: 81163
- Next
  - 1
    - Filling in School Dates in Word? Hi all-- I think I've reached the point where I need to program in Word. I teach a class, and my syllabus lists each class number, the day and date, and the assignment. I get tired of manually replacing the dates each semester and would like to do it automatically. This is what I'd like: Class #1 <Day>, <Date> Assignment So if I teach every Tuesday in fall of 2006, I'd like to give it the start and end dates (8/22/06 first day of class, 12/12/06 last day of class) and have it fill in the proper dates for each class throughout the semester. If I were to teach every Monday and Wednesday, I'd like it to fill in everything from 8/21 to 12/13 that semester. To add to the confusion, it would be nice, but maybe not possible, to have it skip spring break holidays or other days off. Maybe I could input which dates classes are canceled and have it adjust accordingly. Am I asking too much? Thanks for any help. --- Peg ladypegasusgarbage@yahoo.garbage.com Take out the garbage!! Tag: Find and Replace VBA help! Tag: 81162
  - 2
    - Word VBA causing my outlook to freeze up. I am having problems with my Outlook freezing when I run macros containing WORD VBA in them. I posted this to the Outlook forum, but the MVP there suggested I try here as it is the Word VBA code that seems to be causing this. Since outlook is set up to use word as my email editor I want to be able to take advantage of macros stored in my Normal.dot template to perform some simple text searches & replacements. After running a macro in an email message window (new messages or replies) , the send button along with every other button/tool on that row of Outlook toolbars (i.e. the Accounts drop-box, the attachment icon, address book button, options, etc.) becomes disabled. I kind of need the SEND button! I click, but nothing happens. The buttons are all dead. They no longer change color when hovered over, or animate, etc. I've tested it on 3 machines at work as well as my computer at home and can replicate it 100% of the time. I have isolated the problem to one Selection.Find statement, but haven't done any exhaustive testing to be sure something else can't trigger it as well. Here's the example: Sub RemovePhone() ' ' RemovePhone Macro ' Macro recorded 2/14/2006 by JG ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^#^#^#-^#^#^#-^#^#^#^#" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub The last statement in the sub -- the Select.Find -- is the only one that, if commented out or removed, stops the freezing behavior. Any help would be greatly appreciated as this is driving me crazy and slowing me down having to manually replace text in each message. Thanks! Jim (Using Office XP Pro SP3 with windows XP Pro.) Tag: Find and Replace VBA help! Tag: 81161
  - 3
    - Word VBA causing my outlook to freeze up. I am having problems with my Outlook freezing when I run macros containing WORD VBA in them. I posted this to the Outlook forum, but the MVP there suggested I try here as it is the Word VBA code that seems to be causing this. Since outlook is set up to use word as my email editor I want to be able to take advantage of macros stored in my Normal.dot template to perform some simple text searches & replacements. After running a macro in an email message window (new messages or replies) , the send button along with every other button/tool on that row of Outlook toolbars (i.e. the Accounts drop-box, the attachment icon, address book button, options, etc.) becomes disabled. I kind of need the SEND button! I click, but nothing happens. The buttons are all dead. They no longer change color when hovered over, or animate, etc. I've tested it on 3 machines at work as well as my computer at home and can replicate it 100% of the time. I have isolated the problem to one Selection.Find statement, but haven't done any exhaustive testing to be sure something else can't trigger it as well. Here's the example: Sub RemovePhone() ' ' RemovePhone Macro ' Macro recorded 2/14/2006 by JG ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^#^#^#-^#^#^#-^#^#^#^#" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub The last statement in the sub -- the Select.Find -- is the only one that, if commented out or removed, stops the freezing behavior. Any help would be greatly appreciated as this is driving me crazy and slowing me down having to manually replace text in each message. Thanks! Jim (Using Office XP Pro SP3 with windows XP Pro.) Tag: Find and Replace VBA help! Tag: 81160
  - 4
    - VBA code merge Word doc with Excel data Trying to come up with VBA code from within Excel that will mail merge a MS Word document called NewComerTaxLeads.doc with the opened data sheet called 2006 in a workbook called NewComerTaxLeads.xls. I would really appreciate any & all help you can give me. mikeburg Tag: Find and Replace VBA help! Tag: 81159
  - 5
    - Copying field headers when exporting data I'm creating a VBA script in Access that will take data selected by a basic query, place it in an Excel worksheet, and format the data. I cannot figure out how to take the headers from the fields I select in the query and place them at the top of the Excel sheet. I do not want to hardcode the field names, as this script will be reused on various datasets. Anyone have a suggstion? Thanks, Andrea Tag: Find and Replace VBA help! Tag: 81158
  - 6
    - Command line arguments for "Open and repair" ? Hello, I would like to know if this is possible to open a file with the "Open and Repair" option with some command line argument. It would be something like: Winword Mydoc.doc /[open and repair tag] Thanks Tag: Find and Replace VBA help! Tag: 81155
  - 7
    - Template causes Word to Crash--Recompiling fixes problem We have a fairly sophisticated MS Word template. The last version that we sent to our users gave us a real surprise. Many of our users had Word crash when they opened a document that was based off the Template. Word would give the error that reads something like "couldn't read memory at location xxxxxx to yyyyyyy". It would also crash with the same error when they created new documents based off the template. To fix it, we went to their PC, opened the template, compiled the template, then saved the template. Word worked fine after that. Can anyone offer any general troubleshooting techniques? I don't even know where to begin on what could be causing this. Thanks in advance for the help! Tag: Find and Replace VBA help! Tag: 81150
  - 8
    - macro help I created a macro in bold type, the strange thing is that it only comes out bold every other time! How do I resolve this..Thank you Tag: Find and Replace VBA help! Tag: 81142
  - 9
    - common dialog control in word VBA Hi I have written a macro that pulls data in from an excel sheet and puts it in a word doc. I want to allow the user to select which excel file they want to use by ideally using the common dialog control to allow them to navigate to the file they want. Is there any way of doing this, particularly without using a form to trigger the dialog control. I have had a look round the net and it seems a WinAPI call(s) are required. Any help would be appreciated. Thanks Martin Tag: Find and Replace VBA help! Tag: 81132
  - 10
    - How to copy all textbox content of doc1 to doc2 - and back? In a document, various text boxes with formatted text, even with tables in them, exist. I would like to cut all textbox content in all text boxes and copy it to a second document for editing, and once edited, move the content back to the original textboxes. I have this macro (see below), but it copies (it should cut) and it deletes all formatting and tables. Is there a better way to cut? How do I get the content back to the original textboxes? Shirley Nomey. Sub CopyFromTextBoxes() Dim I As Integer, Boite As Shape, ThisDoc As Document Set ThisDoc = ActiveDocument Documents.Add For Each Boite In ThisDoc.Shapes If Boite.Type = msoGroup Then For I = 1 To Boite.GroupItems.Count With Boite.GroupItems(I).TextFrame If .HasText Then Selection.InsertAfter .TextRange Selection.InsertParagraphAfter Selection.Start = Selection.End End If End With Next Else With Boite.TextFrame If .HasText Then Selection.InsertAfter .TextRange Selection.InsertParagraphAfter Selection.Start = Selection.End End If End With End If Next End Sub Tag: Find and Replace VBA help! Tag: 81131
  - 11
    - putting signature in document I would like to know how to sign a document after completing my work Tag: Find and Replace VBA help! Tag: 81130
  - 12
    - Populating a document form a userform I have a userform which populates an address formfield on a letter, the trouble with it is when the second and subsequent lines are entered then a square precedes the text. Is there anyway that these squares can be removed? To have the userform populates just a bookmark would normally resolve the situation but I have a textbox which needs to be populated which is over a picture and all the text is populated into that unless I use formfields! Any other solutions would be greatly appreciated though. -- Mark Tag: Find and Replace VBA help! Tag: 81126
  - 13
    - Accessing VBA code from external program through Automation Hi, is it possible to extract the VBA source stored in a DOT from an external program using the Word Automation interface? Second, is it possible to alter this source code from an external program? Thanks in advance, Jo Tag: Find and Replace VBA help! Tag: 81124
  - 14
    - Disable X Hi all, is there any way to hide or disable X button (at the top right of the window) to avoid a user to close Word? Thanks in advance. Mauricio Barcelona, Spain Tag: Find and Replace VBA help! Tag: 81122
  - 15
    - range horizontal position on page I am using the Information property with the parameter wdHorizontalPositionRelativeToPage in order to get the position of all the hyperlinks in a document, However, starting with the second page it always return -1. I think because the second page is not on the screen. But how can I get around this? Thanks, Cris Tag: Find and Replace VBA help! Tag: 81121
  - 16
    - Repagination Hello, Well, I have an unusual repagination problem. I understand that background repagination (in Normal View) may be turned off along with the screen updations. Sub MakeAllFast() ActiveWindow.View.Type = wdNormalView ActiveDocument.Repaginate Application.ScreenUpdating = False Application.Options.Pagination = False End Sub Sub MakeAllNormal() Application.ScreenUpdating = True Application.Options.Pagination = True ActiveDocument.Repaginate End Sub I am working on a huge 200 page document which needs automation and I simply call 'MakeAllFast' before the Find and Replace loops and 'MakeAllNormal' after the loops. This works as expected and I do not see the "Word is repaginating ..." message on my computer which runs Microsoft Word 2003. However, the problem occurs when I install the template on Word 2000 based machines. Inspite of ensuring that background pagination is turned off and Normal View is being used, I still keep getting the "Word is repaginating..." message on these computers. I have no idea why. What takes 30 seconds on my computer takes around 6-7 minutes on the other computers that use Word 2000. I thought that background repagination in normal view should work the same in all versions of Word. Can somebody please shed some light on this? I did break the code and ensure that the options.pagination was false and activewindow.view.type was 1 (Normal) on the 2000 machines before the main loop got executed. I still got the "Repagination" message. Thanks a lot for any help. Vince Tag: Find and Replace VBA help! Tag: 81118
  - 17
    - Adding watermark to the document I recorded a macro to insert watermark in a document. The document has multiple sections and different first page and primary headers. Word adds the watermark perfectly but when I run the macro the watermark is not available on many pages and also it is not centered on the page. Has anybody else faced this problem too? Any comments will be appreciated Thanks, Tag: Find and Replace VBA help! Tag: 81112
  - 18
    - Adding watermark to the document I recorded a macro to insert watermark in a document. The document has multiple sections and different first page and primary headers. Word adds the watermark perfectly but when I run the macro the watermark is not available on many pages and also it is not centered on the page. Has anybody else faced this problem too? Any comments will be appreciated Thanks, Tag: Find and Replace VBA help! Tag: 81111
  - 19
    - msgbox html I have a file "summary.html" that i use as "htmlbody" for sending emails created in html with personal functions. I'd like to show this file as a msgbox. If i open it as an object of filesystem i have as message "<body><Table ..." and so on How can i display the fle html as a messagebox before creating emails? tia, marco Tag: Find and Replace VBA help! Tag: 81108
  - 20
    - VBA vs. VB6? I'm just curious: how similar/different are VBA and Visual Basic 6? I'm more or less functional in VBA at this point and have just seen a job posting where Visual Basic 6 is a "nice to have". I'm wondering if it would be reasonable to cite my experience with VBA as proof that VB6 would not be a big challenge? Or are they totally different animals? -- Rhino Tag: Find and Replace VBA help! Tag: 81104
  - 21
    - Copying a range from excel into word I have an excel sheet in which there are several named ranges. I would like to write a macro to copy the information, create a new word doc and then paste into the new word doc. Do I write it from excel or from word. How do I control the paste function? Tag: Find and Replace VBA help! Tag: 81101
  - 22
    - font color how can i change color for example font.color = wdColorRed for the text i replace? like this Dim rDcm As Range Set rDcm = ActiveDocument.Range With rDcm.Find .Text = strfind .Replacement.Text = strReplace .Execute Replace:=wdReplaceAll .... end with tia Marco Tag: Find and Replace VBA help! Tag: 81097
  - 23
    - Getting to the end of range Hello I use Range object to insert text in paragraphs. when text is inserted, the cursor still stays at the beginning (at the book mark). Set rBMRange = .Bookmarks("P1_WhatYouMightGetBack").Range rBMRange.Text = Trim(rsMYS!para_text) I want to carry on typing more text from database, without having unnecessary bookmarks. How do I get to end of text, and how do I type carriage return (selection.typeparagraph with selection). Tag: Find and Replace VBA help! Tag: 81089
  - 24
    - Error automatically adding bookmarks in Word 2003 Hi, i am having trouble creating a macro that creates a bookmark, then uses the selection as the name. I have written the following macro... Sub AddBookmarkUsingSelection() Dim strSelection40 As String Dim lngBookmarkCount As Long strSelection40 = Left(Replace(Selection, " ", ""), 40) lngBookmarkCount = Application.ActiveDocument.Bookmarks.Count With ActiveDocument.Bookmarks .Add strSelection40, Selection.Range .DefaultSorting = wdSortByLocation .ShowHidden = False End With MsgBox "Bookmark number " & lngBookmarkCount + 1 & " added: " & strSelection40, vbInformation End Sub ... but as soon as i run it, it gets to the '.Add strSelection40, Selection.Range' range then stopps with an error: 5828 - Bad bookmark name. If i analyse the contents of the variable strSelection40 in the Immediate window it confirms that the string contains no blanks. If i then assign the same string value back to the string, the macro runs as required, see Immediate below: ? strSelection40 Mainnut strSelection40 = "Mainnut" Does anyone know a workarround for this? Thanks in advance. Mark Tag: Find and Replace VBA help! Tag: 81088
  - 25
    - Totaling Columns I have a document that i am in the process of formatting, however i need to total up columns of data. I know where the bottom on the data will be and can activate the cell either at the last column with data or the column below this. this action is then repeated within my loop. Can anyone help?? Tag: Find and Replace VBA help! Tag: 81085

Hello all,

I hope you're having a great day.

I have a problem and I'm hoping that somebody can help me:

I have a line that appears 1300 times in a document: "enter the
corresponding test case ####" that I need replaced with values I now have.
Each time that the line is found, I need to replace the line with an
incrementing value (first one is 1, the second is 2, third is 3 etc).

Is there an easy VBA function that will perform this?

I'd really appreciate any and all help,

Mike

Top

Re: Find and Replace VBA help! by Doug

Doug
Thu Feb 16 15:37:29 CST 2006

Use a macro containing the following code

Dim i As Long
i = 1
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="####", MatchWildcards:=False,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Range.Text = i
i = i + 1
Loop
End With

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Mike" <Mike@discussions.microsoft.com> wrote in message
news:A679453D-C485-42EF-A2BD-712EDC56A2E1@microsoft.com...
> Hello all,
>
> I hope you're having a great day.
>
> I have a problem and I'm hoping that somebody can help me:
>
> I have a line that appears 1300 times in a document: "enter the
> corresponding test case ####" that I need replaced with values I now have.
> Each time that the line is found, I need to replace the line with an
> incrementing value (first one is 1, the second is 2, third is 3 etc).
>
> Is there an easy VBA function that will perform this?
>
> I'd really appreciate any and all help,
>
> Mike

Top