My delete key has stopped working to delete blocks of text.

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Table not inserting correctly I am running the following code to insert a table into a document. My problem is that every so often the table inserts strangely and runs off the page. I have chalked it up to a word bug, but it is getting annoying. Has anyone else had this problem when inserting tables using code. Is there anything I can change below that might eliminate this seemly random problem. Is there a line of code that will correct this issue? ------------------------------ Public Sub InsertVotes() If FindVar("&VOTES") Then Selection.Delete unit:=wdCharacter, Count:=1 If (pubYEAS <> "" And pubYEAS <> "00") Or (pubNAYS <> "" And pubNAYS <> "00") Then InsertVoteBox Else ' Do nothing if no vote taken Selection.Delete unit:=wdCharacter, Count:=1 End If End Sub Public Sub InsertVoteBox() Selection.TypeParagraph ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) .PreferredWidthType = wdPreferredWidthPoints .PreferredWidth = InchesToPoints(0.67) .Columns(1).PreferredWidth = InchesToPoints(0.42) .Columns(2).PreferredWidth = InchesToPoints(0.25) .Rows.SetLeftIndent LeftIndent:=InchesToPoints(3), RulerStyle:=wdAdjustNone If .Style <> "Table Grid" Then .Style = "Table Grid" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False ' Added these characteristics: 7/26/06 .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0) .RightPadding = InchesToPoints(0) End With Selection.TypeText Text:="YEAS" Selection.MoveRight unit:=wdCell Selection.TypeText Text:=pubYEAS Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.MoveRight unit:=wdCell Selection.TypeText Text:="NAYS" Selection.MoveRight unit:=wdCell Selection.TypeText Text:=pubNAYS Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.MoveRight unit:=wdCharacter, Count:=2 End Sub Tag: My delete key has stopped working to delete blocks of text. Tag: 90842
  - 2
    - Can I accept all changes within a Selection range? Is there any way, either in code or by a Reviewing function I don't know about, to select a certain portion of the document and accept or reject all changes in just the selected range? Ed Tag: My delete key has stopped working to delete blocks of text. Tag: 90836
  - 3
    - Update Fields, VBA, nothing selected I have created a macro that takes over the functionality of the shortcut for Updating fields (F9). If any part of a certain section is selected when they press F9, I want another macro to run, which it does successfully. My problem is getting word to update fields as you would expect it to normally using VBA. You can normally put your cursor in any part or a field/TOC, and it will update that field when you press F9. If I record a macro, I get Selection.Fields.Update. If I use this in VBA, it doesn't think that any fields are selected, so nothing gets updated. Can anyone help me to find out if the cursor is in a field, and to then update the field if it is. Many thanks, KelW Tag: My delete key has stopped working to delete blocks of text. Tag: 90826
  - 4
    - How to speed up creation of docs without displaying them. Hiya - I am using this vba code below to create in excess of 4000 custom word docs based on a template. The code creates a new doc, fills out lots of tables , saves it to disk and then closes it within a loop. It works just fine but its taking about 3 hours to run, is there any way to speed it up. Im sure I was able to run it in "invisible mode" once before or something but cant figure that out now . Thx in advance. Sub BatchRun () 'On Error Resume Next Dim arrData, intSite, strQual, strOffice, intRow, strData, strSourceDoc, arrName, strName, strSite Dim objConn As Object Dim objRS As Object Dim strSelectList, strSQL, intCol Dim objFSO, objFile, arrLines ' Open the text file and read the contents into an arra Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objFile =3D objFSO.openTextFile("c:/batchrun/export.csv") strData =3D objFile.ReadAll arrLines =3D Split(strData, vbCrLf) ' kill the text file objects Set objFile =3D Nothing Set objFSO =3D Nothing ' open the database ready for selecting details Set objConn =3D CreateObject("ADODB.Connection") openDB objConn ' loop over the text files rows For intRow =3D 0 To UBound(arrLines, 1) strSourceDoc =3D ActiveDocument.FullName Documents.Add strSourceDoc ' Read the qualcode, Site ID and Office Name arrData =3D Split(arrLines(intRow), ",") strQual =3D arrData(0) intSite =3D arrData(1) strOffice =3D arrData(2) strSelectList =3D "SiteName,Add1,Add2,TownCity,PostCode,County,Telephone " strSQL =3D "SELECT " & strSelectList & " FROM vwSites " & _ "WHERE SiteID=3D" & intSite Set objRS =3D objConn.Execute(strSQL) If Not objRS.EOF Then ' Write the centre details ' small sitte id in table 3 With ActiveDocument.Tables(3) .Rows(1).Cells(5).Select Selection.Text =3D "Site ID: " & intSite End With ' other site details in table 1 With ActiveDocument.Tables(1) .Rows(4).Cells(2).Select Selection.Text =3D objRS("SiteName") .Rows(5).Cells(2).Select Selection.Text =3D objRS("Add1") .Rows(6).Cells(2).Select Selection.Text =3D objRS("Add2") .Rows(7).Cells(2).Select Selection.Text =3D objRS("TownCity") & " " & objRS("PostCode") .Rows(8).Cells(2).Select Selection.Text =3D objRS("County") .Rows(9).Cells(2).Select Selection.Text =3D objRS("Telephone") End With End If strSite =3D Replace(Left(objRS("SiteName"), 10), " ", "_") ' write the module details / crosstab bit strSQL =3D "SELECT QualTitle, QualUnitCode,UnitTitle, Office, CourseFee, UnitFee,FullName FROM vwQualUnits " & _ "WHERE QualCode=3D'" & strQual & "' ORDER BY QualUnitCode" Set objRS =3D objConn.Execute(strSQL) If Not objRS.EOF Then ActiveDocument.Tables(1).Rows(3).Cells(2).Select Selection.Text =3D strQual & " " & objRS("QualTitle") ActiveDocument.Tables(1).Rows(1).Cells(5).Select Selection.Text =3D objRS("Office") intCol =3D 8 ' start of the unit columns While Not objRS.EOF ActiveDocument.Tables(2).Rows(1).Cells(intCol).Select Selection.Text =3D objRS("QualUnitCode") & " " & objRS("UnitTitle") intCol =3D intCol + 1 objRS.MoveNext Wend objRS.MoveFirst ActiveDocument.Tables(3).Rows(1).Cells(2).Select Selection.Text =3D "@ =A3" & objRS("CourseFee") ActiveDocument.Tables(3).Rows(2).Cells(2).Select Selection.Text =3D "@ =A3" & objRS("UnitFee") arrName =3D Split(objRS("Fullname"), " ") strName =3D Left(arrName(0), 1) & Left(arrName(1), 1) ' name it qual_site_account manger initials and oput in relevant office folder ActiveDocument.SaveAs ("c:/batchRun/" & strOffice & "/" & strQual & "_" & strCentre & "_" & strName & ".doc") ActiveDocument.Close End If Next ' clean up objRS.Close Set objRS =3D Nothing objConn.Close Set objConn =3D Nothing End Sub Tag: My delete key has stopped working to delete blocks of text. Tag: 90823
  - 5
    - Temp Files Hi, I have some word templates with VBA code behind that are in a shared location and clients use them by pointing thier Workgroup Templates to them. Every now and then we have to delete a bunch of temp files, sometimes hundereds, there is usually one for each template called ~$<Template Name>.dot and then many more with the names like ~WRLxxxx.tmp. Can anyone explain why this is happening and how to solve it. Thanks. Tag: My delete key has stopped working to delete blocks of text. Tag: 90819
  - 6
    - line break with different style Hi, I have a table cell which have two lines of text broken by ctrl+enter. I able to read the text and seperate it using line seperator but the thing is first line of the text is a hyperlink. any idea how can i retrieve them as a Paragraph/anything so i can retrieve their style, hyperlinks individually? Tag: My delete key has stopped working to delete blocks of text. Tag: 90818
  - 7
    - Repeat code on each page Hi, I am new to VB and still getting a handle on things. How do I repeat the below code for each new odd numbered page. If this requires the use of line numbers instead of paragraph numbers to set the range, see the remark in code. Josha Code: Sub Test3() Dim pChar As Variant Set myDoc = ActiveDocument 'The following example creates a Range object beginning at the start 'of the second paragraph and ending after the third paragraph. 'The corresponding line numbers that need to be used are ln10 to ln15. 'The code must be repeated for each odd numbered page. Set myRange = myDoc.Range(Start:=myDoc.Paragraphs(2).Range.Start , _ End:=myDoc.Paragraphs(5).Range.End) For Each pChar In myRange.Characters If pChar Like "[A-Z]" Then pChar.Select Selection.Range.Case = wdTitleWord End If Next End Sub -------------------------------------------------------------------------------- Tag: My delete key has stopped working to delete blocks of text. Tag: 90813
  - 8
    - Find Replace w negated option I have a procedure that eliminates all extra spaces (i.e., more than 2 in a row) from the document. However, there is one particular style which has a mono type, and spaces are used to line things up. I want my routine to search the document and ignore only the paragraphs formatted in that style. Here is the routine, and a representation of what I want to do (but which doesn't work): Sub DeleteExtraSpaces() ' ' Replaces any instance of 3 or more spaces with 2 spaces only. ' If Not TrackChanges Then With ActiveDocument.Content.Find .ClearFormatting .Replacement.ClearFormatting .Font.Underline = wdUnderlineNone .Style <> "BriefXScript" ' This is what I want to do, but get an error. .Forward = True .Wrap = wdFindContinue .MatchWildcards = True .Execute FindText:=" {3,}", ReplaceWith:=" ", Replace:=wdReplaceAll .ClearFormatting End With End If End Sub Thanks in advance! Tag: My delete key has stopped working to delete blocks of text. Tag: 90811
  - 9
    - Break OLE links in Word Does anyone know hw to programmatically "Break Links" in Word to an Excel spreadsheet? I have multiple links at different points in a document that is used as a template to produce a final report (as a new file). I want to ensure that once the report is completed (programmatically) that all the links are broken so that when it (the new file) is opened again no further updating will be done. Thx. Tag: My delete key has stopped working to delete blocks of text. Tag: 90810
  - 10
    - Check if Word is composing an E-Mail Message? Is it possible to determine if the user is in an email message as opposed to a regular Word document? Tag: My delete key has stopped working to delete blocks of text. Tag: 90806
  - 11
    - lyrics with chords Nowhere on the net have I found a tool for writing the song lyrics AND the cords in anyway other than by using fonts like courier, helvetica, Times etc. where every letter, sign og space have the same size. And then you have to write the lyrics on every other line and the cords on the line above. The problem is that it is very time consuming, it's not very graphically nice to look at, it's time consuming to alter the key (e.g. from C-mayor to D-mayor) and it makes it difficult if not impossible to integrate song lyrics with cords into normal documents, and so on and so forth. It would be a BIG help to all musicians world wide if a way could be found to attach a chord to a single caracter or even to a space between caracters so that no matter where that caracter is moved - it will have the chord written above it. Better still if someone could programme a macro or funktion where the above mentioned chords could be transposed from one key to another. It shouldn't be impossible as chords or notes could be assigned a numeric value and if you e.g. transpose a song from C-mayor to D-major it would mean that all chords would have to transposed accordingly: from C to D = 2 half-notes or 2 steps on a full scale: C - C#(=Db) - D - D#(=Eb) - E - F - F#(=Gb) - G - G#(=Ab) - A - A#(=Bb) - B - C I hope others will support this idea as it would make MicOffice an even more essential tool. ---------------- 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=dfed2c41-8a9d-459b-bb67-401461fe5881&dg=microsoft.public.word.vba.general Tag: My delete key has stopped working to delete blocks of text. Tag: 90805
  - 12
    - Filter an array Hey! I have a multidimensional array and I wan't to filter this array into an other variable. The array is something like A(Projectnr, SampleNr, Info) and I would like to be able to show just those records that have projectnr = B. Is there an easy way to do this? Hope someone can help me. Thanks. Hege Tag: My delete key has stopped working to delete blocks of text. Tag: 90803
  - 13
    - table cells I have a document with 1 table composed by2 columns. How can i write to take all the context for example of the tables(1).cell(index,2) ? Tag: My delete key has stopped working to delete blocks of text. Tag: 90800
  - 14
    - bookmark macro question I have a VBA addin for word that will fill in multiple bookmarks in a document. So, if i have bookmarks in a document bkName, bkName1, bkName2, ect.......throughout the document the program will fill in the name in the right spot. it simply looks for a new My users are novices. i am trying to build them a toolbar to simplify the process. i have the toolbar built which includes a bunch of buttons using code like: Sub bkName() With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="bkName" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub I know the program uses the following code to loop thru filling in the bookmarks Private Sub SetBookmarkText(doc As Document, ByVal Name As String, ByVal Value As String) On Error Resume Next With doc .Bookmarks(Name).Range.Text = Value Dim i As Integer i = 1 Do While .Bookmarks.Exists(Name & CStr(i)) .Bookmarks(Name & CStr(i)).Range.Text = Value i = i + 1 Loop End With End Sub How would i modify the bookmark creation code to check for an existing bookmark and LOOP thru to create them? So, if bkName is already in the document it will insert a bookmark bkName1 and if bkName1 is already in it will do bkName2 any direction would be appreciated. thanks JB Tag: My delete key has stopped working to delete blocks of text. Tag: 90797
  - 15
    - Cascading/Conditional Dropdowns Hi All I am new to this discussion group - thanks for providing it. I have a situation similar to another user who wanted to programmatically populate a dropdown based on the results of the previous dropdown. The user was provided the following code: Sub PopulateSubCat() Dim oFld As FormFields Set oFld = ActiveDocument.FormFields Select Case oFld("Cat").Result Case Is = "A" With oFld("SubCat").DropDown .ListEntries.Clear .ListEntries.Add "Apples" .ListEntries.Add "Apricots" .Value = 1 End With Case Is = "B" With oFld("SubCat").DropDown .ListEntries.Clear .ListEntries.Add "Blueberries" .ListEntries.Add "Bananas" .Value = 1 End With Case Is = "C" 'Etc. End Select End Sub My situation is somewhat different however in that I need to programmatically populate the first dropdown as well. The first dd I need to populate is for group offices. Word limits the entries in a dropdown (as I am sure you well know) to 25 and there are approx 30 group offices. The second dropdown I want to populate is sales reps and I want to populate the dd based on the selection in the group office dd. I also have a third dd which will be account assistants which I would like populated based on the group office selection as well. For example, if the user selects Atalnta from the (programmatically populated) Group Office dd, I want the Sales Rep dd and Account Assistants dropdowns to populate with sales reps and account assistants in the Atanta Group Office. Also, I have a Cost Center field I would like to have populated with the cost center of the group office selected in the first dropdown). In other words, on selection of the group office I want the sales reps for that group office to display in the Sales Reps dd, account assistants for that group office to display in the Account Assistants dropdown and the cost center for that group to appear in the Cost Center field. Is it going to take a ton of code to accomplish this? Not that mind a little work mind you and I love VBA (although I have never used it in Word) but I am a little intimitated b/c my experience with VBA is in Access and somewhat limited in that I use basically the same code over and over again in different scenarios. Anyway, any help with this woud be greatly appreciated. Oh, sorry for the long post - I just wanted to make sure I was clear on what I want to do. btw: I believe it is Office 2000 I am using at work (I just started 3 weeks ago so I am not 100% sure but I believe it is 2k) Thanks so much Dattagal Tag: My delete key has stopped working to delete blocks of text. Tag: 90786
  - 16
    - Word 2003 Find/Replace Doesn't Ignore Deleted Text I'm trying to write a macro that finds & replaces several things all in one batch. Track changes needs to be on. The problem is that the "finds" also see and act on deleted text. How can I run a find and replace that ignores the deleted text? I know this was a problem in Word 97 because I found a KB article on it. Surely they fixed it by now? I have tried limiting finds for black text or font style normal...that doesn't work. Tag: My delete key has stopped working to delete blocks of text. Tag: 90776
  - 17
    - using checkbox to delete a section of text I have a template that has 20 sections that I use daily and need to be able to delete different sections each time. I am not sure what the best way would be to set it up but I think that I would like to have a UserForm come up when the document is opened that would list all of the sections with check boxes by each. Then I could select the check boxes that go with each section that I want to keep and then when I exit the user form all of the unchecked items are deleted. I am open to different suggestions if there is an easier way. thanks alot for the help. Tag: My delete key has stopped working to delete blocks of text. Tag: 90775
  - 18
    - IF statement with empty text field won't work I'm working on a document and want this to happen: Document asks "Username?" using the ASK field. If something is typed in, i want it to display Username: and then the persons username, but if nothing is typed in the box, i want it not to show anything, not even the "Username:" label. Word is seeming to have trouble with the 'nothing' part of this. Here is what i've tried which hasnt seemed to work: { ASK user "Username:" } { IF user = "" " " "Username:{user}" } Any help will be much apreciated! Tag: My delete key has stopped working to delete blocks of text. Tag: 90772
  - 19
    - Transferring autotext I need a way to transfer AutoText between two normal.dot templates. I'm guessing this might be possible with VBA. Any suggestions as to how to reference the autotext object? Preferably the solution should also work for older versions of Word. Note this refers to autotext, NOT autocorrect entries. (often a source of confusion!) ------------------------------- An alternative approach to XP network logon - http://mylogon.net Tag: My delete key has stopped working to delete blocks of text. Tag: 90765
  - 20
    - Removing specific characters when preceded by one or more spaces Hi: I want to remove the forward slash from a document if and only if it is preceded by one or more spaces. i.e. â??abc/â?? is OK but â?? /â?? or â?? /â?? or â?? /abcâ??â?¦ is not. The following code successfully removes the forward slash character that is preceded by a single space from a document and replaces it with a highlighted space. So if there are 2 or moreâ?¦spaces before the forward slash, I want it to be removed and replaced with a highlighted space. (I am fine with all the spaces being removed and simply replacing the entire string with a single space.) What do I need to do to modify the code to accomplish such? Any help is greatly appreciated. 'Removes / proceeded by a single space and replaces with a highlighted space Dim rDcmForwardSlash As Range Set rDcmForwardSlash = ActiveDocument.Range With rDcmForwardSlash.Find .Text = " /" .Replacement.Highlight = True .Replacement.Text = " " .MatchWildcards = False .Execute Replace:=wdReplaceAll End With Tag: My delete key has stopped working to delete blocks of text. Tag: 90764
  - 21
    - open a list of check boxes I use the same document on a regular basis but have to select specific paragraphs to delete each time. I have created a macro to delete each paragraph but would like to have a form that pops up when the template is opened that has a check box for the paragraphs that I would like to keep in the final document. Thanks for all of the help. Tag: My delete key has stopped working to delete blocks of text. Tag: 90759
  - 22
    - test - ignore Just testing my configuration -- Axel [1062029] {RC1 - 5600} Share what you know, Learn what you don't. Tag: My delete key has stopped working to delete blocks of text. Tag: 90758
  - 23
    - copy menu bar Is there anyone know how to copy menu bar from a template to another word document that's not created by the template? I created a menubar in a word template and would like to copy it to other word doc as well. The only thing that I can do is copying its macro to normal.dot which would be applied to all word docs but it doesn't copy the menubar as well. Thanks in advance! Tag: My delete key has stopped working to delete blocks of text. Tag: 90751
  - 24
    - Macro in Word: Switching between two documents Word 2003: I want to build a macro using my key board keys. (Alt/z). I want to loop my macro with hitting the "Alt/z" keys once. Taking text from document 1 -- I will tell me macro to look for a particular character in document 1 and placing the text into document 2. I'm looking for the macro to go throught the entire document until it reach the end of the document. Tag: My delete key has stopped working to delete blocks of text. Tag: 90750
  - 25
    - Find & Replace or Macro - Which is better? Hello, I tried finding a solution by myself, but no-can-do. How can I tell Word to: a) Find the dollar sign ($) and; b) Place it at the end of the amount instead of the beginning, i.e., change $10,000 for 10 000 $. It also has to be preceded by a hard space. Thank you! HÃ©lÃ¨ne Tag: My delete key has stopped working to delete blocks of text. Tag: 90744
