Macro to delete between bookmarks

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - COMException: Word cannot print. There is no printer installed. Hello everyone I'm having an ussie with getting my ASP.NE code to print serverside to network printers. It works fine when it is a local printer, but, as soon as I choose a network printer if fails on the PrintOut() with COMException: Word cannot print. There is no printer installed. Printer works fine and is accessiabe if running word app. Any ideas? code example below: Word.ApplicationClass oWordApp = new Word.ApplicationClass(); .............. {Various bits of code to create doc, etc.} .............. oWordApp.ActivePrinter = DefaultPrinter; oWordApp.PrintOut(ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing,ref missing,ref missing, ref missing,ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing); oWordApp.Documents.Close(ref doNotSave, ref missing, ref missing); Many thanks in advance. Kind Regards Nick Tag: Macro to delete between bookmarks Tag: 62646
  - 2
    - How to Obtain the Generated Text of a Style I would like to know if it is possible to get the "value" of a heading that Word is using programmatically. I will try to clarify my question with a demonstration. If I have a document and I set it to use a numbered heading style for its layout, I might have something that looks like: 1. Overview 2. Introduction 3. How to do it 101 3.1 Starting 3.2 Finding Help 4. Advanced Options In this case, the leading number and period are supplied by the style, and I simply type in the text (Overview, Introduction, etc.). When I parse this document in VBA, I can get the style names and the text, but I'm not sure how (if it is even possible) to get the characters Word is automatically generating (1., 2., etc.). Outlined below is a little pseudo code to provide an idea of where I'm currently sitting: for each section in WordDoc.Sections for each paragraph in section.Paragraphs ' Get the text - Overview, Introduction, etc. text = paragraph.Range.Text ' Get the style name - Heading 1, Heading 2, etc. styleName = paragraph.style.NameLocal ' How can I get the text Word is putting in based on the style? << Unknown code here >> ' Do some stuff with the information. next next Any help would be much appreciated. Thanks, Tyler Tag: Macro to delete between bookmarks Tag: 62645
  - 3
    - Replacing Wordbasic.Call in Macros I have various macros that were originally written in Wordbasic. I have rewritten or converted most to VBA code but one particular piece of code won't seem to work in VBA so I must be doing something wrong. an instance is WordBasic.Call "somemacorname.ITUPrintPSToDisk", filename will work but If I drop the Wordbasic it will not. (filename is a variable containing a name of the file to be printed by the macro) This may be very basic but I can't seem to get it to work. ps I have got other Call commands to work but not when they refer to a subroutine in a macro as the one above does. Thanks Phil Tag: Macro to delete between bookmarks Tag: 62644
  - 4
    - Attn Jezebel: Search and Replace in String Jezebel, Your earlier response to my issue works perfectly by itself. But when I add it to an IF statement, the macro completely runs over it bringing back a negative response, therefore treating the line of code as if it had been commented out. Would you have any idea as to what the problem could be... My code is... If InStr(1, MyData, Chr(150)) > 0 Then MyData = Replace$(OldData, Chr$(150), "-") End If ******************************************************* em-dash is chr(150) BTW, the string versions of these functions are about 10 times faster than the variant equivalents -- MyData = Replace$(OldData, chr$(150), "-") "Vince" <sdsad@fsd.com> wrote in message news:uU2pIoBCFHA.244@TK2MSFTNGP10.phx.gbl... > myData=Replace(myData,chr(40),"-") > > OR > myData=Replace(myData,"Â¾","-") > > Is this what you want? > > Vince > > "Eternally grateful" <Eternally grateful@discussions.microsoft.com> wrote > in > message news:1D3B6AAD-28BA-4C32-A474-A934B6C114E0@microsoft.com... >> Can anyone tell me if it is possible to perform a search and replace > inside >> of a string? >> >> I have a string called myData that contains an emdash that I need to > change >> into a hyphen and I cannot find a way to do this. >> >> Any assistance would be greatly appreciated. >> >> Thank you for taking them time to read this. > > Tag: Macro to delete between bookmarks Tag: 62636
  - 5
    - Changing Styles of Bulleted Lists (Word 2000/Windows) Hello Again! I seem to be misunderstanding ActiveDocument.Lists and ranges and once again need some help. What I am trying to do is find every line in a document that has a bullet. I then want to look at the style used for each line with a bullet. (There should only be 5 styles ever used). Based on the style used, I want to assign a different style. However, with the code I have, it is changing all of the lines between the first bullet list and the last bullet list in the document. So I'm thinking I'm close, I'm just not defining my ranges correctly. But I'm not sure what I need to change. As always, any help will be greatly appreciated! Dan -- The code is: Sub ChangeBulletStyles() Dim oList As List Dim opara As Paragraph Dim oRng As Range For Each oList In ActiveDocument.Lists For Each opara In oList.Range.Paragraphs Set oRng = opara.Range If oRng.style = "Para 1.1" Then oRng.style = "List Bullet 2" Else If oRng.style = "Para 1.1.1" Then oRng.style = "List Bullet 3" Else If oRng.style = "Para 1.1.1.1" Then oRng.style = "List Bullet 4" Else If oRng.style = "Para 1.1.1.1.1" Then oRng.style = "List Bullet 5" Else If oRng.style = "Normal" Then oRng.style = "List Bullet" Next opara Next oList End Sub Tag: Macro to delete between bookmarks Tag: 62632
  - 6
    - Delete all manual page breaks I need a function that will delete all manual page breaks in a document. Can someone please post example code to do this? Thanks much in advance. Tag: Macro to delete between bookmarks Tag: 62620
  - 7
    - selection extend problem Hi! Maybe someone will spot why I loose my extend selection when I try to block after the second search? Appreciate your help. ' Removes existing contractor data Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .Text = "Contractors" .Style = "Heading 2" .Forward = True .Execute If Not .Found Then GoTo SaveClose End With With Selection .MoveRight Unit:=wdCharacter, Count:=2 .ExtendMode = False .ExtendMode = True End With '*******works fine here Selection.Find.ClearFormatting 'Leave notes alone With Selection.Find .Text = "NOTE(S):" .MatchCase = True .Forward = True .Execute '***works fine here End With If Selection.Find.Found Then GoTo SkipHead2 'check for nect section if note: not found With Selection .ExtendMode = False '***does not shut off here .ExtendMode = True ' does not work End With With Selection.Find .Text = "T" .Style = "Heading 2" .Forward = True .Execute End With 'loose the extend here SkipHead2: With Selection .HomeKey Unit:=wdLine .ExtendMode = True End With Selection.Delete Unit:=wdCharacter, Count:=1 'deletes the T xwrong Tag: Macro to delete between bookmarks Tag: 62618
  - 8
    - Cannot open Access database on CD In my Word VBA application I would like to open an Access Database on a CD, but get an error message telling me that it cannot be opened because it is "either locked by another user or you need permission to read it". However, none of these conditions are fulfilled as far as I undestand. If I copy the database to the hard disk it works as expected. What fails is the following line of code: Set dbsDok = OpenDatabase(strDatabas) What's the problem ? /BosseH Tag: Macro to delete between bookmarks Tag: 62616
  - 9
    - VBE Opens When Unlocking Computer Word 2000 Each time I leave my computer, I hit CTRL+ALT+DEL and lock the machine. When I unlock the machine the VBE opens and is devoid of toolbars and menus. If I close the VBE and open it again, the toolbars and menus are displayed. This does not appear to be related to any specific document, as it happens with every document I've tested, and without regard to whether or not the document contains macros or is based on a custom template. My employer runs Novell 6.5 on the network, so the login screen indicates Novell Client for Windows. This happens with Excel as well, so my suspicion is that this is a Novell problem. Nonetheless, I thought that I would post the question here to see if anyone else has encountered this problem. Any ideas on why this happens? --Tom Tag: Macro to delete between bookmarks Tag: 62615
  - 10
    - Insert Text Left of Bulleted Style Hey Gang, I am trying to enter some text against the left hand side margin on lines that use either bulleted or numbered styles. I couldn't figure a way to enter it simply by typing so I tried inserting a text box of the necessary size to hold the letters "[C]". However the old code that I am working from (WordBasic) seems to want to move the box up slightly and not on the same line as the paragraph I want it on. Does anyone know of a way to place text to the left of a bulleted or numbered style or have some code that works. What I had on a previous template was a text box converted to a frame that actually put it in the left hand margin (had a 2" margin to simulate a two-column document). That one worked fine I guess because there was enough room from the textbox and the actual text. This one however doesn't seem to like it on the same line. Any solutions out there? I would be happy to post the code I was using if that would help. By the way, using Word XP. TIA! -- Bill Foley, Microsoft MVP (PowerPoint) Microsoft Office Specialist Master Instructor - XP www.pttinc.com Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/ Check out Word FAQs at: http://word.mvps.org/FAQs/General/index.htm Tag: Macro to delete between bookmarks Tag: 62610
  - 11
    - Build a better mousetrap First off - my thanks to Jonathan West and Charles Kenyon for their reply to my earlier question. Now this may be a hard one because it's objective... I work in an extremely "form" dominated environment. Many of the forms I am currently working on are what I call "form sets", they are actually a single file comprised of multiple/different forms. The users want to be able to create multiple pages between each of the individual forms....this I can do but the results are not always reliable. Doing this in a word document is difficult enough without adding section protection to the equation, however, Word has no feature which allows you to "Append" a "template" between pages or at the end of the file. Is there another way to create this document, either thru links or whatever, that will give the continuity of each form without placing each one in the same file??? Love to hear from someone on this one! Best regards.... Tag: Macro to delete between bookmarks Tag: 62606
  - 12
    - Word date switches Is there a switch I can add to the "Today" date format that will keep the date from advancing once the document is created...."create" date is not what I want. I want the user to have "todays" date fill in a date field when they open/create a new document off a template. When the document is opened subsequently, I want the date to remain static and not advance to the current "opening" date. Is this a switch or some other method?? Best regards..... Tag: Macro to delete between bookmarks Tag: 62599
  - 13
    - Select an entire Word Page - one only I am automating Word from Excel and I need a sure fire method for selecting ONE entire page. I have developed the following function, but this sometimes picks up (or adds) an extra return or two that puts the selection over ONE page. Could someone please correct this function so that only ONE page is selected, or otherwise give me a clue as to what is going on? Public Function WordSelectPage(argAppRef As Object, argFileName As String, argPageNumber As Long) 'SELECT A SPECIFIC PAGE IN A WORD DOCUMENT; argAppRef.Documents(argFileName).Activate argAppRef.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=argPageNumber argAppRef.ActiveDocument.Bookmarks("\Page").Range.Select End Function Thanks much in advance. Tag: Macro to delete between bookmarks Tag: 62598
  - 14
    - How do I change printer I use VB6/Word Automation to change the printer by assigning .ActivePrinter ='blah blah blah'. It works but it also set the Window default printer to blah blah blah. Is there another way to do it whithout touching the default printer. (I can probably save it and change it back, but automation is quirky sometime and it does not always follow thru) TIA. Tag: Macro to delete between bookmarks Tag: 62596
  - 15
    - Print MS Word documents from a client without opening Hi,=20 How can i invoke the print=AD of multiple documents from th=ADe=20 client browser? the document=ADs are located on the server=20 ma=ADchine specific folder. I am us=ADing ASP, Active Server=20 Pages f=ADor this.=20 Please Provide some tips or some pointers to the same. Thanks in advance,=20 Ma=ADyura. Tag: Macro to delete between bookmarks Tag: 62595
  - 16
    - Document out of focus I tried this question in the general section, but someone suggested to put it here. My problem is the following: I have several templates, from which users can choose. On opening the document, based on the template(e.g. document10) a UserForm pops up. When clicking OK the results are put in the form on the created document10. This works fine the first time for every template, but the second time a new document11 is indeed opened, but the focus is set to the first document10 (of the same template), thus trying to fill in an already filled in document. This happens with every template, even if I switch between templates. Tag: Macro to delete between bookmarks Tag: 62594
  - 17
    - Text replacing based on a true condition - Part II Hi, I have a document running to 800 pages or so, which has been produced by another software (WinCross - A CROSS-TABULATION Software) and its output was saved in *.Rtf format. The another software itself generates a) Table of contents --TOC b) Actual Write-up after TOC c) page numbers - on top and bottom of each page in b) (The first page after TOC would have -- Page 1 -- on top right and bottom middle of each page and the subsequent pages would have increasing page numbers) Basically, the other software makes a), b) and c) as MAIN STORY. That is page numbers which are there on each page after Table of contents are part of the Main Story itself. Due to some bug in Wincross we are producing outputs in batches and then copy pasting them. That is b) is copied from each individual batch and pasted one below the other to produce a consolidated/ global b). Due to copy paste page numbers were wrong in the Global/Consolidated b). I got a macro from H Weber recently which could realign the page numbers in b). Basically this was a Find/replace text, where the text to find was -- .Text = "Page [0-9]{1,2}" -- and text to replace was -- .Replacement.Text = "Page " & lTmp - 30 , where lTmp is the real word page number. We are using the number 30 here because table of contents was for 30 pages. Now, I seek a macro for correcting the page numbers which are displayed WITHIN the TOCs. Since, after running H Weber's macro, b) would be perfectly alright, so I want page numbers within TOC to be displaying same page numbers as the respective page numbers in b). Im pasting part of the first Page of TOC. Page 1.......TABLE 1-A SCREENER Page 45.......TABLE 1-B QUOTA GROUPS Page 64.......TABLE 1-C REFORMULATED COMBINED QUOTA GROUPS Page 73.......TABLE 1 COMBINED QUOTA GROUPS So,What I want is to put a for loop which would search starting from first Real page of word till the end of TOC. Then within each page of TOC it searches for the string -- .text = "Page [0-9]{1,2,3}....." -- And then the cursor goes to end of that and then reads the text of the remaining sentence. Like in the above case -- Page 64.....-- would be searched and the text of the remaining sentence would be -- TABLE 1-C --. Now, I want to perform a search on text -- Table 1-C -- within b) part which is the part of document after TOC. The Real word page number of the first instance of the text would be copied and then it would replace -- Page 64.....-- with --- Page ?? - 30 -- where ?? is the real page number where -- Table 1-C -- was found within b). Im doing - 30 in above case because I have taken an example where TOC is 30 pages. if it is different I will go and change that line of code to some other number. Please guide me if possible. Thanks a lot, Hari India Tag: Macro to delete between bookmarks Tag: 62593
  - 18
    - Packaging and Deploying a Word 2000 Project I maintain a rather complex Word 2000 project comprising of one global template and two templates. It is distributed around my organisation for installation on Windows 2000 laptops with particularly strong security policies I have written my own custom setup macros to install these files but all too often these fail because the user doesn't have the permissions required to install files in the "Program Files" folder. Manual installations are perfectly possible - but not ideal. Does anyone know of an off-the-shelf solution like Wise or InstallShield that is capable of installing *.dot files, deleting old files, detecting the location of the Word Startup folder and writing/editing registry entries. I have heard of the Office 2000 Package and Deployment Wizard but don't want to risk buying Office 2000 Developer unless I know it will work. Any light you can throw on this particular problem would be much appreciated. Thank you. Tag: Macro to delete between bookmarks Tag: 62592
  - 19
    - Preview of Document I amusing WORD 97. Can anyone assist me with some code for a userform which creates a preview picture of a document. Many thanks -- Mark Tag: Macro to delete between bookmarks Tag: 62591
  - 20
    - FAQ - Frequently Asked Questions - vba - please read before posting - unofficial February posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted weekly.- more or less Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2003 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THESE --- http://www.mvps.org/word/FindHelp/Posting.htm http://www.dts-l.org/goodpost.htm Reading these articles will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. (5) Do not use your real email address unless you want spam. (See bottom for sample.) The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at http://addbalance.com/word/index.htm Newsgroup Archives: http://groups.google.com/advanced_group_search MVPs FAQ site: http://www.mvps.org/word/ To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? http://addbalance.com/word/macrosfromnewsgroup.htm or http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm 2. What are some good books for me to read about Word? http://addbalance.com/word/wordbooks.htm and http://www.mvps.org/word/Tutorials/BookRecommendations.htm 3. How can I run a macro automatically when a document opens, closes, is created? http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm 4. How can I distribute or backup macros / customizations? http://word.mvps.org/FAQs/MacrosVBA/DistributeMacros.htm http://addbalance.com/word/movetotemplate.htm 5. What is an MVP? http://www.mvps.org/word/AboutMVPs/index.html and http://addbalance.com/word/mvp.htm 6. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: http://addbalance.com/word/wordwebresources.htm#Forms especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: http://www.mvps.org/word/FAQs/Userforms.htm 7. Where can I find more information on the Web? http://addbalance.com/word/wordwebresources.htm#webvba http://www.mvps.org/word/FAQs/MacrosVBA.htm http://www.mvps.org/word/FAQs/Userforms.htm http://www.mvps.org/word/FAQs/Customization.htm http://www.mvps.org/word/FAQs/OfficeInterdev.htm Comments / corrections / additions may be sent to wordfaq@no.spam.addbalance.com. Remove no.spam from the address. (This is a "proofed" email address, I hope.) Posted 1 February 2005 Charles Kenyon (the editor) Tag: Macro to delete between bookmarks Tag: 62590
  - 21
    - date in English I'm programming two userforms, one for use in Dutch, one for use in English. I use an input box which defaults to the creation date ( Me.Controls("Textbox8").Text = Format(Date, "Mmmm dd, yyyy")) However, since my application language is Dutch, the result shows the Dutch results on the Dutch as well as on the English form. How can I change this? Tag: Macro to delete between bookmarks Tag: 62588
  - 22
    - VBA textboxes Hi I am working on a Word 2003 application in which I populate the document with data that I retrieve from a database. The number of pages within the document depends on the amount of records returned from querying the database. I have set up an auto text entry that contains all of the fields (textboxes) for each record. On startup I insert the autotext entries so that the document displays the correct number of pages to display detail for all the selected records. I now need to populate textboxes on the various pages in the doc. I know the names each textbox (e.g. txtAddress, txtAddress1 for the next page, etc.) but I don't know how I can set the .text property of each textbox in code because only the textboxes on the first page will be available at design time. Can anyone suggest a way around this? Will I nee to try a different appraoch? Thanks Darach Tag: Macro to delete between bookmarks Tag: 62586
  - 23
    - Showing the Document Map Hi, With the help of a Global Template (Main.dot), I start the creation of a document (based on Report.dot). After the document is finished i want the readers automatically have the "Document Map" visible. The document is distributed in a large organisation, and at home of the readers (students). My problem rises when the connection to the Report.dot is broken. How do i add to the document: ActiveDocument.ActiveWindow.DocumentMap = True Or is there a better solution? Thank you for your time. Ward Tag: Macro to delete between bookmarks Tag: 62584
  - 24
    - Search and Replace in String Can anyone tell me if it is possible to perform a search and replace inside of a string? I have a string called myData that contains an emdash that I need to change into a hyphen and I cannot find a way to do this. Any assistance would be greatly appreciated. Thank you for taking them time to read this. Tag: Macro to delete between bookmarks Tag: 62574
  - 25
    - Find & Replace not working!! I need pretty bad help: The usual Find and Replace under the Microsoft Visual Basic Editor does not work at all!! Nothing fancy, I just click on Edit - Find and type some character, push enter and nothing happens. It works fine with all other applications including Word. It simply does not work with the VB editor in Word. Here's what I have tried: a) Removed Normal.dot (just so it is related in some weird way) b) Uninstalled Office and installed it again c) Restarting the comp / scandisk (again, whatever that'll remotely make it work) It's very annoying to go through a million modules without the Find thing working!! Has anybody ever experienced this? Please, please do not suggest reinstalling Windows!! It's a big inconvenience and I don't have any ghost image of the hard drive! Thanks for your time / responses. Vince Tag: Macro to delete between bookmarks Tag: 62570
