Word 2003 Custom Fields

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Word 2003 Custom Fields Tag: 67769
  - 2
    - 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: Word 2003 Custom Fields Tag: 67747
  - 3
    - 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: Word 2003 Custom Fields Tag: 67744
  - 4
    - 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: Word 2003 Custom Fields Tag: 67743
  - 5
    - 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: Word 2003 Custom Fields Tag: 67741
  - 6
    - 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: Word 2003 Custom Fields Tag: 67739
  - 7
    - 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: Word 2003 Custom Fields Tag: 67736
  - 8
    - 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: Word 2003 Custom Fields Tag: 67734
  - 9
    - 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: Word 2003 Custom Fields Tag: 67733
  - 10
    - 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: Word 2003 Custom Fields Tag: 67728
  - 11
    - 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: Word 2003 Custom Fields Tag: 67724
  - 12
    - 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: Word 2003 Custom Fields Tag: 67721
  - 13
    - 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: Word 2003 Custom Fields Tag: 67708
  - 14
    - 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: Word 2003 Custom Fields Tag: 67707
  - 15
    - 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: Word 2003 Custom Fields Tag: 67705
  - 16
    - 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: Word 2003 Custom Fields Tag: 67700
  - 17
    - 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: Word 2003 Custom Fields Tag: 67699
  - 18
    - 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: Word 2003 Custom Fields Tag: 67698
  - 19
    - 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: Word 2003 Custom Fields Tag: 67694
  - 20
    - 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: Word 2003 Custom Fields Tag: 67691
  - 21
    - 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: Word 2003 Custom Fields Tag: 67689
  - 22
    - 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: Word 2003 Custom Fields Tag: 67679
  - 23
    - 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: Word 2003 Custom Fields Tag: 67678
  - 24
    - 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: Word 2003 Custom Fields Tag: 67677
  - 25
    - 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: Word 2003 Custom Fields Tag: 67676
