Retrieving the Auto Number

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Use IF to Loop or not? AND IF w/ error codes? I had an idea, and thought I would post it here to see if it survived scrutiny. A line in my macro errored because another process wasn't completely done. Is it possible and would it be okay to use On Error Resume Next and the error code with an IF to loop back through the missed instruction until it completes? I'm thinking something like: Do On Error Resume Next ' Do This If Err.Number <> 0 Then Loop Else Exit Do End If On Error GoTo 0 Ed Tag: Retrieving the Auto Number Tag: 55529
  - 2
    - ListTemplate index - how to get? Hi all I'm trying to figure out how to get the ListTemplate index/name for a specific style -- I'd like to be able to modify the style's LinkedStyle and in order to do that it seems I have to specify the Style's ListTemplate first. Just to test if I can identify it, I tried the following code Set mystyle = ActiveDocument.Styles("Level 1") MsgBox ActiveDocument.ListTemplates(mystyle.ListTemplate.Name). _ ListLevels(1).LinkedStyle I don't get an error but the result of "mystyle.ListTemplate.Name" is "" (ie nothing). Any pointers? Thanks in advance! Chuck Tag: Retrieving the Auto Number Tag: 55523
  - 3
    - Apply Multiple Templates? What's the right approach? I am generating word 2002 docs based on a custome template that includes a customized toolbar that runs VBA routines. Using bookmarks I've pre- populated a lot of basic info in the doc. I then need to pass off these generated docs to someone that fills in the balance of the document info. That person has a set of 50 templates that she has been using to fill in sections of the starting doc based on certain criteria. I'm pretty unfamiliar with Word templates and what I am running up against, surprisingly, is that if she applies one of her custom dot files to what I pass her, her access to the custom toolbar in my original dot is lost. I'm not sure how to deal with this. As far as I can tell, a word doc can only be attached to one dot at a time. This would seem to imply that I'd have to add my VBA code and toolbar to all of her 50 specail dot files for her to retain access to the them. I could do this but the maint seems onerous. Is there an alternate approach? For instance, another way that the second stage text mods could be implemented besides using the 50 custom dot files? Tag: Retrieving the Auto Number Tag: 55516
  - 4
    - Excel Has anyone tried to open a Excel file from Word ? I know that in the 2000 Word program you were able to open Excel from that location .In Office 2003 Professional Edition you have to go outside of Word and into Excel to copy or transfer information . How about in the same area does Word update if a change was made in the Excel files / if the two are linked togather as it did in the 2000 version ? Tag: Retrieving the Auto Number Tag: 55513
  - 5
    - Storing large amounts of (hidden) data within a single word document? Hi all- thanks in advance for your help; using Word97 on Win98SE... I'm looking for the best way to store this large amounts of information (essentially several manually-built flat file database tables) in a word document without it being accessable to the user; I remember reading (but can't find) a post talking about this subject, and I think Custom DocProperties were the suggested solution... however, in my tests, the document properties (including custom ones) are available to any user via the document property interface, which is undesirable for me. Does anyone have other ideas on how to handle this? Can I suppress the custom docproperties information from showing in the user interface? What about (noting: Word97/ Win98SE) saving the information in some sort of low level encryption to avoid the property 'value' from being read, even if the user looks at the property dialog? Essentially I need to store data (away from user's eyes) without putting the data in the document or in a separate file. I am thinking that maybe I could do this by writing the data in XML format (using whatever XML command is available for encryption?) and that might also make it easier to work with the data, but I haven't messed with XML yet, so I'll wait to hear if that is possible/desirable in Word97 before I start a whole new learning curve... Many thanks, Keith -- The enclosed questions or comments are entirely mine and don't represent the thoughts, views, or policy of my employer. Any errors or omissions are my own. Tag: Retrieving the Auto Number Tag: 55512
  - 6
    - create section break after a table hi, i'm trying to create a section break with the type wdSectionBreakContinuous after a table. how can i do that in vba for word xp? thank you. william -- Tag: Retrieving the Auto Number Tag: 55507
  - 7
    - Why is there no color on monitor I have Office '03 (I think). While it will print in color, it will not show any colors on the monitor. Does anyone know why? Tag: Retrieving the Auto Number Tag: 55500
  - 8
    - Why doesn't the Table object have an Index property Hi, I'm wondering why the Table object does not have an Index property? This object belongs to a collection (Tables), so it should have one. What is the reason this object, just like Document or Paragraph does not have that property? Thanks in advance. Raph Tag: Retrieving the Auto Number Tag: 55498
  - 9
    - Emailing Word Document Using Macro Hi All, I hope someone can help me, We have a word document for requesting a courier service, the user currently has to open the document from our Intranet, enters the data then sends it as an attachment to our stores dept. I am trying to set-up a macro that will do this automatically, when I try to record a new macro it gets as far as opening the new message window with the attachment but it does not populate the To: field and does not send the e-mail. Could anybody point me in the right direction of any websites etc.. Many Thanks Paul Tag: Retrieving the Auto Number Tag: 55495
  - 10
    - Automation error Hello, I use VBScript Regular expression (VBScript.dll\3) for 'pattern matching and replacements' concepts in my "Word to XML" tool. the code... Function RExpReplace(ptrn As String, Sstr As String, rStr As String, iCase As Boolean, gCase As Boolean) As String Set regEx = New RegExp ' Create regular expression. regEx.Pattern = ptrn ' Set pattern. regEx.IgnoreCase = iCase ' Set case sensitivity. regEx.Global = gCase ' Set Global search regEx.MultiLine = True RExpReplace = regEx.Replace(Sstr, rStr) ' Make replacement. End Function On my machine this function works fine. But with other machines, it invoke the following error.. Automation error The object invoked has disconnected from its clients. Its works fine, when i changed the code in debug mode, by using breakpoint at 'RExpReplace = regEx.Replace(Sstr, rStr)' the code... Dim temp as String temp = regEx.Replace(Sstr, rStr) ' Make replacement. RExpReplace = temp I find, Microsoft Knowledge Base Article - 813120 relates to my problem, but not exactly. please let me know where is the problem. regards, senthil Tag: Retrieving the Auto Number Tag: 55494
  - 11
    - Which formfield has the focus Hello, in an template which creates various numbers of formfields (automaticly) each field has got the same EntryMacro and ExitMacro (named Got_Focus and Lost_Focus). When the EntryMacro or ExitMacro - event occurs and for example the Got_Focus routine is called, how can I determine which FormField has got the focus (and for the Lost_Focus which FormField lost the focus)? Thanks Peter Tag: Retrieving the Auto Number Tag: 55483
  - 12
    - Remove Leading Spaces Hi I have a txt document that has been opened in Word that has a series of leading spaces. These leading spaces (always seven of them) are scattered throughout the document. How do I remove these quickly. Look forward to any assistance. -- Regards mg Tag: Retrieving the Auto Number Tag: 55482
  - 13
    - Grabbing specific text using vba How can i retrieve a specific text from an opened word document starting from a specific position and moving to the right until a specific character is found,using vba? Pls, its urgent!!!!!!! --- Message posted from http://www.ExcelForum.com/ Tag: Retrieving the Auto Number Tag: 55480
  - 14
    - ByRef question Hello all, Here's my scenario. I have an Access app that needs to grab data from an Excel worksheet. What I've done is create a function in Access that simply calls excel.run(myproc(arg1, arg2)). The excel proc needs to return a bunch of numbers so I pass ByRef. I can't think of a cleaner way of doing this without updating the db in excel itself. My question: In Access, when I declare my excel object as an object, the byref works, but if I declare it as Excel.Application then it doesn't work. Why? In both tests, I use set xlsApp = new excel.application, the only difference is in the actualy dim statement. Am I missing something here, cause I'd really like to bind early, it's just cleaner. Thx, Bodi Tag: Retrieving the Auto Number Tag: 55479
  - 15
    - Check for Bookmark then run userform I want to write some code that will check to see if a bookmark exists and if it does, run a userform. Once the user has filled in the userform and clicked OK, I want the code to find the bookmark and delete it. If the bookmark doesn't exist, then I don't want the code to run... I have the following code: Sub Autonew() If ActiveDocument.Bookmarks.Exists("new") = True Then FrmOutwardLetter.Show End If End Sub and within the userform code I have the following code to delete the bookmark: ActiveDocument.Bookmarks("new").Select Selection.Delete BUT nothing seems to be working! The userform doesn't show anymore - What am I doing wrong? (It's probably all wrong!). I was trying to create a custom boolean property, set its value to false and change it to true once the userform runs. Then always check for the value of the said property when document is opened, and if it is true, do not run the code. Wasn't sure how to do this as this is all new to me... :o( Thanks in advance Lee Tag: Retrieving the Auto Number Tag: 55476
  - 16
    - Extracting Endnotes Number Hi all, I am required to get the number of an endnote and check if it is present in the main document. To elaborate further, assuming I have something like: 3 For a historical description of the... 3 being the superscripted end note number that word automatically assigns. I will need to extract the text '3' out of the end note. When I copy and paste any endnote, I get '[1]' instead of '3'. Also, when I just do a msgbox(selection.text), I get a funny character instead of the endnote number. Is there anyway, I can retreive the endnote number? After I reetrieve it, I will have to check if it is present in the main document which is fairly easy. It's the text extracting part that's eating my brain (however limited!) away. Hope someone can help me out. Thanks & Regards, Vince Tag: Retrieving the Auto Number Tag: 55475
  - 17
    - Certificate of Security Hi As my security settings are medium, I am always being asked if I want to activate my macros. So I installed SelfCert.exe and run it (apparently successfully according to a window) But it didn't make any difference and my name didn't not appear in the security window as a reliable source. I've also tried running it with my main macro document open and with .dot open but nothing gives. What is the procedure for running SelfCert.exe please? Thanks Tag: Retrieving the Auto Number Tag: 55468
  - 18
    - How to Lock links (programatically) without incurring an update I have found several past posts on locking links in VBA. (Cribbed code is included at the footer of the message.) I would like to discover the programmatic equivalent of the manual method of locking links: Edit--->Links (Opens dialogue); Select all links, check 'Locked' box; click OK. Problems with my current VBA method: a) the original linked source file needs to be present for my code to even work. (Not the case with locking links manually.) Running code sans source file returns: "Run-time error '6083' Objects in this document contain links to files that cannot be found. The linked information will not be updated," leading to the next issue... b) With the code, Word first updates the links before setting them to Locked. Not desirable, timewise (manual locks instantaneously, vba takes 1.5 min+) & the updates are likely irrelevant to the current doc. c) The other thing that is so darn snazzy about the manual method is that it doesn't care if it is a field, shape, inline shape; it just locks the bugger. In code, I need separate processes to deal with each type of link (Probably unavoidable). Any help is greatly appreciated. Thanks! Taylor P.S. I had high hopes of running the macro recorder during the above manual process; alas, it registers nothing (results in blank macro code). Here's the code: Dim i As Long For i = 1 To ActiveDocument.Shapes.Count If Not ActiveDocument.Shapes(i).LinkFormat Is Nothing Then If Not ActiveDocument.Shapes(i).LinkFormat.Locked Then ActiveDocument.Shapes(i).LinkFormat.Locked = True End If End If Next i Tag: Retrieving the Auto Number Tag: 55464
  - 19
    - Macro Conversion Hi, I hope you can help me out. I had a macro to control which printer tray is used. When I upgraded from Word2000 to Word2003, the macro doesn't select the proper tray. Any Suggestions would be appreciated. The code is below. Sub MyPrint() Dim sCurrentPrinter As String aa = InputBox("How many copies would you like?", "Carrie's Macro", 3) If aa = "" Or aa = 0 Then Exit Sub sCurrentPrinter = ActivePrinter Rem ActivePrinter = "Tektronix Phaser 860DP by Xerox" With Options .DefaultTray = "Tray 2" End With Application.PrintOut FileName:="", Copies:=aa With Options .DefaultTray = "Use printer settings" End With ActivePrinter = sCurrentPrinter End Sub Tag: Retrieving the Auto Number Tag: 55463
  - 20
    - Soft and Hard Return Chars and Paragraph Count I'm having trouble getting the correct paragraph count for a document after stripping it of the soft return/vertical tab character (Chr(11)) and replacing it with the carriage return character (Chr(13)). Even after saving, closing and reopening the target file to ensure that ActiveDocument has been refreshed, the paragraph count still turns out to be incorrect. The following code demonstrates this bug: '*************************************************************** Sub Test() 'Create file Documents.Add 'Add 9 vert tab chars to the initial carriage return char For i = 1 To 9 Selection.TypeText Chr(11) Next i 'Set breakpoint here, verify that CountBefore = 1 CountBefore = ActiveDocument.Paragraphs.Count 'Replace vertical tab chars with paragraph chars ActiveDocument.Range.Find.Execute FindText:=Chr(11), _ ReplaceWith:=Chr(13), _ Replace:=wdReplaceAll 'Set breakpoint here, verify that CountAfter = 1, although I want 'this to be 10 CountAfter = ActiveDocument.Paragraphs.Count End Sub '*************************************************************** The Paragraphs Collection doesn't get updated and Word behaves as if it knows that the replaced characters used to be soft return characters (Chr(11)). Thanks in advance, Boram Tag: Retrieving the Auto Number Tag: 55456
  - 21
    - passing array to function to pick up values Hi all, I am trying to sort out the fijner points of passing arrays between functions. I simply do not understand how this works. Of course I get it all to work with a global array, which I can modify anytime, but I'd rather learn to do it by passing arguments. I have already found to use ByRef while digging in the archive. If I run the function UseArray I get as result: , bla instead of <some character> , bla what's wrong? code follows ------- Function MakeArray(ByRef myArray As Variant) Dim teller As Long For teller = 1 To 10 'assign some random alphanumeric stuff to array myArray(teller) = Chr(teller * 10) Next teller End Function Function UseArray() Dim varArr As Variant Dim i As Long 'give a large dimension here because can't redim preserve inside other function 'can be shrunk afterwards if I ever get this to work 'this code is just a tryout for other stuff I'm doing in a project where I don't know 'how many items I pick up along the way. ReDim varArr(100) MakeArray (varArr) For i = 1 To 10 Debug.Print varArr(i) & " , bla" Next i End Function Tag: Retrieving the Auto Number Tag: 55438
  - 22
    - creating Toolbar on Word 2000 using built-in Visual Basic Editor Hi All, I have some queries. I am creating Toolbar on Word 2000 using built-in Visual Basic Editor. First query is regarding CommandBarButtons Click event not firing using WithEvents keyword. Also since the CommandBar is created dynamically I dont know how to take the values entered in its various controls at runtime. When I enter something into ComboBox and I shift to another control the value entered in the comboBox is lost. How to prevent this. My Code is as follows: Public WithEvents cbcCommandBarButton As Office.CommandBarButton Dim cbrCommandBar As CommandBar Public cbcCommandBarListBox As CommandBarComboBox Public cbcCommandBarCategoryListBox As CommandBarComboBox Public cbcCommandBarSearchCriteriaListBox As CommandBarComboBox Dim m_IE As InternetExplorer Sub NewToolBar() ' If the command bar exits, remove it. On Error Resume Next Application.CommandBars("Marsh Knowledge Exchange").Delete ' Add the command bar to the application's ' CommandBars collection. Set cbrCommandBar = _ Application.CommandBars.Add cbrCommandBar.Name = "Knowledge Exchange" ' Add command button control to the control's ' collection of CommandBar objects. With cbrCommandBar.Controls Set cbcCommandBarButton = _ .Add(msoControlLabel) ' ' Set properties of the command button. 'Add the following lines of code just below the block of 'code beginning with the comment "Set properties of the command button." ' Set properties of the drop-down list box. Set cbcCommandBarListBox = _ .Add(Type:=msoControlDropdown) With cbcCommandBarListBox .AddItem " Knowledge Exchange Home" .AddItem " Practice Home" .AddItem " Research Centre" .AddItem " My KX" .AddItem " My Assignments" .Width = 138 .ListIndex = 5 .Caption = " Knowledge Exchange Home " .Style = msoComboLabel .BeginGroup = True .OnAction = "DisplayMessage" .Tag = "lstPractice" End With 'Code to create the Search Criteria Combo-box Set cbcCommandBarSearchCriteriaListBox = _ .Add(Type:=msoControlComboBox) 'Code to create the Search Criteria Combo-box 'Code to create the Search Categories Combo-box Set cbcCommandBarCategoryListBox = _ .Add(Type:=msoControlComboBox) With cbcCommandBarCategoryListBox .AddItem " Search Knowledge Exchange Home" .AddItem " Search Google" .Width = 138 '.ListIndex = 6 '.Caption = " " .Style = msoComboNormal .BeginGroup = True .OnAction = "Message" .Tag = "lstCategory" End With ' Set cbcCommandBarButton = _ ' .Add(Type:=msoControlButton) ' ' ' Set properties of the command button. ' With cbcCommandBarButton ' .Style = msoButtonIconAndCaption ' .Caption = "My Big Button" ' .FaceId = 19 ' .OnAction = "Message" ' .Tag = "My Big Button" ' End With End With cbrCommandBar.Visible = True End Sub Could you please tell me how these problems are solved. Can you send me the code if possible. Regards, Sagar Gadre. Tag: Retrieving the Auto Number Tag: 55437
  - 23
    - KeyPress Event in Word 2000 using VBA Hi All, I have created combo-boxes dynamically in VBA. I want to handle keypress and Mouse events on the combo- boxes. How should I go about it? This is because when I enter text in combo-box and click on another control the entered text vanishes. However if I navigate to another control using TAB key then the text does not disappear. Please help it is urgent. Regards, Sagar Tag: Retrieving the Auto Number Tag: 55436
  - 24
    - creating Toolbar on Word 2000 using built-in Visual Basic Editor Hi All, I have some queries. I am creating Toolbar on Word 2000 using built-in Visual Basic Editor. First query is regarding CommandBarButtons Click event not firing using WithEvents keyword. Also since the CommandBar is created dynamically I dont know how to take the values entered in its various controls at runtime. When I enter something into ComboBox and I shift to another control the value entered in the comboBox is lost. How to prevent this. My Code is as follows: Public WithEvents cbcCommandBarButton As Office.CommandBarButton Dim cbrCommandBar As CommandBar Public cbcCommandBarListBox As CommandBarComboBox Public cbcCommandBarCategoryListBox As CommandBarComboBox Public cbcCommandBarSearchCriteriaListBox As CommandBarComboBox Dim m_IE As InternetExplorer Sub NewToolBar() ' If the command bar exits, remove it. On Error Resume Next Application.CommandBars("Marsh Knowledge Exchange").Delete ' Add the command bar to the application's ' CommandBars collection. Set cbrCommandBar = _ Application.CommandBars.Add cbrCommandBar.Name = "Knowledge Exchange" ' Add command button control to the control's ' collection of CommandBar objects. With cbrCommandBar.Controls Set cbcCommandBarButton = _ .Add(msoControlLabel) ' ' Set properties of the command button. 'Add the following lines of code just below the block of 'code beginning with the comment "Set properties of the command button." ' Set properties of the drop-down list box. Set cbcCommandBarListBox = _ .Add(Type:=msoControlDropdown) With cbcCommandBarListBox .AddItem " Knowledge Exchange Home" .AddItem " Practice Home" .AddItem " Research Centre" .AddItem " My KX" .AddItem " My Assignments" .Width = 138 .ListIndex = 5 .Caption = " Knowledge Exchange Home " .Style = msoComboLabel .BeginGroup = True .OnAction = "DisplayMessage" .Tag = "lstPractice" End With 'Code to create the Search Criteria Combo-box Set cbcCommandBarSearchCriteriaListBox = _ .Add(Type:=msoControlComboBox) 'Code to create the Search Criteria Combo-box 'Code to create the Search Categories Combo-box Set cbcCommandBarCategoryListBox = _ .Add(Type:=msoControlComboBox) With cbcCommandBarCategoryListBox .AddItem " Search Knowledge Exchange Home" .AddItem " Search Google" .Width = 138 '.ListIndex = 6 '.Caption = " " .Style = msoComboNormal .BeginGroup = True .OnAction = "Message" .Tag = "lstCategory" End With ' Set cbcCommandBarButton = _ ' .Add(Type:=msoControlButton) ' ' ' Set properties of the command button. ' With cbcCommandBarButton ' .Style = msoButtonIconAndCaption ' .Caption = "My Big Button" ' .FaceId = 19 ' .OnAction = "Message" ' .Tag = "My Big Button" ' End With End With cbrCommandBar.Visible = True End Sub Could you please tell me how these problems are solved. Can you send me the code if possible. Regards, Sagar Gadre. Tag: Retrieving the Auto Number Tag: 55434
  - 25
    - KeyPress Event in Word 2000 using VBA Hi All, I have created combo-boxes dynamically in VBA. I want to handle keypress and Mouse events on the combo- boxes. How should I go about it? This is because when I enter text in combo-box and click on another control the entered text vanishes. However if I navigate to another control using TAB key then the text does not disappear. Please help it is urgent. Regards, Sagar Tag: Retrieving the Auto Number Tag: 55433
