Replace words with corresponding mergefields

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Blank lines in mailmerge not removed if using VBA Using Word 2000 (and Access 2000) I have a Word mailmerge document that I am running from an Access application. I use the following code: Set myWDApp = CreateObject("Word.Application") myWDApp.Application.Visible = True myWDApp.Documents.Open (strDocPath) Set myDoc = myWDApp.ActiveDocument With myDoc.MailMerge .MainDocumentType = wdFormLetters .OpenDataSource Name:=strCSV .Destination = wdSendToNewDocument .Execute True End With If I stop the code after 'Set myDoc = myWDApp.ActiveDocument' and manually run the mailmerge blank address lines are removed. If I just run the above code the blank lines are not removed. Is this a known problem, or am I doing something wrong here? Thanks for any help. Adrian. Tag: Replace words with corresponding mergefields Tag: 53073
  - 2
    - Word 2002 - Style visibility Hi, the visibility of styles in Word 2002's Styles and Formatting task bar can be controlled as follows: - open the task bar's "Show" combo box - choose "Custom..." - now you can select which styles are to be visible for the "All styles" category, for example If you record this, the macro contains lines like this: ActiveDocument.Styles("Footnote Text").Visibility = True However, if you run this macro, the visibiliy of the Footnote Text style is not modified. Thanks in advance for any hint. Wolfgang Tag: Replace words with corresponding mergefields Tag: 53072
  - 3
    - Working With Bookmarks Word 2000 I thought this was going to be snap, but I've run into a problem and I'm not sure what I'm doing wrong. I have a document that uses a lot of bookmarks. I have macros that use the bookmarks to select blocks of text. Not every bookmark in the document represents a block of text that I need to process, and bookmarks can be deleted while the data in the document is being processed. I felt that I couldn't just use the bookmarks collection because that collection contains more bookmarks than I need to worry about, and the contents of the collection would be changing on the fly. I decided that I needed a static list of bookmark names that I could reference, so I wrote a macro that builds an array which contains only the names of the bookmarks that I need to work with. My thinking was that I could index that array to pull out the bookmark names, and then jump to those bookmarks by name. However, when I try this, I get: Run-time error '9': Subscript out of range Here's the code: Option Base 1 Dim BookmarkName As String Sub NextLocate() Application.ScreenUpdating = False NextLocateCounter = NextLocateCounter + 1 BookmarkName = BookmarkCollection(NextLocateCounter) <<< This is where the error occurs Selection.GoTo what:=wdGoToBookmark, Name:=BookmarkName Application.ScreenUpdating = True <Other stuff> End Sub I'm not using a loop because I don't want this routine to run through the entire array at once. Instead, each time a toolbar button is clicked the macro is supposed to grab the next bookmark name from the array (not necessarily the next bookmark in the document) and goto that bookmark. How can I pull the bookmark names out of the array and use those names to navigate to bookmarks? On a related note, but something that is more for the sake of curiosity, is this question: Is there a way to get the current cursor location, and return the name of the bookmark that contains that location? -- Tom MT DOJ Help Desk Making the world a safer place. Tag: Replace words with corresponding mergefields Tag: 53069
  - 4
    - Outline view I have written a macro the performs a mail merge and then separates the single mail merge document into subdocuments and saves them individually. The mail merge document is switched to Outline view so that separation into subdocuments can take place. The problem is that the documents are saved in Outline view and when opened and printed they print in Outline view. How can I save the documents in Print view mode in the first place? Regards, Michael. Tag: Replace words with corresponding mergefields Tag: 53068
  - 5
    - Determining Word Versions (and what codes mean what version) Hi all, Does anyone know the version numbers for Word 95, 97, 2000, 2002 etc? I need to be able to test for the version of Word that my users have installed, and while I know that Word 2000 = '9.0', as that's the version I have, I've only got a hazy idea about the equivalents for Word 95, 97, etc. The important thing to my application is: Point the first: Is Word installed at all? (No problem there) Point the second: If Word is installed, does my code need to run on WordBasic (ie, Word 95 or earlier) or Word.Application (Word 97 or later)? The important thing is what version number Word 97 is, as anything above that will run with word.application and anything before needs wordBasic. I'm using the following code (1st function found on microsoft.com somewhere) to test for Word versions: Function WordVersion() As String Dim obj As Object ' Quick test to determine if Word is ' installed, and return version. On Error Resume Next Set obj = CreateObject("Word.Basic") WordVersion = obj.AppInfo$(2) obj.AppClose Set obj = Nothing End Function Function partOfOtherFunctionOrSubEtc() Dim wdVer As String 'get WordVerion's return value wdVer = WordVersion If Len(wdVer) < 1 Then 'word is not installed Else 'word is installed - determine version If CInt(wdVer) >= 8 Then 'word 97 or above is installed ElseIf CInt(wdVer) < 8 Then 'word 95 or below is installed Else 'assume some default installation End If End If End Function Tag: Replace words with corresponding mergefields Tag: 53066
  - 6
    - Macro execution slows down of97/NT & of2k/w2kPro Have an application that reads in a text file comprised of three fields with a tag indicating the style to be applied. Originally getting a "Formatting too Complex" message and, thanks to Google as well as hints from prior posts determined that it's a problem with re-defining a line's style more than once. I re-defined my styles, setting the "Following style" to what is the usual sequence of the text and only formatting on an exception basis. This got me further into the file-which can run to 1,500 records with two pieces of text on each record-but still got the message. I then cleared the Undo stack after each record and finally "capitulated" and did a save after each block of twenty records (arbitrary #). It works but takes about 6 minutes to complete the task and gets slower and slower as it goes. The above is on my home machine (2k) and I know that it will take an eternity at work ('97), plus the fact that there is a difference in when I have to do the save between the two machines. I can accept, grudgingly(?) what *I* consider to be a bug in Word regarding the "Formatting..." error but is this behaviour (slowing down) a function of the machine or is there something I can do to speed it up? -- Regards; Rob ------------------------------------------------------------------------ Tag: Replace words with corresponding mergefields Tag: 53064
  - 7
    - Document converters - external converter #s and DefaultOpenFormat don't mix? I'm working on a generalized document converter which hypothetically should be usable from Office 97 through 2003. Emphasis on "hypothetically". :) I set Word to automatically open documents fed to it by using It generally seems to work OK for opening files which have internal filters - meaning the ones I can see in the wdOpenFormat enumeration - but when I try to open something like an Excel spreadsheet after setting Word's Options.DefaultOpenFormat to wdOpenFormatAllWord, it makes a hash of it. When I try to explicitly set the open type to the numeric OpenFormat for the Excel FileConverter (which is 9 on my system) Word throws an "out of range" error. It looks like it can't handle anything that isn't explicitly in the wdOpenFormat enum as DefaultOpenFormat. Do I have to explicitly set this as an argument to Documents.Open? Or is there another way around that? Tag: Replace words with corresponding mergefields Tag: 53062
  - 8
    - Ugent - VBA Autotext and Menu from Template Deadline is in 12 hours and I am trying to build a template that: -Has standard autotext entries stored in it. -Has bookmarks as placeholders for inserting autotext entries -Displays a custom menu when a document is based on the template -Menu items will insert the relevant autotext entry immediately before the matching bookmark in the document I hacked code to create and display a menu. Everything works when the autotext is in the normal.dot and the code is in the document. But I need to use both the code/menu and autotext in the template. When a new document is created from the template I have not succeeded in making the menu display when a new document is created. Thanks, Gavin Here is the code I have created to date (excluding code behind one simple form) that just calls one of the subs, eg s_insert_auto 5, "Objective","obj_end" Sub autoexec() 'Dim new_doc As Boolean 'Dim objProperty As Office.DocumentProperty 'Check new_form property s_delete_menu "&PAF" s_create_menu "&PAF" 'new_doc = False 'For Each objProperty In ActiveDocument.CustomDocumentProperties ' If objProperty.Name = "new_agreement" Then ' new_doc = objProperty.Value ' Exit For ' End If 'Next 'If new_doc Then ' objProperty.Value = False ' s_openform 'End If End Sub Sub autoclose() s_delete_menu "PAF" End Sub Sub s_insert_auto(i As Integer, s_auto As String, s_bookmark) 's_insert_auto 5, "Objective","obj_end" 's_insert_auto 3 "Competancy","comp_end" Dim j As Integer Selection.GoTo What:=wdGoToBookmark, Name:=s_bookmark Selection.MoveLeft Count:=1 For j = 1 To i ' Selection.TypeParagraph Selection.TypeText Text:=s_auto Selection.Range.InsertAutoText Next End Sub Sub s_obj() s_insert_auto 1, "objective", "obj_end" End Sub Sub s_comp() s_insert_auto 1, "competency", "comp_end" End Sub Sub s_openform() new_doc_form.Show End Sub Sub s_new_paf() Documents.Add DocumentType:=wdNewBlankDocument With ActiveDocument.PageSetup .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2.03) .BottomMargin = CentimetersToPoints(2.03) .LeftMargin = CentimetersToPoints(2.5) .RightMargin = CentimetersToPoints(2.5) .Gutter = CentimetersToPoints(0) .HeaderDistance = CentimetersToPoints(1) .FooterDistance = CentimetersToPoints(1) .PageWidth = CentimetersToPoints(21.59) .PageHeight = CentimetersToPoints(27.94) .SectionStart = wdSectionNewPage .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop End With If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.TypeText Text:="paf_head" Selection.Range.InsertAutoText Selection.TypeBackspace ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.TypeText Text:="paf_foot" Selection.Range.InsertAutoText ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Selection.TypeText Text:="paf_body" Selection.Range.InsertAutoText 'Call the form for multiple insertions s_openform End Sub Option Explicit Public oMenu As CommandBarPopup Public oButton As CommandBarButton Public oBar As CommandBar Sub s_create_menu(xMenu As String) Dim i As Long, c As CommandBarControl CustomizationContext = ThisDocument 'Delete any previous/leftover menu of the same name Call s_delete_menu(xMenu) 'MAKE A NEW MENU: Set oMenu = CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup) With oMenu .Caption = xMenu .Visible = True End With Call AddMenuItem("&New PAF", "s_new_paf") Call AddMenuItem("Add &Objective", "s_obj") Call AddMenuItem("Add &Competency", "s_comp") Call AddMenuItem("Add &Multiple", "s_openform") ThisDocument.Saved = True Set oMenu = Nothing End Sub Sub AddMenuItem(xCaption As String, xAction As String, Optional xBeginGroup As Boolean = False) Set oButton = oMenu.Controls.Add(Type:=msoControlButton) With oButton .Caption = xCaption .Style = msoButtonCaption .OnAction = xAction .BeginGroup = xBeginGroup End With End Sub Sub s_delete_menu(xMenu As String) Dim i As Long, c As CommandBarControl For i = CommandBars("Standard").Controls.Count To 1 Step -1 If CommandBars("Standard").Controls(i).Caption = xMenu Then c.Delete Next i Set oBar = CommandBars("Menu Bar") For Each c In oBar.Controls If c.Caption = xMenu Then c.Delete Next c End Sub Tag: Replace words with corresponding mergefields Tag: 53059
  - 9
    - security box appears hi there when i open word 2003 i get this security box appear saying "c\programs files\microsoft office\ office11 \startup\pdfmaker.dot" then its says macros may contain virus. it is usually safe to disable macros but isf the macros are legitimate you might loose functionality how do i stop this box appearing during start up thanks Tag: Replace words with corresponding mergefields Tag: 53057
  - 10
    - Re-Protecting a Password Protected Template I have several form templates that need to be unprotected and reprotected without losing the data typed into the form fields...which can be found on the Microsoft Knowledge Base. The problem: when using the following, the template reprotects itself, but does not apply the "password" to protect the file. With all the code changes from 97 to 2000 software - is there something else that needs to be added to get it to recognize the password? Assistance is always appreciated....Best Regards See below: If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ NoReset:=True Else ActiveDocument.wdProtect Password:="my password" End If End Sub Tag: Replace words with corresponding mergefields Tag: 53050
  - 11
    - simple question add picture to document I am creating documents through code using VBA, and I need to insert a picture. Either at a given position, or at a bookmark, whichever is easiest. Does anyone have any relatively simple sample code that does this, or can point me to some? Extra points for sizing the picture after the insert. I am inserting an emf file, and I want to make sure to take up the whole page. -- Standard disclaimer: I am new to programming, thank you for your patience if what I ask seems obvious. Tag: Replace words with corresponding mergefields Tag: 53040
  - 12
    - Detecting the deletion or grouping of a shape Howdy All, There are many spots where my routines draw a graphic (such as an oval or a rectangle) and then sets up an object to track that graphic. For example, at some later point the code might need to change the forecolor of all shapes held in AShapesSubset collection. A problem arises if the user should delete or group one of the shapes represented in the AShapesSubset collection. The collection's pointer for the affected shape is no longer valid, and any attempt to change the forecolor produces an error. Is there a "best practice" means of tracking shapes? I wish that shapes had events associated with them; e.g. "ShapeDeleted" and a "ShapeGrouped" events. It appears that this is not the case (at least in Word 2000). Alternatively, is there a way to alter Word's Delete and Group routines so that I can first inspect the ShapeRange affected and post my own event? I can, of course, write code that would search through all Shapes and all GroupShapes to check on a shape's status. But that seems like quite a lot of overhead to encompass every single time I need to refer to a shape. Marty Tag: Replace words with corresponding mergefields Tag: 53038
  - 13
    - Ranges and .Characters.Count I wrote this routine to insert a paragraph before every section break in document vDoc: For Each vSec In vDoc.Content.Sections With vSec If .Index > 1 Then 'Operate on all but the first section '(since there are always 1 more section than breaks) 'insert para ' ******>>>>>>>>error on next line vDoc.Content.Characters(.Range.Start).InsertBefore Chr(13) End If End With Next vSec It works fine on a simple test document, but when I tried it on a large file it gave me an error on the last section of the document (5941, the requested member of the collection does not exist). Some poking and prodding disclosed that the value of vDoc.Content.Characters.Count is less than vSec.Range.Start when vSec is the last section in the document. (although vDoc.Content.End is greater than either). This has shown me exactly enough to see that I am over my head. Why the difference between .Content.Characters.Count and Content.End? How do you say, "Insert x before the start of range y?" What am I doing wrong? Gratitude for any help at all! Tag: Replace words with corresponding mergefields Tag: 53034
  - 14
    - templates and keyboard shortcuts Hi, I have a problem with templates and keyboard shortcuts; here is a sample dummy scenario: 1) I create a new document, and create a new macro into it. Let's say the macro is named Dummy and just shows a message box. 2) from the Tools / Customize menu command I assign this macro to say ALT+1. 3) I save the newly created document AS a template (DOT) e.g. in Program Files folder. Now, if I open the template and press ALT+1 the macro is executed as expected. If instead I create or open another document, and goto Tools / Templates and addins and I add the DOT as a global template, **no keyboard binding I assigned to it (step 2) works**. Thus, how can I create a DOT file to be loaded as a global template so that its keybindings work? I also tried to assign the keybindings programmatically in Autoexec, but this works only if the user has admin privileges. How can I let this work? Thanks to all! Tag: Replace words with corresponding mergefields Tag: 53033
  - 15
    - Opening Word I'm having a problem opening word. All of a sudden it won't open. When I click on it the small "word screen" comes up & then freezes. Then I can't close it down. & I have to manually shut the computer down. I've deleted word & re=installed it, still won't open. Does anyone have any suggestions. Tag: Replace words with corresponding mergefields Tag: 53025
  - 16
    - Conditional ListNum Originally posted this in the numbering newsgroup, but no responses so I'm going to give this NG a shot. -- I'm trying to use If statements to do conditional numbering, but have not had any luck so far. This is what I'm trying: { If BkMrk1=True "Recommendation1 {ListNum}" "" } { If BkMrk2=True "Recommendation2 {ListNum}" "" } { If BkMrk3=True "Recommendation3 {ListNum}" "" } { If BkMrk4=True "Recommendation4 {ListNum}" "" } So, if BkMrk1 and BkMrk4 are True, I want: Recommendation1 1.01 Recommendation4 2.01 I'm only getting the text, with no numbers. Recommendation1 Recommendation4 Thanks for any suggestions. Tag: Replace words with corresponding mergefields Tag: 53024
  - 17
    - InlineShape marco problam I've almost got this one working ( even if its not neat ) but I can't seem to work out one small problam . The aim is to locate all InlineShapes, split the table cell they are in and move them to the new cell . I've got it working but it seems to act on the forst image twice ! , if I select anything after the first image then run the macro everything is ok ! I can't seem to work out why ? maybe there is a better way to do the same action. Chris Sub SplitCellsWithImg() ' Find All InlineImages and split the cell ' then move the Inline to the new cell Dim oILS As InlineShape Dim oRg As Range For Each oILS In ActiveDocument.InlineShapes Selection.Find.ClearFormatting With Selection.Find .Text = "^g" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Cells.Split NumRows:=1, NumColumns:=2, MergeBeforeSplit:=False Selection.MoveLeft unit:=wdCharacter, Count:=1 Selection.MoveRight unit:=wdCharacter, Count:=11 Selection.MoveLeft unit:=wdCharacter, Count:=1 Selection.MoveRight unit:=wdCharacter, Count:=1 Selection.MoveLeft unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With Selection.Find .Text = "^g" .Replacement.Text = "" .Forward = False .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Cut Selection.MoveRight unit:=wdCell Selection.Paste Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone Next oILS End Sub Tag: Replace words with corresponding mergefields Tag: 53023
  - 18
    - VBA Required when Creating Graph in Word/PowerPoint Unable to create graph in Word/PowerPoint. Requests installation of VBA6.msi. Have nothing with this this MSI on. Puts me into a loop in Word. Have to end VBA in Task Master. Not sure when problem happened. Uninstalled and reinstalled Office, no difference. What do I do to get graph capabilities back into Word/PowerPoint? Thanks. Tag: Replace words with corresponding mergefields Tag: 53022
  - 19
    - An error occurred while loading "ThisDocument". Do you want to continue loading the project? Hi I have developed a program to convert all word documents in a specified directory (and subdirectories) into txt files. It's working pretty well but occasionaly I get this error message, and my application freezes until I say YES or NO. Is there a way to ignore the error? Thanks Paul An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: Replace words with corresponding mergefields Tag: 53021
  - 20
    - Table of Contents created by RD are not hyperlinked. Macro? Hi, our chapters are all splitted into several single documents (one for a section). Additional we have a table of contents document, created with the RD function. It works fine - but the table of contents entries are no hyperlinks (as it would be when you use the toc function within ONE document). Is there any chance to create a macro which adds a hyperlink to each toc entry created by the RD function? Thanks for help Pia Tag: Replace words with corresponding mergefields Tag: 53016
  - 21
    - Calculator tape debug window I would like to set up some kind of an "output window" for debugging purposes that would behave like a calculator tape. I could write a little subroutine that would cause a text string to be displayed on the next line in that window so I could follow what's happening in the program. I would then insert calls to the subroutine at various places in the code like this: ... Call DebugWindow("XYZ routine..." ... Call DebugWindow("i=" & i) ... Can someone point me in the right direction to get started on this? Is there a better way to accomplish this? Thanks -- For email, use Usenet-20031220 at spamex.com Tag: Replace words with corresponding mergefields Tag: 53015
  - 22
    - How to check word is installed Hi I am creating a VB application to add custom dictionary in word. In that i want to check whether word is installed. Also check for the version whether its 97/2000/XP. How can i do this.. ? Rgds Jinu Tag: Replace words with corresponding mergefields Tag: 53010
  - 23
    - Use of connectors in Word 2000 Howdy All, I'm putting together some simple graphics, in which names (provided in textboxes) will be associated with certain shapes (rectangles, chiefly). To make the association obvious, I'd like to be able to draw a connector between the textbox and the rectangle. In the drawing toolbar of Word 2000, however, I can't find a connector graphic. In contrast, that graphic is available in PowerPoint 2000 and in Excel 2000. The help files of the latter two packages also document a ConnectionFormat object. However, the help file I have for Word does not reveal any corresponding object. Have I missed something, or is the Connector feature in Office 2000 not supported in Word? Thanks, Marty Tag: Replace words with corresponding mergefields Tag: 53004
  - 24
    - URLs are not formatted as hyperlinks I am doing word automation with VB6 and populating a url at a bookmark using gotoboomark and insertafterbookmark functions. This url doesn't show up as a web link when I open the document. Tag: Replace words with corresponding mergefields Tag: 53001
  - 25
    - How do I convert a date to unix-format Hi I need a VBA function to convert a date (e.g. 06-28-2004) to UNIX-format (e.g. 1088433541) Can anyone help me? Thanks Soren Tag: Replace words with corresponding mergefields Tag: 53000
