Grabbing specific text using vba

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Grabbing specific text using vba Tag: 55479
  - 2
    - 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: Grabbing specific text using vba Tag: 55476
  - 3
    - 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: Grabbing specific text using vba Tag: 55475
  - 4
    - 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: Grabbing specific text using vba Tag: 55468
  - 5
    - 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: Grabbing specific text using vba Tag: 55464
  - 6
    - 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: Grabbing specific text using vba Tag: 55463
  - 7
    - 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: Grabbing specific text using vba Tag: 55456
  - 8
    - 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: Grabbing specific text using vba Tag: 55438
  - 9
    - 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: Grabbing specific text using vba Tag: 55437
  - 10
    - 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: Grabbing specific text using vba Tag: 55436
  - 11
    - 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: Grabbing specific text using vba Tag: 55434
  - 12
    - 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: Grabbing specific text using vba Tag: 55433
  - 13
    - 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: Grabbing specific text using vba Tag: 55423
  - 14
    - 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: Grabbing specific text using vba Tag: 55422
  - 15
    - 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: Grabbing specific text using vba Tag: 55417
  - 16
    - 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: Grabbing specific text using vba Tag: 55416
  - 17
    - 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: Grabbing specific text using vba Tag: 55410
  - 18
    - 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: Grabbing specific text using vba Tag: 55409
  - 19
    - 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: Grabbing specific text using vba Tag: 55404
  - 20
    - 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: Grabbing specific text using vba Tag: 55401
  - 21
    - 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: Grabbing specific text using vba Tag: 55400
  - 22
    - 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: Grabbing specific text using vba Tag: 55397
  - 23
    - 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: Grabbing specific text using vba Tag: 55386
  - 24
    - 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: Grabbing specific text using vba Tag: 55376
  - 25
    - 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: Grabbing specific text using vba Tag: 55371
