Identifying a grammar error

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - XML for Comment Button Alright, so here's what I'm looking at. I'm making a custom tab on the Ribbon/Fluent UI in Word 2007. I've got that part down. It'll be populated with a series of buttons and/or drop down boxes, each of which is set to insert a prescripted comment into the document at where the cursor is. How do I do this? I know how to make a button which inserts some text into the document, but not how to make the button (or alternatively choosing an option from a drop down list or whatever) insert a comment. Also, on a related note, is there a way to make this user customizable? By that I mean, have like a Word document or Excel file that has all the names of the comments and the comment text and the user can change the text of a comment or title? Thanks! Tag: Identifying a grammar error Tag: 110842
  - 2
    - Installing a macro I've written a macro for Word which multiple people would like to have installed on their office and personal machines. In some cases, bringing their personal machines to me would be inconvenient for them, and travelling to their residence is an awkward option at best. In these cases, I would like to provide them a way to easily and painlessly install my macro (one or two-click installation, not a 13 step process of manually installing it in Word). Is there such a way to create a macro installation file, and if so, how? Tag: Identifying a grammar error Tag: 110839
  - 3
    - Inserting a full stop (period) at the end of each footnote should one Dear Experts, I wonder whether it is possible to insert a full stop at the end of each footnote should a full stop be missing. If there is already a full stop in place, the code should skip that footnote. I tried to write the macro myself but kept getting error messages. Your valuable help is much appreciated. Regards, Andreas Tag: Identifying a grammar error Tag: 110834
  - 4
    - Linked drop down fields - auto populate second field Hi, This macro works fine http://gregmaxey.mvps.org/Linked_DropDown_Fields.htm however is it possible to modify this so the second field Auto Populates based on the selection of the first drop down box? At present the user has to manually click in the second field and select from a list. In my case my list only needs to contain one choice. Eg. My first drop down list includes a list of names: John Smith, Bob Smith, Fred Smith which correspond to each of their own postal addresses. So If I select Bob Smith then the second field should auto populate with his address and so forth. This doesnt happen in the macro above can anyone suggest how this second field can be auto populated. Thanks. Tag: Identifying a grammar error Tag: 110817
  - 5
    - Macro to fix control click for a sentence Is there a way to create a macro using a simple keyboard shortcut that will only select one sentence quickly like control click does normally? Control+click has a serious flaw for use in a manuscript with a lot of endnotes at the end of sentences. It always selects not only the sentence clicked on, but also the previous endnote on the previous sentence. Is there a way to make it only selected the sentence at hand and not the previous endnote, with a keyboard macro. I use this control+click a lot on large mss with lots of endnotes. Note: control+click will not select, oddly eneough, spaces before a sentence or a bracket after a previous sentence's period, just an endnote number after the last sentence's period?? Tag: Identifying a grammar error Tag: 110814
  - 6
    - Trying to move label control using VBA I have a Word 2003 document that allows users to select a location from a drop-down list to pre-populate the letterhead with the correct address. The letter is used for several companies within our organization. After making the selection from the drop-down list, the company name gets loaded into one label control with bold formatting, and the address gets loaded into a second label control directly below the company name. Some of the international addresses have more lines in them than the domestic addresses, and I want the last line to line up with a graphic on the letterhead. Since the company names and addresses are in two separate label controls, bottom-alignment causes blank spaces under the company name. It appears that my best solution is to determine how much vertical space the address will require, then move the label controls accordingly so the bottom lines up with the graphic. I attempted to combine the label controls, but it appears I cannot use multiple formats within the same control (which would also solve my problem). I found some information for programmatically placing shapes in Word, but I have not been able to use the code for the label control. Does anyone have sample code to place the label control relative to the top of the page? For what it's worth, the document must remain backward compatible with Word 2000. Thanks in advance! Tag: Identifying a grammar error Tag: 110811
  - 7
    - Disable VBA Hi, I have a bunch of documents that use all sorts of macro code to format and control the document. The documents are all based on a template and the code is located in the template. I want to add a "publish" function that will prepare the document for sending out to customers (update a few fields, set document protection etc). At the completion of the publish function, I want it to either disable or remove the macros from the published instance document. This is important, because we don't want to expose the macros and other bits and pieces to our customers (or even to have the warning dialogue pop-up). Is this possible? The second piece that would be wonderful is to add the ability to reactivate the code from the original template, to allow us to manage and update the document. I can assume that the original template is available for this function. Tag: Identifying a grammar error Tag: 110808
  - 8
    - any idea how I can do this instead If I use a drop down list with 5 choices, if choice 2 or 3 is selected, a pop up box would disply to specify below. Any code snipets would be extrmemyl helpful I am under a huge crunch to get many forms done adn all will need to contain same macros. -- Thanks,, Kim Tag: Identifying a grammar error Tag: 110805
  - 9
    - Creating Header / Footer pages in a loop ! Automating a word report from access. Having problem with Header and Footer when looping throught the recordset. I must create 1 page for each record and each page must have it's owned Head/Foot. Note that the first page is OK but an error occur on the second page. The sample code use an array instead of a recordset. sub test() MyArray = Split("aaaa bbbb cccc dddd eeee ffff") Set wrd = CreateObject("Word.Application") Set doc = wrd.Documents.Add wrd.Visible = True For x = 0 To UBound(MyArray) Set Tbl = wrd.ActiveDocument.Tables.Add(wrd.Selection.Range, 1, 2) With Tbl Set Rng = .Cell(1, 1).Range Rng.Text = MyArray(x) End With CurIndex = wrd.Selection.Sections(1).Index wrd.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True wrd.ActiveDocument.Sections(CurIndex).Headers(wdHeaderFooterFirstPage).LinkToPrevious = False Set Rng = wrd.ActiveDocument.Sections(CurIndex).Headers(wdHeaderFooterFirstPage).Range Set TblHeader = Rng.Tables.Add(Range:=Rng, numrows:=1, numcolumns:=2) With TblHeader Set Rng = .Cell(1, 1).Range Rng.Text = "Header for " & MyArray(x) Set Rng = .Cell(1, 2).Range Rng.Text = "Header" End With wrd.ActiveDocument.Sections(CurIndex).Footers(wdHeaderFooterFirstPage).LinkToPrevious = False Set Rng = wrd.ActiveDocument.Sections(CurIndex).Footers(wdHeaderFooterFirstPage).Range Set TblFooter = Rng.Tables.Add(Range:=Rng, numrows:=1, numcolumns:=2) With TblFooter Set Rng = .Cell(1, 1).Range Rng.Text = "Footer for " & MyArray(x) Set Rng = .Cell(1, 2).Range Rng.Text = "Footer" End With Tbl.Select With wrd.Selection .Move wdCharacter, 1 ' get past table marker .InsertBreak Type:=wdSectionBreakNextPage .Goto What:=wdGoToPage, Which:=wdGoToNext End With Next x End Sub Merci ! Tag: Identifying a grammar error Tag: 110804
  - 10
    - Incredibly frustrated with Macro I have a macro that I am using that works like this, drop down selection has 5 choices, if choice 2 or 3 is selected then a message will pop up stating that the next field needs further clarification and to please fill in, in otherwards it will not allow the user to go past the next field if choice 2 or 3 is not clarified. I can set up my document and get this in and test it - works fine. I then build from there, adding header, footer, tables, check boxes, popup calendar macro, list box macros, specify continuous breaks and protections, then test All macros work except the choice 2-3 macro. It allows for bypass and does not show pop up message. What am I doing wrong? This is word 07 saved in dot format for use on re is macro code I am using: Option Explicit Public mstrFF As String Public Sub AOnExit() Dim oDoc As Word.Document Set oDoc = ActiveDocument With GetCurrentFF Select Case .Name Case Is = "SchoolType" Select Case .Result Case Is = "Other District School", "Private School/Home Schooled" ActiveDocument.FormFields("MyText").Enabled = True ActiveDocument.Bookmarks("MyText").Range.Fields(1).Result.Select Case Else ActiveDocument.FormFields("MyText").Result = "" ActiveDocument.FormFields("MyText").Enabled = False ActiveDocument.Bookmarks("MyText2").Range.Fields(1).Result.Select End Select Case Is = "MyText" If Len(.Result) < 1 Then mstrFF = .Name End If End Select End With End Sub Public Sub AOnEntry() Dim strCurrentFF As String If LenB(mstrFF) > 0 Then DoEvents MsgBox "Please list Other District School or Private School/Home Schooled" ActiveDocument.Bookmarks(mstrFF).Range.Fields(1).Result.Select mstrFF = vbNullString End If End Sub Public Function GetCurrentFF() As Word.FormField With Selection If .FormFields.Count = 1 Then Set GetCurrentFF = .FormFields(1) ElseIf .FormFields.Count = 0 And .Bookmarks.Count > 0 Then Set GetCurrentFF = ActiveDocument.FormFields _ (.Bookmarks(.Bookmarks.Count).Name) End If End With End Function -- Thanks,, Kim Tag: Identifying a grammar error Tag: 110802
  - 11
    - Disabling macros. Hello, I have a word document containing macros which run automatically when I launch the document. Specifically, the macro displays a userform which prompts the user to enter data that will go into the word file but saves a copy of this word file with the changes. The original file is untouched. So far so good. Here is my dilemma: I do not want the macro to run each time I open the copy of the original file. I found WordBasic.DisableAutoMacros at the following link but do not know how or where to use it. Can I use this command to disable auto-open macros from copies but keep the auto-open macros enabled in the original file? Thanks. http://word.mvps.org/FAQs/InterDev/DisableAutoMacros.htm Tag: Identifying a grammar error Tag: 110793
  - 12
    - { STYLEREF "EPRI Chapter Number"\n }-{ PAGE} I am using this field code to generate page numbers in the footer of a long document. It is working properly. Page 1 in Chapter 3, for example, appears as "3-1" at the bottom of the page. Ditto for page 2 in Chapter 3, which appears as "3-2". However, the Table of Contents does not reflect these page numbers. Instead, it uses page numbers such as 61, 62, etc. Here is the current field code for the Table of Contents: { TOC \O "1-3" \H \Z \U } How do I need to modify it so that it uses "EPRI Heading 2" for level 2 headers and and "Heading 2" for level three headers in the TOC? Help! Gwen H Tag: Identifying a grammar error Tag: 110792
  - 13
    - ToC: Testing for Table of Contents existence Hi, I've got a macro that updates existing Word ToC's. I'd like to enhance it by first testing for the existence of a ToC. If one exists, it would be updated; if not, one would be created. Is such a test possible? Thanks, Paul -- Using Office 2003 on Windows XP Home Tag: Identifying a grammar error Tag: 110791
  - 14
    - Macro to convert current doc to PDF Hi All. I need to write a Macro that will convert the current active document to PDF (to a specific location / file name). I've had a look around the forums and seem to get anything to work. This will eventually become part of a larger script that will batch convert bunch of Word docs to PDF (opening each one, running another Macro, saving to PDF, closing the Word doc and then moving on to the next). If anybody has any suggestions for the rest of this process I would welcome them. or now, my main concern is the conversion to PDF part. I have Acrobat 8 installed and I'm running Word 2003. Cheers! Dan. Tag: Identifying a grammar error Tag: 110776
  - 15
    - modify context menus programmatically Is it possible, as in Excel, to add controls to the context menus ? Just in certain situations, in certain templates I want specific custom menu items. With Excel you can: With Application.CommandBars("Whatever") Controls("...").Add etc.... OK in Excel you can even specify it to happen only if you right-click over a certain cell range and of course I won't get that from Word. But to set this through a routine would be much easier as I've seen the number of different context menus is bewildering in Word. For every user who might possibly use that template I have to manually insert the macro, change the name, get the icon etc etc As an example, how would I go about putting in a "Paste unformatted" into all context menus ? Sub PasteNoFormat() Selection.PasteSpecial DataType:=wdPasteText End Sub -- David M WinXP - Office2003 (Italian) Tag: Identifying a grammar error Tag: 110775
  - 16
    - Create new .doc files in every heading level Hi All, I'm a newbie on VB and I need little help. I have a long .doc document and my target is create new docs on every heading level. For example my document looks like this: 1. General This is general. 1.1 Cars Here you can find cars. 1.2 Houses Here you cand find houses. 2. Theory This is theory. So if I have a nice script it creates 4 files: general.doc, cars.doc, houses.doc and theory.doc. These files contains text between headings e.g. general.doc includes text "This is general" and houses.doc "Here you can find houses" I try to build a script but I found too many problems :(. Here is the body of my code. Sub create_files_from_headings() all_Headings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading) For i = 1 To UBound(all_Headings) MsgBox (myHeadings(i)) 'only for test purpose ActiveDocument.Content.InsertAfter Text:=myHeadings(i) Next i End Sub Thanks in advance ! Tag: Identifying a grammar error Tag: 110767
  - 17
    - Only print certain sections of a document in a form Hello Apologies if this is in the wrong discussion group. I'm modifying a word document that when protected will be used as a form/template. The document consists of 8 pages which the last 3 are guidelines. I want to create some sort of print macro or script that forces the print option to not print the last 3 pages. Ideally I'd like to avoid macros or script as I'm not the best with them, but i think this might be unavoidable. Any other suggestions would be helpful. thanks tish Tag: Identifying a grammar error Tag: 110765
  - 18
    - Macro to open built-in dialog in Word 2003 This question deals with Word 2003 on Windows XP. I know, in general, how to add a command or macro to the toolbar by clicking on Tools>Customize, clicking on the Commands tab, scrolling down the Categories list on the left side, highlighting the appropriate category, and then dragging the appropriate item to the menu bar. But not everything can be got to that way. For example, I would like to have a menu item or button that enables one to go immediately to the dialog box that opens when one clicks Tools>Customize>Keyboard with Macros highlighted in the left-hand side. The keystrokes, which are not recordable to bring up this dialog, in the macro recorder, would b. the following: <alt><T>, <alt><C>, <alt><K>, <alt>C>, <M>,<M>,<Right>. How would I write a macro that does this? I have an AutoHotKey script that does this, but I wanted to have a macro that does this. Regards, Alan Stancliff Tag: Identifying a grammar error Tag: 110764
  - 19
    - VBA Style Changes Effecting Template Hi, I have a piece of VBA code that updates styles in a document. The problem is every time this code executes, the base template is changed and I'm prompted to save it. What I want is for the change to only apply to the current document. An example of the code is If langUK Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUK Else If langUS Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUS ActiveDocument.PageSetup.PaperSize = wdPaperLetter Else ActiveDocument.Styles("Normal").LanguageID = wdEnglishAUS End If Tag: Identifying a grammar error Tag: 110762
  - 20
    - Insert Fields to Bookmark Hi, I have a document where I want to enter particular fields and text, depending on a condition. When completed, the bookmark should refer to the inserted text. The fields and bookmarks are already defined in the document. It's important that the fields be inserted in the bookmark, rather than just the value. The code should look something like: <delete existing bookmark text> If (condition) Then <add field1 to bookmark> <add text to bookmark> <add field2 to bookmark> Else <add field3 to bookmark> End If The cleanest way to do it would be to build the appropriate insert string then replace the bookmark. I can do this easily with text, but not with fields. Any suggestions would be much appreciated. Thanks, Geoff. Tag: Identifying a grammar error Tag: 110761
  - 21
    - ISASCII function VBA Gerus, Is there a function in VBA to derermine if a character is an ASCII character (A - Z or a - z)? I need something like this: msgbox IsASCII(aWord) returning a one or zero. Thanks. Charlie from Texas Tag: Identifying a grammar error Tag: 110755
  - 22
    - Update table cell in footer ! looking for the right syntax to access a cell in a footer ? here's what I've tried with no success... Set Rng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range with rng.table(1).cell(2,2) .text = "updated on february 25" end with Merci ! Tag: Identifying a grammar error Tag: 110752
  - 23
    - macro help please I need a macro that works like this: Drop down box contains 5 selections, if selection 2 or 3 are selected, then teh next field will highlight and a pop up will state " please list school attending" Word 2003 and 07 form is in *.dot format. -- Thanks,, Kim Tag: Identifying a grammar error Tag: 110748
  - 24
    - Using Middle Mouse Button to Cut/Paste Selection Is there a way to tie a VBA script to the middle mouse button? I want the middle mouse button to cut selected text and paste it where the user clicks the middle mouse button - is this possible? Tag: Identifying a grammar error Tag: 110740
  - 25
    - Looping WordPerfect used to automatically quit the macro when it couldn't find the search criteria anymore. Can Word do the same thing? Tried to do a loop but can't get it to work. Here is my code that I want to keep looping until it can't find anymore occurrences of *#*. Selection.Find.ClearFormatting With Selection.Find .Text = "*#*" .Forward = True End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="Macrobutton nomacro [Keyboard]" Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Fields.ToggleShowCodes Tks . . . Tag: Identifying a grammar error Tag: 110739
