Word macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - More Message Box Questions G'Day Is it possible to display a message box for a finite amount of time, then close the box without user intervention, and still allow the program macro's to run in the background? Is it possible to program the font size and type inside a message box? Krakmup Tag: Word macro Tag: 74366
  - 2
    - Stopping a Do While Loop I have programming setup to run inside a Do While loop where it looks for certain text and then deletes the row. The problem I am having is getting the loop to stop when it has found all of text in the document. My current coding is: Do While XAB < 40 .Forward = True .Wrap = wdFindContinue .MatchWholeWord = True .MatchAllWordForms = False .Execute FindText:="%<>%" Selection.Rows.Delete XAB = XAB + 1 Loop Any suggestions would be appreciated. Tag: Word macro Tag: 74363
  - 3
    - Find text and delete row G'Day Is it possible to reduce the lines of code for the followng, assuming I want to find and delete rows in a table that contain "0", "-1", "-2", "-3" in column 1. CODE: If Selection.Information(wdWithInTable) = False Then Exit Sub TargetText = "0" For Each oRow In Selection.Tables(1).Rows If oRow.Cells(1).Range.Text = TargetText & vbCr & Chr(7) Then oRow.Delete Next oRow TargetText = "-1" For Each oRow In Selection.Tables(1).Rows If oRow.Cells(1).Range.Text = TargetText & vbCr & Chr(7) Then oRow.Delete Next oRow Repeating 4 lines of code seems like a waste of space. Thanks Krakmup Tag: Word macro Tag: 74361
  - 4
    - Heading 1 carries over into table G'Day I have encountered a unique heading problem. I generate a table from a database, move off the table and create a "Heading 1" for my table of contents, then move back into the table, and format the first line, and desire to make the first row carry over into new pages. CODE: Selection.SelectRow Selection.ClearFormatting Selection.Font.Bold = wdToggle Selection.Font.SmallCaps = wdToggle Selection.Font.Color = wdColorBlue Selection.Rows.HeadingFormat = True The problem, is in Office 2000, and Windows 2000, 98, etc, the second line is not recognized. If I delete the second line, then the "Heading 1" carries over into the table. Any ideas? Krakmup Tag: Word macro Tag: 74359
  - 5
    - Date formats in merge fields I am running a mail merge from Excel to Word including a series of dates. My dates are displayed as 19/07/2005 in Excel (UK format) but in my merged Word document appear as 7/19/2005. How can change the format of my dates so that the correct format appears in my Word document? Elena Tag: Word macro Tag: 74352
  - 6
    - How do I leave a footer unprotected in a form? I'm creating a form that will have multiple sections, some protected, some not. I want the footer to be unprotected entirely. How do I do this? Tag: Word macro Tag: 74351
  - 7
    - re-size metafile Have some code that pastes certain ranges from Excel into Word as metafiles. Was hoping someone could help me with some code to the effect of - If the number of records in the copied range is greater than a defined variable, then re-size (with proportions maintained) the metafile to fit on one page. Thanks in advance for any assistance. Tag: Word macro Tag: 74347
  - 8
    - Word macro to send an email hello What kind of macro would work to send a document to a specified email address from Word? In Excel you have the code: Sub Send() ActiveWorksheet.SendMail "firstname.lastname@domain.fi" _ "this is subject" End Sub But it does not work in Word (in form ActiveDocument.SendMail) The ActiveDocument.SendMail part works, but you cannot insert the address automatically. Can anyone help, please? We are talking about Word 2002 on Windows XP Tag: Word macro Tag: 74342
  - 9
    - Selecting first line of a page Second question, sorry to be cheeky. Whats the line of code to assign the first row of a page or first row of a document to a variable? Thanks Tag: Word macro Tag: 74340
  - 10
    - Looping through text boxes to change font Hi, I'm wanting to create a macro to change the font in all text boxes with a document. I'm guessing I need to select each box and change the properties....one at a time. Each document has different types of objects (Select All doesnt work). If any one can help with code so make a simple loop macro, I'd appreciate it. Thanks Santa Tag: Word macro Tag: 74339
  - 11
    - running another application from word Hello, I'd like to push a button on a toolbar to run another application. The program should receive arguments too. One of them should be the Word application. Regards, Roy Tag: Word macro Tag: 74338
  - 12
    - Avoid deletion of text based on colour? I'm currently working with a template that contains a lot of text in a which should not be deleteted by the user. This text is inside protected sections and has a different colour thant the user-text. Due to numerous problems with these protected sections (e.g. spellchecking, macro's manipulating the document leaving it unprotected sometimes, ...) I was wondering if there is another way to protect text against deletion (e.g. check the colour before deleting it and if wrong colour then don't delete it. Any help is more then appreciated, Romain Tag: Word macro Tag: 74337
  - 13
    - Hidding test based on style Some time ago the following code was posted to this newsgroup as a way to hide/display text based on its style. Sub ShowMessages() With ActiveDocument .Styles("Message").Font.Hidden = False .Styles("Summary").Font.Hidden = True End With End Sub Sub ShowSummaries() With ActiveDocument .Styles("Message").Font.Hidden = True .Styles("Summary").Font.Hidden = False End With End Sub Sub ToggleMessages() With ActiveDocument If .Styles("Summary").Font.Hidden = False Then .Styles("Message").Font.Hidden = False .Styles("Summary").Font.Hidden = True Else .Styles("Message").Font.Hidden = True .Styles("Summary").Font.Hidden = False End If End With End Sub I have created a document (attached) that has lines of text that are alternately formatted using Summary Style or Message Style. I find that the ShowMessages macro hides all text regardless of style and ShowSummaries shows all rext regardless of style. I feel I am doing something fundamentally wrong. Can you offer any assistance? Many Thanks Tony Starr PS. I am using Word xp Tag: Word macro Tag: 74335
  - 14
    - VBA - Replace filename Hi guys, I'm just trying to create a little macro to search for the mergefield filename (in any format) and replace with {filename \* lower \p \* mergeformat}. For some unknown reason it really doesn't like this. I've turned on codes, different view, will find filename but won't replace. Then I have to loop it through the sections. Any help much appreciated in advance. Tag: Word macro Tag: 74331
  - 15
    - How can I help my son with QBasic for a Compter Programming class My son is taking a test he needs help with a computer programming class on QBasic the test is this Friday. Tag: Word macro Tag: 74330
  - 16
    - Checking readonly & password without opening file Hi, I'm trying to check the Read Only and Password protection properties of a list of Word (and Excel) files by a macro. Is there a VBA method, that I can use in batch, to check these properties without actually opening the file itself? If the file is password protected I obviously cannot open the document in batch to check the ActiveDocument property. Check if the document is read only ActiveDocument.ReadOnly ActiveDocument.ReadOnlyRecommended Or a way to find out if document has been password protected: ActiveDocument.SaveAs .. Password:="pwd" ActiveDocument.SaveAs .. WritePassword:="pwd" I tried to use the "Microsoft Scripting Runtime" library FileSystemObject but it did not give me the file properties I needed. If possible, I would like to run this check from an Excel macro. Thanks for your help in advance, E Tag: Word macro Tag: 74329
  - 17
    - Open as New document... Is there a way using VBA to open an existing document or a template as an unnamed document, similar to double-clicking a .DOT file and having it open as Document1? I'm trying this but it only opens the document, which I don't want overwritten: Dim wd as Word.Application Dim wDoc as Word.Document Dim WordFile as string WordFile = "test.doc" Set wDoc = wd.Documents.Open(WordFile) Thanks, King Wilder Tag: Word macro Tag: 74327
  - 18
    - Using fields with VBA: need explanation I need (a link to?) an explanation with examples of how to insert and manipulate fields using VBA. I can do it by recording, but I know there's a cleaner, more robust way to do it. [This was the real question in my longer post, which got no replies: http://www.officekb.com/Uwe/Forum.aspx/word-vba/10038/Conditional-even-page-macro-bad-VBA-to-good-VBA] Thanks... Chris Brewster -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200509/1 Tag: Word macro Tag: 74326
  - 19
    - How to perform a "pseudo" ActiveDocument.protect I have a need to prevent changes from being made to an ActiveDocument. The limitation is I'm trying to "band-aid" a 3rd party application. It breaks if the ActiveDocument is protected. I know that I can capture the user moving the mouse (i.e making a selection) via WindowSelectionChange event. How can I then prevent the user from making any changes or additions (pseudo-protect)? Is there a built-in macro(s) that I could override? Tag: Word macro Tag: 74325
  - 20
    - SEND I have created a Word 2003 form. I would like to develop a simple Macro that emails this Word form, as an attachment, to a distribution list (or individual recipients). I use an Exchange 2003 server. Any links or suggestions to get me started would be appreciated. Aaron Neunz Tag: Word macro Tag: 74319
  - 21
    - Scrolling to the selection Hello, How can I programmatically scroll to the selection? Word doesn't allways do it automatically. Regards, Roy Tag: Word macro Tag: 74317
  - 22
    - Hyperlinks and paste Hi, I'm using Word 2003. I have a Word document which has a hyperlink. The link "Click here" opens the URL ?page=something. When I save the document and open it, the link is just fine. But when I copy the link and paste it, save the document, close it and open it again, the URL will be: %3fpage=something (it should be ?page=something) How can I tell my VBA application not to convert "?" to "%3f"? Mika Tag: Word macro Tag: 74316
  - 23
    - FILL IN FIELDS I have a macro which creates a document based on a template. It prompts at all the fill in fields. Can I de-activate the fill in fields until later as I have written a counter macro which searches for each fill in field in the document, prompts you for an answer (I do this so that you can see exactly where you are in the document), adds the answer to the fill in field, clears that specific field and moves onto the next one. Problem comes in that when you add the document it promps for the fill in fields which I don't want. How can I disable it. At the moment my macro looks like this: Sub Test() Documents.Add Template:="c:\templates\Articles Employment Contract.dot", NewTemplate:=False, DocumentType:=0 With ActiveDocument.Variables For i = .Count To 1 Step -1 .Item(i).Delete Next i End With Call counter End Sub Can I when I say documents.add tell it not to prompt at the fill in fields? Can I lock the fields not to update as suggested by someone else. If yes, how do I lock the fields? Tag: Word macro Tag: 74310
  - 24
    - Problem loading picture in Forms.Image Hi, i "use" VB6 to open MS Word document and fill Forms.Image controls. The problem is that when i execute function below in VBA works, but when i execute this function in VB6 it i get this error: Run-time error -2147418113 (8000ftfty): Method Picture' oF object 'Ilmage' Failed My code : For Each sh In ActiveDocument.Shapes If sh.OLEFormat.ClassType = "Forms.Image.1" Then With sh.OLEFormat.object .BackColor = wdColorWhite .BackStyle = fmBackStyleTransparent .AutoSize = False .PictureAlignment = fmPictureAlignmentCenter .PictureSizeMode = fmPictureSizeModeZoom .Picture =LoadPicture("image path file") End With end if next ---------------------------------------------- Posted with NewsLeecher v2.0 RC2 * Binary Usenet Leeching Made Easy * http://www.newsleecher.com/?usenet ---------------------------------------------- Tag: Word macro Tag: 74298
  - 25
    - word not opening correctly. When I try and open word, I get that it has encountered a problem and needs to close. Then it ask to open word in safe mode. I am unable to open docs that have been saved in this mode. I have used the installation disk to repair and even reistall, but I get the same response. Please help. Tag: Word macro Tag: 74297
- Next
  - 1
    - Copy current page + next two pages Hi, I'm wanting to select and copy the current page + next 2 pages to a new document. I use the following code to copy a page, but can "\page" be modified to "\page +2"???? Code is.... Sub CopyPage() 'Select and copy the text to the clipboard ActiveDocument.Bookmarks("\page").Range.Copy ' Open new document to paste the content of the clipboard into Documents.Add Selection.Paste End Sub Thanks Simon Tag: Word macro Tag: 74296
  - 2
    - WORD VARIABLES NOT CLEARING I have a huge vba project in word. I previously had a variable called "ELet_Heading" in my .dot document. I renamed this to "ELet_RE" and added a few more variables. When I run the macro its seems to remember what the previous variables were called and do not count through all variables although I use the following in VBA: For Each avar In ActiveDocument.Variables If avar.Name = "ELet_RE" Then num = avar.Index Next avar If num = 0 Then ActiveDocument.Variables.Add Name:="ELet_RE", Value:=TextBox2.value Else ActiveDocument.Variables(num).Value = Textbox2.value End If I do this for each and every variable but when I do the test counting the variables it only has 10 variables instead of for instance 15 variables and looking at the avar.Name I see that it doesn't run through all the variable names. Is there a way of clearing / deleting / removing the variables attached to that template so that it can see the new variables as well. Tag: Word macro Tag: 74293
  - 3
    - Importing Excel data into Word i'd like some suggestions on how to proceed. i have an automation task i'd like to accomplish. instead of cutting and pasting data from excel to word, Iid like to dynamically generate a set of report paragraphs from each row in an excel spreadsheet. i have a report format in a word table. the excel spreadsheet has the report data and each column heading corresponds to a data field type within the word table. each row in the spreadsheet would be a different set of data and would need to be on a separate page. so, i'd like to programmatically ... fill in the word table with the first row of data, then insert a page break and generate a similarly formatted table with row 2 data, and so on until all of the rows with information have been imported into the word tables. some of the key things to consider are that I will not have a static set of excel rows for each report, so the code has to figure out how much data i have and make the appropriate number of pages in word. what is the best approach here? is it to use fields? thanks for any feedback, suggestions, or pointers to examples. NBA Tag: Word macro Tag: 74291
  - 4
    - Add Blank Lines Prior to Table - Word2002 Hello, I have a two-column Word table which is triggered in MS Access. It properly opens Word, sets the Access data into the respective columns, obediently autoformats the Word table, saves the formatted document into a folder as .doc file on the server and opens the "Envelope Visible" feature for emailing. However, not being yet savvy in the Word-side of the programming spectrum, I have one final need and am asking if someone could please help me out with the proper method of inserting a couple of vbCrLf's prior to the insertion of the table? I've searched many sites as well as the Word vb help files and have probably seen the answer many times over but am not properly assimilating into the block of ice between my shoulder blades, sometimes known as my head. Also, does anyone know if the table autoformatting process forces the table to the top of the document anyway, where it could potentially override my needed vbCrLf (or best procedure) coding? Thank you. Tag: Word macro Tag: 74290
  - 5
    - Page Ref Field Hi everybody I know how to use the Page Ref Field in a document but I need to use it in one document while the bookmark is located in an other one, eg. a study book (document 1) where it is said: "after reading this lesson, go to the workbook (document 2) and do the excercise "two" page Y. How to do that? Any idea. Could not find any clues anywhere... Thanks in advance Alain Kadlec Ottawa Tag: Word macro Tag: 74288
  - 6
    - Hyperlinks Collection Incomplete Hi, My cover page is an ordinary Word 2000 doc which has many hyperlinks (often 50 or more). Then, there is a Word macro which is coded to follow all hyperlinks and print each document. I have noticed two problems: Problem #1: The Hyperlinks collection will sometimes return the hyperlinks in the wrong sequence (not in the order they appear on the page). Problem #2: The Hyperlinks collection will miss many hyperlinks in the current document. Both problems happen more often when the hyperlinks "wrap" from one line to the next. (Yes, that's a long link, but they are indented too by several levels). In that case, the second line of the hyperlink is blue and underlined, but the first line is not. Tried these fixes: 1) Install SR-1, SR-2, and SR-3. These work for a while (about a week), then problem #1 comes back 2) Put a sequence number into the text of the hyperlink, then wrote code to print based on the value of the sequence number. Unfortunately, I discovered Problem #2. My macro prints a few documents, then it stops. All it does in my loop is to put the Address into an array. (It doesn't delete any hyperlinks ever). Sometimes, in Problem #2, the Hyperlinks collection is totally empty. Then, the macro obviously prints nothing. Yet, the hyperlinks are clearly visible on the cover page. What can I do? Thank you VictorReinhart Tag: Word macro Tag: 74286
  - 7
    - Conditional even-page macro: bad VBA to good VBA? I wrote a macro that adds a section break with a blank page before it (blank other than saying "Blank Page" in the middle). This page appears only if it is an even-numbered page. The macro works fine, but it's made from recording within Word. I've tried to understand how to do this with better VBA but can't find a good explanation of creating and manipulating fields with VBA. (O'Reilly's "Word Macros" gives a glimpse but not enough to go on.) I'll put my code here. What I'm hoping is that someone can show how good VBA would do this. (I learned about this field from John McGhie's page at http://word.mvps.org/FAQs/TblsFldsFms/InsEvnPgEndChap.htm.) If you try my macro as written, your document or template needs paragraph styles called "Body Text" and "BlankPage" (mine is centered, italic, 250pt before). When your document has the conditional field in it, it must be updated to work; this usually happens automatically at appropriate times. Public AddSectBrkAndCondPage() ' ' Adds a section break and a conditional blank page saying ' "Blank page", which appears only if the preceding section ' ended on an odd-numbered page. ' Macro recorded 9/26/2005 by Christopher Brewster ' ' Conditional field will be in the following form. Spaces ' are important, and {} characters are not from those keys ' on the keyboard, but are generated by Ctrl-F9. ' { IF { =MOD( { PAGE },2) } = 0 " " " ' ----------------Page Break-------------- ' Para ' Blank page" } ' ======Section Break (Next Page)========= ' Add section break ' Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.InsertBreak Type:=wdSectionBreakNextPage Selection.MoveLeft Unit:=wdCharacter, Count:=1 ' Create three nested fields Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False ' Add var. to be tested within the innermost field Selection.TypeText Text:="PAGE" ' Go to beginning of the line and add code details Selection.HomeKey Unit:=wdLine Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="IF " Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="=MOD( " Selection.MoveRight Unit:=wdCharacter, Count:=8 Selection.TypeText Text:=",2) " Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=" = 0 "" "" """ ' Paragraph mark must appear on blank page, not on last page ' of the section... ' Add page break, which also creates a paragraph mark Selection.InsertBreak Type:=wdPageBreak ' Go back and delete paragraph mark Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 ' Go forward and add paragraph mark Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph ' Add label to display on the blank page Selection.TypeText Text:="Blank page""" ' Go back and set correct paragraph styles ' The "Blank page" line has no para mark. The BlankPage ' style applies to the label and the section break Selection.Style = ActiveDocument.Styles("BlankPage") ' Set the para mark and page break as Body Text Selection.HomeKey Unit:=wdLine Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Style = ActiveDocument.Styles("Body Text") ' Put the field into effect Selection.Fields.Update ActiveWindow.View.ShowFieldCodes = False End sub -- Message posted via http://www.officekb.com Tag: Word macro Tag: 74284
  - 8
    - VBA coding to delete styles I want to delete all styles from the active document and copy new styles from another(xyz.dot) template. What will be the coding? Thanks Tag: Word macro Tag: 74283
  - 9
    - Carry a variable content to a new document I generate a variable, named "MyVariable", using the Public statement. When the variable is set, I want to use the contents in another document, using the same name, within the new documents macro. Example MyVariable = "55555" ChangeFileOpenDirectory _ "C:\MyDocuments\" Documents.Open "Filename.doc" Application.Run MacroName:="Look4Me" In "Look4Me", I set a variable equal to MyVariable, but MyVariable is always empty. The original document which identified MyVariable is still open and running. How can I keep the variable contents? Tanks Tag: Word macro Tag: 74281
  - 10
    - Extracting Field Data Using VBA Once a document is open in VBA, is it possible to get the data associated with named reference fields: For example the document has the following field: { REF DocNum \h \* MERGEFORMAT } How can I retrieve the value (i.e. 2005-West-11 in this case) using VBA? Thanks! Don Tag: Word macro Tag: 74280
  - 11
    - Inserting a macro into a macro I am trying to put a macro in a form through a hyperlink that when the hyperlink is used, it automatically sends the form to my email. Is there any way to do that? Tag: Word macro Tag: 74277
  - 12
    - Setting the value for CustomDocumentProperties I am trying to create a version feature in Word VBA. I've got most of it to work properly, but for some reason, I am unable to set this value. I have created both a bookmark and a Word.Variable named "Version" to handle this processing. I have correctly linked the source of the bookmark, Version, to the variable. The bookmark source correctly updates, but the bookmark value does not update correctly, and shows a broken link when I view it in the File-->Properties window. So everything is working properly, except for the updating of the Value of the Version property. Below is the code that is crashing, specifically, the line that reads, CustomDocumentProperties("Version").Value = lnkSrc. This keeps saying that the Value method of DocumentProperty has failed. Value is not a method, but a property in this instance, how can I fix this? The following code is run when the user clicks on a button to update the version number: For Each prop In ThisDocument.CustomDocumentProperties If prop.Name = "Version" Then Dim lnkSrc lnkSrc = ThisDocument.Variables(1).Value CustomDocumentProperties("Version").LinkSource = lnkSrc CustomDocumentProperties("Version").Value = lnkSrc End If Next Tag: Word macro Tag: 74276
  - 13
    - Are there smart tags available for chemical names? How do I get around the differences between common English and the rules used for complex chemical nomenclature? Tag: Word macro Tag: 74274
  - 14
    - Copy multiple paragraphs from multiple documents into one document I need to copy addresses from 1000 documents and put them into one document. I need a macro that will copy from all documents under one Folder and Paste them into another document, preferably a Table. I can work with the formatting later. I located a "How to Find & ReplaceAll on a batch of documents in the same folder", but I am not good enough to modify it to Select the correct area and Copy and Paste instead. Tag: Word macro Tag: 74272
  - 15
    - Opening File Dialog throws odd memory error Hi all, I have a line of VBA code that displays a file open dialog using the Application.FileDialog(msoFileDialogOpen) object. However, sometimes when I execute the .Show method I get a message box saying "There is not enough memory or disk spec to complete the operation". I don't believe it really a hardware related issue as I'm not shot of either RAM or HD space, but more curiously if I change the object to be of type msoFileDialogPicker then it will display the dialog. In fact the problem seems to be interchangeable between the two file dialog types, i.e. they will both cause the problem at some point. So does anyone know either a) what might cause the problem in the first place? b) something I could do in my code prior to calling Show to sort out the memory? I can't catch the error either to dynamically switch object types because it seems to be raised by Word and not the VBA runtime. TIA Craig Tag: Word macro Tag: 74271
  - 16
    - How to (Task Pane) Is it possible to create task pane in word 2003 without using smart document? Bcoz I dont need any xml or xsd files. Please help. Tag: Word macro Tag: 74264
  - 17
    - DsoFramer ActiveX Control Problem I am having a problem with the BeforeDocumentSaved event for the DsoFramer: http://support.microsoft.com/default.aspx?scid=kb;en-us;311765 Here is the sig: BeforeDocumentSaved(ByVal Document As Object, ByVal Location As String, Cancel As Boolean) I *can* get the save to be cancelled in VB6: e.g. Private Sub oFramer_BeforeDocumentSaved(ByVal Document As Object, ByVal Location As String, Cancel As Boolean) MsgBox "not going to save :p" Cancel = True End Sub But I *can't* get this to cancel in VBScript or JScript... JScript: <script language="JScript" for="oframe" event="BeforeDocumentSaved(Document, Location, Cancel)"> BeforeDocumentSaved(Document, Location, Cancel) </script> function BeforeDocumentSaved(Document, Location, Cancel){ alert("will still save :("); Cancel=true; } VBScript: Sub oframe_BeforeDocumentSaved(Document, Location, Cancel) MsgBox "saving" Cancel = True End Sub Can someone offer some ideas on how to get this to cancel the save. My thoughts are that somehow this is passing the Cancel parameter by value rather than reference. Thanks, Owen. Tag: Word macro Tag: 74263
  - 18
    - This one's tough: Finding Character Styles from VBA I need to determine whether character styles are in use for any sub-portion of a Range. If you've worked with Range properties, you know that MOST properties (e.g. .Bold) return a special undefined value (such as 9999999) when the property value is not uniform over the range. However, Word uses the Range.Style property for BOTH Paragraph Styles and Character Styles. If you query the .Style property for a Range which is ENTIRELY in one Character Style, the value will be the name of the Character Style. The moment that the Range overlaps by a single character, into a run with either another Character Style or no Character Style, then the return value will be the name of the Paragraph Style for the Range. (If the Range overlaps two paragraphs with different Styles, then Range.Style will be Nothing) One solution is to check every single character in the range. That's effective, but extremely slow. Word-by-word checks would be faster, but not 100% reliable. A second solution is to examine all of the character styles in defined for the document (I'm really only interested in the ones which Word has created on its own from Paragraph styles, such as "Heading 1 Char"), map out everywhere they are in use in the document (including Footnotes, etc.), and then see whether any of those ranges overlap the areas of the document that are of interest to me. That is faster than solution 1, but requires 1-200 lines of VBA code, and is still a kludge. Does anyone have a direct and elegant way of accomplishing this? A direct cc: to me, in addition to a reply-to-group, would be appreciated. -- Fletcher James President Levit & James, Inc. (703)771-1549 MailTo:fjames@levitjames.com http://www.levitjames.com Tag: Word macro Tag: 74258
  - 19
    - Macro inconsistently refuses to let me size columns I have a macro that builds a table, populates it, and sizes the columns. Sometimes, expecially when I am debugging, the system throws an error that says that I can't access table columns because the table contains cells of different sizes. Then, other times the system sizes the columns correctly. This is driving me crazy! -- Nancy Tag: Word macro Tag: 74256
  - 20
    - I want to create macros within custom toolbars I would like to create macros with customized toolbars and THEN put them in a drop down list available to users Tag: Word macro Tag: 74255
  - 21
    - How do I prevent users from using the "Enter" button on my form? I made a form for work, however when someone uses the "Enter" button, it ruins the formatting of the form. Could someone illistrate to me how I can disable the Enter button in my form when I protect it. Tag: Word macro Tag: 74254
  - 22
    - Word automation questions (Using from VB6) I'd like to create a new Ms Word document from my VB6 application using a template. I'am new using automation, so i have some questions. 1) I set a reference to my project "Microsoft Word 11.0 Object Library". Is this backwards compatible with older versions of Microsoft Word ? Is it possible to load it dynamic (depending on a users version of Microsoft Word) 2) Is it possible to check if Microsoft Word is installed ? 3) Whats the best way to create an instance of Microsoft Word and create a new document from my template ? (Must work with and without an existing running instance of Microsoft Word) Dim wdApp As Word.Application Dim docNew As Word.Document Set wdApp = New Word.Application Set docNew = wdApp.Documents Add(App.Path & "\report.dot") -Or - Dim wdApp As Word.Application Dim docNew As Word.Document Set wdApp = GetObject(, "Word.Application") If wdApp Is Nothing Then Set WordApp = CreateObject("Word.Application") End If Set docNew = wdApp.Documents.Add(App.Path & "\report.dot") -Or Better solution Thanks in advance, Robertico Tag: Word macro Tag: 74248
  - 23
    - Can I launch MSO Document Imaging from a Word macro? I need to be able to display a *.tif file programmatically from a Microsoft Word Visual Basic macro. I'm running Microsoft Office Professional 2003 in Windows XP. I've created a reference to the Microsoft Office Document Imaging 11.0 Type Library and added the MODI Viewer control to my toolbox, but when I try to add the control to a form or document I get a message saying "Library not registered." What do I need to do to be able to use this control, or even just to launch the *.tif file in Microsoft Office Document Imaging from a Word macro? Tag: Word macro Tag: 74246
  - 24
    - Smart Document Deployment Issue I am using Code Signing certificate from Thawte for signing the Manifest.XML and C# DLLs. If I deploy this pack on my development machine everything works fine. But when I try to deploy it on QA machine I get a Security Warning dialog stating "An error occurred while verifying signature. Do not trust these credentials." and "Always trust macros from this publisher" checkbox is disabled. If I use XMLSign tool to verify it on QA machine, the Security Warning dialog displays as "Publisher authenticity verified by Thawte Code Signing CA". Can anybody please help me to resolve this issue? Any help will be really appreciated, Thanks is advance, Milind Kadam Tag: Word macro Tag: 74245
  - 25
    - Repeat Header problem Hi I encounter the following problem: After inserting a table to the document I add the following lines: obTable.Rows.HeadingFormat = True obTable.Rows.AllowBreakAcrossPages = False and the table heading is not repeated, however when I record this design to a macro the come seems identical but that table does repeat the heading Thank you, Shmuel Shulman Tag: Word macro Tag: 74243

does anyone have a Word macro that deletes every double occurences of a
word in a list?

I want this example:

ability
ability
able
about
about

to end up like this:
ability
able
about

thanks for any help!

Top

Re: Word macro by Greg

Greg
Thu Sep 29 15:31:05 CDT 2005

See:
http://gregmaxey.mvps.org/Sort_and_Delete_Duplicates.htm

"perskram atttt gmail dotttt com" <"perskram atttt gmail dotttt com"> wrote
in message news:433c4be4$1@news.broadpark.no...
> does anyone have a Word macro that deletes every double occurences of a
> word in a list?
>
> I want this example:
>
> ability
> ability
> able
> about
> about
>
> to end up like this:
> ability
> able
> about
>
> thanks for any help!

Top