I need to create an index from existing document..HELP!

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Copy Textbox contents to clipboard Dear all, I do a lot of repetitive typing at work. I have a list of templates which I want handy around. I am thinking of having a word document with textboxes which are holding my different templates. I am hoping to have a button beside each textbox so that when I click it, it will automatically copy the textbox's contents to the clipboard. I can then paste these onto the software which I am doing data entry to. I have tried stuff like "textbox1.copy" but this does not work. Nothings goes onto the clipboard. What am I missing? Sorry this is my first attempt at programming, so to speak... anyone can help? Tag: I need to create an index from existing document..HELP! Tag: 67837
  - 2
    - what code will unprotect a document. Using Word 2000 and later, I need a code to put in my macro that will unprotect the document. I am using a simple macro as below and the first thing I want it to do is to unprotect the doc. Any ideas? This is what I have thus far: Selection.WholeStory Selection.Copy ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges End Sub -- Thanks for your help! H Dodson Tag: I need to create an index from existing document..HELP! Tag: 67828
  - 3
    - SAVE Method How would I code something to say if it someone is closing or saving the document to look at a varable and change things accordingly? I have it changing things accordingly when a person tabs out of a field but if they don't use the tab key it doesn't change what it is supposed to. Tag: I need to create an index from existing document..HELP! Tag: 67824
  - 4
    - Where I can find documentation for the commands for DDE and Word? I need find some documentation for the commands to use for interfacing with Word, i.e. "FileExit(2)", etc. Tag: I need to create an index from existing document..HELP! Tag: 67817
  - 5
    - Why OnClosing Doc. Containing my ActiveX Ctrl asks me to save. Whereas its already saved!!!!! hi! I have a ActiveX control Written in VC7.1 for Word. when i insert my control into Word and close the doc after saving the document, it again asks me Do you want to save the changes? But on thing to be noted is that I handled the event DocumentBeforeClose and in this i verify that the document is saved or not. and the doc. is not modified but Word warns me. I dont know why? I also pass fClearDirty = TRUE in the following function call. Anybody there to solve my problem. HRESULT IPersistStreamInit_Save(LPSTREAM pStm, BOOL fClearDirty ,ATL_PROPMAP_ENTRY* pMap) Thanks Jack Tag: I need to create an index from existing document..HELP! Tag: 67811
  - 6
    - Updating a REF in a Header Good morning, I found this module that works great to update the REF that I have in my header. but I was wondering:> If I know the name of the REF can I update the REF field by Name instead of checking for all Ref fields ? '--------------------------------------------- Sub RefFieldUpdateAllStory() ' Written by Charles Kyle Kenyon 15 November 2001 ' repaired with help from Jezebel 10 December 2004 ' All Story Field Updater - Ref fields Dim oField As Field Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges ' This goes into headers and footers as well as the regular document Do For Each oField In oStory.Fields If oField.Type = wdFieldRef Then oField.Update End If Next oField Set oStory = oStory.Next Loop Until oStory Is Nothing Next oStory End Sub Thanks. Micheline Tag: I need to create an index from existing document..HELP! Tag: 67797
  - 7
    - Can I read the Version into some Buffer without opening the Version into new instance of Word? hi! I have a word document. I added 2 Versions into the ActiveDocument. Now as from the Object Model its Obvious that there are three main methods to do something with Versions. 1. Open 2. Delete 3. Save Now if i want to read binary data of Version 1 into some buffer. I'll have to Open the version. and then get the path of the opened version and after that read the files data into buffer. But i don't want to Open the Version. I just want to read the contents of the specific Version without showing the user that the Version is opened and then closed. Is there any solution to this problem Thanks in advance. Ahmad jalil Qarshi Tag: I need to create an index from existing document..HELP! Tag: 67777
  - 8
    - Word 2003 Custom Fields Hi I have created a template with headers & footers for page 2 onwards. The template however is a one page template, the headers and footers present themselves as they should, in the event of a second page being required. The problem I am having is that the header for page 2 onwards holds a custom field. When page 2 is automatically created by typing lots of text the custom field does not update. The only way to update the field is to print it, F9 it or print preview. How can I have the header of my page 2 onwards custom field updated when no page 2 exists until I start typing into my document? Thanks very much in advance for your help. Kerry. Tag: I need to create an index from existing document..HELP! Tag: 67776
  - 9
    - Move top-left corner of document into view When I open a document containing a table I do some editing (using VBA) in a cell off the screen. This causes the document to visually move to the right to bring the cell onto the screen. Afterwards, I need the top left section of the document redisplayed on my screen. At the moment, I'm using a workaround to achieve this - I select cell(1, 1) which is the top left of the document, insert a period (ie ".") and then delete the period. But, how do I move the top left corner of the document into view without doing any editing? It would be much safer for any text already there. Note: I have also tried turning ScreenUpdating off, but it has no affect on this. Thanks for your help. My current code: myDocument.Tables.Item(1).Cell(1, 1).Select() With myDocument.ActiveWindow.Selection .HomeKey() ' Sets insertion point at start of cell .Range.InsertAfter(".") ' Inserts a period .HomeKey(wdLine, wdExtend) ' Selects period .Delete() ' Deletes period End With Tag: I need to create an index from existing document..HELP! Tag: 67769
  - 10
    - Creating a module-wide variable Sorry if I'm not using the terminology correctly. I already have several module-wide variables (created by Dim statements) which enable information returned in one macro to be used in another macro--a neat capability. But these variables only seem to work because there already happens to be some public declarations at the top of the module, like this: Public Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) These public declarations have nothing to do with the Dim statements, yet they enable them to work. I want to learn how to set up a module-wide variable if there is not already a Public declaration. In other words, if there is nothing at the top of the module, and I want to create a module-wide Dim statement there, how do I do that? Thanks, Larry Tag: I need to create an index from existing document..HELP! Tag: 67747
  - 11
    - What is NoList Style? I was working with a macro that Klaus Linke posted the other day to remove unused styles. Klaus explains that Normal, DefaultParagraph, and Heading1-9 sytles are built in and can't be removed. I have Word2003 and in my Normal.dot there are two other styles that can't be removed: NormalTable and NoList. I added a line to Klaus' code to handle the NormalTable (skip it), but when I tried to add a constant for the NoList style I could't fine one. I use wdStyleNormalTable for the normal table, I looked through all of the wdStyle constants and couldn't find one for NoList. I didn't try each one as none looked promising. I would like to add a line in the below code similiar to the Case statements for NormalTable and the other builtin styles. Can anyone suggest what I should use? Thanks. Sub DeleteUnusedStyles() Dim oDoc As Document Dim myStyle As Style Dim myString As String Dim i As Integer Set oDoc = ActiveDocument For Each myStyle In oDoc.Styles If myStyle.InUse Then Select Case myStyle Case oDoc.Styles(wdStyleDefaultParagraphFont) Case oDoc.Styles(wdStyleNormal) Case oDoc.Styles(wdStyleNormalTable) Case oDoc.Styles(wdStyleHeading1) To oDoc.Styles(wdStyleHeading9) Case Else Selection.Collapse (wdCollapseStart) With Selection.Find .ClearFormatting .Style = myStyle .Forward = True .Wrap = wdFindContinue .Execute FindText:="", Format:=True If .Found = False Then StatusBar = myStyle.NameLocal If MsgBox("Delete", vbYesNo, myStyle.NameLocal) = vbYes Then myStyle.Delete End If Else myString = myString + myStyle.NameLocal & vbCr End If End With End Select End If Next myStyle MsgBox "In addition to Builtin styles, the" _ & vbCr & "following style(s) can't be removed:" & vbCr & myString End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: I need to create an index from existing document..HELP! Tag: 67744
  - 12
    - can't see drop down menu on form document I am creating a form where I want the users to pull down a menu. When I click the drop down menu on the form it just shows a gray box with one of the entries. I want the user to see the pull down menu instead. Help! Tag: I need to create an index from existing document..HELP! Tag: 67743
  - 13
    - removing a blank feild in mail merge In my document i have a feild called " name" if it is blank is there a way that it will not say "name" on the document ???? Tag: I need to create an index from existing document..HELP! Tag: 67741
  - 14
    - Restoring the ability to Tab between fields instead of using Enter I have created a form in Word 2003 and used the macros described in the Microsoft article number 211219 to allow the Enter key to navigate between the form fields instead of inserting a new paragraph. I now want to change this behavior back, however for every new template or document based on a template I create, the Enter key moves between the form fields. I have deleted the macros described above; I have performed a "reset all" in the customize keyboard form under tools â?? customize, I have ran a macro to using keybindings.clearall, I have started Word using the /a switch, I have removed everything from the Word startup directory, and I have deleted the Normal.dot file and let Word create a fresh copy. None of this has worked. Can anyone tell me what Iâ??m missing? Any help in this matter would be greatly appreciated. -- ddorrough Tag: I need to create an index from existing document..HELP! Tag: 67739
  - 15
    - Retain information added to fill-in fields in template I have created a template with fill-in fields. What I need to accomplish is this: User inputs in all fill-in fields, say their personal information in a letter template. How can I save that information so that they do not have to answer the fill-ins again when they launch the template at a later date? Many thanks! Tag: I need to create an index from existing document..HELP! Tag: 67736
  - 16
    - Loop not Looping I am relatively new to writing macros and have a feeling I am missing one step, but I am trying to write a macro that searches up for an occurrence of the word article followed by a space and any number and another space. I then want it to delete the space, and insert a tab. The macro works fine, but for some reason, it is not looping. If you have any suggestions, I would greatly appreciate it. here is what I have so far: Selection.HomeKey Unit:=wdStory Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:="TOC" Selection.Find.ClearFormatting Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1 Do With Selection.Find .Text = "article ^# " .Replacement.Text = "" .Forward = False .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeBackspace Selection.TypeText Text:=vbTab Loop Until Condition = False End Sub Tag: I need to create an index from existing document..HELP! Tag: 67734
  - 17
    - Identifying table ranges I have a Word document with two columns. I inserted a table to span both columns but had to force a column break to balance the data. I have not worked with coding much in Word and cannot find an answer to my problems. I can't figure out how to identify the two (seemingly) different tables ranges. If I select the table in the first column, only the table in that column is selected. I want to search for data in both columns/tables to update information. How do I set ranges for these two tables so I can use it in my loop statement? I need as much of the source code as possible please. Thank you. Tag: I need to create an index from existing document..HELP! Tag: 67733
  - 18
    - Opening Hyperlink as Read Only I have an Access database that has a hyperlink field which opens a Word document. Is there any way to open the Word document hyperlink as Read Only? Thanks! at Tag: I need to create an index from existing document..HELP! Tag: 67728
  - 19
    - Drop down list choices print but don't appear on email or fax Hi, I'm making a form in word 2003 to be used by our doctors to send a stat fax/email in conjuction with outlook 2003. I am almost there...but I need a little help. I have created a form with a drop down with items in the drop down list such as HEAD CT, ABDOMINAL CT, PELVIC CT. When I lock the form these appear as choices and they can be selected. It works great and if I print the page I see the choices that were made. That is perfect...but, when I actually send or fax the report, that field ends up blank. Can i have the text of the chosen drop down appear on the email/fax once it is sent? That is, if on the pull down I select HEAD CT, I want that to appear as text. Do I have to run a macro on entry or exit that types the actual word "head ct"? If so, how do I create that macro? I can send a copy of my .doc/template if needed. Thanks in advance. Tag: I need to create an index from existing document..HELP! Tag: 67724
  - 20
    - Building a table of figures automaticaly. Selection.Found condition subs out, why? Hi Again, I used a solution from this news group for checking whether a selection was found. For some reason, if I do not do the replace unconditionaly 1 time, the loop never starts. Any ideas? Shimon Sub InsertNumLooped() 'Replaces the text " Figure: " with Figure: and a reference number 'in order to build a table of figures . ' ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " Figure: " .Replacement.Text = "Figure: " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceOne Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Figure \*ARABIC", PreserveFormatting:=True Selection.TypeText Text:=" " For i = 1 To 50 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " Figure: " .Replacement.Text = "Figure: " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False If Not .Found Then Exit Sub End With Selection.Find.Execute Replace:=wdReplaceOne Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Figure \*ARABIC", PreserveFormatting:=True Selection.TypeText Text:=" " Next i End Sub Tag: I need to create an index from existing document..HELP! Tag: 67721
  - 21
    - mosBarBottom: Documented bahavior or a bug? Usually, when I create a toolbar, I do include the Position property in the Add method. However, for msoBarBottom, I find unusual bahavior if I do not specify the Position property until later in the code. Using Word 2003, with msoBottom in the Add method, I get the expected behavior, i.e., the toolbar is created below all other toolbars. on a separate row. However, if I use the Add method without the Position property and later use the Postion property with msoBarBottom, the toolbar does not get placed at the bottom, instead, I've seen the following two cases: 1. The toolbar is intermingled with the toolbars in the last row of the toolbars, and not all the toolbar buttons are visible. 2. The toolbar is intermingled with the toolbars in the last row of the toolbars, and all the toolbar buttons are visible. I would have expected the use of Position with msoBarBottom to have caused the toobar to be in a new last row. Why all the buttons show sometimes, but not others, makes no sense, as nothing else has changed. Is this documented intended behavior, or is it a bug, documented or otherwise? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: I need to create an index from existing document..HELP! Tag: 67708
  - 22
    - Why does the cursor disappear when I'm typing fast for awhile? I'm transcribing and can type very fast without looking at the keys. However, when I do look up, I find the cursor is not on the screen and whatever I've typed has stopped printing on the screen. I have to click the cursor back onto the page and then start typing, while stopping to check every sentence or so. HELP!! Tag: I need to create an index from existing document..HELP! Tag: 67707
  - 23
    - Is it possible Inserting a Range object at a specified location. Hi I want to create a range object which holds a section of document 1 and then insert that range section into another document. But i can't see an InsertRange method or the like. Is there any way of doing this? Thanks Andrew Tag: I need to create an index from existing document..HELP! Tag: 67705
  - 24
    - Can I disable the prompt to save a document I am trying to record a simple macro that will select all, copy and close the document. I will then paste the clipboard onto another program. The problem I am having is that prompt that asks me "Do you want to save the changes you have made..." I never want to save these changes and would like to either be able to turn the prompt off all the Word docs or put it into the macro not to ask me. Any suggestions? (I am VB illiterate) -- Thanks for your help! H Dodson Tag: I need to create an index from existing document..HELP! Tag: 67700
  - 25
    - Loop thru doc and stop @ SEQ field Hi, I have a document with SEQ fields. I'm working with a document that should have SEQ fields when the style is Normal. Any other style and no SEQ number. The SEQ field is always at the beginning of the paragraph. This is what I would like to do: If style not normal then go to next paragraph if normal test if SEQ field @ left margin if SEQ field already there go onto next paragraph else add SEQ field go to next paragraph and do all over again I'm mainly having problems testing for the SEQ field Thanks jbc Tag: I need to create an index from existing document..HELP! Tag: 67699
