highlight all when using Find

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Testing for ansi 0145 and ansi 0146 in selection Dear all, 1) I'm looking for a way to test whether the ansi-0145 and/or ansi-0146 (curly quotes ` and ') are present in a selection. Does anyone know a method to tackle this problem? I do know how to evaluate a selection character by character, so that's not the problem. I tried the "asc" function, but that doesn't do the trick. 2) And I also would like to find a way to insert text containing these ansi characters using VBA code. I ask this in the same thread, since I suspect that the solution of both questions may be based on the same principle. Best regards, AndY ^^^^ Tag: highlight all when using Find Tag: 54522
  - 2
    - Hide styles In a specific template users should not be able to apply the default styles to the text. I would like to hide the default styles so that only custom styles are visible. I think it can be done in Word XP, but I'm on Word 2000 so I think that I have to use VBA to create a solution. Can it be done? Tag: highlight all when using Find Tag: 54519
  - 3
    - Find and Replace crash when installing Office Security Patch kb830349 Hi, I am doing Find and Replace in MS Word from VB Code. It was working fine till I installed Office Patch(kb 830349). There is a piece of code in which I am doing find and replace in my document, actually replacing some text in the document with a link object. The code is as follows '---------------------------------------------------------- Set objRange = letter.Content With objRange.Find .ClearFormatting If Not .Execute(FindText:="[BodyText]") Then Set objRange = Nothing End If End With letter.Fields.Add Range:=objRange, Type:=wdFieldLink, Text:="Word.Document.8 ""c:\\Socrates\\Templates\\Temp\\RTFTemp.rtf"" \a \r" Set objRange = Nothing '---------------------------------------------------------- This piece of code was working fine before the update was installed. After the update install, it gives an error after line: .ClearFormatting "Class does not support Automation or does not support expected interface". After clicking OK, Memory read error occurs and the application terminates and if I am running from VB, then it also closes. Any solution for this will be greatly appreciated Thanks in advance, Manish Katiyar Tag: highlight all when using Find Tag: 54516
  - 4
    - StyleRef in following pages Template used Heading 1 style at start of new part of report. Heading 1 has "page break before" so it is always at the top of page. Report part may be one or many pages. I need to create a page header that is -- blank on the page containing a Heading 1 style entry; but on later pages the header is "[heading1 text] continued.." So far as I can see a {StyleRef "Heading 1"} entry will put the [heading text] on every page, but I need to supress it on the first page, and display it (plus the "continued..") on subsequent pages. Any Ideas, please? Tag: highlight all when using Find Tag: 54508
  - 5
    - Checking for bookmark How do I get a template to check for a bookmark (or a variable, or text etc) and if it is present, run a userform? Once the userform has been filled in, I want to delete this once user has clicked OK. Tag: highlight all when using Find Tag: 54507
  - 6
    - Custom Toolbar within Template I have create a custom toolbar which leave within a Startup Template. When clicked, this toolbar runs the following code which inserts a hyperlink. Sub Hyperlink() Dim fd As FileDialog, displaytext As String 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog (msoFileDialogFilePicker) 'Use a With...End With block to reference the FileDialog object. With fd 'Set the initial path to the Agenda Attachments folder. .InitialFileName = "\\alchemy\data\processes\documents\agenda attachments\" .Title = "Select the File to which you want to create the link" 'Use the Show method to display the File Picker dialog box and return the user's action. 'If the user presses the action button... If .Show = -1 Then displaytext = .SelectedItems(1) While InStr(displaytext, "\") > 0 displaytext = Mid(displaytext, InStr (displaytext, "\") + 1) Wend displaytext = Left(displaytext, Len (displaytext) - 4) ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=.SelectedItems(1), TextToDisplay:=displaytext ' 'If the user presses Cancel... Else End If End With 'Set the object variable to Nothing. Set fd = Nothing End Sub The problem I am now having is that when the document (new doc based on template) is saved, it changes the hyperlink from \\alchemy\data\processes\documents\agenda attachments\(filename) to ..\data\processes\documents\agenda attachments\(filename) so it loses it's link. Any ideas why? Tag: highlight all when using Find Tag: 54506
  - 7
    - Removing a custom commandbar Hi, I have added a few custom commandbars in Word, but not matter what I do they keep coming back. I have tried deleting using the Customize window and it deletes until I load Word again. I have also tried deleting via VBA and the same happens. The code I used to create is on a different Doc. Any ideas on how to get shot of them? Thanks Tag: highlight all when using Find Tag: 54503
  - 8
    - Trouble installing ADO reference library Trying to install the ADO reference library in Word (2000 to 2003), but there are some problems with this. One of them is that variables can't be declared as ADO objects if this is not installed, causing the error: compile error: User-defined type not defined So this can't work: Public ADOConn As ADODB.Connection I can declare as variant and then do: Set ADOConn = CreateObject("ADODB.Connection") rather than Set ADOConn = New ADODB.Connection But then for some reason ADO doesn't install. I just can't figure this out and wonder what the best way is to approach this. This is my routine that installs ADO: Sub AddADO() 'this has to be in a different module as the module where there is the 'declaration: Public ADOConn As ADODB.Connection, otherwise there will be 'a compile error: User-defined type not defined 'the other option would be to declare ADOConn as variant '------------------------------------------------------------------------ Dim R For Each R In Application.VBE.ActiveVBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '--------------------------------------------------------------------------- - Application.VBE.ActiveVBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: MsgBox "CAN'T RUN THIS CODE" & vbCrLf & vbCrLf & _ "ADO 2.x IS NOT ON THIS COMPUTER" End Sub Thanks for any advice. RBS Tag: highlight all when using Find Tag: 54501
  - 9
    - Metafile Problem Word 2003/VB6 The following code places an EMF onto the clipboard and when pasted into a Word 97 or Word 2000 document, displays a yellow square surrounded by a blue border. But in Word 2003 the blue border disappears. Can anybody please explain why? Excuse code (I'm no programmer) The code needs a command button and picturebox on the form and was written in VB6. *************************************************** Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function CreateEnhMetaFile Lib "gdi32" Alias _ "CreateEnhMetaFileA" (ByVal hdcRef As Long, _ ByVal lpFileName As String, lpRect As RECT, _ ByVal lpDescription As String) As Long Private Declare Function CloseEnhMetaFile Lib "gdi32" (ByVal _ hDC As Long) As Long Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long Private Declare Function DeleteEnhMetaFile Lib "gdi32" (ByVal _ hemf As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal _ wFormat As Long, ByVal hMem As Long) As Long Private Declare Function MoveToEx Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, lpPoint As Any) As Long Private Declare Function LineTo Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long) As Long Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal _ wFillType As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, _ ByVal hObject As Long) As Long Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, _ ByVal nWidth As Long, ByVal crColor As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Const FLOODFILLBORDER = 0 Const FLOODFILLSURFACE = 1 Const CF_ENHMETAFILE As Long = 14 Const PS_SOLID = 0 Dim myrect As RECT Private Sub Command1_Click() myrect.Left = 0 myrect.Top = 0 myrect.Right = Picture1.Width myrect.Bottom = Picture1.Height metadc = CreateEnhMetaFile(Picture1.hDC, vbNullString, myrect, metafilename) myPen = SelectObject(metadc, CreatePen(PS_SOLID, 5, 65535)) MoveToEx metadc, 20, 20, ByVal 0& LineTo metadc, (Picture1.Width / 36), 20 LineTo metadc, (Picture1.Width / 36), (Picture1.Height / 36) LineTo metadc, 20, (Picture1.Height / 36) LineTo metadc, 20, 20 fillbrush = SelectObject(metadc, CreateSolidBrush(vbBlue)) x = ExtFloodFill(metadc, 0, 0, 65535, FLOODFILLBORDER) HmetacloseDC = CloseEnhMetaFile(metadc) api_return = OpenClipboard(Picture1.hwnd) If api_return > 0 Then EmptyClipboard SetClipboardData CF_ENHMETAFILE, HmetacloseDC CloseClipboard Else DeleteObject HmetacloseDC End If DeleteEnhMetaFile HmetacloseDC DeleteEnhMetaFile HcopymetaDC End Sub Hope someone can help Demonic Tag: highlight all when using Find Tag: 54495
  - 10
    - select text and assign to variable My document has four lines of text. Each line ends with a paragraph mark. How do I select the first line and assign it to string variable sItem1 select the second line and assign it to string variable sItem2 select the third line and assign it to string variable sItem3 select the fourth and assign it to string variable sItem4? I'm new to vba for word 2002 and any pointers in the right direction will be most appreciated. -- Regards, David Tag: highlight all when using Find Tag: 54488
  - 11
    - Why won't my switch-language key setting (Ctrl-Shift) work in Word My language switch key key (Shift-Ctrl) has stopped working in Word2002. It works in other apps. I had added a bunch of macros to normal.dot. But even when I removed them, the language-key switcher is still dead in word. Suspected a textbridge add-in (tbrun9.dot), but removing it didn't help. Any ideas? Tag: highlight all when using Find Tag: 54480
  - 12
    - Exit a Macro While debugging a macro, there are times I would like to exit the macro at a certain point. Is there a command to do that? Tag: highlight all when using Find Tag: 54479
  - 13
    - Paragraph Smasher Macro--to Improve? Hi, I've written a VBA script (for Microsoft Word 2000 on the PC) that highlights the current paragraph, then breaks it up into sentences that are separated by paragraph marks. Now the author can analyze the structure of the writing, and move the sentences around. The script adds double paragraph marks after "." "!" "?" and ";". Afterwards, it also removes the new, unnecessary paragraph marks after "Mr." "Ms." "Mrs." "a.m." and "p.m." However, it doesn't fix other abbreviations. I was wondering if someone can improve this macro. Thanks. Here's the script. - - - Sub Paragraph_Smasher() ' ' Paragraph_Smasher Macro breaks up a paragraph to help you see each sentence ' Select the current Paragraph Selection.StartOf Unit:=wdParagraph Selection.MoveEnd Unit:=wdParagraph ' Put double paragraph marks after periods Do Selection.Find.ClearFormatting ' Use the Find object to search for text. With Selection.Find .Text = ". " ' Use the replacement object to replace text. .Replacement.Text = "~.~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With ' If no more occurrences, exit the loop. If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~.~" .Replacement.Text = "." .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Remove paragraph marks after instances of "Mr." "Ms." Mrs." Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mr.^p^p" .Replacement.Text = "Mr. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Ms.^p^p" .Replacement.Text = "Ms. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mrs.^p^p" .Replacement.Text = "Mrs. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put instances of a.m. and p.m. back together Do Selection.Find.ClearFormatting With Selection.Find .Text = "a.^pm.^p" .Replacement.Text = "a.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "p.^pm.^p" .Replacement.Text = "p.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after exclamation marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "! " .Replacement.Text = "~!~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~!~" .Replacement.Text = "!" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after question marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "? " .Replacement.Text = "~?~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~?~" .Replacement.Text = "?" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after semicolons Do Selection.Find.ClearFormatting With Selection.Find .Text = "; " .Replacement.Text = "~;~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~;~" .Replacement.Text = ";" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop End Sub -- Please delete "ANTI-SPAM" from email address daveg7777777@ANTI-SPAMyahoo.com David Godinger: Go player, student of Mahatma Gandhi, the Buddha, and Dr. Martin King Tag: highlight all when using Find Tag: 54477
  - 14
    - Merge many Word documents using a Excel macro I have created a macro that uses an Excel spreadsheet to merge many Excel files together. The spreadsheet has file name and location information. I want to do the same for many Word documants. Currently I have a Word macro that simply creates a new word document then just adds and formats all the required documents. What I want to do is add another tab on the Excel spreadsheet and have all of the file name and location information for the Word documents there and have Excel create the Word document. I have taken some code from another post and it seems to almost work... Dim wrdAPPnew As Word.Application Dim wrdDOCnew As Word.Document Set wrdAPPnew = CreateObject("Word.Application") wrdAPPnew.Visible = True With wrdDOCnew . . . Selection.InsertFile Filename:=currentInsertFileName, Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False . . . End With The "Selection.InsertFile..." command works fine while inside Word but not from within Excel even though I have referenced the "Microsoft Word 10.0 Object Library". When run I get a Run-time error 438, object doesn't support this property or method. Any ideas are appreciated Alan Parekh Tag: highlight all when using Find Tag: 54475
  - 15
    - Newbie Question Hey all, I got started with VBA using MS Access. I'm now trying to learn to apply it to Word. At this point, I'm not even sure of what events there are, besides open, close, and new, that I can use to trigger my code. I have no idea how to use form controls, etc. Anyone have any suggestions (and I'm sure you do) of what I could read to get me started? Thanks grep Tag: highlight all when using Find Tag: 54457
  - 16
    - Ignore All (spell check) on words with curly quotes In Word 2000 and Word XP, when I check the spelling of a document that contains curly quotes, words that contain an apostrophe are not included in the Ignore All list when I click a misspelled word in the text and select the Ignore All option. (The curly quotes are formed by the AutoFormat As You Type option for replacing "Straight Quotes" with "Smart Quotes"). Example: What was Bwa'ana looking for? In this example, Bwa'ana is considered two words, Bwa and ana. Now if I use only straight quotes, Bwa'ana is considered a single word, which is included in the Ignore All list. So now comes my question: Is there a way to have Word 2000 and XP include words with curly quotes in the middle into the Ignore All list (or in a custom dictionary, for that matter) as a single word? I know I can use a placeholder for the apostrophe and replace it after the spell check, but that can be quite inconvenient when you have lots of those words. TIA from AndY Tag: highlight all when using Find Tag: 54456
  - 17
    - Locating specific range points Here's my requirement: I have to find specific text located in various places in a document. Once I identify the location of a spceific character (ASCII 167 in this case), I need to locate the VERY NEXT ")" character. My selected range must start at the 167-char, and end at the ")" char. I then need to replace the text in that range with a hotlink (easy enough to do). What I need to know is: 1) How to identify the absolute character position of the first & last character, and set the RANGE to those values 2) Is there a different way to do that? If so, how? I'm using vB6. thanks!! Tag: highlight all when using Find Tag: 54448
  - 18
    - How get page numbers??? Hi!!!!! I need count numbers of pages of a document. How I get this number en VBA or VB.NET? Thanks in advance? Tag: highlight all when using Find Tag: 54441
  - 19
    - Document_Open() I have looked through and followed (to the best of my ability) the instructions on the MVP web site regarding having macros run when a document is opened based on a specific template. Let me explain what I need to do: I need a DOS (yes DOS) based application to: 1. Open Word. 2. Launch a template. 3. Run a mail merge macro. 4. Print the results. 5. Close Word. I have accomplished 1 and 2 by envoking Word from a command line using the /t switch to open a new document based on a specific template. I have accomplished 3, 4, and 5 in a macro. The problem is that I can't seem to figure out how to get 3, 4, and 5 to happen automatically when a new document is opened based on the template. I have tried using the Document_Open() procedure. However, I can only get it to work when I open the template, not when a new document is created based on the template. What am I missing? Thank bunches in advance for your help. Gilley Tag: highlight all when using Find Tag: 54439
  - 20
    - Template into the user's Word startup folder, macro name conflict When a template in a startup folder has a macro with the same name as a macro in normal.dot, which one will be executed ? How can I manage to have the macros in the template located in the startup folder detect that macro name conflict exist ? And better, how can a macro in the template remove a macro in normal.dot ? -- francois.piette@overbyte.be Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be Tag: highlight all when using Find Tag: 54438
  - 21
    - Word macros template, drop down list, save button Hi all I have a word document template that, using macros, opens up a new document containing mail merge values retrieved from the database. 1 I want to specify (in the document template) the name of the template that the new document opens up in. 2 I want to have a drop down list (in the template toolbar) that lists values from the database. 3 I want a button that automatically saves the document to a folder on the users hard drive. Thanks in advance for any help - greatly appreciated..... Simon Tag: highlight all when using Find Tag: 54437
  - 22
    - Multiple Tables and Ranges hi I would like to see vba code code tutorial online to have 3 tables with 3 different ranges so I can address teh cell of each table in each range. I run the macros of course but they do not seem to use this method. Thank you for your help. Tag: highlight all when using Find Tag: 54433
  - 23
    - Validation of text of bookmark entries Hello, I am using VBA for Word to validate whether a report Word Doc is fine. For this, I scan through the doc for certain bookmarks. If the bookmarks are not present at all, it is a major problem and I signal error and return. If the bookmarks are present, I would like to read the text soon after the bookmark and check if it is not empty. That is all. But I am not able to do this. Can anyone point me how to do this? Currently the code that I use to scan for the bookmarks is thus: If ActiveDocument.Bookmarks.Exists("bkMark") = False Then bInvalidReport = True strInvalidFields = strInvalidFields + Chr(10) + p_strField + " " Else ' TODO : Check for valid entries for the bookmarks End If For the Checking for valid entries, I have tried the following things, which do not work: Selection.GoTo What:=wdGoToBookmark, Name:="bkMark" If IsEmpty(Selection.Text) then .... This doesn't work because even if there is nothing after the bookmark but blank characters, the bookmark always contains some vague ASCII character. If I try ActiveDocument.Bookmarks.("bkMark").Empty = True .... then it always returns empty for me, indicating a problem with every field. Warm regards, Senapathy Tag: highlight all when using Find Tag: 54432
  - 24
    - Saving to Mac text I need, for production reasons, to save from Word 2003 to Western European (Mac)text format. This is possible from the Save As dialogue box but I cannot figure a way of doing it in a macro. If I simply record the macro it records the SAVEAS format:= as straight Windows text, which produces the wrong quote and double-quote symbols on the Mac. The Visual Basic Help is unhelpful on the point as it simply says the formats are listed in the SaveAs menu, and these are useless for the format:= "xxxx" line. I got a listing of filters using the sample FileConverter code but this does not include Western European (Mac). Any suggestions? Tag: highlight all when using Find Tag: 54429
  - 25
    - Return the frame anchored to a given paragraph Is there a way in VBA to return the (first/only) frame anchored to a given paragraph? I was hoping the Frame object had an Anchor property like a Shape does. Of course, it doesn't. Is there another way, perhaps by looping through all the frames in the doc to matching one of them with its "anchoree" paragraph? I'm stumped. TIA. -- Mark Tangard "Life is nothing if you're not obsessed." --John Waters Tag: highlight all when using Find Tag: 54427
- Next
  - 1
    - Changing the attached document I have a situation where I want to change the template (from TemplateA to TemplateB) attached to the active document, and then save and close the document. When I subsequently reopen it, it should be based on the new template (TemplateB) I can do exactly this using Word's menus and all's well. - open the document, then go to Tools|Templates and Add-ins - click Attach and select a different template - Save and Close the document So I want to put the code in TemplateA that emulates using the menu system. I did this: Public Sub ChangeTemplate With ActiveDocument MsgBox "Change template from" & .AttachedTemplate .AttachedTemplate = "C:\MyTemplates\TemplateB.dot" MsgBox "Changed template to TemplateB.dot" .Close saveChanges:=wdSaveChanges End With End Sub Then I create mydoc.doc, based on TemplateA.dot and save it. Then I execute the ChangeTemplate Function. And as soon as I change the .AttachedTemplate property of the ActiveDocument, things get wacky. The code that follows that statement (the MsgBox and Close) don't execute. If I then tell Word to save and close the document, when I reopen the doc, Word immediately asks if I want to save it. If I say yes, it closes the doc. If I say no, it closes the doc. If I cancel, I get an error 4198. Whew! I think I'm screwing VBA's state and clearly I'm messing up the document.. Can anyone help with this function? thanks in advanc, gary Tag: highlight all when using Find Tag: 54426
  - 2
    - "trigger macro on exit" for text boxes & radio buttons I have constructed a form that has 8 alternatives: 4 radio buttons (i.e., insert row above or below, or insert column to the right or to the left); & 4 text boxes (i.e., insert (how many) rows above or below, & insert (how many) columns to the rigth or left, And an OK button and a Cancel button. I can't figure out how to set the radio buttons (& the text boxes) so that choosing one radio button (or inserting a 1 or 2 digit number in a text box) will grey out & assign null values (or something like that) to any buttons (or text boxes) that previously contained values. Drop-down form fields have options that allow the user to trigger a macro on exit. I wish that text boxes and radio buttons had such an option, because I would use the "trigger macro on exit" to somehow grey out & assign null values (or something like that) to any buttons (or text boxes) that previously contained values. Tag: highlight all when using Find Tag: 54421
  - 3
    - 4609: "String too long" When you try to assign the value of a variable containing more than 255 characters to a FormField object, you will receive the following error: Run-time error '4609': "String too long". I would like to assign the value of a variable more than 255 characters to a FormField object. Are there any solution? Thanks for any help Tag: highlight all when using Find Tag: 54415
  - 4
    - Thrown against the wall (Will it stick?) Hi All, This is a bit long winded, so please stay with me. I recently became interested in making the return key funtion to advance between protected formfields. I found KB article 211219 which offered a plausible solution. However, the article specifically state that if other bookmarks or if fillin disabled formfields were used that additional code may be required. Things continued to work reasonably well during testing even after I inserted a few additional bookmarks and a few fillin disabled formfields. The enter key would cause the insertion point to jump to the next form field or if in the last form field, it would jump back to the first formfield. The only clich was that the first field following any fillin disabled field would not be "highlighted." The TAB key will cycle to and highlight each field, the Enter key would cycle each field and and highlight each field expect for fields following a fillin disbled field. I could figure out why these fields wouldn't highlight. I have very limited VBA knowledge, but I tried everything I could think of to reevaluate that field and expand the selection over the field range. Nothing would work. I even created another macro to run on entry to these specific fields and then select it. I was really baffled when the on entry macro had no effect but would work like a charm if ran manually. Finally it dawne on me that it could be a timing issue. I had previosly stashed away a snippet of code for causing a macor to "doze." for a bit. I think it was either Peter Hewett that posted it here earlier. I applied his Declaration statement, the Doze macro and called it in my code below. It appears a simple 1 ms pause was all I needed to identify the current field and select it. Now all formfields are selected and highlighted regardless of their location or the presence of fillin disabled fields. Here is my code. Thrown against the wall for your critical comments or suggestions for improvement. Thanks. Sub EnterKeyMacro() ' Include the following declaration in the Macro module: 'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim myFF, oFrm, oSelBkm Set oFrm = ActiveDocument.FormFields Set oSelBkm = Selection.Bookmarks If ActiveDocument.ProtectionType = wdAllowOnlyFormFields And _ Selection.Sections(1).ProtectedForForms = True Then myFF = oSelBkm(1).Name If oFrm(myFF).Name <> oFrm(oFrm.Count).Name Then oFrm(myFF).Next.Select 'I added these three lines. Doze 1 myFF = oSelBkm(1).Name Selection.GoTo What:=wdGoToBookmark, Name:=myFF Else oFrm(1).Select End If Else Selection.TypeText Chr(13) End If End Sub Sub Doze(ByVal lngPeriod As Long) DoEvents Sleep lngPeriod ' Call it in desired location to sleep for 1 second like this: ' Doze 1000 End Sub Tag: highlight all when using Find Tag: 54412
  - 5
    - graphic toolbar button What if we want to create a button on the toolbar in Word (97) that will, when the user clicks on it will place a graphic in the document. Is this possible? Thanks again, Beth Mc Tag: highlight all when using Find Tag: 54411
  - 6
    - Mail Merge Function Error Hi, Recently I upgraded from Win98/Off97 to WinXP/Off2003 as a result an Access Database App that previously worked fine now fails to run its MailMerge function correctly, and fails with the error "error 4605: this method or property is not available because it is not a mail merge main document". The code appears to execute fine up to the following portion of code, and drops out to err_ShowWord at the .Execute method ********************** ' ' Show the word document ' Sub ShowWord() Dim MyMerge As Object On Error GoTo err_ShowWord oaword.Application.Visible = True Set MyMerge = oaword.ActiveDocument.MailMerge With MyMerge .Execute End With Exit Sub err_ShowWord: MsgBox "Error number " & Err.Number & ": " & Err.Description MsgBox "Word Error! Unable to show Word" End Sub ********************** The Database has been converted to 2003, as has the .dot file in question. I have checked for Security Settings (Macro) and various other anomalies, but have been greeted with no joy. If more snippets of code is required for analysis let me know and I'll paste it in - the app is not huge, only 257 line in total.. Any ideas or sugestions would be greatly appreciated. Regards, Matty. Tag: highlight all when using Find Tag: 54408
  - 7
    - Autosave Does anyone know of a way to force word to do an autosave, on a document you have opened. I need to programatically get Word to do an Autosave. Tag: highlight all when using Find Tag: 54404
  - 8
    - Best way to import data from word. Hi, I need to build a word doc with fields for user input. The filled docs must then be imported into my corporate db. What do you suggest to use for the word document? Bookmarks, form fields or text controls? I'm able to import from bookmarks and from form fields but I don't know how to refer to the textboxes and comboboxes in a Document from Access VBA. Which collection contains those controls? I like form fields, but they works only when the document is protected and I need to be able also to modify some word paragraphs as needed... Thank you for your help Tag: highlight all when using Find Tag: 54403
  - 9
    - Word table column Is there a way to select an entire column in an MS Word table and change it so that its contents are formatted as $3.50 Values in the rows in this column are like 3.5 or 4.26. I need it to work in Word 2000 or above. Tag: highlight all when using Find Tag: 54397
  - 10
    - text is in capitals with the caps lock off Does anyone know why sometimes when typing the text is all in uppercase even though the caps lock is off and I can't turn this off. When you then put caps lock on, everything is in lower case. Have tried using format menu>change case, which works only for the highlighted text. It then reverts back to the same old problem once starting to type again. Any help solving this would be appreciated. Thanks. Tag: highlight all when using Find Tag: 54396
  - 11
    - Creating a macro in normal.dot from an external program using COM I have an external program that drive Word using COM. It works very well. Now I would like this program to check if a given macro exists and if not, create that macro and assign a keyboard shortcut to call it. I think the problem would be the same as to have a VBA macro doing the same work. I know how to implement a VBA macro from my outside program using COM. So if you know how a mcaro can create a macro, it's OK for me ! -- francois.piette@overbyte.be Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be Tag: highlight all when using Find Tag: 54390
  - 12
    - Accessing variable in closed document I use ActiveDocument.Variables("Audit") to store information in documents and this info is put into the variable on open and close of the document. Is there a way of access this variable in a closed document without it being opened first so there is no integrity issue or does it have to be open first. Also is it possible to reset this variable to empty in a closed document. cheers in anticipation Fred Tag: highlight all when using Find Tag: 54389
  - 13
    - VB cannot save as DOS-Text hi, I tried using these scripts, but the file cannot be read by Notepad, only in Wordpad. Anything wrong?? ActiveDocument.SaveAs FileName:="C:\MYOBInvoice.txt", FileFormat:= _ wdFormatDOSText, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False Tag: highlight all when using Find Tag: 54386
  - 14
    - Spelling and Grammer Options Can anybody tell me how to change following Spelling and Grammer options through VBA Tools-->Options-->Spelling & Grammer click "Settings" Tab under Grammer section 1. Comma required before last list item: always|never|don't check 2. Punctuation required with quotes: inside|outside|don't check 3. Space required between sentences: 1|2|don't check and other Grammer and Style options Thanks in advance Regards Ravi Tag: highlight all when using Find Tag: 54379
  - 15
    - Dictionary find Can somebody please tell me if I can get a true or false returned for a serach in the dictionary. I need a function like: IsPresent("Hello")=True IsPresent("fdhkfhdk")=False The CheckSpelling brings up the spelling form which I don't need. All I need is a True if it's present in the dictioanry or False if it isn't. Any help will be greatly appreciated. vince Tag: highlight all when using Find Tag: 54375
  - 16
    - Macrobutton problems Several days ago I posted the following message to this group. I received no replies, and I fear that this may be due to the fact that I may have been deemed guilty of cross-posting. And I did post the same message to another group previously, and from there I received this reply: > If there is VBA behind these buttons, it is probably a language > incompatibility. Check this in the appropriate Word VBA newsgroup. -- > Terry Farrell - Word MVP Here, then, is my post: I created a document in Word 2000 (US English version). It begins with a three column table. 38 of its cells contain macrobuttons; they serve as an index. The texts assigned to the buttons are brief. I share this document with a friend who has Word xp (German version) installed on her computer. When she opens the document, seven of the 38 macrobuttons have been disabled, and for the text therein "Anzuzeigende Text" was substituted - meaning something like 'intended text' or 'text meant to be shown.' All other parts of the document appear properly, including the remaining macrobuttons. I have not the slightest idea why this is happening. Any help would be greatly appreciated. Gedeon Tag: highlight all when using Find Tag: 54373
  - 17
    - X text box Periodically I copy text in a text box from another program to a Word doc. How do I get the text out of the text box so that the text when formatted is the same as the rest of the document? Any help will be greatly appreciated, Roger Tag: highlight all when using Find Tag: 54370
  - 18
    - Linked from Excel to Word- SAVING QUESTION I linked items from an Excel Sheet to a Word Document. These Excel Sheet was used as the source and needs to be used multiple times for different projects. The end result is the word document with all the data from the excel source file. THE PROBLEM is When i finish one project and save as a different file name and start a new project, all the data from the 1st project(Word file) gets changed to the information in the excel source file with the information for the 2nd project. Is there a way for me to save these files without them being changed everytime I start a new project? Besides Locking the links Tag: highlight all when using Find Tag: 54368
  - 19
    - howto copy pagesetup Hi all, I need to append contents of one document to another programmatically. I am able to do it using the FormattedText property. But I need to also copy the PageSetup along with the FormattedText. How can I do this? Thanks. -Nikhil Tag: highlight all when using Find Tag: 54358
  - 20
    - Paste Button default option When the paste button is turned on and an item is copied/pasted, the little paste button pops up. Then I can right click on it and choose an option. The "default" option is "keep source formating." Is there a way to make the options always to be set at "match destination formatting"? I know that an item cut and pasted can easily be changed by clicking the paste button and then clicking "match destination formatting," but it would be easier/quicker if somehow I could change the default to "match destination formatting" and thus eliminate the need to ever have to click the paste button and then choose the "match destination" button. Thanks for any help, and I apologize ahead of time if this issue has already been discussed/answered here. Mike from Milwaukee Tag: highlight all when using Find Tag: 54355
  - 21
    - Add word to Dictionary using VBA I use methods CheckSpelling and GetSpellingSuggestions to spelling in my application using Word VBA. But is there way to add word to Dictionary using VBA? I can't find it. Can you advise me? Thanks, Petr Tag: highlight all when using Find Tag: 54349
  - 22
    - Add words to disctionary using VBA I use Word VBA to spellchecking in my application using methods CheckSpelling() GetSpellingSuggestions() But is possible to add words to disctionary using VBA? I can't find it. Or how it solve another way? Thanks, Petr Tag: highlight all when using Find Tag: 54348
  - 23
    - Delete an inlineshape object Hi there. I have a Word template with many image controls in it. The user is supposed to drag-and-drop pictures into these images. Once in a while end-user marks the hole image control, and hit the delete button. In one of my VBA-Macros I try to delete alle inlineshapes in the document, and when I try to delete the one which already has been deleted by the end-user, Word dies. How can I found out that this inlineshape object is already deleted, before I try to do this in VBA. per Tag: highlight all when using Find Tag: 54346
  - 24
    - VBA code that works in Word2K refuses in Word2K3 I am trying to port old code (originally made for Word 97 but working in WOrd 2000) to Word 2003. I'm seeing a few problems here though. when I try to execute the follwing instructions in VBA I get an unknown error (err.number has a value of -2147319779) dim ses as object ses = CreateObject("OracleInProcServer.XOraSession") On the machine (running Win2K SP4) All needed Oracle components are installed to allow this instruction to work fine in Word 2000. Did anyone come across this problem? How can I work around this? Kind regards, Romain Voes Tag: highlight all when using Find Tag: 54345
  - 25
    - COnverting Word table to XMl format Hi all, I need to do the following: * Convert a table in DOC format to XML. This could be done using CALS table format or anything of that sort. What I find impossible to detect, is the number of tabs in the table and the spanning in it. When I try saving a DOC in HTM format, I get something like width=10.67 and so on the HTM file. This cannot be properly represented in XML. I will need markups to determine the spanning and other cell information. Does anybody have a suggestion on how I should go about this? Many thanks. Tag: highlight all when using Find Tag: 54342

Hi ,
How can I highlight all the results of find query
when using content/selection.Find.

Re: highlight all when using Find by Dave

Dave
Mon Aug 09 08:13:14 CDT 2004

Hi SM,

Are you looking for something like the following:

''' set the color for highlighting
Options.DefaultHighlightColorIndex = wdGray25

With Selection
.HomeKey Unit:=wdStory
With .Find
.ClearFormatting
.Text = "Test"
With .Replacement
.ClearFormatting
.Highlight = True
End With
.Execute Replace:=wdReplaceAll
End With
End With

HTH,
Dave

"SM" <Software_Magician@hotmail.com> wrote in message
news:29e601c47e04$d1a7f1b0$a401280a@phx.gbl...
> Hi ,
> How can I highlight all the results of find query
> when using content/selection.Find.
>
>

Top