- Next
  - 1
    - Conditional Compilation question Hi, Is there a way to identify the version of Word using conditional compilation statements? I have a macro which requires a slight modification for Word 2003 using a command newly available in 2003 but the macro needs to be compatible with earlier versions. I don't want to run two different versions of this macro so I would prefer to use an #If statement which contains my version checking and modifications in order to be able to compile the macro on different versions of Word. I know there is the VBA6 constant which helps determine whether I am using Word 97 or other but there doesn't seem to be a way to determine whether I am using 2000 or 2003 (for example) while still allowing me to compile. Cheers, John Tag: Retrieving the Auto Number Tag: 55423
  - 2
    - Monitor Clipbaord Hi Folks, I have a dialog box that prompts a user for some information. Unfortunately I can'nt get my dialog box to query the database so users are having to manually re-enter the data. Now I have the option to copy a record set from the database to the clipboard. I need the dialog box to monitor the clipboard for data of a given format, ie: Name=SMITH/John James DOB=01/08/80 And if data of the specified format it detected, upon focus I guess, to populate the appropriate text boxes. Anyone got any idea how to do this? Cheers -Al Tag: Retrieving the Auto Number Tag: 55422
  - 3
    - Returning NumberFormat from a bullet Hi, I have developed a utility in VB which analyses a Word template and generates the VBA code required to recreate any outline numbering list templates which exist (useful when copying outline numbered styles from one document to another). This works a charm EXCEPT when the outline "numbers" are bullets. In most cases the NumberFormat property of the ListLevel object returns "?". What I need is to be able to retrieve the ascii value for the bullet character. Using asc(myListLevel.NumberFormat) returns 63 with is the ascii value of a question mark - not very useful :) Is there a way that I can return the correct bullet via code? I can determine the ascii values manually and slot that into the code that my utility generates but it would be nice for my program to be able to do this - after all that is what it is for! Cheers, John Tag: Retrieving the Auto Number Tag: 55417
  - 4
    - How to use vb to print a Word Document? I am using vb6 to control Word and use the Printout method for the document, but after this I want to quit Word. The problem is that Word is still printing when it wants to quit and then there is a Word process stil running. Any suggestion on how to get around this timing problem? Thanks in advance WayneM Tag: Retrieving the Auto Number Tag: 55416
  - 5
    - Update Reference Field I have a userform that fills in formfields in a document. In several places, the same information is inserted, so I cross-referenced those formfields with ref field. The problem is that I can't figure out how to update those ref fields without also clearing the formfields. When I update all the fields in the document, the form fields clear and the ref fields update, I suppose, but since the form fields are now blank so are the ref fields. I need a way to update only the ref fields but I am not sure how to do this. Thanks for any help. Tag: Retrieving the Auto Number Tag: 55410
  - 6
    - Break lines Hi, I know how to break a line of code with " _" and "& _" but neither of these seem to work in Sub SomeMacro() line. I have one that is getting rather lengthy e.g.,: Sub SomeMacor(pVariable As Long, ...) Can this type of line be broken into two separate lines? Thanks Tag: Retrieving the Auto Number Tag: 55409
  - 7
    - Application.Filesearch yields incorrect results?? I use Application.Filesearch in an Excel macro to search through a series of Word docs for a keyword. The search is initiated and the keyword(s) entered via Userform. Hyperlinks to docs matching the search criteria are written to a blank area on the worksheet. The search works, except it just gave me some wrong answers. I entered ABC-01. When I clicked the link and brought up the first doc, I did a Find for ABC-01 - it was not found, but ABC-02 was! Does the hyphen throw this off? Might other punctuations or non-alpha characters? Any thoughts? Ed The Excel code: Sub SearchKeyword() Dim lngIndex As Long Dim strSearchFor As String Dim strLocation As String Dim rngFiles As Range Dim strName As String Dim ListEnd As String strLocation = ActiveWorkbook.Path If Range("BA15000") <> "" Then ListEnd = Range("BA65536").End(xlUp).Row Range("BA15000:BA" & ListEnd).ClearContents End If If UserForm2.TextBox2.Text <> "" Then strSearchFor = UserForm2.TextBox2.Text End If If UserForm2.TextBox3.Text <> "" Then strSearchFor = strSearchFor & " and " & UserForm2.TextBox3.Text End If If UserForm2.TextBox4.Text <> "" Then strSearchFor = strSearchFor & " and " & UserForm2.TextBox4.Text End If If UserForm2.TextBox5.Text <> "" Then strSearchFor = strSearchFor & " and " & UserForm2.TextBox5.Text End If If strSearchFor = "" Then MsgBox "Nothing to search for", vbExclamation Exit Sub End If strName = UserForm2.TextBox1.Text With Application.FileSearch .NewSearch .LookIn = strLocation .SearchSubFolders = False .TextOrProperty = strSearchFor .Filename = "L5-" & strName & "*.doc" .Execute ActiveSheet.Columns("BA").ColumnWidth = 80 Set rngFiles = Range("BA15000") rngFiles.Offset(0, 0) = "Found " & .FoundFiles.Count & " containing " & .TextOrProperty For lngIndex = 1 To .FoundFiles.Count ActiveSheet.Hyperlinks.Add Anchor:=rngFiles.Offset(lngIndex, 0), Address:=.FoundFiles.Item(lngIndex) Next End With Unload UserForm2 Range("BA15000").Select End Sub Tag: Retrieving the Auto Number Tag: 55404
  - 8
    - Word Error using VB Editor to Open document When I type in the following commands in the Intermediate window, I get a Word runtime error when I run the third line. activedocument.SaveAs "C:\test.doc" activedocument.Close activedocument.Open "C:\test.doc" The reason why I did this test is because an application that I wrote is not working correctly on a client's machine. I narrowed it down to the vb code that opens a document in Word. Any suggestions why this may be happening? Any help would be greatly appreciated. Thanks. Tag: Retrieving the Auto Number Tag: 55401
  - 9
    - Word Paragraph Formating. MSWord 2003 Is there a way once a document is protected to use the Keep Together for a selection of paragraphs. Either program wise or manual formatting? I have multiple input fields with numbered items (these field sizes could be 20 charaters to 200 characters in length) and wish keep them together on each page. -- Thank you for your help in advance!!! (smile) Mike Tag: Retrieving the Auto Number Tag: 55400
  - 10
    - A macro to fix empty boxes and wrong symbols in imported WP files At the end of this message is a link to a macro that tries to fix the problem of Word files that have been imported from WordPerfect, and display either the wrong symbols or letters instead of symbols such as quotation marks and dashes. The intelligent parts of the macro are the work of Jay Freedman, Helmut Weber, Greg Maxey, and Jezebel, in answers to my pleas for help here; the candy-coating and blinking lights are by me. This macro is designed to fix the problem in which a typical symptom is this: In a file originally created in WP, the creator of the file included: "quotation marks--and a dash" but when the file is opened in a copy of Word (usually on another system), Word displays this: Aquotation marksCand a dash@ I think I finally have this macro in a condition that's suitable for testing, but ONLY on copies documents that you can afford to lose. The macro saves your file in Word for Windows 2.0 format and then reopens it. Word 2003 does not ship with the Word for Windows 2.0 converter, but you can take a copy of WNWRD232.CNV from a system with Word 2002 and move it to C:\Program Files\Common Files\Microsoft Shared\TEXTCONV or wherever your text converters happen to be, and then restart Word (maybe restart Windows) to be able to use the WinWord 2.0 converter in Word 2003. As written, the macro converts only a limited number of characters, because each one has to be added to the macro by hand. Also, it turns out that symbols like the musical flat, sharp, and natural will convert in Word 2003 under Windows XP, but not under Word 2002 under Windows 98 SE. I *think* this is caused by differences in fonts in different versions, and I would like to add a test for the Windows version. Is there a very simple way of returning the current Windows version? The ones that I've seen out there seem extremely complicated. Here's the code. If your browser renames it with a .TXT extension, remove that; go into Word, click Alt-F11, go to the Properties inspector at the upper left, click on Normal, use Insert/Module to insert the module. Open a WP file with the problem I described (MAKE A BACKUP EVEN THOUGH THE MACRO MAKES ONE FOR YOU). Run the macro FixSymbolsInImportedWPFiles0012. http://www.columbia.edu/~em36/FixSymWP0012.bas Helmut, I've left the language treatment complicated, because I *think* you implied that the act of saving and reopening the file sets the "symbol" string to the local language, but I may be wrong. Thanks for any suggestions about the inevitable stupidities and bugs and foolishnesses in this code. Edward Mendelson Tag: Retrieving the Auto Number Tag: 55397
  - 11
    - Type mismatch on Application.version Hello, A user tells me that he gets a type mismatch error at these lines in some code that seems to work for other other users. The code is: Dim aVal as Long aVal = Application.Version Long and Integer work here, but I've seen other code that seems to treat Application.Version as a string and uses val(Application.Version) Can anyone tell me what I *should* be using? I want to test for the following conditions: Word 97 (version 8) Word 2000 and below (<= 9) Word 2002 and above (>= 10) Word 2002 (10) Word 2003 (11) In my copy of Word 2002 (SP3), if I enter ? Application.Version in the Immediate window, it returns 10.0. But if I run this code: Dim aVer As String aVer = Val(Application.Version) msgBox (aVer) Debug.Print aVer or this code: Dim aVer As Single aVer = Application.Version msgBox (aVer) Debug.Print aVer both return 10 (no decimal). Many thanks for any advice on this one. Edward Mendelson Tag: Retrieving the Auto Number Tag: 55386
  - 12
    - Styles Is it possible to extract a document/templates style description. With quite large style libraries it would be usefull to be able to print out all the style descriptions to see which need upating / cleaning up. Tag: Retrieving the Auto Number Tag: 55376
  - 13
    - Template location change problem. I need to be able to sweep a directory and its subfolders for MSWord documents, run a macro which removes embeded document template information and saves the document again. This has become an issue because UNC paths have been used in the Document Template path on many documents, and the server which they point to has been taken offline. This causes Word to take 5-10 minutes to open the document. Quick fix is to match an existing IP address in WINS with the UNC path name, this speeds the opening of the documents. I have found this code while attempting to resolve the problem : Sub attach() ' upath = the folder we're going through upath = "\\myserver\docs" Application.ScreenUpdating = False Set udoc = CreateObject("scripting.FileSystemObject") Set getudocs = udoc.getfolder(upath) Set unddocs = getudocs.Files For Each fdocs In unddocs ' call to the macro that changes the templates attachUND ActiveDocument.Close savechanges:=wdSaveChanges Next fdocs End Sub Sub attachUND() tName = ActiveDocument.AttachedTemplate.FullName ' the old template name If tName = ActiveDocument.AttachedTemplate.Path & "\" & "Normal.dot" Then tName = "old template not found" Templ = "\\myserver\templates\LeterHead.dot" With ActiveDocument .UpdateStylesOnOpen = False .AttachedTemplate = Templ End With End Sub I have run this code on several machines but the same thing happens the document closes and no updates appear to have been done. Your thoughts on this problem are greatfully recieved. Tag: Retrieving the Auto Number Tag: 55371
  - 14
    - Optional merge fields Hi, I have a letter template (in Word 2000) that can optionally be used to create a merge master letter (simply by inserting AutoText containing merge fields). The mail merge operation is being handled entrirely by VBA by the way. This works fine, except I would now like to have the same template to have the capability of handling two data sources (both CSV files). Many of the fields will be the same, but one CSV file will have more fields than the other. Is there any way that I can use truely optional merge fields, as conditional merge fields can only function if the merge fields are actually there. I want to avoid (if at all possible) any messages about "this merge field doesn't exist". Thanks, Tag: Retrieving the Auto Number Tag: 55369
  - 15
    - how to find missing characters in document Hi, In my document i am finding some characters appearing as boxes even though font is Times New Roman. If we print this document that characters are printing as blank space. Is there anyway to find these characters through vba? Thanks in advance. Ravi Tag: Retrieving the Auto Number Tag: 55368
  - 16
    - Startup Switches Hi, If I want to start a Word add-in when Word starts, I use the switch /l. If I want two add-ins to start in a specific order, how is this done? / Ulf Tag: Retrieving the Auto Number Tag: 55366
  - 17
    - Att: Helmut Weber:Problems with adding CollapseEnd to my macros. Hello In adding your advice about collapsing some days ago, I noticed that my macros started to have another problem in that the cursor suddenly started to appear infront of the * that I add to some words to show that they have short vowels. I tried to correct it myself until the point where I no longer know where I am and all my macros are different. In other words, I've confused myself so much that I no longer know my arse from my elbow if you will excuse the expression. Could I please give you two macros to look at, one for short vowels and one for short rising vowels. If you can get them to work again so that the cursor is after the * (and preferably with a space between the * and the cursor, I will try to incorporate the trick into the rest of my macros) Really sorry. Sub MidShort() Dim wordrange As Range, lrange As Range Set wordrange = Selection.Range Set lrange = wordrange.Duplicate lrange.Collapse direction:=wdCollapseEnd lrange.InsertAfter "* " wordrange.Font.Color = wdColorSeaGreen lrange.Font.Color = wdColorSeaGreen Selection.Collapse direction:=wdCollapseEnd Selection.ExtendMode = False Selection.Font.Reset End Sub ____________________________________________________________________________ ___________________ Sub FallingShort() Dim wordrange As Range, lrange As Range, i As Long, j As Long Set wordrange = Selection.Range j = 2 For i = 1 To wordrange.Characters.Count Set lrange = wordrange.Characters(i) If Selection.Characters.Count <= 4 Then lrange.Font.Size = 18 lrange.Font.Size = lrange.Font.Size - j j = j + 2 wordrange.Font.Color = wdColorSkyBlue Else lrange.Font.Size = 18 lrange.Font.Size = lrange.Font.Size - j j = j + 1 wordrange.Font.Color = wdColorSkyBlue End If Next i lrange.InsertAfter "* " lrange.Collapse direction:=wdCollapseEnd Selection.Collapse direction:=wdCollapseEnd Selection.ExtendMode = False Selection.Font.Reset End Sub Tag: Retrieving the Auto Number Tag: 55363
  - 18
    - Problems with InsertFile and AttachTemplate My group has just upgraded from Word 2000 to Word 2002 (SP3). When I tr to run certain macros word hangs on certain methods, specificaly Section.InsertFile and ActiveDocument.AttachTemplate. By "hang" I mea that when Word calls one of these methods Word freezes. The macro these run in are stored in a template run as an add-in, and are fairl complicated. What's strange is that if I record a macro with the sam method, a macro that contains only a few lines, everthing works. Thi problem is occurring in macros that have been used without problems fo five or more years (some of them originated in Word 97). Has anyone seen anything like this before? I've spent a couple of hour doing searches on the the MS Knowledge Base and in this forum but hav not turned up any answers. Any help would be greatly appreciated -- Message posted from http://www.ExcelForum.com Tag: Retrieving the Auto Number Tag: 55359
  - 19
    - bug report re page nums? I've been going nuts trying to figure this one out -- after inserting doc number and page number fields in footers, then saving the document or updating all fields in footers, then all content in Primary (not different first page) footers EXCEPT section 1 primary footers take on the Page Number style and refuse to accept the Footer style no matter how hard I try to apply the Footer style. This only happens when I use .PageNumbers.Add (not .Fields.Add wdPageNumber). I'd like to use .PageNumbers.Add (which inserts the page number in a text box instead of as an inline field) for ease of formatting. We're trying to standardise our footers to include only a document number (as a field linked to the DMS (document management system)) and a centered page number. The document number should be formatted in "Footer" style and the page number in "Page Number" style. The code below goes through every footer in every section, deletes everything from each footer , applies the Footer style , inserts the DMS field flush left and then the page number on a new line above the DMS field. After running the macro, all the footers appear as they should: the DMS field in Footer style and the page numbers in Page Number style (page number fields in centered text boxes in the footer). However, after saving the document, the primary footer for every section EXCEPT section 1 has Page Number style applied and the style cannot be changed. This happens regardless of where the page number text box appears in the footer -- on the same line as the DMS field or not. As I mentioned above, if I use ActiveDocument.Fields.Add wdFieldPage in a different paragraph from the DMS field, each paragraph retains its proper style (Page Number and Footer respetively). Anyone have any ideas as to what's going on? Many thanks for any input! Sub ReformatFooter() Dim i As Integer Dim afooter As HeaderFooter Dim myrange As Range Dim myCenterTab As Long With ActiveDocument For i = 1 To .Sections.Count With .Sections(i) For Each afooter In .Footers With afooter.Range .Delete .Style = "Footer" End With Next afooter End With Next i For i = 1 To .Sections.Count With .Sections(i) For Each afooter In .Footers ActiveDocument.Fields.Add _ Range:=afooter.Range, _ Type:=wdFieldEmpty, _ Text:="DOCPROPERTY ""DMSLink.Reference"" ", _ PreserveFormatting:=True With afooter.Range .Font.Bold = False .Font.Size = 8 End With Next afooter Set myrange = .Footers(wdHeaderFooterPrimary).Range If .PageSetup.DifferentFirstPageHeaderFooter = False Then With .Footers(wdHeaderFooterPrimary).PageNumbers .Add PageNumberAlignment:=wdAlignPageNumberCenter, _ FirstPage:=True .RestartNumberingAtSection = False End With ElseIf .PageSetup.DifferentFirstPageHeaderFooter = True Then With .Footers(wdHeaderFooterPrimary).PageNumbers .Add PageNumberAlignment:=wdAlignPageNumberCenter, _ FirstPage:=False .RestartNumberingAtSection = True .StartingNumber = 1 End With End If End With Next i End With End Sub Tag: Retrieving the Auto Number Tag: 55349
  - 20
    - StoryRanges collection I have seen numerous posts on the functional method for updating all fields in a document: Dim oRange As Range For Each oRange In ActiveDocument.StoryRanges Do oRange.Fields.Update Set oRange = oRange.NextStoryRange Loop Until oRange Is Nothing Next What I haven't seen is an explanation of why this method is necessary. Is there something wrong with the StoryRanges collection? Normally, a For Each construct would suffice to loop through the members of a collection, so why with StoryRanges is it necessary to also loop through the collection using the NextStoryRange method until its return is Nothing? Furthermore, it seems like the code above should update the fields in each StoryRange multiple times, the number of times being equal to the number of StoryRanges in the document. Hoping somebody can fill in the blanks. Regards, Chad Tag: Retrieving the Auto Number Tag: 55345
  - 21
    - Range delete also removes leading space?!? I set a range to encompass one line, which is an entire paragraph by itself. This line begins with a space. After doing some things, I collapse the range to the start and MoveStart to the beginning of the document using: rngFind.Collapse Direction:=wdCollapseStart rngFind.MoveStart Unit:=wdStory, Count:=-1 For debugging, I put in Range.Select - the selected text is exactly what I want: everything from the first character of the doc to the paragraph mark just before the original range. The now-set range does not include the leading space of the original range. When I delete this second range I have set, the leading space of the original range is also removed. Is this normal and consistent Word behavior? Is there a setting that will turn this off? Or a better way to set the second range? Ed Tag: Retrieving the Auto Number Tag: 55340
  - 22
    - Opening a word 2000 document based on template other than normal.d Hi! I built a template Custom.dot. I built a menu which the users can click to open another specialty document. I call Set objDoc = Documents.Open(pstrDocLocation & pstrDocName) to open a new document. However, the new document is based on the Normal template rather than Custom.dot template. How can I force new documents to use other templetes? I can not seem to figure out. I tried Dim myTemplate As Template Set myTemplate = ActiveDocument.AttachedTemplate objDoc.AttachedTemplate = myTemplate but got error message that I can not replace protected template. I am not sure what it is or whether I am on thr right track ? Please let me know what I am doing wrong. Many Thanks in Advance, Tag: Retrieving the Auto Number Tag: 55336
  - 23
    - Ini File help Hi Folks, Is it possible to have a subsection in an ini file? e.g. [MainSection] 'values in here describing whatever [SubSection 1] 'more values [SubSection 2] 'more values again. Cheers J Tag: Retrieving the Auto Number Tag: 55313
  - 24
    - How to find the top row of a table I am using vb6 to control Word. I have a table that spans multiple print pages. How can I find the top row on each new page so I can add a header row? Any help is appreciated. Thanks in advance, WayneM Tag: Retrieving the Auto Number Tag: 55295
  - 25
    - String variable question: if more than 2 words, how to reduce to first 2? One more question about string manipulations, if anyone still has the patience to deal with these. Thanks to Helmut, Jay, and Greg, I can now extract a font name from a symbol field, with results(in the macro for which this will be useful) that look like this: WP MultinationalA Roman WP MultinationalB Courier WP TypographicSymbols (no space after Typographic) Multinational Ext Typographic Ext etc. etc Some of these font names consist of three words; some have only two. (It's possible that some will have only one word, but I haven't encountered any yet.) I want to be able to take any font name that has three words and reduce the name to the first two words only, so that the first and second items in the list above will *both* return: WP MultinationalA I've been struggling with the functions found here: http://www.romankoch.ch/capslock/strfun.htm but haven't had any luck. Any help gratefully received. Edward Mendelson Tag: Retrieving the Auto Number Tag: 55293