- Next
  - 1
    - Running Macros in Word I have many 1000s of documents which I want to open, find and delete pictures, save, close and move on to the next. The documents are stored in History files organised into folders so the macro needs to locate all files within these subfolders. This is all fine in principle. Via various sources etc. I have created a macro which checks for Shapes (including first converting any which are InlineShapes), selects and then deletes these. I have then inserted this into the publicly available code for finding all files within a folder (including subfolders) [special thanks to the MS folks for that!]. Problem is that the Shapes macro works fine on single documents but, for some reason, when it is operating within the file find loop, it crashes at the Convert from Inline stage and closes Word altogether. I assumed maybe it was a resources type issue so have tried limiting the scope of the search by running on only a few folders at a time (there are actually 2 main folders each of which has 1000 subfolders) and then to running on 1 folder at a time (each folder has up to 1000 documents). None of this seems to work. If the document is open and I run the Shapes bit on its own, it works fine. If I run the file search and open macro, then the same command causes the system to fall over. Does anyone have any bright ideas at all? For reference the Shapes part of the code is: If ActiveDocument.InlineShapes.Count > 0 Then For Each iShape In ActiveDocument.InlineShapes iShape.ConvertToShape Next iShape End If If ActiveDocument.Shapes.Count > 0 Then ActiveDocument.Shapes.SelectAll Selection.Delete End If Tag: Replace words with corresponding mergefields Tag: 52995
  - 2
    - Using Word Fields Hey everyone, I have a VBA form where the user will enter all sort of data. Based on that data, I replace certain words in pre- defined Word document. I have no problem with. I do a simple find and replace in my VBA code. However, in certain sitation, i may need to delete an entire sentence or paragraph. What I do now is search for a unique set of words, and do the appropraite deletion. This method works fine. But I was wondering if there might be a better way of doing this. My boss suggested using Fields, but I am not sure how. Can anyone help? I would greatly appreicate it. Thank you! Tag: Replace words with corresponding mergefields Tag: 52983
  - 3
    - html tags to footnotes Hi! I have a document with citation-sources between html tags (e.g., <fn>Book, p. x</fn>) and I need to convert all of these to regular footnotes. Is there a way? Or, alternatively, is there a more specific user group I should post this message to? Thanks, Moshe Tag: Replace words with corresponding mergefields Tag: 52982
  - 4
    - Help: Wrapping quotes around selected text Dudes, I would like to have a Word macro that can wrap quotes around each line of selected text, followed by a comma at the end of each line. Preferably it won't append a comma to the last line, but I'll settle for a solution without this extra feature. eg. Dog Cat Fish Bird becomes 'Dog', 'Cat', 'Fish', 'Bird' The reason I need this is to allow me to save a lot of time where I have to manually create an SQL query that includes a long list of search criteria. Thanks. The first to provide a solution goes to the top of the class! Poster Tag: Replace words with corresponding mergefields Tag: 52976
  - 5
    - Install works on 2 machines, but Word ignores it on 1 Hi; I created a .msi setup program using Visual Studio. It works fine on two machines. On the third the setup runs. The registry has the right settings. The files are on the disk. But... When Word starts it doesn't call the add-in. And in Tools, Templates and Add-Ins it lists nothing under Global templates and add-ins. any ideas? thanks - dave Tag: Replace words with corresponding mergefields Tag: 52974
  - 6
    - AutoCorrect entries containing punctuation I've discovered that punctuation characters trigger autocorrect expansions even if you've got an autocorrect entry which contains that punctuation character. For example, if you've got entries as follows: Entry Expansion f fyodor f&d fyodor dostoyevsky If you then type: "f&", autocorrect will expand to "fyodor" without checking for the "f&d" entry. Is there a way around this problem? Obviously, you can change "f&d" to "fd", but I'm converting expansions from a third party expander, and can't control entries like that. Thanks... Dan Tag: Replace words with corresponding mergefields Tag: 52972
  - 7
    - Inserting Tables of Contents, Tables and Figures I have Document Template that contains a Table of Contents. I have a couple of Macros that insert Tables of Tables and Tables of Figures. The Macros look for 2 bookmarks. One bookmark is stored at the end of the Table of Contents field, so that the Table of Tables always ends up in the right place and can't be deleted by mistake. The problem is the 2nd bookmark keeps getting deleted if I delete the Table of Figures and the Table of Tables. Also, if I were to delete the Table of Contents, then the Table of Table bookmark would disappear. What I need to do is be able to insert the Table of Contents in a certain place, if it gets deleted and then insert the other 2 tables after it. For example, if the Table of Tables is there, then the Table of Figures automatically is inserted below the TOT, however if there is no TOT, then the TOF goes under the TOC. At the moment everything works unless the bookmarks get deleted. The easy solution is don't delete the bookmarks, but life isn't easy Appreciate any suggestions Tag: Replace words with corresponding mergefields Tag: 52971
  - 8
    - Create a Zip'ed Folder I'd like to be able to use Windows XP's built-in capability to create and manipulate zipped folders from within VBA. My VBA program creates a folder and places several files into this folder. Now I'd like to create a Compressed (zipped) Folder from this unzipped folder. I can do this within Windows Explorer by right-mouse-button clicking on the folder and selecting Send To Compressed (zipped) Folder from the Pop-up menu. But how does one do the equivalent under program control? I'd like to be able to create a Compressed (zipped) Folder from within my VBA program. Can this be done using Windows XP's built-in zip capability (involving the zipfldr.dll capability)? Thanks! -Ron Tag: Replace words with corresponding mergefields Tag: 52970
  - 9
    - Macro to retrieve an OL address and insert it into Word I have recently started using Word (Office 2003). In my 15 years using WordPerfect I developed a macro to use while writing a business letter to insert an address from the address-book. Has someone written a VBA macro which will ask for the input of the first and last name, and then go to OL to retrieve the mailing address and insert it into the Word document at the cursor location? That would be most helpful to me. Thank you. Tag: Replace words with corresponding mergefields Tag: 52966
  - 10
    - Visual Studio setup - add to the appropiate menu Hi; Does anyone know how I can set the Visual Studio setup program for my Word add-in install to add my items to the user menu if they select install for just them but goes in the all users menu if the select install for all users? thanks - dave Tag: Replace words with corresponding mergefields Tag: 52963
  - 11
    - Can't use Word 10 interop Hi; I added the Office 10 interops as described in http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoxpta/html/odc_oxppias.asp. And in the GAC I have the Word 10 dll. But it won't show it in the references, add, COM list. And I can't browse to it because it's in the GAC. Any ideas? thanks - dave Tag: Replace words with corresponding mergefields Tag: 52962
  - 12
    - Microsoft Works I want to know if it is possible to activate Microsoft Works on both my desktop and my laptop. I use both. Thanks for your help, Tag: Replace words with corresponding mergefields Tag: 52961
  - 13
    - Select x words on either side of Find Here's an interesting request. I'm just looking for the most efficient way to handle this. I have a need to do a find and replace on a text range. The replace is simply a formatting change. However, I need to change the formatting on a specified number of words on either side of the matched word as well. I am looking at the object model, but figured maybe someone who knows it a bit better could point me right where I needed to go. My anticipated approach is to match the word, step back x words, start selecting, step forward ((x*2)+1)) words, end selecting, then apply the formatting to the selection. That doesn't sound like the best way to do it. Maybe I could do a regular expression match? Any other ideas? Tag: Replace words with corresponding mergefields Tag: 52958
  - 14
    - Automating ms word tasks.. hello everybody i have a problem with a translation work i'm actually busy with, i'll try to explain it as claerly as possible, hopin' to find some good soul out there that could really help me out. THE FACTS: 1) I have a really long list of word documents classified in two folders, each folder containg the same documents, with different filenames, in two different languages (italian/french). Both respectives filenames contain at least a similar string as they are referred to the same product (ex. IT-catalog-bs342.doc - FR-catalog-bs342- NEW.doc) 2) As it was an old translation i made, i'm upgrading the old italian translation to the new french catalog. there are really small differences between the two versions of the respectives documents, such as a footer that has been added and some new items and fonctions in bullets listings. Some values have changed too. (ex. distance: 10m --> distance: 25m) My question is: Is anyway to do this loooong work faster by using scripts and macros to replace automatically what i want them to replace or simply add to the old files using new files as a source? I'm trying to find out how evaluation products such as WordPipe or CrossEyes could help me but i'm really lost in it! please contact me by mail or icq if you feel u can help. by the way thanks for reading all this message. livefast Tag: Replace words with corresponding mergefields Tag: 52957
  - 15
    - 'Example O'Toole' how to delimate a ' I'm sure this is a real simple one , whats the best trick when your select conditions have a ' in the value "WHERE (People.FullName = 'Example O'Toole' )" ? Chris Example strSQLPeople = "SELECT People.FullName " strSQLPeople = strSQLPeople & "FROM People " strSQLPeople = strSQLPeople & "WHERE (People.FullName = '" & Me.ComboFullName.Value & "' ) " strSQLPeople = strSQLPeople & "GROUP BY People.FullName " Set rstPeople = New ADODB.Recordset rstPeople.CursorType = adOpenStatic rstPeople.CursorLocation = adUseClient Debug.Print strSQLPeople ' strSQLPeople example ' SELECT People.FullName FROM People WHERE (People.FullName = 'Example O'Toole' ) GROUP BY People.FullName rstPeople.Open strSQLPeople , CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText Tag: Replace words with corresponding mergefields Tag: 52952
  - 16
    - Request for help to rearrange data... Hi, I'm working with Word 97 and I wish to rearrange a data source file so that it is consistent. For example, I have the following sample data records: "John Smith", "1 ABC Lane", "City State Zip" "Jane Smith", "2 DEF Blvd", "Apt G", "City State Zip" As you can see above the Jane Smith record has an additional field "Apt G" field. If I were doing a normal mail merge this would not be a problem. However, I need to export the data for another program rearranging the data using the following format: "", "John Smith", "1 ABC Lane", "City State Zip" "Jane Smith", "2 DEF Blvd", "Apt G", "City State Zip" Is there a Find/Replace command I can use on this data or must I create a macro to handle this problem? Thanks in advance for your assistance. Regards, Greg Tag: Replace words with corresponding mergefields Tag: 52948
  - 17
    - HELP: can't debug Hello; All of a sudden when I go to debug my add-in (.net/C#/IDTExtensibility2) it launches Word - but won't start my add-in. I have a breakpoint in OnConnection and it never gets there. One thing I recently did - I changed the setup project to create a shim add-in. I can build, install, and run as an add-in. I just can't run under the debugger. Any ideas? thanks - dave Tag: Replace words with corresponding mergefields Tag: 52945
  - 18
    - vba to stop frame resizing Please can you offer a solution to a cell within a frame resizing. Is it possible to fix it to a size in VBA so that it will not resize no matter what occurs! Cheers John Tag: Replace words with corresponding mergefields Tag: 52941
  - 19
    - Saving word documents to Oracle database with formatting Hi! I am wandering if it's possible to save a portion of a Word 2000 document to an Oracle 8i database in such a way that the formatting of the text is not lost? I am going to retrieve the document from Oracle and redisplay with the original formatting. Please let me know. Thank you in advance, --Mike Tag: Replace words with corresponding mergefields Tag: 52940
  - 20
    - Saving Word Document without Attached macro Hi All, I have created a template with word and VBA that takes all the word docs in a specific folder and allows a user to open the selected document for edit, when the user goes to edit the document it opens the document into another template that i created which has a custom toolbar attached to it and various VBA commands to control the events on this toolbar. The problem i am having is when the user presses SAVE on my custom toolbar, the document saves fine however it also saves the toolbar and all i want is to save the text changes I DON'T want to save the attached toolbar.. how do i do this? this is the code i have for saving in my custom toolbar. ActiveDocument.SaveAs FileName:=docletPath & ActiveDocument.ActiveWindow.Caption, FileFormat:=wdFormatDocument docletPath = "C:\Temp\doclet\" the following is the code i use to open the word document that was chosen for editing into the second template with the custom toolbar. Set docApp = New Word.Application With docApp .Visible = True .WindowState = wdWindowStateMaximize End With ActiveDocument.ActiveWindow = docApp.Documents.Open("C:\_dev\CWBL\PensionDocumentBuilder\Retirement\tempDoclet.dot") docApp.ActiveDocument.ActiveWindow.Selection.InsertFile FileName:=docletPath & Me.txtSource.Text docApp.CommandBars("Menu Bar").Enabled = False docApp.ActiveDocument.ActiveWindow.Caption = Me.txtSource.Text docApp.ActiveDocument.ActiveWindow.SetFocus Thanks in advance for the help. Erin Tag: Replace words with corresponding mergefields Tag: 52918
  - 21
    - Booklet, back to front, landscape 1/2 page Dear fellows, I hope someone can help me. I want to publish a club handbook that is printed on 8 1/2 X 11 folded in half. This effectively would have the first page printed with the last on the same sheet. Just like a magazine is printed then stapled together. The problem is I don't know how many pages will be involved so I just can't start by typing the first page and the last page on the same page and printing. The number of pages will change several times a year. The question then becomes...is there a template or program that will do this for me? In other words, allow me to type the pages sequentially and when I'm finished rearrange the pages for proper printing regardless of how many pages are involved. Years back in another life I remember a Mac program that allowed me to do exactly what I want, but I can't seem to find it for Word. Thanks for any help you can give. Wolf-==- Tag: Replace words with corresponding mergefields Tag: 52912
  - 22
    - Using an IF statement I am in the process of creating a letterhead macro/template. I would like it to work like this: Open letterhead template, you are asked to enter a "lawyer number" and based on the lawyer number you type, that lawyer's personal info is inserted in the letterhead. An example I've been playing with is: If txtLawyerNo = 31 Then Application.Run MacroName:="ArsenaultGreg" End If Any help would be appreciated. Brenda Tag: Replace words with corresponding mergefields Tag: 52910
  - 23
    - Change Table Properties I have a macro which creates a table. I would like to select some cells (e.g. column 1 rows 1, 2 &3) and set the border property to BOX. How could I do that? Also, I would like to delete individual cells in row1, and change the width of the remaining cells. How could I do that? Tag: Replace words with corresponding mergefields Tag: 52909
  - 24
    - Do While or While & Selection or Range (REPOSTED AS PER REQUEST) Hi Folks, I've written some code to check the character style in paragraphs and 'do stuff' based of the style found. First question: Is it better to use the 'Do While' clause with this (which I'm thinking it might be). Second Question: Is it better to use range instead of selection, and if so how do I convert this to ranges? I've never used ranges before and don't really know that much about the properties/methods. Any pointers/improvements gratefully accepted. Cheers J Dim x As Integer, y As Integer, s As Integer Dim StyleNow As String Dim test As Variant, test1 As Variant StyleNow = "Persname" SavedMemData = ActiveDocument.BuiltInDocumentProperties(wdPropertyParas) For x = 0 To SavedMemData - 1 styletype = Selection.Style For s = 1 To 6 y = 0 test1 = Selection.Paragraphs.Last test = Selection.Document.Paragraphs.Item(x + 1) If test <> test1 Then GoTo End1 If Selection.Style = StyleNow Then StyleNow = Selection.Style Selection.MoveLeft wdCharacter, 1 Selection.MoveRight Unit:=wdWord, Count:=1, _ Extend:=wdExtend If StyleNow = "Persname" Then GoTo Pers1 While StyleNow = "Persname" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend This must be performed on multiple paragraphs and multiple styles to have the effect I need. Tag: Replace words with corresponding mergefields Tag: 52907
  - 25
    - Macro to edit VBA code I perform (by hand) a certain standard 15 step routine on my VBA code to make the coding that runs in Word2003 workable in Word98. Is there anyway to create a macro that runs directly on the VBA coding so that the manual steps I take to edit the code can be automated? Thanks, Roy Tag: Replace words with corresponding mergefields Tag: 52902