- Next
  - 1
    - { STYLEREF "Heading 1,Chapter Level" } Not Working I have a document with multiple chapters. The first page of each chapter has this: 1 Introduction The number 1 has the style "Heading 1,Chapter Level" applied. The word "Introduction" has the style "Heading 1,Chapter Level + Before: 0pt" applied. When I attempt to use { STYLEREF "Heading 1,Chapter Level" } to insert the chapter number in table numbers (i.e., "Table 1-2", where "1" is the chapter number and "2" is the table number), it doesn't work. The table number portion of it is working just fine, using { SEQ Table \* ARABIC \s 1 }. It's just the chapter number that isn't working. Instead of a chapter number, I'm getting the word "Introduction". Any ideas how to fix this? Thanks in advance, Gwen H Tag: Identifying a grammar error Tag: 110738
  - 2
    - inserting webpage as text into word doc. I am looking for a script or some advises how to write a script that sequentially opens several (specified) html pages, reads the text and inserts it into a word document, one after the other. A little help from my friends out there, please.... Tag: Identifying a grammar error Tag: 110737
  - 3
    - What does this WordBasic statement do? Hi all, I need to understand what this piece of WordBasic code do, in order to translate it to vba. Dim Q As Object Set Q = WordBasic.DialogRecord.EditFind(False) WordBasic.CurValues.EditFind Q I cant' find any information neither in the VBA help nor in the WordBasic help file. Thanks in advance, if you could help me. Regards, Philippe Tag: Identifying a grammar error Tag: 110732
  - 4
    - Bookmarks inside text box to insert text or pictures Using Word 2000. I am building a document that I want to use to generate written prescriptions for medicines. In order to control the exact placement of some text and graphics on the page, I would like to use textboxes. However, when I use the following code to do the insertion, the code can't find the bookmarks that are inside a textbox. In the instance of inserting text (for the final version of code, sBoxVal and sMark are set from controls on a UserForm): Sub Macro3() Dim sBoxVal As String, sMark As String sBoxVal = "SomeDrugName" sMark = "DrugName" Call FillMark(sMark, sBoxVal) End Sub Sub FillMark(sMark As String, sBoxVal As String) 'Go to bookmark and transfer the data. Selection.GoTo What:=wdGoToBookmark, Name:=sMark Selection.Range.Text = sBoxVal End Sub In the instance of inserting a graphic (in this case a .bmp of a signature that will vary depending on what doctor is writing the prescription): Sub Macro2() 'Go to Signature bookmark Selection.GoTo What:=wdGoToBookmark, Name:="Signature" 'Insert Signature Selection.InlineShapes.AddPicture FileName:= _ ThisDocument.Path & "\JPM Signature.bmp" _ , LinkToFile:=False, SaveWithDocument:=True End Sub Both of these approaches seem to work if I am using bookmarks in the main body of the document. I have discovered through fiddling around that if I click on the desired textbox before running the macro so that it has the focus before the macro runs the insertion works just fine. So, I think it might work if I could figure out how to set the focus on the correct textbox programatically. Thanks in advance Tag: Identifying a grammar error Tag: 110727
  - 5
    - how to put default suggested filename in SaveAs FileName:? I have the following simple macro to take a selection from a long document and create a new document from it, the problem is that every time I use it, the new file is saved to the same file name and over writes the old one. What I would like is to have the file saved to the default suggested file name that word would normally generate from the first line of the selection. Anyone know what the variable for FileName should be to make this so? Thanks Jim Sub NewDocFromSelection() ' ' NewDocFromSelection Macro ' Create new document from selection ' Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) ChangeFileOpenDirectory "D:\My websites\" ActiveDocument.SaveAs FileName:="What causes this Syndrome.docx", _ FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False ActiveWindow.Close End Sub Tag: Identifying a grammar error Tag: 110721
  - 6
    - se positionner sur un signet =?iso-8859-1?Q?plac=E9?= dans une zone de Bonjour, j'utilise la méthode suivante pour me positionner sur un signet: signet= "ici" Set rrange = odoc.Goto(wdGoToBookmark, , , signet) Ca marche en général très bien... Mais si le signet est dans une zone de texte (menu insertion/zone de texte), il me dit que le signet n'existe pas. En effet, dans word, si j'ouvre le document et fais ctrl-b, le signet présent dans la zone de texte n'est pas dans la liste. Il apparait uniquement après avoir cliqué dans la zone de texte. Quelqu'un pourrait-il me dire comment me positionner si le signet est dans une zone de texte? Merci, Alain Tag: Identifying a grammar error Tag: 110718
  - 7
    - detect new identifier from embedded excel sheet in word template I have a word template with an embedded excel sheet in it. I use a field to display the text from a cell in the sheet in another place in the word document, using the {LINK Excel.Sheet.8 "\\\..path..\\Template.dot" _1135171229!Sheet1!CELLNAME \a \t \* CHARFORMAT { }} Works fine - until I create a new document from the template and the identifier _1135171229 changes its value. I know how to change the identifier through VBA (as I already do the similar thing with the path and document name, which change too.) My problem is this; I can't find any simple way to get that new identifier from the newly created document! Is there any fast and simple way to do that? Tag: Identifying a grammar error Tag: 110716
  - 8
    - BUG ScaleHieght and ScaleWidth Alway return 0 For Inline Spreadshe I believe that there may be a bug in Word 2007 related to the ScaleHeight and ScaleWidth of an Inline OLE EXCEL spreadsheet. The issue is that the ScaleWidth and the scale heigh always return 0. Step to reproduce this issue include Open Word 2007 Paste any EXCEL spreadsheet an Microsoft Excel Office Worksheet Object Run the VBA CodeBelow Sub TestInlineObject() ActiveDocument.InlineShapes(1).ScaleWidth = 50 MsgBox ActiveDocument.InlineShapes(1).ScaleWidth End Sub Expected Results: The shape width is scaled 50% MsgBox ActiveDocument.InlineShapes(1).ScaleWidth should return 50 Actual Results: The shape width is scaled 50% MsgBox ActiveDocument.InlineShapes(1).ScaleWidth returns 0 THanks, Nathan Lacoff Tag: Identifying a grammar error Tag: 110711
  - 9
    - Code in document to place bookmarked data in Outlook subject line I have a Word document that has bookmark fields. I would like data from some of the bookmarks to show in the subject line when I email the document. We are using Office 97. Can this be done with code in the Word document or is it done in Outlook? Thanks in advance Ron Tag: Identifying a grammar error Tag: 110709
  - 10
    - error 5560 I have been using a "Clean up Text" template courtesy of this forum for about 18 months, and have just moved to Office 2007. Now getting Error 5560. Don't know if it is coincidental. The stumbling code (even when there is no text for it to clean) is: .Execute Replace:=wdReplaceAll Is there a way forward? Thanks Tag: Identifying a grammar error Tag: 110704
  - 11
    - Word 2003 search macro Hi all, In Word 2003, it is possible to write a VBA macro that searches for a string, positions the cursor at the string found, deletes the string, leaving the cursor where the string had been located. Such code might look like this: Selection.Find.ClearFormatting With Selection.Find .Text = "searchstring" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 However, if the string is not found, the macro deletes the character the cursor is resting on at the beginning of the search. What I want to know is if there is a way to test if the string is not found, so that another action can be taken. Such code might look like this: Selection.Find.ClearFormatting ' on not found, go to label NoSuchStringExists With Selection.Find .Text = "searchstring" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Exit Sub NoSuchStringExists: MsgBox "Sorry, I could not find this string" Regards, Alan Stancliff Tag: Identifying a grammar error Tag: 110699
  - 12
    - autonew mailmerge error Dear All, Working with Word 2003 on XP workstaions, I have a template that is being launched from a database application that uses an autonew macro. I want it to create a new document and do a mailmerge automatically. When I manually run the "RunMerge" sub that I created (after the autonew macro has completed and a new "Document 1" with the merge fields on it is on the screen, the merge completes successfully. However, if I include the code for the mailmerge in my autonew macro, it always fails. In the many permutations I've tried, I most frequently get an error message that says that the object or property doesn't exist, even though I've also produced an error that suggested the new document wasn't an acceptable main merge document. I've set a reference to the MSWORD.olb and provided a fully qualified name for the code. Is this a known problem of some sort? Any thoughts about other good places to look? Thnaks, Ridge (in New Joisey) Tag: Identifying a grammar error Tag: 110697
  - 13
    - Disabling click and change events in form initialize Hi, As with all user forms, if you set the value or state of a control in the initialize macro, then the corresponding _click or _change event macro will fire. I am looking for a way to disable this. I want to set the state and values of controls without firing these macros until after the initialize macro is done and the form is displayed. Is there a way to do this? Thanks, Peter Tag: Identifying a grammar error Tag: 110695
  - 14
    - Customize the Quick Access toolbar through a Word 2007 macro I am trying to write a macro to customize the Quick Access Toolbar when a Word 2007 document gets the focus and remove it when the document looses the focus. This way only the document that I put the macro into can use it and it is easy for the user to find it. Thanks for any help. Tag: Identifying a grammar error Tag: 110692
  - 15
    - Creating Excel Spreadsheet in Word with VBA Kind of a stupid question. Is it possible to create/embed an excel spreadsheet into a word document with VBA? I can just create a regular table and then copy and paste to Excel, but I want to know if there is any better option. Tag: Identifying a grammar error Tag: 110689
  - 16
    - How to change the "includeText" field value in the Footer via VB/VBA Hi, Im trying to change the "IncludeText" values in a word document throguh VB (VBA) , I need to change lot of word documents (nearly 500) , I could change the values of the "includtext" fields in the document body using the following ' /// after opened the document lcode = WordDoc.Fields(i).Code If Left(lcode, 12) = " INCLUDETEXT" Then newCode = Replace(lcode, "V:\\", "C:\\") WordDoc.Fields(i).Code.Text = newCode WordDoc.Fields(i).Update End If ' // save and close document and word objects but this code is not changing the "includetext" in the footer.. I dont know how to proceed now..can anyone help me here Thanks Tag: Identifying a grammar error Tag: 110686
  - 17
    - Bookmarks in footer - how to edit Hi, Im trying to change the "IncludeText" values in a word document throguh VB (VBA) , I need to change lot of word documents (nearly 500) , I could change the values of the "includtext" fields in the document body using the following ' /// after opened the document lcode = WordDoc.Fields(i).Code If Left(lcode, 12) = " INCLUDETEXT" Then newCode = Replace(lcode, "V:\\", "C:\\") WordDoc.Fields(i).Code.Text = newCode WordDoc.Fields(i).Update End If but this code is not changing the bookmarks or includetext in the footer, I dont know how to proceed now..can anyone help me here Thanks Tag: Identifying a grammar error Tag: 110685
  - 18
    - Unable To insert Line Break when selection is in TextBox hi , i am using Word Object Model to insert line break at selection using below statement: applicationObject.Selection.InsertBreak(ref BreakType) where BreakType is defined as object BreakType = MSword.WdBreakType.wdLineBreak; i get an COMException "Command Not available" whenever the current selection is with textBox. (inserted using Insert->TextBox) is anyone aware of alternate way of doing the same? Thanks and Regards, Anita. Tag: Identifying a grammar error Tag: 110684
  - 19
    - Disappearing Commandbar buttons [Word 2002/XP] I have a custom command bar with many buttons... but the two most recently added (invoking trivial macros) seem to disappear from the Controls collection even though they are still visually present on the command bar itself... (Word has been restarted since the original customisation) It only seems to happen after the VBA IDE has complained about a compile error though... and all the other buttons are fine... Any ideas? NB - when I say they disappear from the Controls collection I mean that having iterated through all of them they just aren't there anymore, not that e.g. the referencing "name" has been corrupted -- Julian I-Do-Stuff Some Vista stuff, but mostly just Stuff at http://berossus,blogspot.com Tag: Identifying a grammar error Tag: 110676
  - 20
    - Creating an Envelop I am trying to create a simple sub to create an envelope. ... Set MyDoc = Wrd.activedocument ' Create new envelopes strAddr = Me.FirstName & " " & Me.LastName & Chr(13) & Me.Address & Chr(13) & Me.City & ", " & Me.RegionID.Column(1) & " " & Me.PostalCode With MyDoc.Envelope .Insert Address:=strAddr, Size:="Size 10" End With ... the code does insert an envelop as section 1 but also leave the original blank doc as section 2. how can I simply get only the envelop without the blank doc section2. I also tried recording a macro to delete section2 but the the envelop revert to an 8.5x11.... Thank you for your help, QB Tag: Identifying a grammar error Tag: 110670
  - 21
    - Multiple easy questions. Hello, I would like to know how to: 1) I'm creating a kind of interactive program, what I need to do is to select each word of the document, then for each, select all the characters of the word and then do something with each one of the characters and the go to the next word, until now I have: Sub dfd() Dim oword, ochr As Range Set oword = ActiveDocument.Words For n = 1 To oword.Count oword.Item(n).Select Set ochr = oword.Item(n).Characters For Each ochr In oword 'bla bla bla bla ba Next Next End Sub 2) I would like to create a userform, when the userform is deactivated you are able to correct whatever you want for your document without closing the userform(like the find and replace form, you can change stuff on your document without closing the form) 3) a usrform with 2 bottons, before and next, when the before button is pressed it goes to the last word seleted (or changed) and with the next button it goes to the next word that fill a spesific criteria. Thanks for your help Tag: Identifying a grammar error Tag: 110669
  - 22
    - How to change an MS Word document's template before opening? Hi, Does anybody know how to change an MS Word document's assigned template, preferably before the document opens? DSOFile.dll can't do it, and I'm not sure what else that leaves? Any and all pearls of wisdom welcomed and appreciated, Cheers, Al Tag: Identifying a grammar error Tag: 110668
  - 23
    - Problem creating Userform Hi - I'm running Word 2000 at work and I'm trying to learn to create a Userform. I've been using the article by Doug Robbins on how to create a Userform and when I code in his example (letter for letter) I get the following error: Compile error: Method or data member not found It seems to be in regards to " .Range_ " in the the line: .Bookmarks("Text1").Range_ Can someone please help me? I'm sure it's a very simple error and one which is probably a simpler over looked area from me. Thanks for you future help.... Darren. Tag: Identifying a grammar error Tag: 110665
  - 24
    - Update Textbox1 after combox easy help for beginner! I want only that after I choose in the Combobox1 one value in the textbox1 appear automatically this value! I know it s a stupid question...I'm starting know to work with WBA and so I' reading a lot! Sub MACRO22() UserForm1.Show UserForm1.ComboBox1.RowSource = ThisWorkbook.Worksheets("Foglio1").Range("A1:A3").Address(External:=True) End Sub Private Sub ComboBox1_AfterUpdate() UserForm1.TextBox1.Text = UserForm1.ComboBox1.Value End Sub Tag: Identifying a grammar error Tag: 110658
  - 25
    - disable macros in word Hi, I would like to be able to write codes to disable macros in VBA for office word 03 document. I wonder if anyone might be able to guide me on how to do this? Thank you in advance Tag: Identifying a grammar error Tag: 110649