Does anybody know how I could the auto number in a selection:

Example:

1. Blah
2. Blah blah.

'1' and '2' are automatically inserted using the auto numbering feature in
word. When I select (say) 'Blah'; I cannot, of course, select '1' along with
it ('1' is an auto number). So, is there a VBA code where I can get the auto
number which is associated with the text as well?

Thanks & regards,
vince

Top

Re: Retrieving the Auto Number by Word

Word
Thu Aug 26 23:49:47 CDT 2004

G'day "fdde" <sdsad@fsd.com>,

It is in the listformat of the paragraph or listparagraph.

Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)

fdde reckoned:

>Does anybody know how I could the auto number in a selection:
>
>Example:
>
> 1. Blah
> 2. Blah blah.
>
>'1' and '2' are automatically inserted using the auto numbering feature in
>word. When I select (say) 'Blah'; I cannot, of course, select '1' along with
>it ('1' is an auto number). So, is there a VBA code where I can get the auto
>number which is associated with the text as well?
>
>Thanks & regards,
>vince
>

Top

Re: Retrieving the Auto Number by fdde

fdde
Fri Aug 27 01:07:25 CDT 2004

thank you. Found it!
vince
"Word Heretic" <myfullname@tpg.com.au> wrote in message
news:oafti0hqj9qug4hgj62jkmstnn9di0qc8b@4ax.com...
> G'day "fdde" <sdsad@fsd.com>,
>
> It is in the listformat of the paragraph or listparagraph.
>
> Steve Hudson - Word Heretic
> Want a hyperlinked index? S/W R&D? See WordHeretic.com
>
> steve from wordheretic.com (Email replies require payment)
>
>
> fdde reckoned:
>
> >Does anybody know how I could the auto number in a selection:
> >
> >Example:
> >
> > 1. Blah
> > 2. Blah blah.
> >
> >'1' and '2' are automatically inserted using the auto numbering feature
in
> >word. When I select (say) 'Blah'; I cannot, of course, select '1' along
with
> >it ('1' is an auto number). So, is there a VBA code where I can get the
auto
> >number which is associated with the text as well?
> >
> >Thanks & regards,
> >vince
> >
>

Top