- Next
  - 1
    - 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: Word 2003 Custom Fields Tag: 67675
  - 2
    - 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: Word 2003 Custom Fields Tag: 67674
  - 3
    - 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: Word 2003 Custom Fields Tag: 67673
  - 4
    - 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: Word 2003 Custom Fields Tag: 67671
  - 5
    - 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: Word 2003 Custom Fields Tag: 67665
  - 6
    - 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: Word 2003 Custom Fields Tag: 67664
  - 7
    - 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: Word 2003 Custom Fields Tag: 67662
  - 8
    - 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: Word 2003 Custom Fields Tag: 67651
  - 9
    - 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: Word 2003 Custom Fields Tag: 67643
  - 10
    - 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: Word 2003 Custom Fields Tag: 67637
  - 11
    - 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: Word 2003 Custom Fields Tag: 67635
  - 12
    - 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: Word 2003 Custom Fields Tag: 67628
  - 13
    - 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: Word 2003 Custom Fields Tag: 67618
  - 14
    - 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: Word 2003 Custom Fields Tag: 67617
  - 15
    - 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: Word 2003 Custom Fields Tag: 67613
  - 16
    - 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: Word 2003 Custom Fields Tag: 67605
  - 17
    - 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: Word 2003 Custom Fields Tag: 67604
  - 18
    - word doc. open? hi everyone, g'd morning. in vba, do you know how to check if a word doc. is already opened in word for xp? thank you, william. -- Tag: Word 2003 Custom Fields Tag: 67598
  - 19
    - Document_Close event / Document.Saved flag We have an application which uses Word through Automation as a text editor. The application is used with Word97, Word2000 and Word2002. We are currently testng to release it for Word2003. We have our own DOT file which handles saving the content of the document and have thus defined the Document_Close method. If the user selects the X (cross in upper right hand corner of applicatoin), the Document_Close is called, however at this point, the Saved flag of the current document has be set to True - even if it was False just prior to selecting the X. Does anyone know if there has been any changes in the handling of the Saved flag wrt Word2003 - or does anyone have any hints ? Thanks for any help. Nikolai Tag: Word 2003 Custom Fields Tag: 67593
  - 20
    - word vba error <automation error> Hi All, Here is the code: Set objXL = New Excel.Application Set objwkb = objXL.Workbooks.Open(datafile) objwkb.Save '<--- Error in this code If I get this error, I only need to close the Word and re-open again. Then there will be no error. The error not happen all the time. It may happens after I copy the excel to the same directory. Thanks for advice. Regards Tag: Word 2003 Custom Fields Tag: 67592
  - 21
    - Convert MS-Word Documents to images I am using Office 2003 on Windows XP. I have several one page MS-Word documents saved as separate files. I would like to convert each of these to an image (e.g tif (preferred), jpg, png, or gif). The final image needs to include headers and footers. I would like to be able to do this using VBA. If someone knows how to do this could you please post example code? Thanks much in advance. Tag: Word 2003 Custom Fields Tag: 67587
  - 22
    - Hyperlinks in protected forms I followed the MVP site instructions for getting a hyperlink (MacroButton) to work in a protected form. In Word 2003, it works great. However, the hyperlinks are not active with previous of Word (i.e. 2000). Is there anything I can do to make the links (MacroButtons) works with the older versions? Tag: Word 2003 Custom Fields Tag: 67583
  - 23
    - Changing Excel links inside Word Documents Hello, Currently the company I am working for has lots of Word documents with embedded Excel objects in them which were linked using Word's Edit->Paste Special. We recently switched to a new server so I am in the process of writing a script that will allow changing of these links to be trivial to our word processing department. I did a search and saw a lot of posts about this topic, but none that really hit the problem I'm having on the head. I am currently using a VB Script that simulates keypresses to show field codes, do a find replace on the location, and hide the field codes. The problem is after I have changed the links, I cannot update any of the links in the file by selecting the link and pressing F9. It just tells me that the object could not be found. Now the weird part is, after I have changed the link code to the new location and try to update the link, the link changes back to the old location! I'm just wondering if anyone has seen something like this before and whether or not there is a way to fix it. The link paths are all UNC paths, not mapped drive letters and I'm pretty sure the files are in Word 95/6.0 format, but we are currently using Office XP Small Business. I'm not sure if that's the problem but I am hoping there is a way to fix it. This is the code I am using: Set WshShell = CreateObject("WScript.Shell") Dim wordFilePath wordFilePath = BrowseForFile() Set wordApp = CreateObject( "Word.Application" ) wordApp.Visible = True wordApp.Documents.Open wordFilePath WshShell.AppActivate( "Microsoft Word" ) WScript.Sleep 5000 WshShell.SendKeys "%{F9}" WScript.Sleep 5000 WshShell.SendKeys "^h" WScript.Sleep 3000 WshShell.SendKeys "Old UNC Path" WScript.Sleep 1000 WshShell.SendKeys "{TAB}" WScript.Sleep 500 WshShell.SendKeys "New UNC Path" WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WScript.Sleep 200 WshShell.SendKeys " " WScript.Sleep 1000 WshShell.SendKeys "{ENTER}" WScript.Sleep 1000 WshShell.SendKeys "%{F4}" WScript.Sleep 1000 WshShell.SendKeys "%{F9}" WScript.Sleep 2000 MsgBox "This Word document is fixed. Click ""OK"" to begin using it!" Function BrowseForFile() Set objOpenDialog = CreateObject( "UserAccounts.CommonDialog" ) objOpenDialog.Filter = "Microsoft Word Documents | *.doc" objOpenDialog.InitialDir = "C:\DOCUMENTS AND SETTINGS\ADMINISTRATOR\DESKTOP" objOpenDialog.Flags = &H80000 + &H4 + &H8 intResult = objOpenDialog.ShowOpen BrowseForFile = objOpenDialog.FileName End Function Many thanks in advance for all the help I receive. Best Regards, Mike P.S. - I have tried doing this as a Macro inside of Word with some code that I found in the groups, but the same things happens with VBA. :( Tag: Word 2003 Custom Fields Tag: 67582
  - 24
    - Plugin not working on some other machine hi! i have a plugin for MS Word. It is working on my machine very well, but when i try it on some other machine, it crashes the Word. The values under the following Key in registry are as follow: HKEY_CURRENT_USER\Software\Microsoft\Office\Word\Addins\MyPlugin.Connect FriendlyName = "MyPlugin" Description = "This is a testing plugin" LoadBehavior = 0x00000003 Word is now completely opened and it crashed. So after that when i try to open word again. it displays a message box that the plugin "myplugin" has caused problem. Do you want to disable this plugin or not? Any body there to help me.................................? Thanks Rod Tag: Word 2003 Custom Fields Tag: 67580
  - 25
    - sum up column value in a table Hi All, If there is a table. 1st row contain three column. with data 0,0,3 (each value in each cell) 2nd row contain four column where the 2nd and 3rd column are 50% width of 1st row 2nd column. And the data is 0,0,30,40 (each value in each cell) 3rd .. nth row, each width same as 1st row without data The problem which I face is, if I need to to put total in 5th row, {=sum(C1:C4) \#,###,###.00 \* MERGEFORMAT} the MSword will give out: 33 (3+30) instead of 43 (3+40) which I expected to have. Is there any way to sum up with Macro with a (some) smarter way? Thanks for advice ~ Tag: Word 2003 Custom Fields Tag: 67579

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.

Top

Re: Word 2003 Custom Fields by Doug

Doug
Sat May 07 05:01:51 CDT 2005

Using the following should do it whether the primary header/footer is
visible in the document or not:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.Sections(i).Headers(wdHeaderFooterFirstPage).Range.Fields.Update
.Sections(i).Headers(wdHeaderFooterPrimary).Range.Fields.Update
.Sections(i).Footers(wdHeaderFooterFirstPage).Range.Fields.Update
.Sections(i).Footers(wdHeaderFooterPrimary).Range.Fields.Update
Next i
End With

--
Hope this helps.

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

Doug Robbins - Word MVP
"Kerry" <Kerry@discussions.microsoft.com> wrote in message
news:C48792C5-B4CF-4012-989F-0814250F2DD6@microsoft.com...
> 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.

Top