Wildcard Search and "OR"

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - DocumentBeforeClose problems Hello, The DocumentBeforeClose event gives me grief. The problem is that I have to perform a certain cleanup operation when a = document is closed. Unfortunately, DocumentBeforeClose is called before the user is = presented with the "Document changed, do you want to save?" dialog, = which can cancel the close. So, I do not know whether the document was actually closed. Is there a way around it? Thanks. Best wishes, Alex. --=20 Address email to user "response" at domain "alexoren" with suffix "com" Tag: Wildcard Search and "OR" Tag: 72573
  - 2
    - Remembering document-specific window position Certain of my editing tasks involve having multiple open docs in Word. Given limited screen real estate, I carefully size the windows before setting to work, which is a pain. I'd like to write up or find a macro that would, on a document-by-document basis (very important), save the window size/position for that particular document on closing, then, on reopening, have Word get the window properties from the individual doc template or information and restore to the saved position. Ideally, I'd load this in Normal.dot and invoke it with a keystroke combo as an alternative way to close docs. Is there a way to do this? I've searched high and low, but can't find anything on how to do it with VBA (I'm in Word 2002 on WinXP, with VB 6.3). I know it's possible because so many apps do it (including WordPerfect back in the day when I used it), but I don't know if it's doable in VBA. The only thing I find in online VBA resources is discussion of saving the /application/'s main window position and writing to the registry to do so -- but that's not what I'm seeking. Any ideas? TIA, Ed ed [at] coherenow.com Tag: Wildcard Search and "OR" Tag: 72564
  - 3
    - Conditional format a table cell (background colour) Hello all, Very little experience with Macros but I have created a project plan template containing various form fields and any number of macros (mainly via the recorder with a bit of code tweaking). One of the text fields in the table is a due date. Via VBA is there any way to highlight the date cell or even the entire row by changing the background colour red when the date is overdue? I guess this would be quite straight forward in Excel via Conditional formating but I would really like to do it in Word. Any help appreciated. Thanks. Paul. Tag: Wildcard Search and "OR" Tag: 72559
  - 4
    - maintaining the formatting of a string I used to know this but forget--If a text selection has character formatting such as underlining, and I'm turning the selection into a string and then inserting that string elsewhere, how do I maintain the formatting of the string? Tag: Wildcard Search and "OR" Tag: 72558
  - 5
    - Real and curious problems with vba office2000 et office2003 on a computer Since some days, I have some problems with VBA (with Access as well as Word). All these problems exist in Office 2000 as well as in 2003 Some VBA functions do not vork anymore. ========================================================== So the function 'Kill' is completly unefficient. I mean that 'Kill' doesn't kill files, but, worse, give no error message if I ask to 'Kill' a file which does not exists (for example with a bad path). So the line : ----------- Kill "c:\program files\internet explorer\iexplore.exe" ----------- does not give a message. Just the program quit the function where is the line without executing the lines after. There is no error treatment un function. If I put a Rem or a "'" at the begining of the line, the lines after are executed. If the path of the program to kill is bad (for example "c:\progr files\internet explorer\iexplore.exe" , there is no error message! ========================================================== The function 'Mkdir' does not work anymore. So the line : ----------- MkDir "c:\xxxxx" ----------- doen't create the dirextory 'xxxxx'. ========================================================== The procedure : ----------- Sub Test () Dim FileNumber as integer FileNumber = FreeFile Open "c:\TEST" For Output As #FileNumber Write #FileNumber, "Ceci est un exemple" Close #FileNumber End Sub ----------- does'nt create the file and the error message says that the file does not exist ! It do not accept to create it... ========================================================== The function 'Shell' does not work anymore. So the line ----------- Shell "c:\program files\internet explorer\iexplore.exe", vbMaximizedFocus ----------- does'nt launch Internet Explorer. If the path given in string is bad, there is no error message. ========================================================== I don't know if the following problem is bound to there others problems, but now I cannot use the function "Export in Word" or "Export in Excel" or "Export in 'presse-papier'" for exportations of preview of report. No problem if I export to Word a preview of a form or of a table or of a query. But it is now impossible to export a report preview towards Word. =========================================================== I have Windows XP PRO. I have Office 2000 developer, and Office 2003. All these problems can be observed VBA 2000 AND VBA 2003 (in Accesss 2003). ============================================================ I have uninstalled and reinstalled twice both Office 2003 and Office 2000. No results. ============================================================ On my second computer, all is good. To replace filesystem functions I use 'Scripting.FileSystemObject', which works PERFECTLY. ============================================================ The functions that does not work on my pricipal computer work on the second computer. Which can be ABOVE VBA in the first computer which can cause this kind of problems ? HOW CAN I REPLACE the 'Shell' function ? Thanks for responses. And excuses for my english. I am french... Tag: Wildcard Search and "OR" Tag: 72557
  - 6
    - Command Button in Word I want put a button on 15 pages this button the next commando must carry out, if I click on the button he the page where this button on state must remove. there is someone who can me give the complete code to let work to this button Tag: Wildcard Search and "OR" Tag: 72556
  - 7
    - Writing neat VBA I have a document with Odd and Even pages headers and footers. At this point I insert a new section and which I have to remove the header and footer linking to the previous section. I create a temporary bookmark, add a page break, unlink the primary and even headers and footers, remove the bookmark and then the page break. Everything works as it should and there is no problem. However, below is the code which does all the unlinking and I just wanted to say the same thing but with a little more elegance and finesse. Could somebody therefore, please show me how these few lines might be written in properly coded VBA? ====================== ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ======================== You might wonder why all the backwards and forwards between the headers, main document and back to the footers with the selection of the temp bookmark in between? Well, I found that Word "got lost"(i.e. didn't go to where I expected it to go) if I told it to unlink the odd and even headers and then do the same with the odd and even footers. It somehow got confused and went and did things either in the previous section or the one following the new section. I created some explicit actions and that did the trick!! Regards Roderick Tag: Wildcard Search and "OR" Tag: 72551
  - 8
    - Macro Style Replace Word2000. I record a macro to SearchAndReplace a custom style. During the recording, the SearchAndReplace works fine. When running the macro, it doesn't work. Calling up the SearchAndReplace dialog box shows why: instead of searching for the stylename, it search for a stylename plus border attributes plus other things. Can this be fixed? -- JohnTheTemp Tag: Wildcard Search and "OR" Tag: 72549
  - 9
    - VBA macro to create an index I wrote a macro that creates an index. Here is an explanation: I have a text and a file c:\boss_info_index.txt that have a keywords I want to index in the text file. Keywords in the file have no duplicates and are in descending orders - I am not sure if the order is relevant, but there should be no duplicates. Here is the macro: Sub CreateIndex() ' ' CreateIndex Macro With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.8) .BottomMargin = InchesToPoints(0.8) .LeftMargin = InchesToPoints(0.8) .RightMargin = InchesToPoints(0.8) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(8.5) .PageHeight = InchesToPoints(11) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .GutterPos = wdGutterPosLeft End With Selection.Sections(1).Headers(1).pageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True Dim quote As String Dim Keyword As String Dim j As Integer quote = """" Dim found_key As Boolean Dim startSearch As Long Dim endSearch As Long Close #1 Open "c:\boss_info_index.txt" For Input As #1 Set myRange = ActiveDocument.Content j = 0 Do While Not EOF(1) ' Loop until end of file. Set myRange = ActiveDocument.Content endSearch = myRange.End Input #1, Keyword j = 0 With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With While myRange.Find.Execute myRange.Collapse wdCollapseEnd Set myIndexEntry = myRange.Fields.Add(myRange, Type:=wdFieldIndexEntry, _ Text:=quote & Keyword & quote) startSearch = myRange.End startSearch = startSearch + 7 Set myRange = ActiveDocument.Content myRange.Start = startSearch If startSearch > endSearch - 1 Then GoTo skip_while End If With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With ' this code is because I had a loop here j = j + 1 If j > 300 Then myRange.Bold = True Exit Do End If Wend skip_while: Loop Close #1 ' Close file. myRange.Start = 0 myRange.End = 0 With ActiveDocument .Indexes.Add Range:=myRange, HeadingSeparator:= _ wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _ True, NumberOfColumns:=1, IndexLanguage:=wdEnglishUS .Indexes(1).TabLeader = wdTabLeaderDots End With End Sub Tag: Wildcard Search and "OR" Tag: 72547
  - 10
    - Few Question about Line Numbers Hi all, how can I find 1) current line numbers? 2) total line numers? Thanks Regards Tag: Wildcard Search and "OR" Tag: 72546
  - 11
    - Working with Stylized Quotes Hi Everyone, Does anyone know of a function that will convert Stylized Quotes to a normal quote? Here is the application; I am comparing one string to another. In some cases the strings do not match when they should. The issue is that use of Stylized Quotes. One string may use a slightly different version of a single quote causing the string comparison function to fail. I would like to convert all single quotes to a simple quote for comparing. Thanks, George Tag: Wildcard Search and "OR" Tag: 72545
  - 12
    - Add documents via listbox I need to insert documents, at either the front or end of the open document, from either a network drive or user hard drive. I would like to make these files available to users via a listbox on a form. I have been able to use file scripting object to browse to the files and add them to the list box using the following code: Sub GetFiles() Dim fs, f, f1, fc, fn, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("C:\Documents") Set fc = f.Files For Each f1 In fc ' fn = f1.FileName If InStr(1, f1.Name, "boilerplate", vbTextCompare) Then Set fn = fs.GetFile(f1) lbBoilerplates.AddItem (fn) End If Next Set fs = Nothing End Sub This is all good, however: The list box is populated with the entire path and file name. What I would like to do is list only the file name. When the user selects desired documents (could be 1 or many) I would then insert the files into the document. Question: How do I get only the filename without the path for populating the listbox? I have been unable to retrieve only the filename without performing string functions to strip out the file name. Any suggestions greatly appreciated. Thank you. Tag: Wildcard Search and "OR" Tag: 72542
  - 13
    - VBA - Insertion point Could you let me know what VBA to use to determine whether the insertion point is in a Field. Many thanks Mike Tag: Wildcard Search and "OR" Tag: 72538
  - 14
    - = (rand) - how does this function work Tag: Wildcard Search and "OR" Tag: 72530
  - 15
    - Error when changing Table I get the following error when trying to alter the value of a table:- "Cannot Access individual rows in this collection because the table has vertically merged cells" This is the code that causes the problem With oAppWD.ActiveDocument.Tables(1).rows(1).cells(2) = "V4.0" (oAppWD = CreateObject("Word.Application") ) How do I change the value of cells within a table where there are vertically merged cells? Ta Andi Tag: Wildcard Search and "OR" Tag: 72525
  - 16
    - Which menu item activated - how? Hi I'd like to be able to identify if a menu item (any menu item) has been activated both by click and by accelerator key. I found a message on google groups that kind of provides a solution but I'm having trouble figuring it out and I was wondering if anyone might be able to explain how to use it? The text of the post is below. I understand steps 1-3 but I get lost at step 4: How would I call the sub in step 4? Would I just put it in a regular module? What would be an example of an "Ctrl" argument for the sub in step 4? Also, I note that the sub is called "MyControl_Click". Would that work even if the user activated the menu item using an accelerator key, not the mouse? The post says that code needs to be written to instantiate the class object. Does that mean a Property Get statement? Lastly, in step 3 the SaveAs button ID is specified. How would that Set statement be written if I wanted to get the id number for whatever menu item was activated? Many thanks for any help! Here's the original post: "You can do it by trapping the click event for the control. 1. Add a class module to the VBA project. 2. Declare a variable to trap the events: Public WithEvents MyControl As Office.CommandBarButton 3. In the module's initialize event, find the control you want to monitor. Private Sub Class_Initialize() Set MyControl = Application.CommandBars.FindCoÂntrol(ID:=748) End Sub (748 is the ID of SaveAs option on the File menu). 4. Write an event procedure for when the control is clicked: Private Sub MyControl _Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) MsgBox "FileSave Clicked" End Sub The click event is fired before the built-in command is run. Set CancelDefault = TRUE to prevent the built-in command running. 5. Write some code (eg in AutoExec) to instantiate your class object. You'll need to re-run this code if you do anything that resets the VBA project, like editing any code." (The original post I'm quoting from is http://groups-beta.google.com/group/microsoft.public.word.vba.general/msg/5c81f19b8c21b4b5?hl=en&) Thanks again Mike Tag: Wildcard Search and "OR" Tag: 72524
  - 17
    - Control of dialog boxes Hello All, Is it possible that we get the control of any dialog box that is opened when we click any menu item. e.g. File->Page Setup opens a dialog box, format->Autocorrect options open a dialog box,etc. I am coding in vb.net and want to get handle of these windows. Please help. GS Tag: Wildcard Search and "OR" Tag: 72520
  - 18
    - General Question About Userforms and Properties Hi, I am using WORD 2000 and I have a general question about Userforms and Properties. Userform-1 displays a custom dialog, Userform-2. Userform-1 has to know which command button(s) were pressed in Userform-2. Arguments are "passed" between the forms by property statements. Userform-2 sets properties in Userform-1 by using the CallByName statement. Userform-1 object and property names set in Userform-2 via property statements. Has anybody had any problems using the above described scenario? That is, are there problems using property statements in Userforms and using the CallByName statement? It does seem to work but I would just like to know if there are any "gotchas". Thanks in advance for any help, advice and tips. Jerry Bodoff Tag: Wildcard Search and "OR" Tag: 72518
  - 19
    - Insert Row Beneath Last Row in Table Hi There, I have some code that I have to run from within Excel. I have worked out how to locate a table and then manipulate the contents, but I can't work-out how to insert a new row below the last row of the table? Thanks Andy Tag: Wildcard Search and "OR" Tag: 72512
  - 20
    - Help on Excel-Word project I have to take an excel spreadsheet that has contact info and a brief bio and format them in a word document. The columns in the spreadsheet are lastname, firstname, address1, address2, city, state, zip, phone, email, bio, awards (among others) I would like to selectively place these into the word document like this: lastname, firstname address1 [address2] (if non-blank) city, state, zip [phone] (if ok to release) [email] (if ok to release) bio awards I don't want the blank lines to show if it's not anything in it, or if they've not authorized us to release the info. There are other columns in the spreadsheet (as to what classification they'd fall into) that I may not want printed in the word document. We're wanting to update just the Excel document with the data, and have it formatted in the word document when we open it (I am sure we will tweak the word document formatting some), but we don't want to do any data entry into the word document - only in excel. Can anyone help, or perhaps guide me to a source that I can learn quickly on? BC Tag: Wildcard Search and "OR" Tag: 72506
  - 21
    - Word printing slow when called from Access I'm calling Word 2003 from Access 2000, late bound. Here is a routine that till very recently printed light duty word docs pretty fast (shorthand) Set objWord = CreateObject("Word.Application") ' Open a doc so the selections can print, need a loaded doc... objWord.Documents.Add strSomeDoc objWord.PrintOut Background:=False, FileName:="c:\mydoc.doc" For some reason it jams up word for about a minute before anything starts to print. I can't think of anything that's changed recently on this pc, other than I've applied winxp sp2. Not sure how to approach this...in task manager, word never goes over 2% of cpu. Tag: Wildcard Search and "OR" Tag: 72502
  - 22
    - Controls in a form Hi I currently have a userform that has about 4dozen mixed controls in it in a page Control. At present i have to reference every control like txtName1.value. the controls have not been put onto the form in the way that i want to access them. Is there an easy way to access them, like using a number and if yes can i change the orders of the numbers to the order i want to access the controls. My file is 1.5mb in size, any ideas why. David Tag: Wildcard Search and "OR" Tag: 72501
  - 23
    - How to print a doc using absolute page numbers? Is there any way to print a document using absolute page number? For example let's say my doc has 10 pages. The absolute 6th page is the 2nd page of section 3 (p2s3). In the print dialog if I give p2s3 it prints the correct page. Similarly is there a syntax to give the absolute page number in the print dialog? (what I want is something like: (some symbol)6 to be given in the print dialog and to print the absolute 6th page. ) Thank you for any information. Best regards, Thushan Tag: Wildcard Search and "OR" Tag: 72500
  - 24
    - Add-ins Hi All, Sorry to ask such a simple question but I have had a good search of google and can't find a simple answer. How do you create a word add-in? I am quite experienced with excel and vba but have never touched word before. Alternatively if someone has a good URL that would be great. Ta Andi Tag: Wildcard Search and "OR" Tag: 72498
  - 25
    - Google search for word I would like to do a Google search for an Ops Guide in Word. The document is all text, no form fields. I have searched this forum and the best I can find is a repost below. Is is possible to modify this code with an input box to store the search variable and run a modifed version below? Jay? I've tried to modify this code but was unsucessful. Thanks, Geoff start google search from formfield content? All 3 messages in topic - view as tree Gordon Filby May 28 2003, 2:54 am show options Newsgroups: microsoft.public.word.vba.general From: "Gordon Filby" <Gordon.Fi...@pef.fzk.de> - Find messages by this author Date: Wed, 28 May 2003 09:51:53 +0200 Local: Wed, May 28 2003 2:51 am Subject: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse Hi, I would like to open a document containing a number of formfields, select one of them and use its contents as parameters for a Google search. All this should happen via a mouse on a button located on a command bar. Is this possible? Thanks for any tips. Gordon Filby Jay Freedman May 28 2003, 11:40 am show options Newsgroups: microsoft.public.word.vba.general From: "Jay Freedman" <jay.freed...@verizon.net> - Find messages by this author Date: Wed, 28 May 2003 12:37:38 -0400 Local: Wed, May 28 2003 11:37 am Subject: Re: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse Hi, Gordon, This might be a bit over-engineered :-) but it does work. Put the macro into your template, and assign a toolbar button to run the macro. It will fire a Google search for the contents of whatever formfield has the focus. Sub GoogleIt() Dim SearchTerms As String Dim oFld As FormField Dim oHyper As Hyperlink On Error GoTo badfield For Each oFld In ActiveDocument.FormFields If Selection.Range.InRange(oFld.R=ADange) Then SearchTerms =3D oFld.Result Exit For End If Next oFld If SearchTerms <> "" Then Set oHyper =3D ActiveDocument.Hyperlinks.Add( _ Anchor:=3DActiveDocument.Range, _ Address:=3D"http://www.google.com/search?q=3D" & SearchTerms) oHyper.Follow oHyper.Delete End If badfield: End Sub -- Regards, Jay Freedman Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word - Hide quoted text - - Show quoted text - Gordon Filby wrote: > Hi, > I would like to open a document containing a number of formfields, > select one of them and use its contents as parameters for a Google > search. All this should happen via a mouse on a button located on a > command bar. Is this possible? > Thanks for any tips. > Gordon Filby Jay Freedman Jun 2 2003, 11:16 am show options Newsgroups: microsoft.public.word.vba.general From: "Jay Freedman" <jay.freed...@verizon.net> - Find messages by this author Date: Mon, 2 Jun 2003 12:15:36 -0400 Local: Mon, Jun 2 2003 11:15 am Subject: Re: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse [replied and posted to the microsoft.public.word.vba.gene=ADral newsgroup] To find only German language pages, change the Address parameter of the hyperlink this way: Address:=3D"http://www.google.com/search?q=3D" _ & SearchTerms & "&lr=3Dlang_de") Gordon Filby wrote by email: > Thanks - that is just what I needed. Another question in this context in > Address:=3D"http://www.google.com/search?q=3D" & SearchTerms) do you > know how to restrict the search only to German language pages. Google > allows this in its special config. page. -- Regards, Jay Freedman Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word - Hide quoted text - - Show quoted text - Tag: Wildcard Search and "OR" Tag: 72496
- Next
  - 1
    - Code to open Power Point Show I am running WIN XP Pro and Office 2003 Pro I cannot get a hyperlink in Word to run a PPS. It will open file and I can navigate the slides, but it does not run as a PPS. I thought of using a command button to run the PPS from Word. I will appreciate if someone is will to provide the code to assign to the command button. The PPS file and Word file will be on the same CD. Thanks Tag: Wildcard Search and "OR" Tag: 72494
  - 2
    - How to tell if macro has been executed I have a series of macros that offers the user options to run all or only part of the macros. It opens with a form that has check boxes with three selections (Insert Table of Contents, add Frame and add Page Border) and the user can select all or only one, etc. The program runs fine the first time through, but if it is run again it can get messy if options already run are chosen again. Is there a way that I can check to see if a selection has been executed, even if the document has been closed and re-opened? Thank you. Tag: Wildcard Search and "OR" Tag: 72493
  - 3
    - Word 200 Blank document Every time i open a blank document there is text from another document already there. How can i stop this? Cheers -- Rye Tag: Wildcard Search and "OR" Tag: 72491
  - 4
    - Linking a grid to a recordset in a word form I have tried several grid controls and ways without success Anyone can tell me how can do it? Tag: Wildcard Search and "OR" Tag: 72486
  - 5
    - cut and paste Russian text to other application I need to cut and paste the Russian text from Word document to Quark. When people sent it to me, the characters display as emty squares (extension as ".doc". I open up the document and resave it as ".RTF". I can see the characters then, no problem with cut and paste the same text within Word. The problem happens when I try to paste the same string of this text to another application, like Quark. They are underscores. I select them and change the fonts, nothing happends, or only one or two characters appear. The fonts I try are anything with Cyrillic. I notice that there are couple options as I paste the text in Word: paste with unformat, paste with format, and one last one I can't remember. I try many differnt ways, and a few words come up. What do I have to set up my computer? fonts? anything ... in order to always have this success everytime. I just purchase Word 2004, and in the OS X system. It seems like the system is current enough to handle. I used to have to copy and paste every character I found to create a string of text (very painfull), but now the work load are much bigger, I can't afford to do the same thing. What are the problem? Please help. Please don't say that the problem is Quark. If there is what do I need to set up in Quark? Tag: Wildcard Search and "OR" Tag: 72485
  - 6
    - Same template doesn't work in a doc Hello I have a .dot with my simple macros and an extra tool bar to use the macros. I also have two key documents that both make reference to the macros and tool bar in the .dot One document works fine and a click on the tool bar gives an instantaneous result while the other document needs many clicks before the macro works and then it takes ages. Sometimes, I need to click in the document as well for the macro to work and the message 'document not responding' is displayed while the hourglass icon is running. What could be causing the first document not to work well when it uses the same macros/toolbar as the second one. Thanks in advance Dave Neve The only difference for me is that the document that works well is much shorter. Tag: Wildcard Search and "OR" Tag: 72484
  - 7
    - How can I insert tabs in a number with a macro? I need to create a macro to paste a list of numbers while inserting tabs within the numbers. I work in Reflection for IBM (sessions) and Office 2000, soon to be Office 2003. I need to get a list of ICN's (example 0204123456090) out of a stats table located on our intranet. Those ICN's, (claim numbers) need pasted onto a list fetch screen. This screen allows 1 to 100 claim numbers to be keyed onto the screen so they can be retrieved for processing. I have already made the macro to extract the numbers from the table on our intranet and then displays the numbers in a column like; 0204123456000 0204123456060 in a work document. I can't figure out how to make the macro paste this list of numbers by inserting tabs in them. The screen that they will be posted to has the following format; 02 04123 456 000 02 04123 456 060 This is what the screen looks like 00 02 04123 456 000 01 02 04123 456 060 02 02 04123 457 780 it has 00...99 to indicate how many ICN's are pasted. Also, it will not always be the same amount of numbers that needs to be pasted. I hope I have explained this clear enough. Tag: Wildcard Search and "OR" Tag: 72482
  - 8
    - Multiple asswords protected documents Hi, I have several hundred forms that are pasword protected. SpellCheck does not run on pasword protected forms. In order to run SpellCheck I have installed a VB script that allows SpellCheck to run. This script is based on a single password. However, there are two passwords. How do I add the second password to the following script so that SpellCheck works on both passwords. oDoc.Unprotect Password:="mazie" Thanks, Ken -- KenCurtis -- KenCurtis Tag: Wildcard Search and "OR" Tag: 72480
  - 9
    - msvcr70.dll error in Word 2002 I starting getting the following error in Word 2002. "Winword.exe unable to locate MSVCR70.dll" I did a clean uninstall & reinstall x2, did not fix. I tried the detect & repair in Word, did not find or fix. I looked on MS site, can only locate info on where the file should be, not the file to download. Since softeware is OEM w/Dell, Dell say that its not their problem, contact MS - MS says, contact Dell its OEM - not their problem. LOL Anyone had this problem or any suggestions? Software is Word 2002, SP3 part of Office XP - all files are up 2 date. Tag: Wildcard Search and "OR" Tag: 72478
  - 10
    - about variables and subs I have a problem regarding subs; private, regular, public and static ones. A practical problem. I cannot seem to transform theory into practise. Whenever I try to find info on this, on help within the program, on online help, in newsgroups, I find myself giving up â?? almost. So I write instead. Maybe there are more people than I also having trouble on this subject â?¦ I understand the difference between â??Regularâ?? subâ??s and â??Privateâ?? subs. This both clear and evident when used. They have different scope â?? one only works in a module, the other in the whole project. This becomes very evident, if not before, when trying to name a sub with the same name â?? works perfectly in a Private Sub, not so in a regular one (I know, I know â?? this is not what I usually do. I don't use the same name for every sub I have â?? it was an exampleâ?¦) So far so good, it is then the trouble begins. For I canâ??t seem to comprehend beyond that â?¦ I know there are other kinds of Subâ??s. I know there are â??Publicâ?? ones and there are â??Staticâ?? ones. I just canâ??t seem to make them work! I would like to for example place a Public or Static (dunno which, one of themâ?¦) in for example an Autostart macro. In that macro, I would dim a number of variables: name, special paths to certain directories and so on and so onâ?¦ After doing that, I would be able to access these variables from ANY template. This I cannot to. Whenever I change/rename/create a directory, I still have to edit each macro - manually. This is both time and labour consuming. Not to mention â?? how tedious it is. There should be something easier â??out thereâ?? -- Tag: Wildcard Search and "OR" Tag: 72472
  - 11
    - Display "folder name" in text I am running Word 2000 and I am trying to figure out how to display just the folder name into a word text, header, and footer. I have come to the conclusion this will require a macro. But i am not smart enough to know the code. Basically, I want to be able to hit a hotkey or button on my toolbar and display the "folder name" without any address attached to it. I want it to print in the current font and size. Much like the "file name" autotext feature. I will also need instructions on how to add this to normal.dot. Thank-you for your help, and I apologize if this has been already covered. I might have been searching with the wrong keywords or something. -- Thanx, Shim E Tag: Wildcard Search and "OR" Tag: 72470
  - 12
    - Insert pictures into same document sequentially I have 1 doc that I would like to add 4 pictures to. Then using the same doc add 4 more pictures again. ie 400 pics on 100 pages all added sequentially. Tag: Wildcard Search and "OR" Tag: 72468
  - 13
    - Formula to bold please. Hello from Steved I would like the formula to find "by" bold it then bold Straight Strike, $66,363 then do the same to the others I have over 2 hundred of them . Thankyou by Straight Strike, $66,363 by Fantasy Life, $12,250 by Oak Ridge, $43,375 by King Delamere, $34,138 by War Hawk II, $23,400 by Bellissimo, $27,685 Tag: Wildcard Search and "OR" Tag: 72459
  - 14
    - word 2002 labels When opening envelope/label tab I no longer can see the layout lines. Can anyone suggest a fix? Tag: Wildcard Search and "OR" Tag: 72458
  - 15
    - ActiveDocument.CommandBars picks the wrong CommandBar I have a quote template that pulls in parts and descriptions from a database and turns them all into a nice quote, which is also merged and linked with GoldMine. It has a custom toolbar and one the buttons on the toolbar allows the user to pick a salesman and automatically inserts the salesman's name and title, signature and next quote number. After the user picks a salesman I'd like to disable the Select Salesman toolbar button, since it will screw up the quote if they do it more than once. So I save whether a salesman was picked as a custom property in the quote, a la Set docp = doc.CustomDocumentProperties With docp.Add("qtFSalesman", False, msoPropertyTypeBoolean, True) ' We don't really need to do anything here, but we could... End With ' Once the salesman is selected don't allow another selection. CommandBars("Quotes").Controls(1).Enabled = False Later, if the document is opened, code in Document_Open() does pretty much the same thing: ' Read the custom document property "qtFSalesman" and allow or ' disallow the salesman selection based on the property value. fSalesman = ActiveDocument.CustomDocumentProperties("qtFSalesman") ActiveDocument.CommandBars("Quotes").Controls(1).Enabled = _ Not fSalesman My problem is that users don't get the custom toolbar just by creating a new document based on the template. So they go to Tools...Add-Ins and explicitly add .dot template as a global template. When the code runs it disables the toolbar in the _template_, not in the new document. How can I only disable the Salesman button on the toolbar of the new document? Thanks in advance, Dan. Tag: Wildcard Search and "OR" Tag: 72455
  - 16
    - How can I Maximize Task Pane? Hi all, I would like to maximize Task Pane (or ActionsPane) when Word is opened. Or any way to control the size of the Task Pane programmatically? Many thanks! Regards, William Yip Tag: Wildcard Search and "OR" Tag: 72454
  - 17
    - Revisions, track changes: Here is a snippet of code I have which is supposed to go through a document (with track changes turned on) and check for any deletions, then accept them. Dim oRvs As Object For Each oRvs In oDoc.Revisions 'oApp.ActiveDocument.Revisions If oRvs.type = wdRevisionDelete Then oRvs.Accept End If Next Now, it does seem to do this, however, occasionally a document will get "hung up" in the loop - or an error message "disk is full" occurs on the document when it is closed/saved. I am trying to make sure I am understanding this code... I am learning and got this code snippet from someone kind enough to post a suggestion for me. I thought I understood what it's doing: basically checking any revisions in the document to see if it's a deletion, then approving if it is. In trying to trouble shoot this latest error, I'm finding I'm not entirely correct! I created a document with approximately 15 or so "changes" (being an initial document, they would all be tracked of course). The code looped through 19 times. I then approved the changes, and made some new ones, probably about 4, one being a deletion. The code still looped through about 18 times (that's what I counted, it could have been 19). Now, if my thought process was correct, it's looping through only the actual REVISIONS, then it would have gone through the second time about 4 times - not the 18. So, does this check just the revisions, or are there other "divisions" of the document - such as header, footer, first page and body; or sections - or ???? Thanks for the time, clarification, and expertise!! Also, if you have a reason why this would get "caught up" - I would appreciate thoughts about that too! THANKS again. Tag: Wildcard Search and "OR" Tag: 72453
  - 18
    - How do I prevent macro from replacing entire footer? I currently have a macro that pulls in external information into the footer(s) of my document and thus far, the information comes over just fine. However, I am not familiar enough with VBA to: 1. make sure that the info appears in EVERY footer (whether the section is set to Different First Page or not) 2. make sure that if there is existing text in my footer (most commonly a page number), that it doesn't get wiped out (I'm assuming by the .range). Again, I'm not familiar enough with VBA to tell it to only remove that which is beyond the first line (which is quite often where the page number appears). Here's the code I am currently using: Dim objRange As Word.Range Dim objFont As Word.Font Set objRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range Set objFont = objRange.Font objRange.Style = wdStyleFooter objRange.Text = strTextString With objFont .Size = 8 End With If ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Exists = True Then ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Text _ = strTextString End If Set objRange = Nothing Set objFont = Nothing End Sub I hope this is not confusing. Please advise and thanks in advance. Tag: Wildcard Search and "OR" Tag: 72446
  - 19
    - Can I execute an Access query each time a Word doc is opened? I am trying to insert a 'quote of the day' concept into a Word document that will change each time the document is opened. The 'quote of the day' is retrieved from an Access Database and inserted into the document header. Right now, I need to manually re-execute the query in order to get a new quote in each time I open the document. Is there a way I can set this up to execute the Access query each time the document is opened? -JK Tag: Wildcard Search and "OR" Tag: 72439
  - 20
    - Prevent User Closing Word by clicking on X Hi there Wonder if anyone has actually achieved preventing the user from closing Word by clicking on the application's X in the top right corner of the screen? I have found similar threads but not the answer. Have tried the Application Quit event but although it runs whatever code I put there it just goes ahead and quits anyway. Have also suggested using 3rd party products to do so but this is not acceptable to the organisation. Does anyone have the answer? Thanks in advance. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200508/1 Tag: Wildcard Search and "OR" Tag: 72435
  - 21
    - Disabling (greying out) menu commands Hello I have a few menu and toolbar commands which are macros which I created to be used in tables only. In order that users won't complain that the macro doesn't work when they click on any of them outside of a table (even though the Menu is called <Company> Tables), can I have such commands greyed out in both the menus and a custom toolbar when the cursor or the selection is not in a table? Thanks for any help. Tag: Wildcard Search and "OR" Tag: 72429
  - 22
    - Formatting a textbox for percentages I have a textbox that contains a number created by dividing one total by another. I need to format that result as a percentage. Is there a way to do that? -- Thanks - Paula Tag: Wildcard Search and "OR" Tag: 72426
  - 23
    - Word should be able to automatically combine text in a paragraph I have the following paragraph I copied from an email. It has text on several lines, and I would like to be able to combine all of this onto as few lines as possible to save space before I print it. I would like to change margins to, maybe 0.75 or 1 inch top/bottom and left/right. Again this would save space and ink. I have sent messages to the discussion groups before. Someone gave me a really complicated list of instructions, like showing the paragraph view with all of those itty bitty markings and rearranging all of the text in several steps. Doable I guess, but I couldn't figure it out. You should have a quick tool that can do all of that for me. Thank you. =================================================== I donâ??t want the â??hint â??o the weekâ?? to turn into a source of â??neatâ?? web sites, but reaction to last weekâ??s article on Google suggests that folks wouldnâ??t mind seeing a few interesting sites. This week, Iâ??m going to mention reference sites that are useful, some of which you may not think of as reference sites. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=07963751-54d6-4753-910f-4da99ad7e073&dg=microsoft.public.word.vba.general Tag: Wildcard Search and "OR" Tag: 72420
  - 24
    - How to set a range to a table that has vertically merged cells? Set rng = tbl.Rows.Last.Range The above code generates an Error 5991 - Cannot access individual rows in this collection because the table has vertically merged cells. -- Tim Shaffer Tag: Wildcard Search and "OR" Tag: 72416
  - 25
    - point me in the right direction please I hope someone can point me in the right direction - i don't know a lot of VBA so i'm stumbling around a bit. I populate the recordset in the code below (rec) via an SQL statement. I then create a table in a word document. Everything is fine - EXCEPT - the field in the last column is a numeric field on the database (mainframe) and it gets formatted as text in the resulting Word table - the weird thing is that zeros after the decimal point are dropped and so is the decimal point (i.e. 50.00 becomes 50 - if there's a non-zero value after the decimal everything is fine - i.e. 89.09 comes out just fine). any suggestions? thanks! Private Sub CommandButton1_Click() If Not rec.EOF Then txt = txt & rec.GetString( _ ColumnDelimeter:=vbTab, _ RowDelimeter:=vbCrLf, _ NullExpr:="<null>") 'make a range at the end of the Word document Set new_range = ActiveDocument.Range new_range.Collapse wdCollapseEnd ' insert the text and convert it to a tabel new_range.InsertAfter txt new_range.ConvertToTable vbTab ' autofit to the contents new_range.Tables(1).AutoFitBehavior wdAutoFitContent ' format the table ' new_range.Tables(1).AutoFormat Format:=wdTableFormatColorful2, ApplyBorders:=True new_range.Tables(1).AutoFormat Format:=wdTableFormatGrid1, ApplyBorders:=True, AutoFit:=True, ApplyHeadingRows:=False ' add a blank line Set new_range = ActiveDocument.Range new_range.Collapse wdCollapseEnd new_range.InsertParagraph new_range.Collapse wdCollapseEnd new_range.InsertParagraph Else MsgBox "No records found for owner", vbCritical End If End Sub Tag: Wildcard Search and "OR" Tag: 72415

Hello, using wildcards can I search for one word OR another? For
example I would like something like the following to work:
"apple|pear", but I can't seem to find out what the Word wildcard
equivalent of the regular expression symbol "|" is, to mean "OR".

Thanks

Top

Re: Wildcard Search and "OR" by Helmut

Helmut
Wed Aug 17 05:55:00 CDT 2005

Hi Matthew,

>Hello, using wildcards can I search for one word OR another?

No.

Workarounds are possible, depending on the task.

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Top

Re: Wildcard Search and "OR" by Greg

Greg
Wed Aug 17 07:04:03 CDT 2005

This is more of an AND approach. First you look for "apple" then for
"pears"

Sub Test()
Dim myArray As Variant
Dim i As Long

myArray = Split("pears|apples", "|")

For i = 0 To UBound(myArray)
With ActiveDocument.Range.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = myArray(i)
.Replacement.Text = "Your Text Here"
.Execute Replace:=wdReplaceAll
End With
Next
End Sub

Top