- Next
  - 1
    - Custom printing options available through VBA? I am just learning VBA printing options, so bear with my novice-ness. :) I'm writing a snippet of code to automate a print job. As part of the job, I would like to three-hole punch certain pages and staple others. These options (three-hole punching and stapling) are available through the PRINTER->PROPERTIES menu, but I do not see any language reference to this area in VBA. Is it possible for me to automate access to "special" printer functions through VBA? If so, how? Thanks in advance for any help and/or advice. Tag: Macro to delete between bookmarks Tag: 62569
  - 2
    - Formatting /Sorting Checkboxes Hello. I'd like to add checkboxes to a list questions on my document template/form. Checked boxes are positive: Unchecked/blank boxes are negative. That's the easy part. Then I'd like to add a command that separates the negative from the positive into two distinctly formatted sorted paragraphs and hides the original block/list of questions. DocNusum -- PrimeCare PLLC Primary Care in Your Home Tag: Macro to delete between bookmarks Tag: 62568
  - 3
    - Finding a complete list of all character formatting Dear colleagues, Does anyone know were I can find a complete list of all character formatting proporties that can be checked using VBA like bold, italic, underline, ... ? (only the character style formatting, not the complete paragraph formatting) Many thanx JD Tag: Macro to delete between bookmarks Tag: 62566
  - 4
    - Save each Word page as a separate document Is it possible using VBA to create a separate Word file based on each page in a larger Word document? The larger document has many pages with headers and footers. Is it possible to use the "Print to file" option? If so, how? If not, how can this be done in VBA? Thanks in advance. Tag: Macro to delete between bookmarks Tag: 62563
  - 5
    - Can MS word accept an input provided at the begning of the docume. Can MS word accept an input provided at the begning of the document at diffrent places where same filed name is provided with out prompting Tag: Macro to delete between bookmarks Tag: 62557
  - 6
    - How to delete pages in MailMerge Hi- A week ago, I posted a question that was not successfully answered, so I'll change my approach and rephrase it. I have a rather long document that has many fields that are filled in by a mailmerge. (MERGEFIELDs and DOCVARIABLEs gotten from several user forms, where the user fills in OptionBoxs, CheckBoxs and TextBoxes). MailMerge will generate the entire document, but if a certain question is not answered, I want to delete some pages. If I can set up bookmarks around these pages, can a macro be automatically run, and if the DOCVARIABLE is "Y", then delete from BookmarkA to BookmarkB? Alternatively, is there a better way of doing this? Thanks, Marty Tag: Macro to delete between bookmarks Tag: 62552
  - 7
    - VBA copy and paste I am working on an application using Word 2003. I am familar with VBA using Excel and Access, but not with Word. The application I am working on is a word doc that reads data in from a database. It can be any number of pages long and each page will be in the exact same format (consisting of tables, labels and text boxes). What I need to be able to do is write a macro that on can copy and paste the first page on to other pages, depending on how many are required (this will be done on startup). Can anyone help? Thanks Darach Tag: Macro to delete between bookmarks Tag: 62549
  - 8
    - Renumbering superscript notes? I'm wondering if it's possible to create a macro that will renumber all the occurrances of superscipt consecutively--even if they're not using the endnote or footnote function? The reason for the last part is that I currently use a macro that unembeds the notes and changes the note numbers to superscript. This way I can move or renumber a note manually without deleting the corresponding text of the note. However, it would be a great help if I could set up a macro that would, after I'm finishing editing, go through the document and renumber all the notes consecutively in case there's one that was missing, out-of-sequence, etc. Is this even feasible? Thanks in advance! ~Carrie Tag: Macro to delete between bookmarks Tag: 62544
  - 9
    - Restoring bookmark in header/footer Restoring a bookmark after changing its contents is a snap in the main story of the document with ActiveDocument.Bookmarks.Add. Not so in headers/footers. What's the secret there? Tag: Macro to delete between bookmarks Tag: 62543
  - 10
    - formattedtext is not a reference error I'm automating Word2003 in VB.Net. I'm using late binding. I want to put another document's content into the selected area of the active document, without loosing its formatting. I'm getting a 'formattedtext is not a reference property' error with the following code ... Selection.FormattedText = doc.Content.FormattedText ... If this is a bug, does someone know another statement to achieve the same result. I'd like not to use clipboard. -- thanks, gloeng Tag: Macro to delete between bookmarks Tag: 62537
  - 11
    - The below macro will not stop at the end Hello from Steved How do I please put a argument in the below macro so that when it gets to the bottom off the document it ends as at the moment when it reaches the end it starts deleting everything above until it deletes it all. Thankyou. Sub RaceDictionary() Dim i As Long, pararange As Range For i = 1 To ActiveDocument.Paragraphs.Count Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "'" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting With Selection.Find .Text = "^$^$^$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Extend Selection.Find.ClearFormatting With Selection.Find .Text = "^$^$^$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With Selection.Find .Text = "\(*by" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeBackspace Selection.TypeText Text:="= " Selection.EndKey Unit:=wdLine Selection.TypeBackspace Selection.TypeText Text:=", " Selection.Find.ClearFormatting With Selection.Find .Text = "*$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Extend Selection.Find.ClearFormatting With Selection.Find.Font .Size = 30 .Bold = True End With With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Next i End Sub Tag: Macro to delete between bookmarks Tag: 62534
  - 12
    - The below macro will not stop at the end Hello from Steved How do I please put a argument in the below macroso that when it gets to the bottom off the documentit ends as at the moment when it reaches the end it starts deleting everything above. Thankyou. Sub RaceDictionary() Dim i As Long, pararange As Range For i = 1 To ActiveDocument.Paragraphs.Count Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "'" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting With Selection.Find .Text = "^$^$^$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Extend Selection.Find.ClearFormatting With Selection.Find .Text = "^$^$^$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With Selection.Find .Text = "\(*by" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.TypeBackspace Selection.TypeText Text:="= " Selection.EndKey Unit:=wdLine Selection.TypeBackspace Selection.TypeText Text:=", " Selection.Find.ClearFormatting With Selection.Find .Text = "*$" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Extend Selection.Find.ClearFormatting With Selection.Find.Font .Size = 30 .Bold = True End With With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Next i End Sub Tag: Macro to delete between bookmarks Tag: 62533
  - 13
    - Opening a Goldmine email message from Word (using VBA) I need to use VBA from Word to open a new Goldmine v.6.5 email message programmatically, and hopefully even go a step further and attach a file or 2 to the new message. I'm not seeing much talk of VBA in the Goldmine forums so I'm kinda worried about now. I really need this to happen. Can anybody help? I'm flexible and willing to give almost anything a shot. It is starting to appear that Goldmine doesn't work and play well with others. Thanks in advance. -- RMC,CPA Tag: Macro to delete between bookmarks Tag: 62530
  - 14
    - How to make doc's FullName into an AutoText entry without first inserting it into document This macro works fine. It temporarily Inserts Fullname of the active document into the document and makes that string an AutoText entry called MyDocName, which is used later by another macro to reactivate this document from another document. This enables me to return instantly to this document without having to open the Window menu or scroll through the open documents. But I wonder if there is a more efficient way of doing it, so that the active document's FullName doesn't actually have to be inserted into the document as a range, but rather the FullName becomes an AutoText entry in one step. It seems that would make the macro a little faster. Any ideas? Thanks. Larry . Sub DocFullNameStore() Application.ScreenUpdating = False Dim X As Long, Y As Long Dim r As Range X = ActiveDocument.Range.End - 1 ActiveDocument.Range.InsertAfter ActiveDocument.FullName Y = ActiveDocument.Range.End - 1 Set r = ActiveDocument.Range(Start:=X, End:=Y) NormalTemplate.AutoTextEntries.Add Name:="MyDocFullName", Range:=r r.Delete End Sub Tag: Macro to delete between bookmarks Tag: 62528
  - 15
    - Problems deleting tollbar 'I want to make a new toolbar, and delete it. Problem is that it seems to be deleted ,but 'every time I restart word it is back. If I run Sub createmytoolbar() 6 times it gives me 6 'toolbars after restart of Word ! The only way I can kill them is to delete normal.dot! 'In word200, normal.dot i have created this Sub createmytoolbar() Application.CustomizationContext = NormalTemplate Dim cBar As CommandBar For Each cBar In Application.CommandBars 'ActiveDocument.CommandBars If cBar.Name = "Mine" Then MsgBox "Mine is there" cBar.Delete End End If Next cBar MsgBox "We must make Mine!" Call createmine End Sub Sub createmine() MsgBox "Then iI have a routine for creating and it seems to work" ' routine End Sub What am I doing wrong?? arne Tag: Macro to delete between bookmarks Tag: 62525
  - 16
    - .dot files get corrupted w/time, so iwhy not use Vb.net w/automati I have found that template (.dot) files eventually get corrupted, and I have to create new ones in which I re-create all my forms and macros. Methinks it'd be a better idea for me to program all the macros and forms in Vb.net, and to use (what I think is called) "automation" to manipulate Word's built in functioning. Am I missing something? Or is my perception "right"? Any thoughts on this would be most welcome and appreciated. Marc Hankin Tag: Macro to delete between bookmarks Tag: 62523
  - 17
    - How do I create a button in a word template that will run a macro I Have four fields that need to be updated when the template is opened and I have recorded a macro Selection.WholeStory Selection.Fields.Update Selection.HomeKey Now I want to display a button that the user can click to run this macro so he can update the fields. is it also possible to print the pages individualy to individual pdf files via a macro to be attached to an email later? Thanks Tag: Macro to delete between bookmarks Tag: 62520
  - 18
    - Formatting dates Hi I want to use VBA to rename some files with a date. Eg for 30 Jan 2005 one file is renamed to "EN300105.txt" (eg ddmmyy.txt) I have used the following - which works, but actually renames the file "EN3012005.txt" : (eg it shortens the ddmmyy format - removes the 0 from month, etc) strDay = Format(Day(Now), dd) strMonth = Format(Month(Now), mm) strYear = Format(Year(Now), yy) ActiveDocument.SaveAs FileName:="c:\temp\EN" & strDay & strMonth & strYear & ".txt", How can this be changed such that it is renamed "EN301205.txt" Thanks Mat Tag: Macro to delete between bookmarks Tag: 62510
  - 19
    - Word 2003 customised toolbar I have a template which has an attached toolbar. When a document is first created from the template, some of the toolbar buttons are enabled and some are not. When the buttons are used, a routine (UpDateToolbars) is called which checks various conditions and enables or disables buttons according to those conditions. This works perfectly in Word 97 and Word XP. In Word 2003, after the call to UpDateToolbars all of the buttons appear as if they were disabled (greyed out) except occasionally when they all appear as if they were enabled. The buttons are "repainted" correctly if the cursor is swept over them. Forcing a screen refresh at the end of the UpDateToolBars procedure does not correct this. Any suggestions gratefully received. Geoff Edwards Leeds, UK e-mail: stopspambot@sixwillow.com (replace the stopspambot bit with some version of my name) Tag: Macro to delete between bookmarks Tag: 62507
  - 20
    - Problems with headers and footers - lengthy I'm sorry Win 2K Word 2K Hi All Thank you to anyone in advance who has the patience to read this. I have tried everything and read tons in these groups to try and resolve the problems, but I'm not sure there is a bullet proof way of doing what I need. Here's the situation (I'll try to be brief but in fear that brief may not be descriptive enough ....... here goes.... ) When a user presses Alt + S, an inputbox appears, the user is prompted for the name of a witness, and the witness name is then inserted into the document with a colon, two spaces and the word SWORN following their name. Additionally, I bookmark the name for use in a table later on. code snippet for Alt + S (NASTY but it works for now until I clean it up hopefully with ranges) ************************************************** Dim strSwornName As String strSwornName = InputBox("Enter Name of individual being sworn") 'Inserts name of witness being sworn With Selection .TypeText Text:=StrConv(strSwornName, vbUpperCase) & ": " & "SWORN" .ParagraphFormat.Space15 .EndKey unit:=wdLine .HomeKey unit:=wdLine, Extend:=wdExtend .Font.UnderLine = wdUnderlineSingle .MoveLeft unit:=wdCharacter, Count:=1 .MoveRight unit:=wdWord, Count:=1 .MoveRight unit:=wdWord, Count:=1, Extend:=wdExtend End With strWitnessName = Left(strSwornName, 1) & ". " strWitnessName = strWitnessName & Trim(Mid(strSwornName, InStrRev(strSwornName, " "))) 'Marks Last Name as bookmark for header strWitnessLastName = StrConv(Selection.Range, vbProperCase) With ActiveDocument.Bookmarks .Add Range:=Selection.Range, name:=strWitnessLastName End With 'Marks Last Name as bookmark for table of contents strFWitnessName = Mid(strSwornName, InStrRev(strSwornName, " ")) & ", " & Left(strSwornName, InStr(strSwornName, " ")) ******************************************** When a user presses Alt +1 , I have the text "EXAMINATION IN CHIEF BY" + a document property being placed at the current location in the document. code snippet ******************************** With myRng .Text = strChief & " " .InsertAfter ActiveDocument.CustomDocumentProperties("PTitle") & _ ActiveDocument.CustomDocumentProperties("PLastName") & ":" .Case = wdUpperCase .Font.UnderLine = wdUnderlineSingle End With *************************************** In addition to typing the text, the current code takes the name of the last bookmark it finds in the file (the name of a witness), moves to a specified table( table 1), inserts the bookmarked text in the first blank row and bookmarked text page number in a specific column which is determined by the type of examination. (Alt + 2 enters the text "CROSS-EXAMINATION BY" ... (thus specifying a different column). That part works just fine. (Not very elegant, but here's the gist of it - there's more but I thought this would be enough. This piece only takes care of the Examination in Chief) ************************************************ otable.Range.Rows(otable.Rows.Count).Range.Select With Selection .InsertRowsBelow 1 .Collapse (wdCollapseStart) End With myrow = Selection.Information(wdStartOfRangeRowNumber) With Selection .TypeText Text:=StrConv(Trim(strFWitnessName), vbProperCase) .MoveLeft unit:=wdWord, Count:=3, Extend:=wdExtend .Font.UnderLine = wdUnderlineNone .MoveRight unit:=wdCell Selection.InsertCrossReference ReferenceType:="Bookmark", ReferenceKind:= _ wdPageNumber, ReferenceItem:=strBN, InsertAsHyperlink:=False, _ IncludePosition:=False End With ******************************************************* I also need the header on the page where EXAMINATION IN CHIEF or CROSS-EXAMINATION BY appears to print in the header .. however in a different format. If ALT + 1 is pressed and EXAMINATION IN CHIEF BY appears in the body, then the header must read "FirstInitial LastName of Witness - in Ch." minus the quotation marks. If ALT + 2 is pressed and CROSS-EXAMINATION BY appears in the body, then the header must read "FirstInitial LastName of Witness - Cr. Ex.". I have created subroutines to assemble the names properly for insertion in the header as they are actually coming from custom document properties not formatted the way they need to appear in the header. The difficulty I AM having is twofold: Problem #1 The header on all pages from section 3 to the end of the document must ALWAYS include at least the following: 1. R. v Name of Defendant in addition to what I have described above (the in-Ch. or cr-Ex).on the third line The number 1 is the page number and a period The R. v Name of Defendant is a field in the header that looks like this: { DOCPROPERTY "Header1" \* MERGEFORMAT } Problem #2 Although the text EXAMINATION IN CHIEF BY .... may appear on page 3, that individual's testimony may well carry over several pages until he/she is finally CROSS-EXAMINED. At the page where the text CROSS-EXAMINATION BY appears, the header will once again change to reflect the fact that the cross-examination has now begun on that page. The page number and R. v Name of Defendant must remain in the header and if the examination in chief appears on the same page, that text must also remain in the header. I will then need "FirstInitial LastName of Witness - cr-Ex." to appear on a fourth line in the header. Once a new witness is sworn in, the process begins again. That is, the EXAMINATION IN CHIEF will have to be re-set in the header until the witness is cross-examined etc. etc. The document will continue to proceed in the same manner as potentially hundreds (although that's probably excessive) of witnesses could testify. Thank you to anyone brave enough to have read all this and further, have any suggestions or recommendations. Please let me know if I can clarify anything or whether I could have somehow posted this in an easier to read format. Legal jargon mixed with vba???? .... am I NUTS? Debra Tag: Macro to delete between bookmarks Tag: 62504
  - 21
    - Legacy Access2/VB4 app merge errors with Word 11 I have a network where all of the client machines were recently replaced and are now running XP Pro SP2. Office 2003 is also on the new machines. The legacy application was written in VB 4 and I have no source code available. The Access version is 2.0. The application works as expected and as it did before the upgrade with the exception of Microsoft Word merging capabilities. The application creates a proper ".dat" merge document but is unable to do the link. The .dat file contains a properly generated header with the field names tab separated and the data from the requested record (by entering the keycode value in a message box) tab deliminted as well. The data is what it should contain. The setup settings are properly directing the application to the correct directory path and winword.exe file name. Word does not open and three errors occur in succession according to the messages that appear: In the title bar of the message box: "Merge Error (Word) #1056 and in the center of the message box: "Not a valid filename." Clicking on the OK command button brings up another error message box with the title bar showing "31031 (0)" and the text in the message box being "Invalid Source for link" Clicking in the OK command button brings up another error message box with the title bar showing "31004(0)" and the text in the message box being "No object." The document is a valid document and the path is correct. I have written a workaround macro in VBA of Word to allow them, after responding OK to the three messages in the legacy Access app, to press Alt-M in an open, no-document Word application which presents them with the directory containing the master merge document and containing the newly created data source .dat file containing the header and record data as requested in the legacy app. After selection of the requested file, I test the file name of the .doc file and create a DataSourceFileName for .dat files over 8.3 and then do the merge of the document to a new file with the .dat file created and given as the source for the master document. This process proceedes without a problem. I suspect that there may be some ODBC connectivity problems between the legacy apps that don't know OLE and that are looking for another type of data source other than ".dat" files. This was the old way of providing a data source from which to merge via ODBC (to fake it out) and the older DDE application connectivity. I do not have the old app source code, the developer are not at all interested in updating to anything later than Access 97 (believing that Bill Gates is out to destroy them <bg>. Is there anything I can do, other than writing a new application, to allow the users to merge with this old application to Word v. 11? I have no problem accessing the tables via a DSN-less SQLConnect() statement but the record comes through some 24 steps in a "Logic" table in a different database than the actual data. I have been doing database programming for 17 years but have little, brief experience with Access but quite a bit with VBA, Visual FoxPro, SQL, and C. It has been suggested that I write a dummy application in VB6 to impersonate Word 6 and receive the file names passed and then use those and call Word 11 from this dummy app, passing the merge file and data source file names to Word 11 on startup. I don't know how I'd go about "impersonating Word 6" and create this "DDE sink" that's been suggested. Any suggestions for any approach would be greatly appreciated? The work-around is getting the users to the goal line but it's taking too many downs to do make the touchdown. Justice Tag: Macro to delete between bookmarks Tag: 62497
  - 22
    - change How do i change Word and Exel into my lanuage who is norwgian Tag: Macro to delete between bookmarks Tag: 62496
  - 23
    - Finding bad formatting Dear people, For some time now, I'm struggling to solve a VBA problem. Some of you already gave some assistance, for which I'm great full. I'm trying to find some bad formatting in a word document using VBA. On all paragraphs are paragraph styles applied. On pieces of some paragraphs, are Character styles applied. On other pieces of text, other manual formatting is applied like "bold" or "Bold Italic". I'm trying to detect the pieces of text that has no "character style" applied and yet have other manual formatting is applied like "Bold Italic". For example: Some text is set to bold, this is wrong. Other text has the character style "BOLD" applied, this is good. I need to highlight all the bad formatting. Can anyone please help me? Thanks JD Tag: Macro to delete between bookmarks Tag: 62495
  - 24
    - disable some shortcut key's Hi Does anyone know how to disable some shortcut key's like ... CTRL + F3 CTRL + SHIFT + F3 CTRL + "2" Thanx JD Tag: Macro to delete between bookmarks Tag: 62494
  - 25
    - msmapi32.ocx vba vb problem I made a mail application in word vba. It works fine but I didn't know that someone installed vb 6 on my computer. Other people want to use the application too and the activeX control: MSMAPI32.OCX is missing. Can I put that ocx on a network drive. Those people dont have administrator rights and can't install applications, only NAL-objects. A solution is making an exe with the vb 6 wizard but to install that you must have rights to do that. Does anyone know a solution. Put it in c:\windows\system32 or run a register program in vbs code or something? If I place the ocx on a drive on a user computer and click the microsoft MAPI controls in the toolbox and choose the directory with the ocx it works so it has not to bee registered or licensed, am I right??? CDO doens't work it hits the firewall... Thanks, Siebe Tag: Macro to delete between bookmarks Tag: 62491

In Word97, can a macro be written such that it will delete all text between 2
bookmarks?

Thanks,

Marty

Re: Macro to delete between bookmarks by Dave

Dave
Wed Feb 02 10:21:27 CST 2005

Hi Marty,

You can use something like the following:

Dim oRng As Range
With ActiveDocument
Set oRng = .Range _
(Start:=.Bookmarks("bk1").Range.End, _
End:=.Bookmarks("bk2").Range.Start)
oRng.delete
End With

HTH,
Dave

"Marty" <Marty@discussions.microsoft.com> wrote in message
news:005CB44B-1781-44CA-9562-24FD640DD269@microsoft.com...
> In Word97, can a macro be written such that it will delete all text
between 2
> bookmarks?
>
> Thanks,
>
> Marty

Top

Re: Macro to delete between bookmarks by Marty

Marty
Wed Feb 02 11:07:02 CST 2005

Hi Dave-

Thanks. It worked!!!! (sort of)

My bookmarks did not carry across from the template to the document, but
I'll post this as a separate question.

But, it did delete the text between the bookmarks when I tested it in a new
document which was not generated in a merge.

Thanks.

-Marty

"Dave Lett" wrote:

> Hi Marty,
>
> You can use something like the following:
>
> Dim oRng As Range
> With ActiveDocument
> Set oRng = .Range _
> (Start:=.Bookmarks("bk1").Range.End, _
> End:=.Bookmarks("bk2").Range.Start)
> oRng.delete
> End With
>
> HTH,
> Dave
>
> "Marty" <Marty@discussions.microsoft.com> wrote in message
> news:005CB44B-1781-44CA-9562-24FD640DD269@microsoft.com...
> > In Word97, can a macro be written such that it will delete all text
> between 2
> > bookmarks?
> >
> > Thanks,
> >
> > Marty
>
>
>

Top