- Next
  - 1
    - Bookmark for FormField Does anyone know code for assigning a bookmark to a formfield? I can put a bookmark in, but it always shows up after the formfield, and I want to create a new formfield and immediately give the bookmark itself a bookmark name. It must be just one or two lines of code, but I can't find it and it's holding up my project. Thanks so much for helping out. Tag: I need to create an index from existing document..HELP! Tag: 67698
  - 2
    - Add Fields Using Find And Replace Is it possible to do a find and replace all and add fields in the replace all? I'd like to search a doc for the following text ?Input? and replace this text with a form field. I know how to do a find a replace all and I know how to add a form field, but not together. Any help would be greatly appreciated. Thanks, Dave Tag: I need to create an index from existing document..HELP! Tag: 67694
  - 3
    - How do I add AutoText fields to the Formdatafields button on the m Hi, I'm working with Word 2000 template document which has several Autotext created already and those autotext are also in the formdatafields button on the menu bar. The user basically click to insert these dataformfields to the template and data will be be filled in during run time. I've created 2 additional Autotext items and modified the VB code behind to pull in the data. How do I add these 2 new Autotext items to the formdatafields menu? Should be something simple becuase I 've done it before but can't remember how to do it now since it's been a while. I thoguth I could drag from the Autotext to the formdatafields on the menu but it's not working. Thanks, Alpha Tag: I need to create an index from existing document..HELP! Tag: 67691
  - 4
    - problem with COM add-in Hi, I have created a COM add-in for Word 2003 that also creates a commandbar/commandbutton when the add-in is loaded in IDTExtensibilty2_OnConnection. I then delete and set the commandbar/commandbutton to Nothing in IDTExtensibilty2_OnBeginShutdown. However, when I reopen Word, I now have two commandbar/commandbuttons. I think I remember that the commandbar/commandbutton is stored in Normal.dot. Is this the problem? Is there anyway to get around this without deleting Normal.dot? Thanks Frank Tag: I need to create an index from existing document..HELP! Tag: 67689
  - 5
    - reference a function? Hi everyone, g'd afternoon. i'm working on a consumer-retailer templates. the consumer's template has its own template, and so does the retailer's template has its own. there are some functions shared by the consumer and retailer templates. i'd like to put the common functions in a seperate template or so and, the functions could be referenced by the consumer and retailer templates. does anyone has any idea to do that in vba for word 2003? thank you, william. -- Tag: I need to create an index from existing document..HELP! Tag: 67679
  - 6
    - Can not find project or library I have designed a template in 2003 and it works beautifully. When users open it in 2000 they get "Can not find project or library" error and the debug goes to the left string manipulation function. How can this be fixed. Tag: I need to create an index from existing document..HELP! Tag: 67678
  - 7
    - Help with ConvertToTable Hello Using Visual C++ I'm using ConvertToTable to build a Word Table from a string where separator is the tab... Working fine .. Ex: Data1\tData2\tData3\t ... gives one table with several rows and 3 colums | Data1 | Data2 | Data3 | | Data1 | Data2 | Data 3| What I'd like to do is adding several lines in some cells as this | Data1 | Data2 | Data3 | Data2' Data2'' | Data1 | Data2 | Data 3 | I tried to do it by inserting \n in the code of the cell as this Data1\tData2\nData2'\nData2''\tData3\t ... but Word interprets \n as a new row, not a new line on the cell of the current row .. Also, how can I force Word to make a fit according to the Header size ... Thanks for your help Thierry Tag: I need to create an index from existing document..HELP! Tag: 67677
  - 8
    - Help with macro to format picture I would really like to create a macro that will allow me, once the .gif is selected to: Click Format/Picture In that dialog box, click the Layout Tab and select Square/Center Click the Colors and Lines tab and select a line style/color. When I try to record such a macro, the options within the dialog box are grayed out. Is there a VBA solution to this? Thank you in advance! Christine Tag: I need to create an index from existing document..HELP! Tag: 67676
  - 9
    - How can I get the page size (letter, legal) from a Word doc object Now that the VB.Net app can extract the number of pages from the Word doc object at run time, I'd love to pull the page size from the doc object, too. There's only two sizes we deal with, letter or legal, and if I can pull the setting from the document, there would no longer be a need for the SQL table that's currently tracking that type of information, but too often goes out of sync with reality. Any and all hints appreciate. TIA! Tag: I need to create an index from existing document..HELP! Tag: 67675
  - 10
    - Loop thru bookmarks I want to loop through all the bookmarks in a Word table who's name starts with "Pic" and set the font color to white. Help please? Thank you. Tag: I need to create an index from existing document..HELP! Tag: 67674
  - 11
    - Formatting picture size in VBA I have a macro that inserts a picture into a form field. I want to include code within that procedure that formats the height and width of the picture to 100x70 pixels. Can someone help me with the code? Thank you. Tag: I need to create an index from existing document..HELP! Tag: 67673
  - 12
    - make TOCs easier to format ala OpenOffice. I've been playing with the OpenOffice 2 beta and really like some of the features they have. Particularly, I find their TOCs and Indices easier to use (I've used Word extensively (97, 2000, XP, and 2003) for years as a technical writer, grad student, and now teacher). Also, what is stopping you from including the ability to save in pdf like WordPerfect and OpenOffice? A deal with Adobe? THAT feature is one reason OpenOffice made it onto my PC to begin with. It's becoming a very nice program, even for someone who uses a higher than average amount of Word's feature set. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=624d99db-216a-445a-9f84-cd7f4d266c0c&dg=microsoft.public.word.vba.general Tag: I need to create an index from existing document..HELP! Tag: 67671
  - 13
    - BuiltIn Doc Property - wdPropertyTimeLastSaved - does not update Hi All I want to use code prove that a document has been saved, or otherwise. Before saving the document (using ActiveDocument.Save) I use a message box to display the date/time the document was last saved i.e. the value of wdPropertyTimeLastSaved). I then save and display another message box with the new value for wdPropertyTimeLastSaved. The problem is that it the value doesn't appear to update the seconds field so, if I save the document at an interval of less than one minute, the two values are the same. Is there a way around this? Many thanks for any help in advance Mad Dog Tag: I need to create an index from existing document..HELP! Tag: 67665
  - 14
    - Error Handling I am working on a macro to refomat fractions. Part of the process is to check the character before and the character after the range for a "/" character. I know that if my range start = the active document range start then an error will be generated. I am not very proficient or comfortable with Error Handling. Please have a look at the method I am using to handle this error and let me know if I have done it the way it should be done. Thanks. Note (this is just a part of the larger code so you can see how the error occurs and how it is handled) Sub FormatFraction() Dim OrigFrac As String Dim Numerator As String, Denominator As String Dim NewSlashChar As String Dim SlashPos As Integer Dim fractionRng As Range 'Type and select 4/5 at the start of a new blank document Set fractionRng = Selection.Range NewSlashChar = ChrW(&H2044) OrigFrac = fractionRng SlashPos = InStr(OrigFrac, "/") Numerator = Left(OrigFrac, SlashPos - 1) Denominator = Right(OrigFrac, Len(OrigFrac) - SlashPos) 'Skip improper fractions or checksum format e.g., 123/9 If Val(Numerator) > Val(Denominator) Then Exit Sub End If 'skip date formats e.g., 12/31/1958 With fractionRng On Error GoTo Handler 'Error is generated when fractionRng.Start = ActiveDocument.Range.Start If .Characters.First.Previous = "/" Or _ .Characters.Last.Next = "/" Then Exit Sub End If End With Continue: fractionRng.Font.Superscript = True fractionRng = Numerator fractionRng.Collapse Direction:=wdCollapseEnd fractionRng = NewSlashChar fractionRng.Font.Superscript = False fractionRng.Collapse Direction:=wdCollapseEnd fractionRng = Denominator fractionRng.Font.Subscript = True fractionRng.Collapse Direction:=wdCollapseEnd fractionRng.Font.Subscript = False Exit Sub Handler: Err.Clear Resume Continue End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: I need to create an index from existing document..HELP! Tag: 67664
  - 15
    - Creating dynamacially Macro into new Document. Hi all I wrote a macro that splits mail merge document to seperated documents. is it possible to add AutoRun macro for each document? Because in the main document I am using an ocx and I am setting the licence properties with one line code statement. after spliting mail merge document, the licence must be setted for each document. Because of that I want to add AutoRun macro into each document with same code line. like this... Sub Autorun() TBarCode51.LicenseMe "Mem: LicenceName", eLicKindDeveloper, 1, "4564213", eLicProd1D End Sub Thanks alot in advance... Tolga -- Message posted via http://www.officekb.com Tag: I need to create an index from existing document..HELP! Tag: 67662
  - 16
    - How do I get page count from a Word document object? I have a VB.NET application that manages .PRN documents created from Word documents. I want to expand the app to include the ability to transition the .DOCs into .PRN, one .PRN for every page in the .DOC. Everything works just the way it should now, as long as I know how many pages are in the .DOC up front. But the ideal situation would be if I can get the number of pages from the just-opened Word document object. Short of going back to define a NUMPAGES field on hundreds of .DOCs, how can I get the Word document object to give up that information at that time it's opened? Tag: I need to create an index from existing document..HELP! Tag: 67651
  - 17
    - Greg Maxey - please get in touch Hi Greg I was wondering if I could get your email address? (We worked together on that Request for assessment thread.) Mine's chuckhenrich@eircom.net. Thanks! Chuck Tag: I need to create an index from existing document..HELP! Tag: 67643
  - 18
    - InsertSymbol inserts symbol as formated text the first time Hi, I have a problem with InsertSymbol that I have seen nowhere else. I need to insert a character from a symbol font and want it to have symbol behaviour, i.e. if I mark a range containing the character afterwards and select another font, the symbol character won't change. This might sound simple and I thought it was, but generally it doesn't work the first few times... In a fresh Word application I use the code below to insert a symbol character with some other symbol font than Symbol and the first and sometimes first few character will be wrong: Sub InsertWayPointerSymbol() Dim rng As Range Dim i As Long Set rng = Selection.Range.Duplicate For i = 0 To 30 rng.InsertSymbol AscW("n"), "Marlett" rng.MoveEnd wdCharacter rng.Font.Name = "Times New Roman" rng.Collapse wdCollapseEnd Next i End Sub I assume this has something to do with the font not being fully initialized before I start, but can I force it to be somehow? I tried simply inserting one character and removing it first, but the problem is I do not know how many times I need to fix it. On some users machines the problem occurs for a longer time. Would I be guaranteed that it will work if I add a style containing the symbol font to the template that is used? Or can I programmatically create a style or something to force the font to be initialized? For readers familiar with WordML it might be helpfull to see the difference in wordml between the incorrect and correct character: Incorrect: <w:r> <w:rPr> <w:rFonts w:ascii="Marlett" w:h-ansi="Marlett" /> <wx:font wx:val="Marlett" /> <wx:sym wx:font="Marlett" wx:char="F06E" /> </w:rPr> <w:t>n</w:t> </w:r> Correct: <w:r> <w:rPr> <w:rFonts w:ascii="Marlett" w:h-ansi="Marlett" /> <wx:font wx:val="Marlett" /> </w:rPr> <w:sym w:font="Marlett" w:char="F06E" /> </w:r> Greatful for any suggestions! /Anna Tag: I need to create an index from existing document..HELP! Tag: 67637
  - 19
    - Activating the Newly opened Document Hi All, I have the instance of Documents and i open up the new documents using Documents.Add method. When i open the first document, it comes in the foreground. But when i open the second one, the second one has to come infront. How can achive this? I mean, whenever i open the new document programatically, i want the new document is in the foreground and visible. Thanks in advance. Tag: I need to create an index from existing document..HELP! Tag: 67635
  - 20
    - big mess!!help! I am in a real big mess. I just spent 4 days on a huge macro and I accidentally gave two textboxes the same name. When I ran the macro, I got a "DUplicate ~" error. I couldn't open the form and I saved the template and quit word. Now, when I try to open any macro from that template, word simply quits (the usual tell MS about this problem) box. How do I recover the file?? My backup dates back a week and I can't remember all the changes I made! Please help! Vince Tag: I need to create an index from existing document..HELP! Tag: 67628
  - 21
    - Word VBA Performance and File Size We have a VBA app running on Word XP that just started to run much slower in our latest release. We didn't change anything in the VBA app that would account for this speed difference. The only thing we noticed is that the new file (a DOT) is much smaller than the old (faster) DOT file. Are there compile options in VBA that might account for the size and speed difference? Thanks! wolfereeno at yahhoo dot com Tag: I need to create an index from existing document..HELP! Tag: 67618
  - 22
    - Can Word 2003 save to multiple html files? I'm trying to create multiple html files from one Word document. I'd like to be able to save as Filtered HTML but with new auto generated html files per section (i.e. heading1 and heading2 and toc and index) and still retain hypertext links. Can this be done via Word 2003? If not, what tool or process do I need to use? What does Word use to isolate the toc and section info for that help popup? (You'd think that they'd use their own tool/tools for doing so.....) Tag: I need to create an index from existing document..HELP! Tag: 67617
  - 23
    - Fields Hi, Is there a way to determine whether the paragraph contains fields code? We use an addin feature that generates references at the end of document. I wanted to check whether the list was generated. Is there a way to do check whether p.Range has fields? Thanks. Tag: I need to create an index from existing document..HELP! Tag: 67613
  - 24
    - Centering an I have placed a graphic in my document, using "Insert -- Picture -- From File...",and am unable to adjust programatically its alignment on the page. In VBA, alignment options are not available for members of the InlineShapes collection. Even in the dialog insode of Word, though, it doesn't allow me to select alignment. All of those options are greyed out. Can anyone tell me how to use VBA to set the alignment to "Center" for a single graphic, not the text before or after it. Also, if anyone can explain why the alignment options in the dialog box are greyed out, I'd appreciate it. Thank you in advance. Tag: I need to create an index from existing document..HELP! Tag: 67605
  - 25
    - need to select range based on bookmarks I want the user to be able to select an end-point for a search and replace range. After some manipulations, I set the first bookmark like this: If ActiveDocument.Bookmarks.Exists("myStart") = True Then ActiveDocument.Bookmarks("myStart").Delete End If ActiveDocument.Bookmarks.Add Name:="myStart" Then I have the user choose an end point, and set the second bookmark: If ActiveDocument.Bookmarks.Exists("myEndPoint") = True Then ActiveDocument.Bookmarks("myEndPoint").Delete End If ActiveDocument.Bookmarks.Add Name:="myEndPoint" DeleteRange.DeleteRange Now I want to select that range, but I haven't been able to do it. I've tried the following, neither of which work. Any ideas? Dim myRange as Range myRange.SetRange Start:=ActiveDocument.Bookmarks("myStart"), _ End:=ActiveDocument.Bookmarks("myEndPoint") myRange.Select and Dim pos1 Dim pos2 Dim r As Range ActiveDocument.Bookmarks("mystart").Select Set pos1 = ActiveDocument.Bookmarks("mystart") ActiveDocument.Bookmarks("myEndPoint").Select Set pos2 = ActiveDocument.Bookmarks("myendpoint") pos1.Select Selection.ExtendMode = True pos2.Select Set r = Selection Thanks for any help you can give me. Tag: I need to create an index from existing document..HELP! Tag: 67604

Re: I need to create an index from existing document..HELP! by Jezebel

Jezebel
Fri May 06 23:19:22 CDT 2005

You'll need to provide at least a little information. What sort of document?
What sort of index? What have you tried so far and what went wrong? Did you
type "index" into Help and read what it said?

"newtoword" <newtoword@discussions.microsoft.com> wrote in message
news:F0C5A8A5-B244-47FB-89A8-A1130D2608D0@microsoft.com...
>

Top