Macro to find and delete specific table

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Retrieveing email addresses from Word Doc I need to extract telephone numbers from a Word document and insert them in Excel. So I decided to search for the area code (450). However my loop that executes the Find method doesn't stop, so I'm stuck in a loop. Can anyone tell me what I'm doing wrong? For Each rng In objDocument.StoryRanges With rng.Find .ClearFormatting .Text = "450" .Wrap = wdFindStop .Forward = True End With Do Until rng.Find.Execute = False rng.Expand Unit:=wdSentence myArray = Split(rng.Text, " ", -1, vbTextCompare) For i = 0 To UBound(myArray) If InStr(1, myArray(i), "450", vbTextCompare) <> 0 Then 'Insert into excel cell End If Next i Loop Next rng Tag: Macro to find and delete specific table Tag: 111138
  - 2
    - Macro for deleting mult. pictures in word I need a macro for deleting multiple pictures (over 400) in a 2003 word document. -- Howard Irwin Tag: Macro to find and delete specific table Tag: 111133
  - 3
    - Extracting OUTLOOK data into Word Hello, I have searched the forums and need help in extracting OUTLOOK data. I have created a userform in Word that users will utilize in inserting information into a letter. Essentially, I want to extract OUTLOOK information about a user (specifically, phone number and/or email address of the person drafting the letter) and automatically insert that into the form and ultimately the letter. Is there a built-in object in Word VBA that I can use to pull this data from OUTLOOK? I would like anyone with an account with our internal OUTLOOK exchange server to use this Word macro to get their personal information. Thanks! Tag: Macro to find and delete specific table Tag: 111132
  - 4
    - Document1 Hi Does anyone know how I can change the layout of the default "Document1" that Word opens automatically on entry. I know I can create a new document based on my own template, however I would like it to avoid the extra keystrokes. Thanks Elliot Tag: Macro to find and delete specific table Tag: 111125
  - 5
    - Export form data to other form in Word Hi everybody, Is there a way I can import data from one Word form into another Word form? I have a form where there is a Yes/No checkbox, and when the user checks Yes, another form opens up. I have a code that actually does open another form, but my problem is how to actually "link" the two, that is, the second form should have some identification as to which form actually invoked it. Thanks in advance. Tag: Macro to find and delete specific table Tag: 111121
  - 6
    - Insert pictures in word document - search and replace with a picture Hi All, I am trying to create a macro for Word 2003 that will loop through a document and insert a book cover picture from a file directory based on the a code in the document At the moment we have a table with the following: Isbn Fmt Image Title Author Was Now 07121654654 Additup Book Title 1 Mor 26.95 7.99 0146543078 Addkeki Book Title 2 Padraic 29.95 7.99 9780755464 B BDUFIJO Book Title 3 BISSETTI 24.99 7.99 9780399564 B CDUJOBO Book Title 4 LEHM 24.99 7.99 I want to be able to run a macro that will, based on the code in the image column, go into c:\pictures\a or c:\pictures\b or whatever based on the first letter. I would like to be able to also resize the graphic to a standard size e.g. 95 w x 120 h (for example) Any Ideas? Thanks in advance Steven Reid Tag: Macro to find and delete specific table Tag: 111117
  - 7
    - Dialog FormatPicture tab Web Hi all, How can I display in VBA the tab Web from the FormatPicture dialog? Tag: Macro to find and delete specific table Tag: 111111
  - 8
    - Help with error message Hi; Can anyone help me with the following: I've created a form with some built in macro which allow the user to get different selection list when they select different country. It works well at my end. However, when the user fills in and save the form, they will get a prompted message as follows when they open the form later: Error message: Do you want to merge cahnges in "alice-01Mar 2008.doc" back into D:\Profiles\Alice\Desktop\New Hires-IDL\Alice-01Mar 2008.doc"? There are 3 selections available after the user got the above prompted message (Yes, No or No and don't ask again) Some of the data that they have filled and saved previously will be missing after they get the above message. Appreciate if someone could help on this urgently. Thanks in advance. Tag: Macro to find and delete specific table Tag: 111107
  - 9
    - Cascading dropdown The user selects a name from a Drop down field and then an address automatically appears in a Text form field without the user having to click in the Text form to trigger the change. In html its called a cascading dropdown. This html site explains it http://www.asp.net/AJAX/AjaxControlToolkit/Samples/CascadingDropDown/... Is this possible using vba? Tag: Macro to find and delete specific table Tag: 111102
  - 10
    - If not Found then Input Hello from Steved The below I would like the macro to ignore but it inputs L 0:0:0 and R 0:0:0 Please how do I tell the macro that Example is right and move onto the next and so on, now if eample 2 is found then input L 0:0:0 above the R 22:10:30 and in Example 3 input R 0:0:0 below the L 12:19:1 and finally in Example 4 input L 0:0:0 and L 0:0:0 The macro is below the Examples. Thankyou. Example 1 Example 2 Example 3 Example 4 SPR SPR SPR SPR L 6:0:1 R 22:10:30 L 12:19:1 F 0:0:0 R 8:0:3 F 17:10:21 F 9:11:7 F 1:0:12 Sub Main1() Dim aDoc As Document Dim SearchRng As Range Dim AllRng As Range Set aDoc = ActiveDocument Set AllRng = ActiveDocument.Range Set SearchRng = AllRng.Duplicate Do With SearchRng.Find .ClearFormatting .Text = "F [0-9]:[0-9]:[0-9]" .Forward = True .Wrap = wdFindStop .MatchWildcards = True .Execute End With If Not SearchRng.Find.Found Then Exit Do SearchRng.MoveStart wdParagraph, -3 SearchRng.MoveEnd wdParagraph, -3 SearchRng.Select 'Stop If Left(SearchRng, 1) = "S" Then SearchRng.InsertAfter "L 0:0:0" & vbCr & "R 0:0:0" & vbCr SearchRng.MoveStart wdParagraph, 3 Else If Left(SearchRng, 1) = "L" Then SearchRng.InsertAfter "R [0-9]:[0-9]:[0-9]" & vbCr SearchRng.MoveStart wdParagraph, 3 Else If Left(SearchRng, 1) = "R" Then SearchRng.InsertBefore "L [0-0]:[0-9]:[0-9]" & vbCr SearchRng.MoveStart wdParagraph, 3 End If End If End If SearchRng.End = AllRng.End Loop Until Not SearchRng.Find.Found End Sub Tag: Macro to find and delete specific table Tag: 111099
  - 11
    - problems with Find Hi, I'm writing an add-in for Word that does a lot of find/replace operations. Some of these I do using Range.Find.Execute2007... for more complex problems I built a Regex find/replace engine. There is one point at which I am performing two searches back to back on the same range (two duplicates of the same range, that is). Both strings are present in the range. When I attempt to debug it I can verify this. One find succeeds, the second one fails, but if I reverse the order, the same one fails whether before or after the other... well... here's the text in the range that I'm searching: ========================================================================= "SCHEDULE A TRUST ESTATE PROPERTY The following described property is hereby conveyed and transferred to, and deposited with TRUSTEE, Trustee of THE REVOCABLE LIVING TRUST, subject to the terms and conditions of the foregoing Trust Agreement: Real Estate: All real estate wherever situated, owned by Grantor or in which Grantor has an interest. Personal Property: 1. All cash, gold or silver bullion or coins, checking accounts, savings accounts, certificates of deposit, money fund deposits, or similar cash or cash equivalent accounts now held in the name of Grantor. 2. All stocks, bonds, investments, and securities of any nature whatsoever now owned beneficially or of records by Grantor. 3. All notes, contracts, mortgages, and deeds of trust receivable (if any) now owned by Grantor. 4. All household furnishings, goods, and appliances, and all jewelry and personal effects, or other personal property of any nature and wherever situated (except motor vehicles) now owned by Grantor. All of the above-described property consisted of, or while held in trust hereunder, shall be deemed to be separate property of Grantor. Dated the _________ day of _____________________, 2008. , GRANTOR" ========================================================================= the two ops are: rng.Find.Execute2007("TRUSTEE", True) <- returns True rng.Find.Execute2007("THE REVOCABLE LIVING TRUST", True) <- returns False walking the code, the above are what the code boils down to, though my actual code calls my own find function, passing range and text for which to search as parameters... and it does first make a duplicate of the range... the calls above are the ones that are actually being made in the heart of my own little find/replace system... and I have verified that in both the range text is the text above... no matter the order, the first one above (TRUSTEE) always succeeds and the second one always fails, but it seems clear to me that both are in the range. Am I doing something fundamentally wrong here? Is this a known issue? If so, any work-arounds? If I use my own regex system it works just fine, but my concern is that I am using Word's internal find throughout my add-in, but I have not taken the time to check to make sure that every find is working as it ought to... if, after my code finishes running, I go into Word and open its Find window and copy/paste the quote directly out of my code, it finds "THE REVOCABLE LIVING TRUST" just fine... so I'm stumped... Thank you, Chris Tag: Macro to find and delete specific table Tag: 111093
  - 12
    - Word 2007 Options Where are the Word Options in Word 2007 stored? I edited NORMAL.dotm and copied that over, but changes in Word Options do not keep. Help is greatly appreciated. Tag: Macro to find and delete specific table Tag: 111086
  - 13
    - Customization of Citations in Word 2007 Hi all, i am customizing Word 2007 in-built citation. I managed to create own citation style.(adding a xsl file in C:\Program Files\Microsoft Office\Office12\Bibliography\Style folder. with this approach I am able to add new citation style. also i added some new sources in the citation. By default Word 2007 provides sources like book, film, article in a periodical etc. I added new sources by adding some new sources in Bibform.xsl file in Word 2007 folder in Program Files. Now, whenever i select this new citation style or the Word 2007 inbuild citation style (like APA, Chicago etc), and do add new source, i am able to see all the sources (Word 2007 default sources + the ones i added). Is there any way to mention which sources should be shown in particular citation style ...? Any pointers on this would be of great help. Reffered Blog http://blogs.msdn.com/microsoft_office_word/archive/2007/12/14/bibliography-citations-1011.aspx Thanks and regards, ~Anita Tag: Macro to find and delete specific table Tag: 111083
  - 14
    - Share Toolbar for multiple templates Hi, is it possible to share a toolbar to use it within multiple templates? I've put the template with the toolbar to be shared in the office startup folder, but i want the toolbar to appear only in specific templates, not in everyone. cheers, matthias Tag: Macro to find and delete specific table Tag: 111058
  - 15
    - Remove text from a range Hi I need this macro to merge cells and remove all text. ********************************************** Sub MergeRangeAndRemoveText() Dim rng As Range Set rng = ActiveDocument.Range _ (Start:=ActiveDocument.Tables(1).Cell(5, 3).Range.Start, _ End:=ActiveDocument.Tables(1).Cell(6, 5).Range.End) rng.Cells.Merge rng.Text = "" End Sub ********************************************** The merge works fine, but the text is not removed. Thanks Harold Tag: Macro to find and delete specific table Tag: 111057
  - 16
    - How to change list for normal text and add dash? Hello. There is short story with dialogues. These dialogues has formated of list marked (the dash). I need to format these dialogues into other style (Normal) and insert before each dialogues the dash, as is it was previously with list. I wrote the code, but it replace not all entries. That code: Sub listChange() 'Change list format on Normal text with the dash Dim List1 As Style Dim List2 As Style Set List1 = ActiveDocument.Styles("MarkList") Set List2 = ActiveDocument.Styles("Normal") With Selection.Find .ClearFormatting .Style = List1 .Replacement.ClearFormatting .Replacement.Style = List2 .Text = "" .Replacement.Text = "^+^s^&" .Forward = True .Wrap = wdFindContinue .Format = True .Execute Replace:=wdReplaceAll End With End Sub And here (http://rapidshare.com/files/96671459/list.doc.html) you can download the file with sample dialogues. Thank you very much. Tag: Macro to find and delete specific table Tag: 111054
  - 17
    - really big problem please help! I have purchased a dig cert fir VBA projects. I have created my forms, signed the project under tools, digital certificates adn saved my forms (they are in .DOT format). How come when I reopen them the form says that teh current form is not signed (no certificate) but my cert shows in the sign as area. I checked before I closed the document adn my certificate was appearing as signed, but when reopend was not there! HELP! Iam working in word 07 and if I disable my macro settings then the dig certificate does not work. Why will the dig certificate not stick? -- Thanks,, Kim Tag: Macro to find and delete specific table Tag: 111044
  - 18
    - Assigning a String to a Variable in Word 2003 In Word 2003 VBA, if I wanted to assign a string to a variable, I could do it with the following code: Sub eraseme() Dim MyText As String MyText = "Here is my wonderful string, assigned to its very own variable" MsgBox MyText End Sub But supposing the string I wanted to assign to a variable was this? Here is my "wonderful" string, assigned to (its very own) variable. 'I hope. And it had all those things that mean something special in VBA, such as quotation marks, parentheses, apostrophes? What would be the correct approach to that? Regards, Alan Stancliff Tag: Macro to find and delete specific table Tag: 111037
  - 19
    - Delete any leading (redundant) spaces after tab of built-in-heading Dear Experts, I got a long word-file where the user has inserted spaces (1 to n) after the tab of the built-in heading styles (featuring hanging indents) and before the text of the headings. Example 1.1Tab(HangingIndent)RedundantLeadingSpacesHeadingText But it should be: 1.1Tab(HangingIndent)HeadingText So how can I programmatically (VBA) drop these redundant leading spaces? Help is much appreciated. Thank you very much in advance. Regards, Andreas Tag: Macro to find and delete specific table Tag: 111033
  - 20
    - Endnotes and formatted text Hi, I am trying to create a Word C# add-in that will find all of the endnotes in a document, re-sort them so that the first one will be #1, and add a hyperlink back to the section heading that the endnote reference resides in. Most everything is working well except I can't do two things: 1) Add formatted text programmatically to the endnote text. Endnotes.Add doesn't allow a range (just text) and when I try to update the endnote after adding a temporary text string, the resulting endnote text is blank: Range = aDoc.Range(ref textStart, ref textEnd); aDoc.Endnotes[1].Range = findE; 2) Add the hyperlink back to the section heading. This is most likely due to my issue with the formatted text, but I have tried to work around it by using a Find and trying to find the Endnote Text, but that isn't working either. Are we not able to find Endnote Text programmatically? I tried a VBA macro as well and it didn't work. Here is my C# approach: Range findEndnote = aDoc.Content; findEndnote.Find.Forward = true; object objTrue = true; object objEndnoteStyle = "Endnote Text"; object objEndnoteFind = aDoc.Styles.get_Item(ref objEndnoteStyle); findEndnote.Find.set_Style(ref objEndnoteFind); findEndnote.Find.Text = "Section"; findEndnote.Find.Execute( ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref objTrue, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing); Tag: Macro to find and delete specific table Tag: 111031
  - 21
    - Value of a REF field via macro/vba inserted into save as filename Hi, I'm new at this macro / VBA (first post here) and this has been a pretty exciting journey so far. Using Word 2003 I am trying to write a couple macros to automate a few repetitive document functions. I looked at some books in the book store (which didn't cover the subject), have printed several good tutorials referenced frequently and prominent in google ranking (I'm sure you know the ones I found), searched quite a bit through the help, msdn, mvp sites, ... and have analyzed some related samples, but can't find this detail. Goal: With this macro I would like to automate and thus standardize the suggested file save as name. (showing the dialog to allow the user control over the destination; so not automatically saving the file without dialog ... at least not for the time being, a further step might be to suggest saving it with a modified save as path that includes a subfolder based on the name, but first things first) Background: I created a new template. By the way the title of the template is set to Note, Letter, Fax - which will be referenced as well. (this is just the first template of 3 - 4 I'm making). Via ASK fields it asks a few questions (Name, Number, ...) activated by an AutoNew macro. REF fields show the answers in the resulting document (document & header, extra macro piece added to make sure it updates the field results in the header). After finishing the document I would like to use a customized Save As dialog. The special save as ... Created a macro which - looks at the document properties title - grabs the current date and then succesfully displays a dialog as follows: Dim dlg As Dialog Set dlg = Dialogs(wdDialogFileSaveAs) With dlg .name = "_" & strDocumentType & strDate & ".doc" .show End With Now, before the underscore I would like to access the value of Name and Number; and thus suggest this name: .name = strName & strNumber & "_" & strDocumentType & strDate & ".doc" So, my questions is, how can I get the values of { REF Name } and { REF Number } into strName and strNumber? Note: With this file name idea I can ending up with very long file names, so I am using a shorthand date and using an abbreviation for the document type; done earlier in the macro. An additional question comes in if it is possible to maniuplate the strName and have the initials from {REF Name} rather than the full first name and last name? Or maybe it should be two ASK questions FirstName and LastName? And take the initial from both? Of course an additional ASK for initials would be possible; but it should be possible to do it automatically, I think. Thanks in advance for your help and advice. Frank Tag: Macro to find and delete specific table Tag: 111029
  - 22
    - symbol - please help Hi, Can anyone give some advice how to ask Word or Excel is there in any cell or anywhere in the Word document, exactly symbol, for example "Sun". In Insert Symbol dialog box there are character codes for each symbols but i cannot find property for character that says, this character has code number for example 68. I' ve found somowhere something like this, but I want to ASK about character symbol not to assign character. ActiveDocument.Range(characternumber:=171, Font:="Symbol", Unicode:=False) Please help, and thanks a lot! Ivo Tag: Macro to find and delete specific table Tag: 111017
  - 23
    - A program to find and replace Hi, I am going to write 2 VBA programs to do find-and-replace, though I know that there is a built-in find-and-replace function in Word. The 1st program finds the word which I specify and is also in red. The program replaces them by the word that I enter. For example, the word "name" is in red and appears at different places in a Word document, I want to use the 1st program to find all of it and replace them by "John" one by one. The 2nd program finds all the words in red and the program replaces them by the word that I enter. For example, the words "name", "address" and "phone" are red in a document, and I want to use the 2nd program to find them and replace them by "John", "England" and "123456" respectively. Can someone give me hints on doing the above with VBA? Thanks. Mike Tag: Macro to find and delete specific table Tag: 111016
  - 24
    - Add Custom Tab Ribbon07 with Multiple DropDowns - Help! Help please - throwing myself in at deep end and dog paddling to create a working Custom Tab with multiple dropdowns plus buttons! I'm cobbling together a custom Tab but wanting multiple dropdowns (not just one) and ideas on VBA of how to simplify all the dropdowns in the one Ribbon Module. All my dropdowns have loaded in the TAB as they should but I'm just not sure how to approach the VBA Ribbon Module to cope with multiple Dropdown IDs and macros? Based on Greg Maxey's dropdown sample - does anyone have any ideas how to best simplify the module RibbonControl (Greg?) to incorporate ALL groupids: DD DD1 DD2 in the VBA project? I'm going to have about 15 dropdowns all up - my working macro Custom Tab." <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="Test" label="Test"> <group id="iTest" label="iLabel"> <button id="Btn1" label="2 Spaces . ? ! Clean" size="large" image="image1" onAction="Doc_Clean"/> <button idMso="StylesModifyStyle" /> <dropDown id="DD" label="M1" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> <dropDown id="DD1" label="M2" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="Test" label="Test"> <group id="iTest" label="iLabel"> <button id="Btn1" label="2 Spaces . ? ! Clean" size="large" image="image1" onAction="Doc_Clean"/> <button idMso="StylesModifyStyle" /> <dropDown id="DD" label="M1" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> <dropDown id="DD1" label="M2" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> Et cetera.... Code Module which needs to be expanded on to include ALL the IDs for dropdowns and Cases for the macros - Am I being too simplistic expecting the macros to be sequential Macro1 to Macro50 and expecting to modify the DD Id?: Option Explicit Sub GetDDIndex(ByVal control As IRibbonControl, selectedID As String, _ selectedIndex As Integer) Select Case selectedIndex Case 0 Macros.Macro1 Case 1 Macros.Macro2 Case 2 Macros.Macro3 Case 3 Macros.Macro4 Case 4 Macros.Macro5 Case 5 Macros.Macro6 Case 6 Macros.Macro7 End Select End Sub Sub GetDDCount(ByVal control As IRibbonControl, ByRef count) count = 7 End Sub Sub GetDDLabels(ByVal control As IRibbonControl, _ index As Integer, ByRef label) Dim i As Long For i = 0 To index label = Choose(i + 1, "Clear Text", _ "Macro Clear FR", _ "Macro 3", _ "Macro 4", _ "Macro 5", _ "Macro 6", _ "Macro 7") Next i End Sub Sub Doc_Clean(ByVal control As IRibbonControl) Macros.Doc_Clean End Sub Tag: Macro to find and delete specific table Tag: 111015
  - 25
    - How to ask a modified style be affected on current document Hello I have a long document created in HTML, opened in MS Word 2003 and saved as a doc It seems it is using "Normal", "Normal (Web)" and "Heading 3" styles. I want to set the font and paragraph properties of the above styles and then the modified styles take effect in current (long) document. What is the best practice? Thanks in advance. Hamed P.S. Sorry to send to multiple groups. I don't know to what topic does this problem is related. Tag: Macro to find and delete specific table Tag: 111011
- Next
  - 1
    - Objects as Properties in VBA - possible? Hello all, Is it possible for a property of an object in VBA to itself be an object? I'm working on a program that involves chemical equations, and consequently I have defined a couple of useful classes: "ChemicalCompound," and "ChemicalEquation." The ChemicalEquation class has as one of its members an array of ChemicalCompound objects, which represent the reactant compounds in the equation. I would like to keep the actual array private (i.e. access restricted to the class) and use a Property Get to access the ChemicalCompound objects in the array. Is possible for the return value of a Property Get to be an object of a user-defined class? Here's some rough code that might give you a sense of what I'm trying to do: In Class Module ChemicalEquation: Private Type ChemicalCompoundsList 'Note that the nth coefficient goes with the nth compound Compounds() As ChemicalCompound Coefficients() As Integer End Type Private pReactants As ChemicalCompoundsList Private pProducts As ChemicalCompoundsList 'Can I do this?: Property Get ReactantCompound(Index As Integer) ReactantCompound = pReactants.Compounds(Index - 1) End Property In a Standard Module: Sub TestChemicalEquationClass() 'Create a ChemicalEquation Object Dim MyEquation As ChemicalEquation Set MyEquation = New ChemicalEquation 'Retrieve the 1st ChemicalCompound object in the pReactants array, 'via Property Get ReactantCompound Dim MyCompound As ChemicalCompound MyCompound = MyEquation.ReactantCompound(1) End Sub Any takers? Help is always greatly appreciated. Tag: Macro to find and delete specific table Tag: 111005
  - 2
    - Create editable document with permanent fields in Word 2003 Hello all, I'm going nuts trying to figure out how to create templates that populate from a data source, are completely editable, yet also have some way of marking and retrieving text from the populated locations in the document. The obvious answer to this is to use either form fields or bookmarks, since they both contain ranges and they can both be referenced with an associated name property. And they do indeed work, but they are easy to unintentionally delete by the users, which makes later parsing and retrieval of text from said fields impossible. I ran across one interesting idea to get around this limitation, which is to assign each form field its own section, and then to set those sections to ProtectedForForms = True. This ALMOST worked - which is, of course, even more frustrating than total failure :). Unfortunately, Word can't have multiple section breaks - even continuous section breaks - in a single line, and a number of my templates need to have four or five fields in close proximity. Having line breaks between them would be unacceptable for many of the templates, particularly the legal documents. A similar limitation occurs with bookmarks, but there I can't both protect the bookmark and assure that it won't be typed over accidentally. If I protect them then they can't be manually edited, but if I don't it only takes one long select and over-type and they're gone. I had previously been using Document Property fields to populate the document using the Custom Document Properties, auto-updating them, then detaching the fields from their references to make them editable. The problem is that once that's been done, I can't programmatically retrieve information from those fields, which makes future data gathering impossible - or manual, which is essentially the same for me :) I came up with a little function to find and store the index locations of each field in the document for later reference if I ended up having to use a type of field that doesn't have a name property - like a Quote field, for example - but I always end up running into the protection issue. The only thing I can think of other than that is to have the field areas linked to button-type macros that activate on double-click, but it would be a huge pain to convert all of my templates to use such a system, and I really don't like the idea of implementing such a code- intensive task for every field in a document if it's at all possible to avoid it. If necessary, I'll just eschew my dreams of data retrieval and stick with the Document Property fields, but I'd *really* prefer not to. Surely this isn't such a wild concept - can anyone help? Thanks, Morgan Tag: Macro to find and delete specific table Tag: 110996
  - 3
    - Question about TOC position and footer Automating a word report. the TOC can take the space of 1 to 3 pages long. I'm looking for the correct way to insert the TOC on page 3 of the report. When I build the report, I leave page 3 empty (sectionbreak in top of page) , set all the toc field in the following pages and once done, I return or goto page 3 and then add the TOC. The problem that I have is with the footer of pages containing the TOC. If the TOC has just one page, the footer is OK. If the TOC has 2 or more pages, the footer is not repeated. (probably because no section break ?) here's the step I coded... .DifferentFirstPageHeaderFooter = True page1 :no footer page2 :add custum footer, wdHeaderFooterFirstPage, LinkToPrevious=false page3 : insert TOC, wdHeaderFooterPrimary, LinkToPrevious=true ...suppose toc is 3 pages long page4 : no footer page5 : no footer page6 : add custum footer, wdHeaderFooterFirstPage, LinkToPrevious=false OK How can I get a footer on page 4 and 5. Can I force footer to appear on each page instead of each section cause the problem here is that the section is 3 pages long. Maybe it's not the way to do it ? and hoping I'm clear... Merci ! Tag: Macro to find and delete specific table Tag: 110994
  - 4
    - Set XL range into Wrod bookmark as a table? With Word and Excel 2003 - I am trying to automate setting a range of Excel cells into a Word bookmark as a table. I used the code below. The code ran all the way through - but absolutely nothing showed up in Word!! Help??!? Ed Sub XLtoWord() Dim wd As Object 'Word.Application Dim doc As Object 'Word.Document Dim wkb As Workbook 'This workbook Dim wks As Worksheet 'This workbook Dim rng As Range 'This workbook Dim x As Long Set wkb = ActiveWorkbook Set wks = wkb.Worksheets("PB Life for BW") x = wks.Range("A100").End(xlUp).Row Set wd = CreateObject("Word.Application") Set doc = wd.Documents.Add wd.Visible = True doc.Paragraphs(1).Range.InsertAfter vbCrLf doc.Bookmarks.Add Name:="XL1", Range:=doc.Paragraphs(1).Range doc.Bookmarks.Add Name:="XL2", Range:=doc.Paragraphs(2).Range Set rng = wks.Range("A2:H30") doc.Bookmarks("XL1").Select Selection = rng Set rng = wks.Range("A31:H" & x) doc.Bookmarks("XL2").Select Selection = rng Set doc = Nothing Set wd = Nothing End Sub Tag: Macro to find and delete specific table Tag: 110993
  - 5
    - MUltiple choices from drop down box In excel I can make a drop down box and select multiple choices if the user requires more than one selction to complete the answer. Can this be done in Word? -- Thanks,, Kim Tag: Macro to find and delete specific table Tag: 110990
  - 6
    - Supress field updating on Word to PDF conversion Hello, I am running a macro that converts a directory of Word documents to PDF files. I am using a field in the footer that contains the file name. For some reason I cannot supress the field updating. I rename the documents via a script after placing the original filename in the footer. I need to preserve the original filename for archiving purposes. I have added the last 2 lines of code to the procedure to try to supress it, but it still updates the field to the new name. ' Save the Word file as an PDF file ActiveDocument.SaveAs FileName:=Left(strFilename, Len(strFilename) - 4) & ".pdf", _ FileFormat:=wdFormatPDF, LockComments:=True, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False Options.UpdateLinksAtPrint = False Options.UpdateFieldsAtPrint = False Converting isn't really printing in this case (I think anyway). Any help would be greatly appreciated. Thanks! Tag: Macro to find and delete specific table Tag: 110988
  - 7
    - Overflow error 6 I have some complicated code that inserts a vertical bar in the left margin at the cursor location. The bar matches the point height of the font at the cursor location, or spans the selected range. I have to calculate the range start and end; and, to ensure that the bar is always at the same distance from the left margin, I also take into account the section margin lay out. Once in a while, I get an Overflow error 6 when running the code. There does not seem to be any rhymes or reasons. The only thing I may say is that it seems to happen if I rapidly use the code with various range lentghs. The debugger always points to the same line in my code, even if I move the statements around. It is a variable assignment line: sngHeight = 0 I do not understand what is happening. How can assigning "0" to a Single variable cause an Overflow? Here is the start of the code: Sub InsertVertLine() Dim myShape As Shape Dim sngHeight As Single Dim sngDiff As Single Dim rngCurrent As Range Dim boolHeadFoot As Boolean Dim sngModMargin As Single Dim sngModMarginBottom As Single Dim sngLeftMargin As Single Dim sngAdjustVertPos As Single Dim sngListIndent As Single Dim sngConsLeftMargin Dim boolMultiLine As Boolean Dim boolRangeStartTable As Boolean Dim lngStartPageNumber As Long Dim sngFullLeftMargin As Single Dim lngAlign As Long Dim lngCellAlign As Long Dim lngCharToUse As Long Const sngABSConsLeftMargin As Single = 0.18 lngCharToUse = 1 boolHeadFoot = False boolMultiLine = False boolRangeStartTable = False sngHeight = 0 Set rngCurrent = Selection.Range lngAlign = rngCurrent.Paragraphs(1).Range.ParagraphFormat.Alignment ' = 0 Selection.Collapse wdCollapseStart lngStartPageNumber = Selection.Information(wdActiveEndPageNumber) With rngCurrent.Sections(1).PageSetup 'Check if we have mirrored margins, if so, more calculations are needed If .MirrorMargins Then 'Add gutter size if necessary, if it exists and if we are on a even _ numbered page (Margins to left is an outside margin) If Selection.Information(wdActiveEndAdjustedPageNumber) Mod 2 = 0 Then 'we have an outside (or right Margin) 'If margin is too narrow, the vertical bar will be too far to the left. _ So we need to calculate a new standard position, which is 25% of the margin width. sngFullLeftMargin = .RightMargin If (sngFullLeftMargin) < 2 * InchesToPoints(sngABSConsLeftMargin) Then sngConsLeftMargin = PointsToInches((25 * (sngFullLeftMargin)) / 100) Else sngConsLeftMargin = sngABSConsLeftMargin End If Else 'we have an inside (or left Margin) 'etc. Tag: Macro to find and delete specific table Tag: 110987
  - 8
    - String manipulation problem I want a VB function (called from a word macro) that takes a string and I want to manipulate each character at a time. I must be doing something stupid: function Spaces(str As String, len As Integer) for I = 1 to len thisChar = str.Chars(I) next I end function The message I get is Error 424 Object Required. It does not appear to recognize str as a string object. HELP? Tag: Macro to find and delete specific table Tag: 110984
  - 9
    - Toobar Button FaceID display on userform Hello, Is it possible (and if so, how) to add an object (don't care what kind) to a userform to which I can set the picture of a toolbar button FaceID? I've developed a userform that allows me to scroll through all the icons available and it sets the selected toolbar button's icon to the selected FaceID number but I'd rather do it to a control or object on the form rather than directly on the toolbar. Many thanks! Peter Tag: Macro to find and delete specific table Tag: 110982
  - 10
    - compare & merge (with boiler macro)? lifehacker.com posted a good tool that was modified by gmayor using boiler template as a macro for word. While it does what I want to insert a document, I really want to modify it to use word 2003+'s compare and merge feature rather than just inserting a document into each other like chapters. desired results: 2+ same structure files to merge, but different contents all merged into file 1's structure with content appended to the appropriate sections and TOC's updated. question: I'm looking at the OK button inside the VB editor but I do not know the command for compare and merge. Could someone point me in the correct direction? modified boiler: http://www.gmayor.com/downloads.htm Tag: Macro to find and delete specific table Tag: 110980
  - 11
    - Using Macro to Change case of text in merge I'm trying to run a merge from Goldmine to word 2003, however the fields I'm bringing in are all in UPPERCASE, is it possible to run a macro that changes the fields to title case? The fields look like: {DDEAUTO GoldMine Data &Company \*CHARFORMAT } I've tried the usual right click "edit field" and change the case in the properties dialogue - but it isn't listed as an option.. Any help appreciated. Thanks, Jon Tag: Macro to find and delete specific table Tag: 110974
  - 12
    - Hyperlink Target Frame I am trying to set up my word Documents so that clicking on any hyperlink will make the hyperlink destination appear in a frame to the right of the document. Is there a way to do any of the following a) On opening the document, if the right hand frame does not exist, create it and give it a name b) On clicking on the hyperlink, open up the right hand frame if it doesn't exist. c) Protecting the document so that the user cannot delete the right hande frame TIA Tony Tag: Macro to find and delete specific table Tag: 110966
  - 13
    - HOW TO KEEP A RANGE INSIDE QUOTES? Hi, programmers, I have a question on a very helpful macro posted here for finding and underlining text between quotation marks. It works great--except when quotes are preceded or followed by a comma or Wildcard. In that case, the range extends right on through to the next instance of quotes that DONâ??T have any commas right before or after them. Is there a way to keep the range from extending in these instances? Thank you for all your help. Here is the code: Sub FindAndUnderlineTextInQuotes() Dim oRng As Range Set oRng = ActiveDocument.Content With oRng.Find .ClearFormatting .Text = "[^0034^0147]<*>[^0034^0148]" .Forward = True .Wrap = wdFindStop .MatchWildcards = True Do While .Execute If oRng.Find.Found = True Then With oRng .MoveEnd Unit:=wdCharacter, Count:=-1 .MoveStart Unit:=wdCharacter, Count:=1 .Font.Underline = True .Collapse wdCollapseEnd End With End If Loop End With End Sub Thanks! -Lynne Tag: Macro to find and delete specific table Tag: 110962
  - 14
    - Populate Comments property from paragraph items Hello, Searching for something like this for many hours and still no luck. I have an account that provides me with approx. 300 word documents a month. I process these in batches and send them to a file server for further action. Is it possible to write a script or macro to take the first 4 paragraphs and insert that data into the document properties with BuiltinDocumentProperties? I have tried recording a macro, and using keyboard shortcuts to copy the paragraphs and pasting into the properties doesn't work. Paragraph 1 is always Name [To Subject Field] Paragraph 2 is always Date [To Keywords] Paragraph 3 is always Account Number [Also to Keywords] Paragraph 4 is alwayds chief complaint [To comments] Thanks for any help on this in advance! Tag: Macro to find and delete specific table Tag: 110954
  - 15
    - Ribbon Customizatin AddIn This is a long post with multiple questions. Please don't be discouraged and feel free to answer all or part. Thank you. The other day I became interested in creating an Template AddIn that will add a group to the built-in Add-Ins tab. The group holds one Dropdown. I wanted the dropdown item count, labels, and OnAction events to be dynamic based on information stored in a table contained in the AddIn. The RibbonX was fairly simple. I just added a new group to the Add-Ins tab that contained one dropdown control: <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Onload"> <ribbon> <tabs> <tab idMso="TabAddIns"> <group id="Grp1" label="Proof Reading"> <dropDown id="DD1" label="Add Marks" getItemCount="GetItemCount" getItemLabel="GetItemLabel" getSelectedItemIndex="GetSelectedItemIndex" onAction="MyDDMacro"> </dropDown> </group> </tab> </tabs> </ribbon> </customUI> I used call backs to set the dropdown list count, the label for each list item, and the default displayed list item As a practical exercise (and prompted by a another post in the newsgroups) I decided to use the OnAction callback to insert pre-definded comments in the text at the selection. I used a two column table in the Addin to define the dropdown labels and default comment text. E.g., Column 1 Column2 Select error agree. Agreement of subject and verb ant. Antecendnet. "the person believed that they." The sentence is incorrect because person is singular, and they is plural The code in my VB Project (with comments) is as follows: Option Explicit Public myRibbon As IRibbonUI Private myArrayPri() As String Private myArraySec() As String 'This procedure fires when the Add-In is loaded. Its purposes is to load the values contained in the template Add-In table into a pair of arrays. myArrayPri() holds the data to be used for the dropdown labels. myArraySec() holds the data for the predefined comment text. The procedure opens a new document based on the template AddIn and populates the arrays with data in the tables. The new document is then closed without saving changes. Sub AutoExec() Dim aTemplate As Template Dim oDoc As Word.Document Dim oTbl As Table For Each aTemplate In Templates If aTemplate.Name = "Proofreading Marks.dotm" Then Set oDoc = Documents.Add(aTemplate.FullName, , , False) Set oTbl = oDoc.Tables(1) myArrayPri() = GetErrorArray(oTbl) myArraySec() = GetDescriptiveArray(oTbl) oDoc.Close wdDoNotSaveChanges Exit For End If Next End Sub 'This procedure fires when the template AddIn is opened directly for editing (i.e., either the VB code or the table data) Sub AutoOpen() AutoExec End Sub 'The next two function actually populate the two arrays. Function GetErrorArray(ByVal oTbl As Table) As String() Dim i As Long Dim tempArray() As String ReDim tempArray(oTbl.Rows.count) For i = 1 To oTbl.Rows.count tempArray(i - 1) = Left(oTbl.Cell(i, 1).Range.Text, Len(oTbl.Cell(i, 1).Range.Text) - 2) Next i GetErrorArray = tempArray End Function Function GetDescriptiveArray(ByVal oTbl As Table) As String() Dim i As Long Dim tempArray() As String ReDim tempArray(oTbl.Rows.count) For i = 1 To oTbl.Rows.count tempArray(i - 1) = Left(oTbl.Cell(i, 2).Range.Text, Len(oTbl.Cell(i, 2).Range.Text) - 2) Next i GetDescriptiveArray = tempArray End Function 'This is a RibbonX callback needed to create a ribbon object (I think that is what it does???) Sub Onload(ribbon As IRibbonUI) Set myRibbon = ribbon End Sub 'This RibbonX callback establishes the number of items in the dropdown. The "id" of the dropdown created by the RibbonX is "DD1." The count of items is = to the number of items in myArrayPri() Sub GetItemCount(ByVal control As IRibbonControl, ByRef count) Select Case control.id Case "DD1" count = UBound(myArrayPri) Case Else 'Do Nothing End Select End Sub 'This RibbonX callback is used to define the labels for each item in the dropdown. The procedure is called once for each item in the dropdown: Sub GetItemLabel(ByVal control As IRibbonControl, Index As Integer, ByRef label) Select Case control.id Case "DD1" label = myArrayPri(Index) Case Else 'Do nothing End Select End Sub 'This RibbonX callback sets the default dropdown item to display when the Ribbon control is created. In this AddIn, I want "Select error" to be displayed intially and after each OnAction event: Sub GetSelectedItemIndex(ByVal control As IRibbonControl, ByRef Index) Select Case control.id Case "DD1" Index = 0 Case Else 'Do nothing End Select End Sub 'This RibbonX callback is fired when the user selects one of the items in the dropdown. It does several things: '1. Determines if there is an open document. If not, the control is invalidated (causes the control to be rebuilt with "Select error" displayed) '2. Determines if there is text selected to comment on. If not the control is invalidated '3. Uses the dropdown item selected to insert a custom (customizable) comment at the selection ' a. Displays a userform containing pre-defined comment text ' b. Temporarily sets the Application.UserInitials = the contol label text Sub MyDDMacro(ByVal control As IRibbonControl, selectedId As String, selectedIndex As Integer) Dim oFrm As UserForm1 Dim pUserInt As String Select Case control.id Case "DD1" If Documents.count < 1 Then myRibbon.InvalidateControl control.id Exit Sub End If If Selection.Type = wdSelectionIP Or wdNoSelection Then MsgBox "Please select the proofreading error in the text before inserting comments." myRibbon.InvalidateControl control.id Exit Sub End If Select Case selectedIndex Case Is = 0 'Do Nothing Case Else pUserInt = Application.UserInitials Set oFrm = New UserForm1 oFrm.TextBox1 = myArraySec(selectedIndex) oFrm.Show Application.UserInitials = myArrayPri(selectedIndex) Selection.Comments.Add Selection.Range, oFrm.TextBox1.Text Unload oFrm Set oFrm = Nothing Application.UserInitials = pUserInt myRibbon.InvalidateControl control.id End Select Case Else 'Do Nothing End Select End Sub The UserForm contains one textbox and one command button. The textbox is set for multi-line. The command button code is: Private Sub CommandButton1_Click() Me.Hide End Sub Problems/Questions: 1. I am not very confident of my process for populating the two arrays with the data needed for the callbacks. My goals is to find the simplest way to make the data customizable to the user and accessible to the the callback. By putting the data in a table contained in the template. All the user needs to do is open the template and edit the table. Once that is done, then when the template loads the the compiler has to get to it. AutoExec is the only event that I know of that fires when a template is loaded. Is this correct and is this the best way? 2. a. I have not been able to isolate why, but when I put my Addin in the Word Startup Folder and start Word I always get an error message "Subscript out of range." b. If I remove the AddIn from the Startup folder and attempt to load the Add-In manually, I get a get the same message: "Subscript out of range." c. If I leave Word running, remove the AddIn, and load it a second time it loads and works perfectly without error. d. The error message never happens when I open the AddIn directly. I assume that this problem is caused by some sort of timing conflict with the AutoExec procedure and maybe I could correct it with a Do Events statement but I am not very familiar with those and I don't know how to proceed. Any thoughts or ideas to fix this? I'll be happy to share the complete template with anyone that is interested in assisting to resolve the issue above. Just contact me vai my website feedback at the link below and I will send it as an attachment. Thanks. -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Greg Maxey - Word MVP My web site http://gregmaxey.mvps.org Word MVP web site http://word.mvps.org ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Tag: Macro to find and delete specific table Tag: 110939
  - 16
    - Word 97 Won't Allow File Replacement Though this has worked well for years, it isn't anymore. - I export an ASCII delimited text file from another database program; - DDE commands are sent to Word to run a macro. The macro opens the exported file and performs mail merge ; - Suddenly newly exported text files from the database are not replacing the old ones (by the same name); - I have to shut down Word and restart. Then it's fine until the first merge; - I'm not getting error messages. If there's no way ensure that Word automatically 'releases' the file, can I build something into the macro? Thank you for any help. Tag: Macro to find and delete specific table Tag: 110917
  - 17
    - limit accessibility to specific form fields in Word protected temp Turning protection on in a word template allows several things, protecting the contents and allows form fields to exist. Is there a way, either a field itself or macro code, to block all but a specific user from entering information into a field. Can an entry, password macro be written which would allow this to happen? It's easy enough in Excel to block or allow entry into a cell, but not obvious, if at all possible in Word tables. Can someone illustrate some possibilities? Best Regards.... Lenny Tag: Macro to find and delete specific table Tag: 110916
  - 18
    - How to get perform this operation only in the current Cell of a ta Hi, I have a macro that splits the cells that have Hard returns inside all the tables in my current document into separate rows. Someone sent me this macro below to perform this function. If I need this macro to operate only on the current Cell where my cursor is and not all the tables in my document, how should I modify this? Macro Below: Sub RowSplit() For x = 1 To ThisDocument.Tables.Count For Each r In ThisDocument.Tables(x).Rows If InStr(1, r, Chr(13)) < Len(r.Cells(1).Range) Then rowsArray = Split(r.Cells(1).Range, Chr(13)) nSubRowCount = UBound(rowsArray) If nSubRowCount > 1 Then r.Select For i = nSubRowCount To 1 Step -1 If Len(Replace(rowsArray(i), Chr(7), "")) > 0 Then Selection.InsertRowsBelow ThisDocument.Tables(x).Cell(r.Index + 1, 1).Range = rowsArray(i) r.Select End If Next Selection.Range = rowsArray(0) End If End If Next Next End Sub Tag: Macro to find and delete specific table Tag: 110911
  - 19
    - Reset to default printer I have a user that occasionally needs to send a print job somewhere other than the default printer. At that point Word remembers his last used printer but he does not and he ends up "losing" his print jobs by sending them to the wrong printer. Is there any way to force Word to always select the default printer when the Print dialog is open, even if the last print job went to a different printer? I'm hoping that there is a Print event that can be triggered with every print request to reset the selected printer to the default. This would need to happen whether the Print...(Ctrl+P) command was used or the Print button on the toolbar was clicked. Regardless of how, it needs to be pretty much invisible to the user. Thanks, Tag: Macro to find and delete specific table Tag: 110909
  - 20
    - Print msgbox or print string values? At the end of my Word macro I use a msgbox filled with text and the value of some strings is it possible to print the value of these strings in a document or to print the msgbox as a whole? Tag: Macro to find and delete specific table Tag: 110905
  - 21
    - Text Entry in Forms, Variables I am constructing forms in Word 2007 where I want to have the same functionality as is present in WordPerfect's variables. In WordPerfect, I create a variable in a form (for example, a variable for the name of a building, and I insert that variable in 12 different locations in the document. If I want to change the building name, I double click on any of the 12 occurrences of the variable, and the change is reflected in all 12 locations. I assumed Word 2007 has similar functionality, but I can't really find it, at least "out of the box". I am using the content controls with some coding to automate the updating of all similarly named controls, but I am having problems with that method. Am I missing something? Is there something in word that allows m, without writing code, to get more or less the same functionality as is present in WordPerfect's variables? I am trying to transition from WordPerfect to Word, and am creating Word versions of my WordPerfect forms. Thanks very much. Drew Capuder d.capuder@att.net Tag: Macro to find and delete specific table Tag: 110891
  - 22
    - Selecting Specific Range Within A Document Without Search (Word 2003) Here's a Word 2003 VBA question about RANGEs that's been driving me nuts for a while. Supposing I have a document that somewhere has the following on a line by itself, effectively being a paragraph: ********** (A) MY SAMPLE WORDS TO SELECT: Hello World and later on it has a line that has (B) MY OTHER SAMPLE WORDS TO SELECT: Hello Universe, So Vast Thou Art. ********* Without using the search functionality, how would one code to do the following three tasks: 1. Select the the stuff following the colon and two spaces in sample (A), whatever it may be (in this case, "Hello World") 2. Select the stuff before the comma in my example (B), whatever it may be (in this case it is Hello Universe) 3 Select the stuff between the comma and end of the line (in this case, it is "So Vast Thou Art"). Regards, Alan Tag: Macro to find and delete specific table Tag: 110873
  - 23
    - Controlling Pages in Word through automation Hi All, I'm fairly new to using the Word object model (2007) and have a couple of questions regarding controling the pages programatically. What i need to be able to do is to copy various charts and images from excel and lay them out on a word page. I'm going to be resizing these images so that the fill a 1/4 page size each. WHat i'd like to know firstly is how are new pages added? My intention is to resize the images and ensure that there is no way that 4 images will flow over onto the next page. How, if i do this can i add a new page and then reference this to start adding further elements? Any help is most appreciated, thanks in advance, G Tag: Macro to find and delete specific table Tag: 110871
  - 24
    - How to change grammar/style option for sentences more than 60 word I want to know how to change the grammar and style option that calls out sentences that are more than 60 words per sentence. I want to change the grammar checking so when I run the Spelling and Grammar tool, it will flag sentences with more than 25 words, rather than 60 words. Tag: Macro to find and delete specific table Tag: 110870
  - 25
    - Disable pop up windows in Office 2003/2007 Hi, I am using the Office object model 2007/2003(word excel and ppt) with visual studio 2005. While opening the File through office object model of ppt,excel and word from network location.It is opening a pop up while opening the file with office object model 2007.how can we hide the popup. is there any property to hide the popup. thanks Tag: Macro to find and delete specific table Tag: 110862

Hello,

We have a one-row, blank table appearing at the bottom of page 1 in hundreds
of documents (it is not in the footer). This was due to a conversion utility
that was used on these docs. Anyway, I need to create a macro that searches
the doc for this table but I can't use a specific table number in the tables
collection because there may be other legitimate tables in some of the
documents, either before or after the blank table. So, I need find the
one-row blank table and delete it.

Any ideas? Your time is always appreciated.

Top

Re: Macro to find and delete specific table by fumei

fumei
Tue Mar 04 13:20:47 PST 2008

Is it the ONLY one row table? Are there many of them? Are there any
legitimate one row blank tables?

If there are NO legitimate one row tables - i.e you want to remove all one
row tables - then:

Dim aTable As Table
For Each aTable In ActiveDocument.Tables
If aTable.Rows.Count = 1 Then
aTable.Delete
End If
Next

will delete all one row tables.

Sammy wrote:
>Hello,
>
>We have a one-row, blank table appearing at the bottom of page 1 in hundreds
>of documents (it is not in the footer). This was due to a conversion utility
>that was used on these docs. Anyway, I need to create a macro that searches
>the doc for this table but I can't use a specific table number in the tables
>collection because there may be other legitimate tables in some of the
>documents, either before or after the blank table. So, I need find the
>one-row blank table and delete it.
>
>Any ideas? Your time is always appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200803/1

Top

Re: Macro to find and delete specific table by Sammy

Sammy
Tue Mar 04 14:01:09 PST 2008

This works wonderfully, thanks.

"fumei via OfficeKB.com" wrote:

> Is it the ONLY one row table? Are there many of them? Are there any
> legitimate one row blank tables?
>
> If there are NO legitimate one row tables - i.e you want to remove all one
> row tables - then:
>
> Dim aTable As Table
> For Each aTable In ActiveDocument.Tables
> If aTable.Rows.Count = 1 Then
> aTable.Delete
> End If
> Next
>
> will delete all one row tables.
>
> Sammy wrote:
> >Hello,
> >
> >We have a one-row, blank table appearing at the bottom of page 1 in hundreds
> >of documents (it is not in the footer). This was due to a conversion utility
> >that was used on these docs. Anyway, I need to create a macro that searches
> >the doc for this table but I can't use a specific table number in the tables
> >collection because there may be other legitimate tables in some of the
> >documents, either before or after the blank table. So, I need find the
> >one-row blank table and delete it.
> >
> >Any ideas? Your time is always appreciated.
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.aspx/word-programming/200803/1
>
>

Top