Hi all,

I want to replace words like @@WORD@@ to the corresponding mergefield. The
words are placeholders in a comment and after connecting to the datasource
I want them to be replaced.

Hope somebody can help.

Thanks in advance.
Florian

Top

Re: Replace words with corresponding mergefields by Doug

Doug
Sat Jul 03 20:15:28 CDT 2004

Hi Florian,

The following code should do what you want:

' Macro created 19/7/00 by Doug Robbins
'
Dim tag As Range, fname As Range
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="\@\@*\@\@", MatchWildcards:=True,
Wrap:=wdFindContinue, Forward:=True) = True
Set tag = Selection.Range
Set fname = Selection.Range.Duplicate
fname.End = fname.End - 2
fname.Start = fname.Start + 2
ActiveDocument.Fields.Add Range:=tag, Type:=wdFieldEmpty,
Text:="mergefield " & fname
Loop
End With

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
"F. Roettger" <froettger@web.de> wrote in message
news:Xns9518AD0E194EDfroettgerwebde@62.153.159.134...
> Hi all,
>
> I want to replace words like @@WORD@@ to the corresponding mergefield. The
> words are placeholders in a comment and after connecting to the datasource
> I want them to be replaced.
>
> Hope somebody can help.
>
> Thanks in advance.
> Florian

Top