- Next
  - 1
    - 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: Grabbing specific text using vba Tag: 55369
  - 2
    - 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: Grabbing specific text using vba Tag: 55368
  - 3
    - 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: Grabbing specific text using vba Tag: 55366
  - 4
    - 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: Grabbing specific text using vba Tag: 55363
  - 5
    - 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: Grabbing specific text using vba Tag: 55359
  - 6
    - 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: Grabbing specific text using vba Tag: 55349
  - 7
    - 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: Grabbing specific text using vba Tag: 55345
  - 8
    - 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: Grabbing specific text using vba Tag: 55340
  - 9
    - 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: Grabbing specific text using vba Tag: 55336
  - 10
    - 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: Grabbing specific text using vba Tag: 55313
  - 11
    - 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: Grabbing specific text using vba Tag: 55295
  - 12
    - 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: Grabbing specific text using vba Tag: 55293
  - 13
    - How to transfer a custom toolbar to another word install? I have a bunch of vba routines linked to a custom commandbar and it's buttons. I've moved the .dot file that the new docs are based on to a new computer, and was a bit surprised to see that the custom commandbar didn't make the trip (word 2000). In Access commandbars go with the mdb file; are word command bars only in the registry or something? Or did I miss something, and it is there somewhere? Tag: Grabbing specific text using vba Tag: 55287
  - 14
    - Prevent commas & pounds being entered into textbox I have a textbox in my userform for a price to be entered. Because of the way we intend to use the information, the price needs to be purely numeric - no pound signs and no commas or full stops. Somebody on the boards helped me out with the following piece of code, which throws up a messagebox if the user tries to put text in the textbox, but I also need to somehow prevent them from entering commas or pound signs. Because I don't really understand exactly what this code is doing (what's the CLng bit all about?), I have no idea how to tweak it into doing what I want. Can anyone provide any suggestions? Private Sub txtPrice3_exit(ByVal cancel As MSForms.ReturnBoolean) Dim x As Long On Error GoTo Invalid If txtPrice3.Text = "" Then Exit Sub x = CLng(txtPrice3.Text) Exit Sub Invalid: MsgBox "Price must be a number." & vbCrLf & vbCrLf & _ "Please don't use any pound signs (Â£) or other punctuation.", _ vbExclamation, "Invalid Price!" txtPrice3 = Null cancel = True End Sub Tag: Grabbing specific text using vba Tag: 55282
  - 15
    - sing VBScript Regex in Word VBA Someone might find this handy. Having gotten comfortable using the VBScript RegExp Object via COM in Excel, I wanted to use it also in Word just as a handy little precise and efficient search and replace utility. Could not find any suggestions on how to do that exactly. Googling these groups, I saw a lot of references to Graham Mayor's article "Finding and Replacing Characters Using Wildcards" (http://www.mvps.org/word/FAQs/General/UsingWildcards.htm) but after I read it it seemed I'd have to learn 2 sets of meta- characters, a different behavior (non-greedy by default) and the wildcard set does not offer any lookaround facility. So, I piddled and I finally got it. An interactive fxn (procedure) I put in my custom menu. It is very quick and I can be very precise: For a Selection: Sub RegExInterSel() Dim regEx As VBScript_RegExp_55.RegExp Dim withWhat As String Dim newStr As String Set regEx = New VBScript_RegExp_55.RegExp With regEx .Pattern = InputBox("Replace What?") .Global = True .IgnoreCase = False End With withWhat = InputBox("With What?") If regEx.Test(Selection.Text) Then Selection.Text = regEx.Replace(Selection.Text,withWhat) End If End Sub For the whole document: Sub RegExInterAll() Dim regEx As VBScript_RegExp_55.RegExp Dim withWhat As String Dim Sentence As Range Set regEx = New VBScript_RegExp_55.RegExp With regEx .Pattern = InputBox("Replace What?") .Global = True .IgnoreCase = False End With withWhat = InputBox("With What?") For Each Sentence In ActiveDocument.Range.Sentences If regEx.Test(Sentence.Text) Then Sentence.Text = regEx.Replace(Sentence.Text, _ withWhat) End If Next Sentence End Sub There are probly some inefficiences in the above, particular the latter using the Range object. Had trouble with that one. If I "replaced" using large Range text properties for the entire document, all formatting went away and I got a text file. This works. -- I'm gonna let you go now. Poseur Be whoever you want to be...it's the 'net! Tag: Grabbing specific text using vba Tag: 55279
  - 16
    - Detect if doc is already open in VBA I have a code routine that runs from MS Access 2000 that moves word docs to a different folder pepending on various factors. I'd like to be able to tell if a doc is already open; if it is, I'd have the routine skip the move attempt. Probably trapping for an error would work, but is there a property etc that can be diretctly interrogated for this? Tag: Grabbing specific text using vba Tag: 55276
  - 17
    - Ending the effect of a code. Hi, The macro below has an undesirable effect. ___________________________________________________ Sub LowLong() Dim wordrange As Range, lrange As Range, i As Long, j As Long Set wordrange = Selection.Range For i = 1 To wordrange.Characters.Count Set lrange = wordrange.Characters(i) Selection.Range.Font.Size = 10 Selection.Range.Underline = wdUnderlineSingle lrange.Font.Spacing = 5 wordrange.Font.Color = wdColorBrown Next i End Sub ___________________________________________________ After I have run it on a selected item (a word), I type in a space and start to type in the next word. The undesirable effect is that the macro applies itself to next word as well as I type it in. I don't understand how a macro which has already been executed can have an effect on items typed in after the macro has been run or what to do to stop it. Especially as the (i) has already been counted and and the next loop finished. Even more surprising for me, I notice that I have the same problem when I copy and paste in a word which has been preformated. It's formatting continues to have an effect on subsequent words. Thanks as always Tag: Grabbing specific text using vba Tag: 55273
  - 18
    - Save As to new location Am using Word 2002, using vb I would like to open up an existing word document, paste same text into it and then save that file to a new location and different file name. Any guidance & suggestions how to do this would be appreciated Thanks in advance Tom Tag: Grabbing specific text using vba Tag: 55267
  - 19
    - Macro to copy a word or phrase to a cell in Excel Hi all, I have a 200+ page Word document that I need to read and someho extract words/terms into a seperate file so that I can later check al these terms in a dictionary and then create a glossary of terms. I have just started and have been doing it like this: I have Word and Excel open next to each other. When I see a word that I want to check I double click it to highligh it > right click > Copy > Click the Excel screen > Clik the next cel down > right click > Paste > back to Word screen. After all that it is difficult to keep the reading flow going. Doe anyone know of a Macro that will help me automate this? (the word lis doesn't have to go into Excel) Or does anyone have any clever ideas of a better way to do this. Many thanks Rich -- Message posted from http://www.ExcelForum.com Tag: Grabbing specific text using vba Tag: 55266
  - 20
    - Select text between Hello Group, I've problem with selection text. How select text between "ABC" and "XYZ" where between ABC and XYZ is some text. Thx PawelR Tag: Grabbing specific text using vba Tag: 55264
  - 21
    - Using VBScript Regex in Word VBA Someone might find this handy. Having gotten comfortable using the VBScript RegExp Object via COM in Excel, I wanted to use it also in Word just as a handy little precise and efficient search and replace utility. Could not find any suggestions on how to do that exactly. Googling these groups, I saw a lot of references to Graham Mayor's article "Finding and Replacing Characters Using Wildcards" (http://www.mvps.org/word/FAQs/General/UsingWildcards.htm) but after I read it it seemed I'd have to learn 2 sets of meta- characters, a different behavior (non-greedy by default) and the wildcard set does not offer any lookaround facility. So, I piddled and I finally got it. An interactive fxn (procedure) I put in my custom menu. It is very quick and I can be very precise: For a Selection: Sub RegExInterSel() Dim regEx As VBScript_RegExp_55.RegExp Dim withWhat As String Dim newStr As String Set regEx = New VBScript_RegExp_55.RegExp With regEx .Pattern = InputBox("Replace What?") .Global = True .IgnoreCase = False End With withWhat = InputBox("With What?") If regEx.Test(Selection.Text) Then Selection.Text = regEx.Replace(Selection.Text,withWhat) End If End Sub For the whole document: Sub RegExInterAll() Dim regEx As VBScript_RegExp_55.RegExp Dim withWhat As String Dim Sentence As Range Set regEx = New VBScript_RegExp_55.RegExp With regEx .Pattern = InputBox("Replace What?") .Global = True .IgnoreCase = False End With withWhat = InputBox("With What?") For Each Sentence In ActiveDocument.Range.Sentences If regEx.Test(Sentence.Text) Then Sentence.Text = regEx.Replace(Sentence.Text, _ withWhat) End If Next Sentence End Sub There are probly some inefficiences in the above, particular the latter using the Range object. Had trouble with that one. If I "replaced" using large Range text properties for the entire document, all formatting went away and I got a text file. This works. -- I'm gonna let you go now. Poseur Be whoever you want to be...it's the 'net! Tag: Grabbing specific text using vba Tag: 55263
  - 22
    - Prompt to save doc as "NAME.doc" after opening in code? From MS Access 2000 I'm opening word 2000 docs via code, and inspecting the BuiltInDocumentProperties("Keywords") property. In theory I change nothing in the doc. However when I try to close the active document, a dialog pops up suggesting I save the doc I'd opened via code as "NAME.doc". Can't figure out why? Something triggered by looking into BuiltInDocumentProperties? Calling .Save doesn't seem to help, and that seems wrong anyways... Code snippet: dim objWord as Object ' etc other vars Set objWord = CreateObject("Word.Application") strDir = "C:\" strDirFileRequest = strDir & "*.doc" strFileName = Dir(strDirFileRequest) Do While strFileName <> "" strPathFileName = strDir & strFileName objWord.Documents.Add strPathFileName strDocKeywords = objWord.ActiveDocument.BuiltInDocumentProperties ("Keywords") if strDocKeywords = "Something" then 'whatever, nothing to do with Word end if objWord.ActiveDocument.Close strFileName = Dir Loop set objWord = Nothing Tag: Grabbing specific text using vba Tag: 55260
  - 23
    - Re: Cursor position and select Hi Now I understand what autotext is and I got it to work but I was rather hoping to create my own menu with sub menus where you could click on a word and it would appear in the document.(not to have it under 'automatic insertion' + 'normal' where there are no sub menus) Strangely enough, this option doesn't seem to be possible in Word. The words to add must be present in Autotext /normal first. Am I right here? If so, I'll try to create a form with labels and menus where I can add in lists of morphs, prefixes , suffixes etc This is possible I assume? I seem to remember that there is a form (or a tool in a form) from where you can copy and then paste. I am only confirming this so I don't waste any time trying to do the impossible. Have a nice weekend. "Dave Neve" <NoAdressForSpammers@Nofs.fr> a écrit dans le message de news:... > Hi > > Thanks for the try but there is a '5941 error' on two consecutive lines when > I try to run it (starting on line 'Normal Template' > > What's more, I see that you declare 'm' as Long but it is never used in the > code. > > Something escapes me here. > > Please could you explain this? > > Thanks in advance > > Dave Neve > > > "Helmut Weber" <elmkqznfwvccbf@mailinator.com> a écrit dans le message de > news:c64ei05lvc4fbute0jjmnufctil3e9u22t@4ax.com... > > Hi Dave, > > how about this one: > > Sub Test123() > > Dim r As Range ' the range of the inserted autotext > > Dim l As Long ' the start of that range > > Dim m As Long ' the end of that range > > Set r = Selection.Range > > l = r.Start > > NormalTemplate.AutoTextEntries("Betreff:").Insert _ > > Where:=Selection.Range, RichText:=True > > r.End = Selection.Range.Start > > r.Font.Color = wdColorRed > > End Sub > > --- > > Greetings from Bavaria, Germany > > Helmut Weber, MVP > > "red.sys" & chr(64) & "t-online.de" > > Word XP, Win 98 > > Tag: Grabbing specific text using vba Tag: 55259
  - 24
    - Microsoft Works Hey, Does anyone no where i can get Microsoft Words? And is it free? Thanks, ~Chris Tag: Grabbing specific text using vba Tag: 55255
  - 25
    - A macro to fix empty boxes, wrong symbols in imported WP files (ALMOST READY) Thanks again to Helmut Weber, I *almost* have a macro that solves this common problem: A user creates a file in WordPerfect (on a system that has the WP TypographicSymbols and other WP fonts installed); the same user opens the file in Word and saves it in Word format. The user then sends the Word file to another user who does NOT have the WP TypographicSymbols font installed; The other user opens the Word file and sees A and @ instead of typographic quotation marks, C instead of a dash, etc. (There was a plea for help about this kind of problem in microsoft.public.word.conversions a few days ago.) As far as I can tell, up to now there has been no easy solution to this, but here is how it can be done. First, save the problem file in Word for Windows 2.0 format (Word 2003, as shipped, can not save documents in WinWord 2.0 format, but if you copy WNWRD232.CNV from a system with Word 2002 to the ...\TextConv folder in a system with Word 2003, and then restart Word - or it may be necessary to restart Windows - Word 2003 can save files in WinWord 2.0 format). Then close the document on screen and immediately re-open it. (All this can be done with a macro.) Now use Alt-F9 or ActiveWindow.View.ShowFieldCodes = True to make field codes visible (and display them as shaded with ActiveWindow.View.FieldShading = wdFieldShadingAlways). All the "wrong characters" will now be revealed to be field codes that look like this (the example is the em-dash character): {symbol 64 \f "WP TypographicSymbols" \s 12} 64 is the symbol number in the WP TypographicSymbols font and 12 is the size (which we are going to ignore for the sake of sanity). Now, using Helmut's code, here is a macro that will replace all instances of one wrong character with the matching native Windows character. The trouble is that the macro as written only replaces all instances of one character and then quits. I obviously (at least I *think* it's obvious) need a For Each ... Next loop (as indicated by comments), but I can't figure out exactly what the For Each ... Next code should look like (I also need to enclose the routines in ones that will loop through all document ranges, but that shouldn't be too difficult, using code by Doug Robbins and Peter Hewett.) Here is the code Sub FixWrongSymbols003() ' Engine and all intelligent parts by Helmut Weber Dim rDcm As Range Dim rFnd As Range Set rDcm = ActiveDocument.Range Dim iSym As Long ' symbol number Dim fSym As String ' font name Dim rChr As String ' replacement character number Resetsearch '''' For Each WHAT needed here? With rDcm.Find .Text = "^19symbol" While .Execute Set rFnd = rDcm.Duplicate With rFnd.Find '.Text = " [0-9]{1;}" ' German .Text = " [0-9]{1,}" ' English .MatchWildcards = True If .Execute Then iSym = Trim(rFnd.Text) ' symbol number 'msgBox (iSym) ' var 1 End If End With Set rFnd = rDcm.Duplicate With rFnd.Find .Text = "^34*^34" .MatchWildcards = True If .Execute Then fSym = rFnd.Text ' font name 'msgBox fSym 'var 2 End If End With Select Case fSym Case Chr(34) & "WP TypographicSymbols" & Chr(34) Select Case iSym Case 64: rChr = """" ' closing typographic quotation mark Case 65: rChr = """" ' open typographic quotation mark Case 66: rChr = ChrW(&H2013) ' en dash Case 67: rChr = ChrW(&H2014) ' em dash Case Else rChr = "9999999" End Select Case Else rChr = "9999999" End Select msgBox (rChr) If rChr <> "9999999" Then ReplaceSymbol fSym, iSym, rChr End If Wend End With ''''' Next WHAT needed here? Resetsearch End Sub Private Sub Resetsearch() With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute End With End Sub Private Sub ReplaceSymbol(fSym, iSym, rChr) Dim sSym As String ' convert symbol number as long to string sSym = CStr(iSym) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^19symbol " & sSym & " \f " & fSym .Replacement.Text = rChr .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Can anyone help with what I think is a simple question that any non-beginner can answer?? Many thanks again. Edward Mendelson Tag: Grabbing specific text using vba Tag: 55254

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/

Top

Re: Grabbing specific text using vba by Helmut

Helmut
Thu Aug 26 02:44:41 CDT 2004

Hi,
e.g.
Dim r As Range
Set r = Selection.Range
r.Start = 12 ' character 12 in doc
r.MoveEndUntil "!" ' next exclamation-mark
MsgBox r.Text
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Top