Search within a range

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - turn off automatic date completion When I write a word in my Microsoft words 2007 editor that indicates the beginning of date some automatic completion mechanism is triggered displaying the full date. Unfortunately in my native language (Swedish) there are some words that are very common but that also could be the beginning of a date so this flashing occurs very often. I do not like this so I wonder how a script could look to disable this mechanism? Tag: Search within a range Tag: 112287
  - 2
    - Make a copy of a Word VBA programme saved in the template directory Hi, I have written a complicated Word VBA programme and saved it as a template. May I ask how I can make a copy of it so that I can move the copy to another computer and use it there? Thanks. Mike Tag: Search within a range Tag: 112285
  - 3
    - Spellchecking a Protected Document This seems to be a popular topic lately, so I thought I'd chime in as well. While the article at http://word.mvps.org/faqs/macrosvba/SpellcheckProtectDoc.htm is great if you want to check the spelling of the information input into formfields, my problem is a bit different. I have (Word 2003) templates that produce forms-protected documents, but the documents themselves don't contain any formfields. I use forms protection only because it allows me to protect only certain sections of the document, such as the header and footer, while leaving other sections, such as the main body of the document unprotected. The spellchecker checks the spelling in the unprotected sections OK, and I don't really mind if it doesn't check the spelling in the protected sections because 1) I know that I haven't made any spelling errors in the 'boilerplate' in these sections; and 2) if the user has made a spelling error in the 'variable' information, they can just rerun the code in template to correct the errors. However, there is a deficiency in the native spellchecker that I've been asked to develop a workaround for. In an unprotected document, if none of the choices in the 'Suggestions' list are viable, you can just type in the 'Not in Dictionary' box to make the change. However, this doesn't work in a protected document; the text in the 'Not in Dictionary' box is treated like it's in a protected section. I could always write code that unprotects the document before displaying the spellchecker, but there are a couple of drawbacks: First, this will allow the users to spellcheck the protected sections as well, which is not really a major problem except that if the user corrects an error that was introduced through the input of the 'variable' information described above, this correction won't get replicated back into the data from the UserForm. Thus if the user reruns the template, the correction won't be there and the error could be reintroduced without the user realising it. However, I can live with this. The real problem is that the spellchecker dialog isn't modal to Word. Therefore, if I unprotect the document, the user now has full access to the whole document, _including_ the protected sections. And believe me, the users will take advantage of this whenever possible; I learned this when I told the users I was going to fix a bug in my code that left the document unprotected and got a... umm... less than favourable response. ;-D Does anyone know a way to enable the editing capability in the 'Not in Dictionary' box without unprotecting the document? Or will my users just have to live with this limitation? (The second choice is acceptable as I'm quite happy to tell the users 'No' - as long as I can justify the response.) -- Cheers! The Kiwi Koder Please note: Uninvited email contact will be marked as SPAM and ignored - unless you want to hire me. Tag: Search within a range Tag: 112277
  - 4
    - Sharing Arrays Between Modules In an earlier post, Jean-Guy Marcil provided me with some excellent instruction on structuring projects to separate UserForm-related processes from document-related processes. (Thanks again, Jean-Guy!) I'm now trying to apply this structure to a somewhat more complex project and have run into a problem straight away. In this new project, I use arrays to collect sets of similar information (e.g. the names and addresses of multiple parties to a contract). These arrays all reside in the UserForm class module, since they are obviously integral to the processes related to the UserForm; i.e. UserForm operations are used to create and maintain the arrays, and the arrays are used to display information in the UserForm. However, I cannot find a way to take the information in these arrays and transfer it back into the 'operational' class module that is used to perform the actual document-creation processes. UserForm controls (and the values contained therein) are simple enough to access and variables can be declared as Public and then just become a 'pseudo-attribute' of the UserForm object, but arrays cannot be Public. For obvious reasons, I don't want to dynamically create a heap of Public variables to dump the contents of the arrays into and then rebuild the arrays on the 'operational' side, and doing something like grabbing the contents of the ListBoxes that are used to display and maintain the arrays on the UserForm and then attempting to parse this information scares the daylights out of me. Does anybody have any suggestions on how to share contents of an array between two modules? -- Cheers! The Kiwi Koder Please note: Uninvited email contact will be marked as SPAM and ignored - unless you want to hire me. ;-) Tag: Search within a range Tag: 112273
  - 5
    - Help with MVP spellcheck protected form code I am trying to use the code from http://word.mvps.org/faqs/macrosvba/SpellcheckProtectDoc.htm and I got an error that the password was incorrect so I tried to follow the directions from the website but I am still unsure where to insert oDoc.Unprotect Password:="colleen" And: oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, _ Password:="colleen" in to the code in the right places to get it to work. Help anybody? Thanks! ~Roxy Tag: Search within a range Tag: 112271
  - 6
    - Fetching data in Excel from Word Hello, I have a Word document. I have in an Excel file with thousands of IP adresses and other similar type of information. In the word document, I have to create a chapter for each physical servers (a lot). In each chapter, a table display the IP configuration of the sever as well as virtualized servers inside it (a lot more) These information are randomy defined in the Excel file. What is the best way to do that ? I'd like to have a button in the word document which call a macro. This macro would open the Excel document and lookup the IP information based on the server name. Then, it would update tags or fields or variables that I would insert here and there in the word document. The goal here is to avoid regrouping & copying by hand thousands of IP adresses, which is prone to mistakes. Moreover, whenever the IP adresses are updated in the Excel file, I would run the macro to update the word document. Any good idea ? I know how to do a macro in Excel, but never did one in word. My main problem is how to create a "field" or a "variable" in the text (generally in -but not restricted to- a table) that my macro would recognise in the word document and update it ? Thanks in advance. JD Tag: Search within a range Tag: 112266
  - 7
    - project locked Hi, Sorry if this has been asked recently or frequently. Somehow all my projects are looked. If I download a dot-file, add it and then try to open the macros in the editor, they are all locked. Even if I myself create a dot-file, add a project, type some dummy macrotext, close and then add that dot-file to another document, also that project is locked. I can´t even open the properties. The security settings are on the lowest level. Word 2003 What do I do wrong? TIA Örjan Tag: Search within a range Tag: 112265
  - 8
    - Passing Values to a Module I created a form in VB called DemogInfoForm and would like to know how I can pass the value entered from a text box to a module? The instructions are on the "command OK" button. The value will also be used to gather other information from the mainframe. Here is what I got so far... Sub OkButton_Click() On Error GoTo Err_Command Me.CaSEText.SetFocus If Len(Me.CaSEText.Text) <> 10 Then 'Message that wrong number of digits entered for case number MsgBox "Please enter the 10-digit Case Number." _ & vbCrLf _ & " Please try again!", vbCritical, "10-digit Number Error Message" Exit Sub Else 'Once the value is verified, I would like to pass the value to the CaseNUMFind module .... thank you CaseNUMFind (Number) 'Go to module Tag: Search within a range Tag: 112264
  - 9
    - Word 2003 custom Menus change and disappear Does anyone have a fool proof method for stabilizing custom menus (on the menu bar) in Word? I have a menu in a global template that should always show, as well as document templates that each contain a menu I want to appear only when someone is in a document created from that template. The problem SEEMS to stem from OTHER people's software -- the menus will be there but then they disappear, or multiple copies appear or the menu is suddenly empty or has the name for one menu with choices for another menu on it. Note: Custom TOOLBARS seem stable, it is just the MENU that is problematic. I have been fighting this for years and have done a lot of research but so far everything I try has a hiccup at some point. The programming is all VBA in Word .dot templates. So far I have tried: - Using tools, customize to create the menus w/in the appropriate templates -- works great on my computer, but menus disappear/duplicate constantly on about 80% of my clients. - Programmatically creating the menus -- this is good for the global template menu -- at first -- but somewhere through the day it gets trashed. I can't get the template specific menus to behave. They constantly disappear. - Write an event handler to delete and then recreate all menus and display as (Tried with the "Document change" or "WIndow Activate" event for the Word application) -- this seemed to work at first but suddenly the problems returned. I did not want to just "show" the menus per the event handler because they would suddenly have the wrong buttons or be empty part way through the day. (Maybe I am not writing it right.) Has anyone else had this struggle? It happens to me so much I am surprised I can't find more postings about it. PLEASE HELP!!!!! Thanks so much. Tag: Search within a range Tag: 112256
  - 10
    - OrganizerCopy Error Dialog Problem When using OrganizerCopy, if the style name is not found in the source document, Word returns an error dialog. In a VBA application, is there anyway to suppress this dialog and let the code continue without the user having to click OK? The sample code. The dialog after the gSourceWordApp.OrganizerCopy call but before the If Err.Number = 4198 Then line. On Error Resume Next Dim styleName As String styleName = "corporateNameStyle" gSourceWordApp.OrganizerCopy Source:=sourceDocument.FindInFileName, _ Destination:=indexWordDocument.FullName, _ Name:=styleName, _ object:=wdOrganizerObjectStyles If Err.Number = 4198 Then gSourceWordApp.OrganizerCopy Source:=sourceDocument.FindInFileName, _ Destination:=indexWordDocument.FullName, _ Name:="Normal", _ object:=wdOrganizerObjectStyles End If Tag: Search within a range Tag: 112253
  - 11
    - Comparing Word documents I inherited some Word VBA code to format a report based on rtf output from DOORS. I made some changes to the VBA to improve performance (it used to run for more than hour) and now I would like to compare the Word document produced from the latest version with a Word document produced from the previous version of the Word VBA macros. I am running Microsoft Office Word 2003. I opened the more recent copy, and then: 1. pulled down Tools-->Compare and Merge documents... 2. checked the "Legal Blackline" checkbox 3. selected the baseline word document produced under the old macro set 4. clicked on "Compare" The only differences that showed up was that every row of the main table is black-barred with (on each page) a change box pointing at the header saying "Formatted Table". When I move my mouse over the "Formatted Table" change box it says "Author formatted Table:" Any clue what this is trying to tell me? The contents look fine otherwise. --Thank you, --Mike Jr. Tag: Search within a range Tag: 112251
  - 12
    - Spaces after 1 incorporate footnote Below is my 1 space after macro, but I need to add 1 space after footnote - I keep getting errors in my attempts: .^f<space><space> to be .^f<space> a single space after footnote is that possible to do? Sub Spaces_After() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "([.\?\!]) {1,}" .Replacement.Text = "\1 " .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " ^p" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = False .MatchWildcards = False End With Selection.Find.Execute While Selection.Find.Found Selection.HomeKey Unit:=wdStory Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Wend Selection.Find.Text = " ^l" Selection.Find.Replacement.Text = "^l" Selection.Find.Execute While Selection.Find.Found Selection.HomeKey Unit:=wdStory Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.Execute Wend End Sub Tag: Search within a range Tag: 112250
  - 13
    - VBA Code cleaners Does anyone know where I can get a VBA Code Cleaner program which works with Word 2003 and above, please? All the ones I've found seem to concentrate on Excel but not Word. I've always used the one mentioned in the MVPS site but this only works up to Word 2002. Thanks Roderick Tag: Search within a range Tag: 112249
  - 14
    - Changing the default spelling language for Word 2007 Hello, Is it possible to change the default office (word) spelling language from code? Preferably from c#, I have not found the location where word stores this. Kind regards, Sven Maes Tag: Search within a range Tag: 112240
  - 15
    - if bookmark.Exist (Left("nut", 3) Hi all I am hoping to use VBA to check if a document has a bookmark starting with a particular string. I thought I could use LEFT to check if it exists but it does not pick up the bookmark. Checking if bookmark exits works perfectly when not using LEFT Ive tried: If ActiveDocument.Bookmarks.Exists(Left("_BD", 3)) = True Then msgbox "Yes its here" end if I found that looping through the document works but I do want to search for each bookmark eg: Dim myBM As Bookmark For Each myBM In ActiveDocument.Bookmarks If ActiveDocument.Bookmarks.Exists(myBM.Name) And Left(myBM.Name, 3) = "_BD" then do this End If Next myBM Any ideas? Thanks in advance Tag: Search within a range Tag: 112237
  - 16
    - MACRO TO TOGGLE FONT ON AND OFF I have document that uses a particular font (usually no more than a few characters in length) in numerous places throughout. Is there a macro that would toggle this font on and off using a shortcut-key combination (e.g. like the way that CTRL + "I" does for italic type)? -- JBusby Tag: Search within a range Tag: 112236
  - 17
    - Wrong font color for envelopes When I try to use the tab for letters and labels when printing an envelope, the type comes out green even though black is the default color. It does not happen with labels. Tag: Search within a range Tag: 112234
  - 18
    - Programing the page number Hello: I have an application of Visual Basic 2005. I can make a word XP document ("Document 1") by code inside the application. I want to put the page number in the document but I don't know how from inside the code of Visual Basic. That's the problem. Thanks Tag: Search within a range Tag: 112231
  - 19
    - printing macro built a macro in word to bring data from an excel worksheet. Is there a way to have word merge stop at a location instead of searching the full excel sheet. Have used first & last 1 & 50 still goes the limit.This is being done in 2000 as the people who will use after I am gone are novices as I am. This is really my last hurdle to this project. Thanks to anyone who can speed up this merge. Tag: Search within a range Tag: 112228
  - 20
    - Setting a Range Can someone tell me how to set a range for the last section of a document? Or as an alternative how to set the range to the section where the cursor is? Specifically what I need to do is set the last section as a range so I can make some modifications. First I need to delete the last two rows from a table in that section (there are two tables, and I need to delete rows 3 and 4 from the second table). Then I need to search for a text string, and insert some text in front of the original text. Thanks for any help. Tag: Search within a range Tag: 112222
  - 21
    - Change font Colour/Color I have a template document on which I want to be able to change lightblue to black after drafting the document. I have the following code in my macro at the moment and it works ok I just wondered if there was a more efficient way of writing it that I haven't thought of or if I should do some error checking on it as well. Still finding my way around vba at the moment and am improving with the help of this site. Public Sub SetTextToBlack() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Font.Color = wdColorLightBlue .Replacement.Font.Color = wdColorBlack .Wrap = wdFindContinue End With Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll Selection.MoveRight End Sub Many thanks JayM Tag: Search within a range Tag: 112220
  - 22
    - Deleting text boxes with red line or text Is it possible to use VBA to delete text boxes in a word document that have a red line around them (or with red text in)? If so can you point me in the right direction for the code Many thanks JayM Tag: Search within a range Tag: 112217
  - 23
    - PLEASE respond ASAP Hi there, It's a crazy problem i'm facing. I have to work on many documents and there will be a footer kind of note, same note I have to keep in each document but the page is not the same. For example, there is a word "xyz" and we dont know in the document where it comes, when it appears there should be a footnote in the first instance of the document. If it comes in the second page of one document, it comes on someother page in other document. SO I thought of recording a macro as the text is same for all. Now it is working, when I say run it appears BUT IN ALL PAGES OF THE DOCUMENT whereas I require only in the active page, that is the page where I am working and is needed. I mean, when I go to a particular page and run the macro, it should come only on that particular page and not the entire document. How can I edit the code to do that? Where and what should add inside the coding to write the text in particular page. Otherwise, everytime I have to either open or keep open the other document, copy and paste. I thought of a simple macro but it is becoming complicated. Sorry for a big explanation, I just want to make clear. Thanks in advance for your valuable time and solutions. But please respond asap. Tag: Search within a range Tag: 112214
  - 24
    - Combo Box Is there a way in Word VBA to create a combo or list box where values can be displayed and also have the ability to add and delete items. For instance have a list of predefined food that the user can modify via the list and add additional items or remove items of food they don't want on the list? Thanks in advance Tag: Search within a range Tag: 112209
  - 25
    - VBA to determine Word version of a document Hi, I need to create a vba macro that will provide info about which version (fileformat) of Word the active document was saved in. I tried the following, but no luck: Sub CheckDocType() 'Assuming that constants are as follows: Format 15 - docx; Format 16 - docm If ActiveDocument.SaveFormat = 15 Or ActiveDocument.SaveFormat = 16 Then MsgBox "This document is a Word 2007." End If End Sub Thanks Tag: Search within a range Tag: 112208
- Next
  - 1
    - macro to toggle Autotext Menu on & off Seems like it should go something like this - but it doesn't work: Sub ViewAutotextMenu() IF CommandBars("AutoText").Visible = True Then CommandBars("AutoText").Visible = False End If if CommandBars("AutoText").Visible = False Then CommandBars("AutoText").Visible = True End If End Sub Tag: Search within a range Tag: 112207
  - 2
    - There is the control (RichTextBox) for VBA? Hello. I want to insert into form (Word VBA) textbox but it have not context menu. There is any other controls (e.g. RichTextBox) for VBA? Or not? Thank you. Tag: Search within a range Tag: 112202
  - 3
    - Macro attached to checkbox in online form Word 2003 online form checkbox has macro - when you click it, upon exit, the background turns red Macro security is medium assigned to 'All active templates and documents' does not work when I email the form to another user ?? thanks! Tag: Search within a range Tag: 112199
  - 4
    - Load function Hello everyone, I am trying to run this function on word 2004 on Mac. It works perfectly fine on pc but creates errors when running it on mac. Can someone let me know how to fix this? thanks Public Sub LoadXML(ByRef xmlObject As Object, ByVal xmlPath As String) On Error GoTo Error_Handler xmlObject.async = False xmlObject.preserveWhiteSpace = True xmlObject.Load (xmlPath) xmlObject.Load (xmlPath) Error_Handler: If Err.Number <> 0 Then Err.Raise Err.Number, Description:=Err.Description End If End Sub Tag: Search within a range Tag: 112197
  - 5
    - Random Number Question I am trying to generate a random number by seeding randomizer with the date and time. I need to be able to verify that the seed and random number generated are correctly matched. But even with the same seed value typed in, I'm still getting random numbers. Is there a way to do this in VBA? My understanding of seeding is that given the same seed value, the pattern should hold true. Am I missing something here? Public Sub AutoExec() Dim seed As Date seed = Now Randomize (39543) 'I have changed this number to seed when running off time. 'Generate a random number. 'Rand is a function that works like: Rand (lowest number, highest number) ActiveDocument.FormFields("txtSeed").Result = seed ActiveDocument.FormFields("txtCode").Result = Rand(1, 1000000) End Sub Tag: Search within a range Tag: 112196
  - 6
    - Date Control We recently had to migrate a good portion of our machines to Office 2003 Standard, the rest have Office 2003 Pro. As everyone probably knows, the VBA code that we utilized for Professional in regards to calendar controls does not work on Standard machines. We have tried coding on a Standard machine with date picker and then Professional get an error that object could not be found. When you look in references on their machine, nothing is showing as missing. Does anyone have a calendar control that can utilized on both platforms, or is something wrong. We need help ASAP. Thanks in advance. Tag: Search within a range Tag: 112193
  - 7
    - How do I convert automatic simple list numbering to actual text? I have a batch of RTF files in which the author used automatic numbering (simple list style, not SEQ fields). I need to import these RTF files into a program that will choke on the automatic numbering, so I need to convert it to plain characters. How can I do this? If these were fields, I could just unlink them. But I don't know how to handle this kind of numbering. Thanks! Ben Tag: Search within a range Tag: 112189
  - 8
    - Problem with PasteSpecial using LINK=True Hello, I'm trying to find the code as to verify the source file of a PasteSpecial Link. To paste, I used the following line : Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False What happens is that when I copy the file to another folder, sometimes the source PATH does not follow. So I want to make sure that all the PasteSpecial Link have the same PATH and FILENAME. I looking for a FOR EACH ... LOOP that scans all the PasteSpecials. Thanks ------------------- S. Hewes Tag: Search within a range Tag: 112186
  - 9
    - background process to monitor cursor location This is a followup question from a previously answered thread: "clicking in protected forms: MS knowledge base article ID: 839950" from March 26, 2008 The problem is: In summary, the user must click or tab from one form field into another form field on a protected document or Word does not run the form field's 'on entry' and 'on exit' macros. My solution: Inside the Document_Open() subroutine, I am using the Timer and DoEvents functions in a While Loop to 'wait and watch' what the user is doing. When the cursor is 'properly' placed or 'improperly' found on one of the text form fields used for data entry, then a pointer to that field is stored. If the focus is moved 'properly' to another form field, the pointer is set to the new field. However, if/when the cursor is 'improperly' found in some other location, the validation routine is run and the pointer is reset (or set to the new data entry field). Finally, I am using the Document_Close() subroutine to set a flag that allows Word to kick out of the While Loop and exit the Document_Open() subroutine. My concern/question: Practically this appears to be working, although it makes the response sluggish (especially if focus is moved to a different Word Document). However, there is so much in this Windows world that I don't know and I am concerned that I have opened a 'pandora's box'. Does anyone see any danger in using this methodology or have any other advice? Thank you! -- James III, Sincere VBA Newbie! Tag: Search within a range Tag: 112183
  - 10
    - Content Controls and Comments I have a content control in my document that I want to be removed if the content is edited (Properties: checkbox â??Remove content control when content is edited.â?? is checked). The content control works fine. But if the I select the content control and then click â??Reviewâ?? ->â??New commentâ?? the control is getting removed even the content is not edited. It does not happen if I am trying to insert bookmark or track changes. What is different about comments? Is there any way to disable â??Commentâ?? buttons on the Ribbon in VB? Tag: Search within a range Tag: 112177
  - 11
    - windows how to unlock my document so i could write on windows Tag: Search within a range Tag: 112176
  - 12
    - =?Utf-8?Q?How_Does_One_Determine_if_a_Styl?= The following code hides the text using the styles â??Even # Answerâ?? and â??Even # Answer Headerâ??: Sub FEN2Word_SE_Toggle() ActiveDocument.Styles("Even # Answer").Font.Hidden = True ActiveDocument.Styles("Even # Answer Header").Font.Hidden = True End Sub But what I would really like this macro to do is something like: Sub FEN2Word_SE_Toggle() If Text_Hidden then 'unhide text ActiveDocument.Styles("Even # Answer").Font.Hidden = False ActiveDocument.Styles("Even # Answer Header").Font.Hidden = False Else 'hide text ActiveDocument.Styles("Even # Answer").Font.Hidden = True ActiveDocument.Styles("Even # Answer Header").Font.Hidden = True End If End Sub I want this macro to hide and unhide text. How does one determine if a styleâ??s font is hidden? Any help will be greatly appreciated. Steven Craig Miller New Lenox, IL (USA) Tag: Search within a range Tag: 112173
  - 13
    - CommandBars and dropdowns? Hi All Query about CommandBars, basically I a migrating a solution from VBA to VSTO 2005SE. I have cross posted as I am looking for an answer from either end VBA or VSTO. In Microsoft Word 2003 SP3 the Undo icon has a drop down arrow next to it on the right hand side. When you click the undo command, it activates its event and when you click the drop down arrow it activates the menu. How could I do this? Any examples or ideas..... Tag: Search within a range Tag: 112172
  - 14
    - how to change the embedded Excelsheet's view range? In my word doc, there is an embedded excel sheet. When I insert it, it only include 4X2 cells; but I want can control it's visiable cells counts in my program. for example: change to can display 8x2 cells; how can i do it by using VBA or other language(C++,C#...)? thanks a lot. Tag: Search within a range Tag: 112171
  - 15
    - access the tabstop character next to the footnote number (using VBA) Dear Experts: I tried to access (using VBA) the tabstop characters that are located next to the footnote numbers of my document, but did not succeed. I am using a hanging indent. I would like to access (select) all the tabstop characters in my footnotes and do the following action: range.font.reset. Help is much appreciated. Thank you very much in advance. Kind regards, Andreas Tag: Search within a range Tag: 112165
  - 16
    - Problem with VBA an network printers Hallo NG, if i work with the Code (i know it is for Excel ;-) below (from http://www.xlam.ch/vbacode/index.htm), i have the problem, that it only works with local printers. But if i connect my networkprinters with the microsoft tool "con2prt", the printername is for example: \\printservername\ADOBE-PDF When i write Const strPrinter As String = "\\printservername\ADOBE-PDF" i get the failure: "Printer '\\printservername\ADOBE-PDF' - The Port Name was not found" What is the problem with networkprinters ?? Kind regards Hassan Sub GetPrinterPortName() Const strPrinter As String = "HP LaserJet 4M Plus" Dim strSetting As String Dim strPort As String Dim intChar As Integer On Error Resume Next strSetting = CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices\" & strPrinter) If Err.Number = -2147024894 Then MsgBox "Es existiert kein Drucker '" & strPrinter & "'.", vbInformation Exit Sub End If For intChar = Len(strSetting) To 1 Step -1 If Mid$(strSetting, intChar, 1) = "," Then strPort = Mid$(strSetting, intChar + 1) Exit For End If Next intChar If strPort = "" Then MsgBox "Drucker '" & strPrinter & "'" & vbCrLf & vbCrLf & _ "Der Port-Name wurde nicht gefunden!", vbExclamation Else MsgBox "Drucker '" & strPrinter & "'" & vbCrLf & vbCrLf & "Name des Ports: " & strPort & vbCrLf & _ "Excel-Druckerbezeichnung: " & strPrinter & " auf " & strPort, vbInformation End If End Sub Tag: Search within a range Tag: 112162
  - 17
    - Error checking I'm currently at the beginning of the learning curve for VBA. I have taken a VB Basic course - the neat thing about it, was the "Try/Catch" error catching commands. I haven't found much in VBA for error catching. Are there any similar tools in VBA as VB.Basic? Does anyone know of any good web pages on error catching? Thanks for any thoughts . . . Tag: Search within a range Tag: 112150
  - 18
    - FileSearch with Office 2007 Hi, Iâ??ve a code that work fine with Word in Office 2003, but it returns an error code with Office 2007: â??This command is not available on this platformâ??. The code breaks in the following line: Set fs = Applicaton.FileSearch Do you know why? Tag: Search within a range Tag: 112148
  - 19
    - Can't Spellcheck individual form fields in a protected form Is it possible to spellcheck only certain form fields in a protected Word form? Below is the Macro I have so far but it runs through all the form fields including the check boxes and I have a 40 page doc which takes almost 5 mins for the spellchecker to run. I have tried to use the macro in the 'on exit' properties but that still doesn't seem to work. Any ideas would be greatly appreciated. ~Thanks, Roxy Sub SpellCheckForm() Dim i As Integer Dim bProtected As Boolean 'Unprotect the file If ActiveDocument.ProtectionType <> wdNoProtection Then bProtected = True ActiveDocument.Unprotect Password:="colleen" End If 'check formfield for spelling For i = 1 To ActiveDocument.FormFields.Count ActiveDocument.FormFields(i).Select #If VBA6 Then Selection.NoProofing = False #End If Selection.LanguageID = wdEnglishUS Selection.Range.CheckSpelling Next 'Reprotect the document. If bProtected = True Then ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="colleen" End If End Sub Tag: Search within a range Tag: 112143
  - 20
    - how about product ID 89388-861-1060037-65764 ? how about product ID 89388-861-1060037-65764 ? or product ID 89388-861-1060037-65764 is trial? Tag: Search within a range Tag: 112141
  - 21
    - Selecting a Field I am creating a macro which inserts a Filename field into a document. I want to then resize the font of ONLY the inserted field to 7pt. Presently my macro reads as follows: Selection.EndKey Unit:=wdStory Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "FILENAME ", PreserveFormatting:=True Selection.HomeKey Unit:=wdLine, Extend:=wdExtend With Selection.Font .Name = "Times New Roman" .Size = 7 .Bold = False .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone End With Selection.MoveRight Unit:=wdCharacter, Count:=1 This result was fine, as long as there was nothing else on the line ahead of the Filename field insertion, which tends to USUALLY be the case. But, because the macro indicates to return to the beginning of the line to apply the font size, it also modifies any other text on the same line ahead of the inserted field. I have tried various combinations of Shift, Ctrl and Alt along with arrow keys for selecting the field with my keyboard while recording the macro, but no luck. So I need to modify the macro somehow so that it only selects the inserted field instead of returning to the beginning of the line before it sizes the font of the inserted field. Any help would be greatly appreciated! Thanks! -- Elizabeth A. BaÃ±uelos MOS Master Microsoft Office Specialist - XP (Word, Excel, Powerpoint and Access) Hamilton, Ontario, Canada Tag: Search within a range Tag: 112136
  - 22
    - Unlinking footnotes/endnotes from text Can this be done with a macro? Can this be done at all without third-party software? Tag: Search within a range Tag: 112135
  - 23
    - Spellchecking template - receiving error message We are using a Word template to prepare formatted memos that are then emailed to our users. I found an article at http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm, which contained the code to unlock, spellcheck, and relock the template. It works very well but only on workstations that are set up to allow the user Admin access. Unfortunately, the vast majority of the workstations in our company are set up to only grant User level access and the spellcheck function doesn't work on those, even when we lowered the macro security level to Low. The security policy cannot be changed to allow everyone Admin access. Any suggestions to work around this problem and allow the spellcheck to run? Any help will be appreciated. Thanks, John Tag: Search within a range Tag: 112130
  - 24
    - Doing translation with VBA Hi, My work needs me to translate some objects into Chinese at times. I come across, for example, a card, a screwdriver and a saw and their quantity may vary. Since they appear frequently and the translation is repetitive, I would like to use a VBA programme to do the simple translation. They appear as lists such as "a card, a screwdriver, a saw and a stool". Does anyone have idea of how to do it or could anyone point me to the right direction? Thank you. Mike Tag: Search within a range Tag: 112127
  - 25
    - FirstLineIndent read only in table cell I am using Microsoft Word 2003 and trying to write a macro which corrects some indenting problems in the cells of a document. I have a problem in that I do not seem to be able to set the value of FirstLineIndent, the indentation. Here is a macro I've written to try to demonstrate the problem I'm encountering: Sub DoAllIndents() Dim NowIndent As Long For Each Tbl In ActiveDocument.Tables For Each Row In Tbl.Rows For Each cellLoop In Row.Cells With cellLoop.Range MsgBox (.Text) NowIndent = .Paragraphs(1).FirstLineIndent MsgBox (NowIndent) .Paragraphs(1).FirstLineIndent = 0 MsgBox (.Paragraphs(1).FirstLineIndent) End With Next cellLoop Next Row Next Tbl End Sub The problem is that setting "FirstLineIndent" does nothing: the second MsgBox gives the same value as the first one. Apart from using Range.Paragraphs(1), I've also used .ParagraphFormat.FirstLineIndent with exactly the same results. The document itself is not read-only, but "FirstLineIndent" seems to be. I've googled for some hints but have not been able to make the above work properly. Thank you very much indeed for any help with this problem. Tag: Search within a range Tag: 112121

I have defined a range. Now I need to be able to search for a specific
phrase, move to the end of that phrase, insert a carriage return and insert a
new phrase. This is what I was trying, but it is not working. I don't get
any errors. It just doesn't work. I'm pretty sure it has something to do
with meNotice vs. selection. But I just can't quite figure out the syntax.
Any help would be greatly appreciated.

Set meNotice = .Sections(.Sections.Count).Range

With meNotice.Find
.Text = "time shown below."
If .Execute Then

Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.InsertAfter Chr$(13) & "PLEASE TELEPHONE ME IMMEDIATELY."

End If
End With

Top

RE: Search within a range by SHewes

SHewes
Tue Apr 08 08:37:01 PDT 2008

Try this

Set meNotice = ActiveDocument.Sections(ActiveDocument.Sections.Count).Range

meNotice.Select
Selection.Find.Text = "time shown below."
If Selection.Find.Execute Then
Selection.MoveRight Unit:=wdCharacter, Count:=2
Selection.InsertAfter Chr$(13) & "PLEASE TELEPHONE ME IMMEDIATELY."
End If

-------------------
S. Hewes

"Elaine J." wrote:

> I have defined a range. Now I need to be able to search for a specific
> phrase, move to the end of that phrase, insert a carriage return and insert a
> new phrase. This is what I was trying, but it is not working. I don't get
> any errors. It just doesn't work. I'm pretty sure it has something to do
> with meNotice vs. selection. But I just can't quite figure out the syntax.
> Any help would be greatly appreciated.
>
> Set meNotice = .Sections(.Sections.Count).Range
>
> With meNotice.Find
> .Text = "time shown below."
> If .Execute Then
>
> Selection.MoveRight Unit:=wdCharacter, Count:=2
> Selection.InsertAfter Chr$(13) & "PLEASE TELEPHONE ME IMMEDIATELY."
>
> End If
> End With

Top