- Next
  - 1
    - replace manual page breaks Is it possible to programmatically replace all manual page breaks in a document with Next Page Section Breaks? Thanks. -- tj Tag: My delete key has stopped working to delete blocks of text. Tag: 90738
  - 2
    - Counting References/paragraphs of a given style?? We currently have a macro to loop through a document and cound "references" which are marked with a specifc style so that we can find them. The issue is that this code seems to be hanging Word and not sure why. Does anyone have any ideas on what the issue is or a better way to handle this? With ActiveDocument.Range.Find .Style = "My Reference" While .Execute l = l + 1 If l > ActiveDocument.Range.Paragraphs.Count Then GoTo endloop End If Wend End With endloop: ActiveDocument.CustomDocumentProperties("RefCount") = l Tag: My delete key has stopped working to delete blocks of text. Tag: 90730
  - 3
    - wdUserOptionsPath hello, we have special made templates for word 2000 now i want to migrate to word 2003. in word 2000 there was a wduseroptionspath, you can find this option under filelocations in word 2003 this is not a option anymore. Now i have problem because the templates are looking for info but the location isn't there anymore. I don't wont to change the whole code. So does anybody now where i can change the location for wdUserOptionsPath??? Greetingz. Tag: My delete key has stopped working to delete blocks of text. Tag: 90722
  - 4
    - Low performance when extracting data I have written a macro to extract data from the active document. The macro should be a part of an algorithm to auto detect headings. The problem is that I get very long delays when accessing the DOM. A code-snippet that show this behavior: Dim nCount as Long Dim oSents as Sentences Dim sText as String Set oSents = ActiveDocument.Sentences if not oSent is nothing then nCount = oSents.Count if nCount > 1 then sText = oSent.Item(nCount - 1).Text endif endif For certain documents the Sentences::Count will take approx. 10s to execute. Range::Text takes also approx 10 s to execute. The document is quite simple with a TOC (~300 items), body text and a lot of heading. The document has 123 pages. I a would try to iterate through all sentences in this document it would have taken to long time to be acceptable. However, if I remove the table of content, then the execution time will be below 1 s. Could someone explain why and is there any settings in Word that I could modify to get rid of this problem? I have tried to run Word in safe mode and also protected the document for editing with no performance differences. I am running Word 2003 and Win XP SP 2. My computer does not lack in performance. Jonas Tag: My delete key has stopped working to delete blocks of text. Tag: 90717
  - 5
    - Button on page to run macro Having transferred a module containing a series of subroutines from 'Normal' to a Word document I want others to be able to run two of the subs from that document since they will not understand how to transfer the module to their Normal file. Question How can I assign a macro to an object on the page which the user can click to run the macro? In XL that's simple but in Word I cannot see how to do it. Francis Hookham Tag: My delete key has stopped working to delete blocks of text. Tag: 90712
  - 6
    - Automatic printing in background using different printers Hello, i got a serious problem using automatic printing... with several scheduled vbs tasks i start different word - documents, containing vba. Each document prints out on a different printer. Sometimes those documents are started at the same time which results in printer confusion. first document chooses "ActivePrinter= xyz" while the other document chooses an other one. Now the first doc is printed on wrong location or a dialogue states me to put in save as prn file... Is there any way to tell word not to change the printer for the whole windows environment but only for the started application? I tried out a lot, but Application.ActivePrinter= "someprinter" results in changing the standard printer of windows. I do appreciate a lot your help, thanks! Daniel Tag: My delete key has stopped working to delete blocks of text. Tag: 90711
  - 7
    - MS Word question The residental inspector that I used did his reports in Word and had a feature that would automatically type a sentence based on a few typed keywords. Ex. " good shingle roof" would automatically insert a sentence like "The roof is composition shingle and is in good condition with no visible defects." Can someone tell me how to create this? Thanks. Tag: My delete key has stopped working to delete blocks of text. Tag: 90707
  - 8
    - Mail merge Datasource Will Not Change Records I am writing a vba app to automate a mail merge document. The doc is connected to an access database. The datasource retrieves the data just fine. Then I set all of the records include flags to false (thus excluding them from the merge). Next I iterate through the list to include ones that meet a criteria that the user has selected from a userform. If the criteria is met, a function is called that sets the activerecord to the first record (wdFirstRecord, I think). Then I use the find method to point the activerecord to the correct record, and finally set the included property to true. The problem is that neither the .activerecord = wdFirstRecord, nor the Find method changes the record position, it remains at 1. Nothing I've tried and nowhere I've looked has said anything about the records not being able to move. Is there something in the connection string that can cause this, or some property I'm not setting correctly? There are more records in the set than just one, so that's not the problem. Any help would be appreciated. Tag: My delete key has stopped working to delete blocks of text. Tag: 90698
  - 9
    - Converting Word 2002 macros When trying to open a project in the Word VBA screen I get an error that says: Title:Project Locked Message: Project Unviewable. How do I open it? The template was loaded at startup and I can run the macros, but I can not edit them. Thanks. matt R Tag: My delete key has stopped working to delete blocks of text. Tag: 90695
  - 10
    - Shading/Highlighting I'm interested in having certain pieces of text highlighted or shaded on the screen but not when printed. What's the easiest way to accomplish this? Tag: My delete key has stopped working to delete blocks of text. Tag: 90687
  - 11
    - get section name I need to find a section number and get its name to store it in a variable. Example: 1.1 Introduction Need to find 1.1 and then store"introduction" into a variable. Anyone know how to do that? Thanks! Tag: My delete key has stopped working to delete blocks of text. Tag: 90683
  - 12
    - .Activate method not working One of my users recently upgraded to Word 2003, and the Documents(index).Activate method does not seem to be working on their computer. Though it works on other users' computers, those with Word 2003 and Word 2000... When the .Activate method is used on this user's computer, the selected document is brought to the front of the window order, but the ActiveDocument does not change. The ActiveDocument object continues to point to whatever was the active document before the .Activate command was used. Anyone know what could be causing this? Or should I just get to work on eliminating the .Activate command from my code? Thanks Tag: My delete key has stopped working to delete blocks of text. Tag: 90681
  - 13
    - Simple(?) calculation question I have a EXCEL spreadsheet from one of our clients that I need to convert to a form in Word, but I'm having trouble converting one of their calcluations. In Excel the formula is =O95*(1-P95) That's it. Cell O95 contains a dollar amount ($672) and cell P95 contains a percentage (7.8%) The answer in Excel is $620 No matter how I set this calcuation up in Word in the form field, I can't get the same answer...not even close. The field with the original number ($672) is named ModifiedPremium and I've tried =(ModifiedPremium)*7.8 =(ModifiedPremium)*(1-7.8) =(ModifiedPremium)*(1-(7.8)) Etc... Anyone know how this calculation SHOULD look? Thanks. Tag: My delete key has stopped working to delete blocks of text. Tag: 90680
  - 14
    - normal.dot in Office 2000 not working in Office 2003 I have been using a normal.dot in Office 2000 that is used on the new users machines when they are set-up. When I tried to use this normal.dot on the new user machines that are running Office 2003 it is not being accepted. This normal.dot has all the macros, set-up and automatic text in it. These new users are not being able to use these items when they open Word. They have the default font and default information without any of the customized information that is included in the normal.dot I have been giving them. I really nead to be able to find out how to use this customized normal.dot. I hope that someone has some information for me. Thanks in advance. Tag: My delete key has stopped working to delete blocks of text. Tag: 90676
  - 15
    - Markup View in Word 2003 - Need code to turn it off if it's on Hi, Everyone: I'm trying to find a way to turn off View, Markup that I can add to the code that's executed with my templates. I found the following in another message/thread, but I don't think this will work for me. ........ ActiveDocument.TrackRevisions returns a Boolean True if Track Revisions is turned on. You can turn it on using: ActiveDocument.TrackRevisions = True or off with: ActiveDocument.TrackRevisions = False ------- I don't want to make it stop "tracking" changes since the users may need it. I just don't want it EVER to DEFAULT to viewing them (which it has been - OFTEN - it's driving me crazy). When I tried recording a macro while turning off Markup View, all I got was the following line: WordBasic.ViewChanges ..which seems to be telling it to turn Markup View ON instead of OFF (which tells me that it's probably just a toggle switch. Is there a way to check to see if it's already in Markup View before doing the toggle (using an if statement), like this? If (some code to check for Markup View, NOT document tracking) = True then WordBasic.ViewChanges End if Does anyone have any suggestions? Thanks in advance, Peg -- Message posted via http://www.officekb.com Tag: My delete key has stopped working to delete blocks of text. Tag: 90675
  - 16
    - Select text with macro based on criteria Hi, I am a newbie trying to self teach VB. I am pretty useless so please be gentle. I am trying to write a macro to allow me to select text in MS Word based upon its case. I want to select all the text in the document that is in all caps. Is this possible? Also, is it possible to exclude 34 specific two letter strings of text? The reason for this that specific "class codes" need to appear in in caps. Can anyone help? As i said, i am pretty useless at this stage, so sample code would be awsome. Josha Tag: My delete key has stopped working to delete blocks of text. Tag: 90655
  - 17
    - All caps to Proper caps Hi I need to create a macro that will start at the begining of a Word document and select all sections of text that are in ALLCAPS. It then must change the instances of all caps to title or proper caps. However there are specific two letter codes that must remain as all caps. Is this possible? Basically, a mail merge that uses a database query as the datasource is importing address and name details in allcaps. To maintain professionalism, it is desired that these items are in proper caps. However, the letter contains two letter 'class codes' that must remain in all caps (eg. BI, FH, LF, NM). I am only just learning VB and can only get the macro the select the whole document and change it to proper caps. Manually selecting the required text is not an option because the merge contains many records. This would take too long. My other thought was to use a macro to select specific line/column reference to select the required text, then change it to proper caps, then repeat for each page. I dont know how to do this either and it is not ideal as the template letter may change, invalidating the references. Any help would be much appreciated. I am *very* new to VB, so sample code would be great. Josha -------------------------------------------------------------------------------- Tag: My delete key has stopped working to delete blocks of text. Tag: 90654
  - 18
    - Spell check fields from a data base We have a custom data base application that merges with Word 2000 to produce documents. The documents contain fields that are populated from the databse and converted to text when the data and documents are meged together. Once a document is produced, the Word spellcheck will not check any text that has come from the fields in the database. I have set up a macro to run when the documents merge to try and rectify the spellcheck problem, however this only results in the spellcheck checking the first incorrect word and then stating that the spellcheck is complete even though we know there are further mispelled words in the document. The code for the macro is as follows: Selection.WholeStory Selection.LanguageID = wdEnglishAUS Selection.NoProofing = False Application.CheckLanguage = True After the document merges, the macro runs automatically and then we run the spellcheck manually with the result that only the first mispelled word is checked. Any suggestions? thanks, Tag: My delete key has stopped working to delete blocks of text. Tag: 90653
  - 19
    - This dosn't work with multiple selection Sub ShowSelection() Dim strText As String strText = Selection.Text MsgBox strText End SubThis just shows the latest selected text.What I have to do to get multiple selection? Tag: My delete key has stopped working to delete blocks of text. Tag: 90651
  - 20
    - Userform to Userform I want to carry a string from one userform to another userform, can anyone help? Thanks -- Matt Tag: My delete key has stopped working to delete blocks of text. Tag: 90646
  - 21
    - read the whole section EXAMPLE: 1 Scope of Test This test case specification covers the test criteria necessary to ensure that the Central Management Console functionality is working correctly. In particular; the test cases are focused on object testing the following tasks; though; testing of Server Management and User Management features are not in the scope of this document. OLAP related testing is not covered in this document 2 Assumptions and Constraints The tester has familiarity with most of the functionality of Business Objects Enterprise. Hi, I'd like to read whole section content. Like for example above, I'd like to read the section content of "1 Scope of Test" which contain "This test case specification cover.... until OLAP related testing is not covered in this document" Afterwards, just save it in a variable. Is there anyone know how to do it? Thankyou so much for your help before! Tag: My delete key has stopped working to delete blocks of text. Tag: 90642
  - 22
    - Multiple Templates & populate same info on each new document & Pri Hi, I have a few Word Templates that when each one is opened it takes the user to a multiple pages of user forms to collect information from the user. Now I want to use the same Templates in a single documents by suppressing the NewAuto macro from execution and only populate the minimum amount of information that I have collected from a single page of User form "say 2 fields of First name and Last name only" and populate these two fields that are defined on each one of these Templates into each document and print that document with just those two fields that I have collected and leave the rest of the fields blank and go to do the same thing on the next Template new document. I assume that on the first New Template I need to collect these two fields thru a user form then use these two fields open each Template as a new document while suppressing the NewAuto macro populate these two collected fields into corresponding fields then print and close the document and open the next Template as new document and â?¦. I think I need a new module Macro to do this for each Template and somehow execute that new macro for that Template new document to do all I want to do. How am I going to open each Template with what kind of switches and how to all these I am not sure that I could do all that or if it is possibleâ?¦? Thatâ??s why I posted this to get your help! Any suggestion is welcomed. -- Jeff B Paarsa Tag: My delete key has stopped working to delete blocks of text. Tag: 90640
  - 23
    - read first character(number) in a word Hi, I'd like to read the first character in a word(number actually). For example: I have a number 1.1.2, I only want to read the first number which is 1 and save it in a variable. If it's 3.2.3 then the first character will be 3 and save it in a variable. Please help me! Thank you. Tag: My delete key has stopped working to delete blocks of text. Tag: 90639
  - 24
    - Active X controls changing names I have been having this issue randomly for the last year with a set of Word status reports that we created. With no pattern, the controls will just rename themselves to default control names (like commandbutton1). This causes all of the VBA code behind the document to stop working obviously. What's even weirder is that the control no longer behave normally, but behave as if they were in design mode. I saw a while back on this newsgroup that it was recommended to change the names of the controls from the default given. However, all of the controls on my documents already have custom names. There are quite a few controls on the document (20+), and up until now we have just considered this a bug with Word. Hopefully someone out there can give me some advice though. Thank you in advance! Tag: My delete key has stopped working to delete blocks of text. Tag: 90637
  - 25
    - Macro to Save Filename Creating a macro to modify a document, then save the document with the same filename in a different directory. While creating the macro, i do a "File, Save As" and select the location, but cannot get the open file name. Tag: My delete key has stopped working to delete blocks of text. Tag: 90636

My delete key has stopped working to delete whole words, sentences or blocks
of text. I do not know whether I accidentally hit something to program this,
or whether my keyboard or something is broken.

It works for email, but does not work for Word.

Top

Re: My delete key has stopped working to delete blocks of text. by Jay

Jay
Mon Sep 11 15:52:41 CDT 2006

In Tools > Options > General, uncheck both items that mention WordPerfect.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

PointCreek wrote:
> My delete key has stopped working to delete whole words, sentences or
> blocks of text. I do not know whether I accidentally hit something
> to program this, or whether my keyboard or something is broken.
>
> It works for email, but does not work for Word.

Top