VBA Gerus,

If my code selects a word in a document (e.g., "while"), how do I
determine if the word is part of a grammar error without stepping
through each error in the document to locate it?

The code "For Each MisWord In ActiveDocument.GrammaticalErrors" can be
used to step through and identity each error, but what I need is to be
on a word and determine if it is part of a grammar error.

Thanks.

Charlie from Texas

Top

Re: Identifying a grammar error by Tony

Tony
Wed Feb 27 10:57:34 PST 2008

I guess you should use it with caution - but no more caution than the whole
collection or anything else to do with grammar.

Selection.Range.GrammaticalErrors.Count

should be >0 if the selection is part of a grammatical error.

--
Enjoy,
Tony

"Charlie Mac" wrote in message
news:9luas3t4mo9mp6q4rgnmdekgl9a34fskas@4ax.com...
> VBA Gerus,
>
> If my code selects a word in a document (e.g., "while"), how do I
> determine if the word is part of a grammar error without stepping
> through each error in the document to locate it?
>
> The code "For Each MisWord In ActiveDocument.GrammaticalErrors" can be
> used to step through and identity each error, but what I need is to be
> on a word and determine if it is part of a grammar error.
>
> Thanks.
>
> Charlie from Texas

Top

Re: Identifying a grammar error by Charlie

Charlie
Wed Feb 27 11:21:31 PST 2008

Tony,

That is exactly what I needed. Thank you.

Take care,

Charlie from Texas

On Wed, 27 Feb 2008 18:57:34 -0000, "Tony Jollans" <My forename at my
surname dot com> wrote:

>I guess you should use it with caution - but no more caution than the whole
>collection or anything else to do with grammar.
>
> Selection.Range.GrammaticalErrors.Count
>
>should be >0 if the selection is part of a grammatical error.

Top