char(13) CariageReturn in word2003 !!!!!

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Text Input I have to update meeting minutes for a meeting that I chair every week. I have structured the document with the information in a table. Column 1 of the table has the numbering of the item discussed, formatted as: xx.yy where xx is the number of the meeting and yy is the number of the item Column 2 of the table has the text of the item under discussion. When an item carries over from week to week, the new information is numbered with the following formatting: xx.yy.zz where xx is the number of the original meeting, yy is the number of the item and zz is the number of the current meeting. e.g. if during meeting 7 we are having further discussions about the fourth item that was raised in meeting number 2, the text would be numbered 02.04.07 I recorded the following macro to automate the numbering procedure for new discussion items: With Selection .TypeParagraph .Style = ActiveDocument.Styles("Indent") .MoveLeft Unit:=wdCell .Copy .MoveRight Unit:=wdCell .MoveDown Unit:=wdParagraph, Count:=1 .MoveUp Unit:=wdLine, Count:=1 .Paste .TypeText Text:="." End With I then type the number of the current meeting and the numbering is complete. How can I change this macro so that when I first call the macro, I am prompted for the current meeting number and that it is inserted after the period which is in the second last line of the macro? I don't want to be prompted for the meeting number every time I call the macro, only the first time in a typing session. I don't want to use Autonumbering because there isn't necessarily a new entry for every item at every meeting. Sorry for the long winded explanation ;-) TIA, David Tag: char(13) CariageReturn in word2003 !!!!! Tag: 62671
  - 2
    - Need to create a new template that enables users to select from a. Need to create a new template that enables users to select from a Dialog box a template from a choice of different templates. This is for security classification purposes. So that when a user launches a generic template heis asked to select the type of secutiy doc that is appropriate for the content and then launch the appropriate document type. Tag: char(13) CariageReturn in word2003 !!!!! Tag: 62670
  - 3
    - how to find out french words write a word and get it in french Tag: char(13) CariageReturn in word2003 !!!!! Tag: 62669
  - 4
    - Find & copy macro--possible? I'm wondering if it's possible to create a macro that will search a word document for any foreign characters with diacritics, copy them, and export them to a new document? I don't want to remove the characters from where they are in the text--I just need to know WHICH characters are being used in a given text. In other words, I need to figure out a thorough way to search long documents and note any characters that have accents (acute or grave), breves, umlauts, macrons, etc. Then I need to be able to see a list of the results so that I know which diacritics are used. Is this even possible? Tag: char(13) CariageReturn in word2003 !!!!! Tag: 62668
  - 5
    - Reference to Template Project (Code) Hi, I've created a template, that when a user clicks a buton, the document merges with a record in a SQL db. Works great except that when a user opens up the document later, they in turn open the project of the template (or a reference to the template project) Ultimately this locks me out of making changes to the actual template file, because the user creates a lock on both files when they open just the doc file Am I saving the code for the merge in the wrong place? or is there a way to break the connection to the template code after the sub routine is called? thanks, Paul Tag: char(13) CariageReturn in word2003 !!!!! Tag: 62667
  - 6
    - Bookmarks in a template Hi- I have a Word97 template with 3 bookmarks. After I run a macro which does a MailMerge, the resulting document does not have the bookmarks. Why? All other text from the template is in the new document. How can the bookmarks also be "carried forth" into the created document? (I created the bookmarks by positioning the cursor where I wanted, and going to the Insert Tab, and then selecting Bookmark. I entered the bookmark name, and hit the Add button.) Thanks, Marty Tag: char(13) CariageReturn in word2003 !!!!! Tag: 62666
  - 7
    - Macro to delete between bookmarks In Word97, can a macro be written such that it will delete all text between 2 bookmarks? Thanks, Marty Tag: char(13) CariageReturn in word2003 !!!!! Tag: 62655
  - 8
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62646
  - 9
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62645
  - 10
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62644
  - 11
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62636
  - 12
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62632
  - 13
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62620
  - 14
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62618
  - 15
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62616
  - 16
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62615
  - 17
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62610
  - 18
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62606
  - 19
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62599
  - 20
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62598
  - 21
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62596
  - 22
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62595
  - 23
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62594
  - 24
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62593
  - 25
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62592
- Next
  - 1
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62591
  - 2
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62590
  - 3
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62588
  - 4
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62586
  - 5
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62584
  - 6
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62574
  - 7
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62570
  - 8
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62569
  - 9
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62568
  - 10
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62566
  - 11
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62563
  - 12
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62557
  - 13
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62552
  - 14
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62549
  - 15
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62544
  - 16
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62543
  - 17
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62537
  - 18
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62534
  - 19
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62533
  - 20
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62530
  - 21
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62528
  - 22
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62525
  - 23
    - .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: char(13) CariageReturn in word2003 !!!!! Tag: 62523
  - 24
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62520
  - 25
    - 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: char(13) CariageReturn in word2003 !!!!! Tag: 62510

I have a word document with vbs code in the text where it's going with the
help of a third party software to catch variables <variable>. (like crystal
report).to build the .document to be printed.

it was ok in word97, but now in the new version when the variable contain
Char(13) and it is in a table it add a square!!! instead a carriage return.
It works well outside of a table..

Is there something else to add a vbcode to be view like a CR in the tables.
to see
address
name
city

instead

address + little square + name + little square + city

when a string with CR included in it is sent to the word doc within a table

Need help.....

thanks,

Joe

Top

Re: char(13) CariageReturn in word2003 !!!!! by Jezebel

Jezebel
Wed Feb 02 21:41:44 CST 2005

carriage return is Chr(13) -- vbCR -- inside a table, same as anywhere else
in the document. Bear in mind that an empty cell in Word always ends with
chr(13)chr(7).

"joe" <joe@discussions.microsoft.com> wrote in message
news:59EB62C9-34A9-4336-8A2F-B4B5D70668D8@microsoft.com...
>I have a word document with vbs code in the text where it's going with the
> help of a third party software to catch variables <variable>. (like
> crystal
> report).to build the .document to be printed.
>
> it was ok in word97, but now in the new version when the variable contain
> Char(13) and it is in a table it add a square!!! instead a carriage
> return.
> It works well outside of a table..
>
> Is there something else to add a vbcode to be view like a CR in the
> tables.
> to see
> address
> name
> city
>
> instead
>
> address + little square + name + little square + city
>
> when a string with CR included in it is sent to the word doc within a
> table
>
> Need help.....
>
> thanks,
>
> Joe

Top