Word Mail Merge Problem

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Selective Find & Replace I am trying to write code to find and replace specific text, but I would like it to stop and highlight each instance and let me select whether or not to replace each instance, just like it would do in a regular find and replace text in the document screen. This is what I have so far, but it asks if you want to make a change but doesn't actually go to the word to be changed, so you can't see where you are in the document: ChangePatientToClaimant: ResponsePatientToClaimant = MsgBox("Do you want to change all instances of word patient with claimant?", vbYesNo + vbQuestion + vbDefaultButton1, "ChangePatientToClaimant") If ResponsePatientToClaimant = vbYes Then Dim oRng As Range ResetSearch Set oRng = ActiveDocument.Content With oRng.Find .Text = "patient" .Replacement.Text = "claimant" .Forward = True .Wrap = wdFindContinue .MatchCase = True .MatchWholeWord = True While .Execute With oRng.Find FindAction = MsgBox("Make change?", vbYesNo + vbQuestion + vbDefaultButton1, "Change?") If FindAction = vbYes Then .Execute Replace:=wdReplaceOne, Forward:=True Else: End End If End With Wend End With End If ResetSearch Thanks for any help! -- singeredel Tag: Word Mail Merge Problem Tag: 63811
  - 2
    - moving cursor with .vbs file? I have code in Word 97 that moves the cursor to a given point on the screen. It works in conjunction with a Public Declaration at the top of the module. The public declaration: Public Declare Function SetCursorPos Lib "user32" _ (ByVal X As Long, ByVal Y As Long) As Long The code used in the macro: ret = SetCursorPos(180, 80) Is it possible to make the same kind of thing happen with a .vbs file? Tag: Word Mail Merge Problem Tag: 63803
  - 3
    - Autofit to window IF it extend across page Hi folks, I haven't any experience with Word VBA and just a little with Excel VBA. However, despite the fact I don't have a clue what I'm doing, I've been able to create an Excel macro to paste all of my nice formatted tables into a new Word document. However... As I anticipated, there are a few problems. The dimensions of my tables can be of varying size. Some have only a a few columns and rows...and some have many columns and rows. So I'm hoping someone knows how I could write some code to be able to handle these particular circumstances. I think I have a grasp on the logic I need, just not the code that would be needed to accomplish the task. It would go something like this (not actual code): For each table in the active document If the table is too wide for the page do this Selection.Tables(1).AutoFitBehavior (wdAutoFitWindow) End If If the table is too long for the page prompt user to indicate how many header rows there are select those first rows and activate the 'header row repeat' End If "if the table fits on the page both horizontally and vertically--do nothing" Next table Any ideas? Tag: Word Mail Merge Problem Tag: 63788
  - 4
    - creating a single action in the undo buffer I have a Word add-in that manipulate the document. My problem is that every single manipulation gets to into the undo buffer as a seperate action. I would like to combine these into one undo action so that when the user clicks "undo" they undo all of what my add-in has done. Can this be done in Word 2003? Tag: Word Mail Merge Problem Tag: 63787
  - 5
    - shell problem Why isnt the shell working? The shell command is supposed to send data to a text file called "x.txt" but the returnvalue is = -1 everytime i run it and therefore it never even executes The command i am trying to execute works when i type the exact same string on the command line. Is the command to long? here is the code The module : Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessID As Long dwThreadID As Long End Type Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal _ hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Declare Function CreateProcessA Lib "kernel32" (ByVal _ lpApplicationName As Long, ByVal lpCommandLine As String, ByVal _ lpProcessAttributes As Long, ByVal lpThreadAttributes As Long, _ ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, _ ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, _ lpStartupInfo As STARTUPINFO, lpProcessInformation As _ PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal _ hObject As Long) As Long Private Const NORMAL_PRIORITY_CLASS = &H20& Private Const INFINITE = -1& Public Const SW_HIDE = 0 Public Const SW_MAXIMIZE = 3 Public Const SW_MINIMIZE = 6 Public Const SW_NORMAL = 1 Public Const STARTF_USESHOWWINDOW = &H1 Public Sub ExecCmd(cmdline$) Dim proc As PROCESS_INFORMATION Dim start As STARTUPINFO Dim ReturnValue As Integer ' Initialize the STARTUPINFO structure: start.dwFlags = STARTF_USESHOWWINDOW start.cb = Len(start) start.wShowWindow = 6 ' Start the shelled application: ReturnValue = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, _ NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc) ' Wait for the shelled application to finish: Do ReturnValue = WaitForSingleObject(proc.hProcess, 0) DoEvents Loop Until ReturnValue <> 258 ReturnValue = CloseHandle(proc.hProcess) End Sub The code in the sub procedure : strShell = "gram-ga.pl C:\TextFromWord.txt --aspell --output C:\ErrorsFromWord.txt --api" ExecCmd strShell Tag: Word Mail Merge Problem Tag: 63783
  - 6
    - Jezebel or other helper Hi, I was wondering if you would take a look at my prior post "How to reference Userform in another project." I have responded to your suggestion but still need help. Thank you! -- singeredel Tag: Word Mail Merge Problem Tag: 63781
  - 7
    - Capture Autonumber; write as text? I was given a document to use as a report "boiler plate". The doc, though, is full of Autonumbered paragraphs and headers - all of which are going to change when I rewrite this report. Can a macro go through the doc and capture the text of any and all automatically numbered paragraphs, delete the automatically generated number, and replace it with the plain text of the number that was deleted? Ed Tag: Word Mail Merge Problem Tag: 63769
  - 8
    - delete all bookmarks in file Can a macro delete all bookmarks in a file? I want to be able to delete all of them without knowing in advance how many there are, since the number will vary from file to file. I'm using Word XP. Tag: Word Mail Merge Problem Tag: 63767
  - 9
    - FillIn or MergeField from VB I'm trying to insert data from a recordset into Word fields.(not sure if Fillin or MergeField would be best appropiate) - How I'd like to use it? I'd like to use the Field Name to retrieve from rstemp(Fields.Name) that way I can use different templates with same functionality. The template will determine the fields that would get populate it from the rstemp Any help would be appreciate it Tag: Word Mail Merge Problem Tag: 63763
  - 10
    - How do I get the year before the savedate of a document? I have got this document that I have to print every year and I want to automize it. So, I am creating a template with all things that are nearly the same for each year. This includes the year it was saved in the header (no problem there, SaveDate \@YYYY does the trick) but I also need the year before that. This is my problem, I cannot do any calculations on the SaveDate it seems or if I can, I must be doing it all wrong. Can somebody help me out? Tag: Word Mail Merge Problem Tag: 63762
  - 11
    - VB Solution required! I am hoping someone can help. In every letter we send by mail merging, we have a field FULLUSER. we also need an email address, but this is not available form the data source - and never will be. So, what I need to know is if VB could be used to split the text string FULLUSER into two strings, using the blank space present between first and second names. I could then use these two strings, with a full stop in the middle, to make the email address. Or maybe easier to replace the space with a full stop, but it would still have to be a new string as FULLUSER is used on each letter. Sorry if my use of the term 'string' is wrong - I am going back to when I used extended basic, and I seem to remember you could cut text strings in this way? I do hope somone can help... The only alternative is a lookup table, but that seems a bit messy on each of 1000+ letters! Tag: Word Mail Merge Problem Tag: 63756
  - 12
    - Manipulating embeded exccel in word (Repost) Hi there, I have seen quite a few posts on this and know it is "easily" accomplished, however I have a bit of a different requirement. I have a Word document that I have embedded the following: - 1 Sheet that holds score data that users can edit within word - 6 Graphs (from the same workbook) that report the data in different ways. What I want to happen is that when the data in the embedded worksheet is edited, then all the other graphs update to reflect the edited data or scores. Any ideas ? I have one, which is to cycle through each embedded chart and copy the data scores from the embedded sheet to the relevant sheet that the chart is linked to - but is there another way ? Also as an aside - Is there a way to rename the objects ? Rather than the arbitarily named 'ActiveDocument.Shapes("Object 3").Select' This is a problem if you ever have to delete an then add embedded objects Thanks in advance Jason Tag: Word Mail Merge Problem Tag: 63751
  - 13
    - Cursor Position in Textcolumns Hi, I have looked wherever I can but I just can't find a reliable way of checking which textcolumn am I, in the code. I have tried the Information(wdHorizontalPositionRelativeToPage),which unforunately just about anywhere gives me a -1, no reason at all. EVEN WHEN I HAVE ONLY A SINGLE LINE selected. 100% zoom in page view is the default. Next try has been the distancefromright and left in the hope of getting the position wrt to the page end. No help again. Is there a reliable way of knowing the current textcolumn of the cell/range/row/selection/insertion point? Ohh: I have 2 textcols, filled with a table. I am interating through the rows. I need to do something specific for each row in the second text column. I just can't triangulate the poistion. Each row may have a variable number of cells. Please help if someone has seen something like this. Thanks. Tag: Word Mail Merge Problem Tag: 63749
  - 14
    - Help with sub to change source file name for source links Hello. I am try to write a sub to automate the process of changing all of the Excel links in a Word doc by having the user point and click the new file. There are over 200 links in each doc and they are set to update manually. These links represent both in-line text and pictures (not .jpg but Excel tables pasted as linked pictures). If I step through the code I now have (below), the first link will change correctly, however, the remaining links do not change and it appears that the sub is caught in a loop. Any help is greatly appreciated. Thanks! -------- Public Sub LinkToExcel() ' Early Binding required Dim xlApp As Excel.Application Dim xlWkb As Excel.Workbook Dim strWorkbook As String Dim strDefaultDir As String Dim fldField As Field strDefaultDir = "C:\" With Dialogs(wdDialogFileOpen) .Name = "*.xls" ChangeFileOpenDirectory strDefaultDir If .Display = -1 Then strWorkbook = CurDir & Application.PathSeparator & Replace (.Name, Chr(34), "") Set xlApp = CreateObject("Excel.Application") Set xlWkb = xlApp.Workbooks.Open(strWorkbook) For Each fldField In ActiveDocument.Fields If fldField.Type = wdFieldLink Then With fldField.LinkFormat .SourceFullName = strWorkbook .AutoUpdate = False End With End If Next fldField xlWkb.Close False xlApp.Quit Set xlWkb = Nothing Set xlApp = Nothing End If End With End Sub -- Message posted via http://www.officekb.com Tag: Word Mail Merge Problem Tag: 63748
  - 15
    - Removing the top 2 lines of each page on a document I'm trying to put together a macro that goes to the beginning of the document and deletes the top 2 lines (both extra blank lines needing to be removed), then moves to the next page and deletes the top 2 lines, and so on until it reaches the end of the document. Once it reaches the end, I want it to stop. But I've got a problem, because it's not working. Please assist. Here's my code so far: Sub Step3() Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.ClearFormatting ActiveDocument.Range(0, 0).Select Do While .Execute On Error Resume Next Selection.Collapse Direction:=wdCollapseStart Selection.MoveUp Unit:=wdLine, Count:=2 Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend Selection.Delete Selection.MoveEndUntil Cset:=vbCr, Count:=wdForward Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend If Selection.Range.End = ActiveDocument.Range.End Then ActiveDocument.Range(0, 0).Select Exit Sub End If Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Collapse wdCollapseEnd Loop ActiveDocument.Range(0, 0).Select End Sub Tag: Word Mail Merge Problem Tag: 63747
  - 16
    - Positioning of option button ActiveX controls in Word I'm working in Word 2002 SP-2, and have created a table containing option buttons which have been manually placed from the Control Toolbox into the table. After creating the table, I protected the section of the document that the table was in, and then saved it as a template. I have two questions: 1. After I saved the document as a template, the option buttons were no longer mutually exclusive, even though each option button in a group was given the same Groupname property. I used some code to force the other values in the group to be False when one of the buttons was clicked, but I thought this wasn't now necessary? Does this have anything to do with the option button controls belonging to the Shapes collection, rather than Inline Shapes? 2. When a user creates a document from this template, she finds that all the option buttons in each row have all piled up on top of each other at the left hand margin, and are no longer separated out across the page. Again, does this have anything to do with them being Shapes? Is there anything I can do to prevent this happening? The option buttons are OK in the original template. Thank you in advance for any help you can give. Tag: Word Mail Merge Problem Tag: 63732
  - 17
    - WordBasic and Word 2003 SP3?? - (Not) Printing markup This is a slightly modified repost of a question I posted earlier in this group. I really hope someone helps me out! I've been writing a macro including a UserForm, in order to be able to print (one or more) documents either with or without markup (comments or revisions) showing, or as shown on screen, depending on the value of a checkbox. My question: this works well in the beginning. But: after having printed one or more documents WITHOUT markup, and thereafter the same document(s) 'as shown' or WITH markup, no balloons are printed anymore for these same documents, although the balloons still do show on screen. Part of the code I wrote (part of a loop for each selected document; name of the checkbox = CheckMarkup): *** With Documents(...) 'the particular open document If CheckMarkup = True Then 'print with markup showing With .ActiveWindow.View If .RevisionsMode <> wdBalloonRevisions Then _ .RevisionsMode = wdBalloonRevisions 'always show revisions as balloons .ShowRevisionsAndComments = True .ShowFormatChanges = True .ShowInsertionsAndDeletions = True End With PrintMarkup = wdPrintDocumentWithMarkup 'variable to be used later with PrintOut command ElseIf CheckMarkup.Value = False Then 'no markup PrintMarkup = wdPrintDocumentContent ElseIf IsNull(CheckMarkup.Value) = True Then 'triplestate enabled; print as shown If (.Revisions.Count = 0 And .Comments.Count = 0) Then 'no revisions, no comments present PrintMarkup = wdPrintDocumentContent ElseIf .ActiveWindow.View.ShowRevisionsAndComments = False And _ .ActiveWindow.View.ShowFormatChanges = False And _ .ActiveWindow.View.ShowInsertionsAndDeletions = False Then 'no markup visible PrintMarkup = wdPrintDocumentContent Else 'markup visible PrintMarkup = wdPrintDocumentWithMarkup End If End If .PrintOut Item:=PrintMarkup 'print the relevant way '... (restoring the Show* properties when necessary) End With *** Does anyone know what is happening? As far as I'm aware of I'm using the right properties, or do I miss one or more? Moreover: in order to check what happens I recorded some macros. When I applied menu choices View > Markup I was really astonished to find the statement WordBasic.ViewChanges being recorded. And as astonished to find WordBasic.ShowComments for changing the Show-option for comments (on the Reviewing toolbar). I couldn't find any documentation on this, nor were these statements present in Word95 or Word97. Can anyone explain this to me? Thanks in advance for any advice! Peter Tag: Word Mail Merge Problem Tag: 63729
  - 18
    - word pop menu i am trying to add a popup menu to word where if a word is underlined it will have an extra menu item when it is right-clicked. However if another word is right-clicked that is not underlined then i do not want the menu item to be on the popup menu Here is my code <code> Dim ShortCutMenu As CommandBar Dim Menu As CommandBarPopup Dim ctrl As CommandBarControl If Selection.Font.Underline = wdUnderlineWavy Then With Selection .Expand wdWord ' Select insertion point word. ' Deselect any trailing spaces. Do While Right(.Text, 1) = Chr(32) .MoveLeft Unit:=wdCharacter, _ Count:=1, Extend:=wdExtend Loop selWord$ = Trim(.Text) ' Store selection. MsgBox selWord$ Set ShortCutMenu = CommandBars("text") Set Menu = ShortCutMenu.Controls.Add(Type:=msoControlPopup, temporary:=True) With Menu .BeginGroup = True .Caption = "&MenuItem" ' .OnAction = "AccessThesaurusMenu" End With System.Cursor = wdCursorWait Set Menu = CommandBars.ActionControl End With Else Menu.Delete(false) End If </code> This does not work. If it does add the menu item, it cannot be deletedAny help would be much appreciated Tag: Word Mail Merge Problem Tag: 63728
  - 19
    - Problem with mail editor Word instance The primary user interface in my Word 2003 VBA application (running in XP-environment) is an extension added to Words menu bar. The Customization Context is set to NomalTemplate. Problems occur when Word is used as the Outlook Editor. If the user (after computer booting) starts with mail editing, the menu works OK in the mail editor Word instance. However, if the user then adds another instance by clicking on the Word application icon, my added menu does not work. Any ideas of a work around ? /Bosse H Tag: Word Mail Merge Problem Tag: 63726
  - 20
    - Change the properties of pictures Hi; I am using VB6 to read a microsoft word doc, i have a problem in converting shape to inlineShape, below is my code: Dim shp as shape For each shp in ActiveDocument.shapes shp.convertToInlineShape next I understand that shape has many msoShapeType, does this determine on whether a shape can be converted to inlineShape? and if it is, can it still be converted to inlineShape by using other method? Hope you can help me, thank you. Tag: Word Mail Merge Problem Tag: 63717
  - 21
    - selecting a variable number of rows in a table Hi All, I desire to select a variable number of rows in a table between two strings of text. The first cell to be selected is always Cell Column A, Row 3. Cell A aobve the last row to be selected reliably has the words "Ongoing Meds". The number of rows to be selected varies. The following is a table with borders, but I do not know if it will show in a newsgroup. I am using Word 2003, Windows XP. Note: this table usually adds some information at each visit http: //www.coremedicalconcepts.com PMH: HBP, PVD, spinal stenosis C4-5, BPH, hyperlipidemia, aortoiliac bypass '83, hernia '87, femoral thromboarterectomy and fem-pop '91 Occupation: FH: unknown Problem Progress List 09-01-04 3-16-03 3/28/02 03/15/01 05/10/00 02/21/00 09/03/99 6/98 cholesterol - HDL 150-61 161-58 166-54 172-47 172-48 206-53 253-47 183-56 LDL -- trigly 74-73 85-89 91-106 104-106 105-96 135-91 185-103 ' " weight ® pap-mammogram-PSA CBC ESR CMP UA TSH (nl: 0.4-5.5) colonoscopy DEXA --- ; 0.6 wnl wnl - - -- 0.75 wnl wnl - - other Ongoing Meds Past meds used & notes about them below: vytorin 10-40 1 q hs x 11-24-04 formulary change; lipitor 40 mg q hs ; x 8/20/01; 20 mg q hs ; x 02/21/00 qs 6 mos; previously, 10 mg q hs x 11/99; before that, pravachol and lescol table truncated ... /// ... tia, :) Gil Tag: Word Mail Merge Problem Tag: 63706
  - 22
    - Deleting top 2 lines of each page I'm trying to put together a macro that goes to the beginning of the document and deletes the top 2 lines (both extra blank lines needing to be removed), then moves to the next page and deletes the top 2 lines, and so on until it reaches the end of the document. Once it reaches the end, I want it to stop. But I've got a problem, because it's not working. Please assist. Here's my code so far: Sub Step3() Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:="1" Selection.Find.ClearFormatting ActiveDocument.Range(0, 0).Select Do While .Execute On Error Resume Next Selection.Collapse Direction:=wdCollapseStart Selection.MoveUp Unit:=wdLine, Count:=2 Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend Selection.Delete Selection.MoveEndUntil Cset:=vbCr, Count:=wdForward Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend If Selection.Range.End = ActiveDocument.Range.End Then ActiveDocument.Range(0, 0).Select Exit Sub End If Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Collapse wdCollapseEnd Loop ActiveDocument.Range(0, 0).Select End Sub Tag: Word Mail Merge Problem Tag: 63704
  - 23
    - macro in word table I am trying to write a macro that will ask the user to input a start time. This time is in 12 hour time. The macro needs to add 15 minutes and then paste the time range together in one cell. How do I get it to do this? It should look like this, input time is 3:15, then add 15 minutes to get 3:30. Then paste them in the cell like this 3:15-3:30. If anyone can help that would be great. Thanks, David Tag: Word Mail Merge Problem Tag: 63700
  - 24
    - Hide input keystrokes Can an input box be customized in vba to hide the input keystrokes with dots or astericks, like a password input box? Tag: Word Mail Merge Problem Tag: 63699
  - 25
    - Macro to accept revisions I have tried 47 ways to create a macro that accepts a (selected) revision, and skips to the next revision. None of them work. Has anyone had any luck doing this? Many thanks. Tom Kreutz P.S. I'm using Word 2003 on Windows 2000 Tag: Word Mail Merge Problem Tag: 63686
- Next
  - 1
    - underline with color I am trying to underline with a wavy coloured line however the wavy line is appearing but there it is gray and no matter what colour i use it is always gray. Here is the code i am using : font.UnderlineColor = wdColorTurquoise Any ideas why this is happening? Tag: Word Mail Merge Problem Tag: 63685
  - 2
    - menu how would i create a menu that drops down when u right-click a certain word in a word document. just like in a spell and grammar check? Tag: Word Mail Merge Problem Tag: 63680
  - 3
    - How do I determine current column and lines left in column? Any ideas how I can determine 1) which column I'm currently in and 2) how many lines are left from the insertion point to the bottom of the column/top of the next column. I'm using VB6 with Word to dynamically (no template) create a three (3) column/ two(2) page legal size layout that will be used for a folding brochure. I'm populating the columns from an ADO recordset. Depending on the data, I may need to insert special messages at the bottom/top of any column. For example I may need to insert a literal string message at the bottom of a column if the text in that column meets certain criteria. Any help would be appreciated. Hopefully this hasn't been too confusing of a post. Tag: Word Mail Merge Problem Tag: 63679
  - 4
    - file exists question Hi All, I am seeking code to find if a file exists on the user's computer. The file might be named something like "c:/TestFolder/" & variableABC. So, something like: If file exists "c:/TestFolder/" & variableABC Then Application.Run MacroName:="Project.NewMacros.test" End If tia, Gil Tag: Word Mail Merge Problem Tag: 63675
  - 5
    - search for word in word doc I want to write code so that if a word in a variable in the vba behind word is equal to a word in the word document, it changes that word in the document to bold. How would i do that? Tag: Word Mail Merge Problem Tag: 63673
  - 6
    - search for word in word doc I want to write code so that if a word in a variable in the vba behind word is equal to a word in the word document, it changes that word in the document to bold. How would i do that? Tag: Word Mail Merge Problem Tag: 63672
  - 7
    - How do I get the drop down feature to work in Word 2003? I am creating a form and trying to use the drop-down form field and check box form field in the form. I'm able to add my selections in the drop-down dialog box, but when I go to choose in the form--can't. Have have a check in the Fill-in Enabled box. I can not get the check boxes to work in the form either. Tag: Word Mail Merge Problem Tag: 63671
  - 8
    - Save to users templates folder I need to distribute a Word tutorial and a test. The test requires a template I have created. I thought I could use an autoexec macro to save it to c:\documents and settings\%username%\application data\microsoft\templates\testtemplate.dot but it seems that %username% creates an error. Is there any way I can achieve my aim programatically please? -- Many thanks Wicked Wizard Tag: Word Mail Merge Problem Tag: 63669
  - 9
    - I want to open my documents in FINAL View but they open in Mark U. Will someone please tell me how to reset the default opening of my Word Documents to FINAL (for opening saved documents). I used the Mark Up View once and seem to be stuck with it forever! HELP! Tag: Word Mail Merge Problem Tag: 63668
  - 10
    - Start of Word does not fire AutoExec-macro My Word 2003 VBA-application (in XP-environment) is dependent on an autoexec-macro, supposed to be fired when Word starts. My code is contained in Words startup directory and it works as expected on all computers but one. Any ideas why this beast does not execute the autoexec-procedure? /BosseH Tag: Word Mail Merge Problem Tag: 63666
  - 11
    - Macro in document availablke only to one user I have written a macro in a document on a shared network drive. When I open any document, I can see and run the macro as the macros are in the Normal.dot. The other two people do NOT see and cannot run the macro. The actual VBA is in the Normal.Dot. The macro (atcually series of macros) rebuilds the "master" document out of a collection of individual documents. Basically it insert a series of files into the "master" document and then creates a hyperlinked TOC. Does everything we want it to do in terms of rebuidling the document. Even wehn I take this Normal.Dot and drop it into their "My Documents" where their original Normal.Dot was kept, they still can't see these macros. I had them both set their Macro Security to low. So that is not an issue. I have exported the two modules to .BAS files. Do I need to import them to their copy of Normal.Dot even though I copied my Normal.Dot into their "My Documents"? Tag: Word Mail Merge Problem Tag: 63664
  - 12
    - Change Word Links via VBA ? Hello Group, I have a document in Word with Bonds to Excel. I need to change statements I link using VBA. For example: My old Source Path "C:\Source Project\My file.doc" My New Source Path and I want to change a part to "C:\New Project\My file.doc" Any advisor will be Wellcome Best Regard Mario Tag: Word Mail Merge Problem Tag: 63655
  - 13
    - Trying to import Excel Spreadsheet into Word I have used Excel to develop a form to be printed on legal sized paper. There are 11 columbs and 104 rows. The columbs are various widths and all together are 8 1/4 inches wide. The rows are symetrical at 9.00 pixels and fit in 14". When I cut and paste to Word, the cells do not hold their formatting. And merged cell do not behave as the do in Excel. Does anyone know the proper sequence for getting this .XLS spreadsheet into .DOC format with all cells still funtioning properly? Tag: Word Mail Merge Problem Tag: 63653
  - 14
    - WordBasic being recorded in Word 2002 Could someone answer my question of Feb 16th about WordBasic statements being recorded in Word 2002? (Title: "Printing without or with markup...") That would be very much of help to me! Thank you! Peter Tag: Word Mail Merge Problem Tag: 63651
  - 15
    - Task as a link object How to use task item as a linked object? For example if I was in words and a link is place in the word document of a Task Item,, and bu clicking on this I would get the corresponding task to open up for editing or viewing. Tag: Word Mail Merge Problem Tag: 63650
  - 16
    - How to take text from RichTextBox in VB6 to Word object? Hi! There, I have an application which has RichTextbox in it. Now, I need to produce word document which has text with the same format as the RichTextBox. Suppose, user has typed a letter with formatting like Bold, Underline, color etc. Now, I would like to create a word document which should have the same text and formatting. When I take TextRTF to a string variable and write it into word document it doesn't work. It shows all the formatting characters too..... This can be done using Clipboard. But, I would like to avoid clipboard if possible. Any suggestion(s) or answer(s) Thanks in advance, Ritesh. Tag: Word Mail Merge Problem Tag: 63647
  - 17
    - Range could not be deleted Dim DateBegin As Date Dim DateEnd As Date DateBegin = TxtBeginDisability DateEnd = DateBegin + 2 StrDateEnd = Str(DateEnd) ActiveDocument.Bookmarks("txtEndDisabilityDate").Range.Text = Str(DateEnd) give error the range could not be deleted. Why? Tag: Word Mail Merge Problem Tag: 63646
  - 18
    - Delete in Registry Hi, I add the key by using: System.PrivateProfileString (Empty, "HKEY_CURRENT_USER\Software\Apps\AV_Word", "Settin gs") = "ABC" How do I delete this key in the registry? I do not just want to set it to empty. I have tried DeleteSetting, but it does not seem to work for me. / Ulf Tag: Word Mail Merge Problem Tag: 63644
  - 19
    - Start-up templates I am using Word 03 (SP1) on Windows XP (SP2). I have a customised template that is in placed in the startup folder. Sometimes, I have noticed that Word does not display the toolbars and Menu. When I check under Tools/Templates and Addins this template has been disabled. The security settings for Macro is set to Low. I never had this problem under Word 2000 (on Win 98 SE) using the same template. Tag: Word Mail Merge Problem Tag: 63636
  - 20
    - Header and Footer macros I have tried to create a header macro and a footer macro but when I click the header macro it appears in both the header and the footer. Does anyone know how to create macros for a header and a footer without them overriding each other? Any assistance would be greatly appreciated!!! Tag: Word Mail Merge Problem Tag: 63631
  - 21
    - How to reference Userform in another project I am trying to figure out how to reference a form in another project in order to pass variables to it. This is what I have: With Hannani_TestTemplate.frmCreate_Hannani_Personal .txtRptDateMonth.Text = "02" .txtRptDateDay.Text = "17" .txtRptDateYear.Text = "2005" .show End With The project name is "Hannani." The template name is "Hannani_Test.dot", the form name is "frmCreate_Hannani_Personal". I keep getting an "object" error. Thank you. -- singeredel Tag: Word Mail Merge Problem Tag: 63629
  - 22
    - underline in red how do i underline words in red just like they appear when they are spelt wrong and spell and grammar highlights them? Can i do this using vba? Tag: Word Mail Merge Problem Tag: 63628
  - 23
    - Disappearing text when doing a paste Hello all, Having a problem coping data from one document to another. I need to automate the following task. I have a document that my customer opens and clicks a button that does a copy. When the button is clicked, I need the following to happen. The file open dialog box displays so they can pick the file that has data to be copied from The selected file is opened Data from an enclosed bookmark in the newly opened file is copied The data is then pasted to a bookmark location in the intial document I have this working, the problem is when I do the past into the initial document, it deletes all the text in the document and then paste the new text. What am I doing wrong?? I needed to be sure the copied data retains all formatting, like bullet list, etc. My code is listed below. thanks Sub Copy_Description() Dim DescriptionDoc As Document Dim pTarget As Range Dialogs(wdDialogFileOpen).Show Set DescriptionDoc = ActiveDocument Set pTarget = ActiveDocument.Bookmarks("BM_TheDescription").Range.FormattedText pTarget.Copy If ThisDocument.Bookmarks.Exists("BM_Description") Then ThisDocument.Bookmarks("BM_Description").Select ThisDocument.Range.Paste End If ActiveDocument.Close End Sub Tag: Word Mail Merge Problem Tag: 63627
  - 24
    - Adding TextBox Shapes becomes slow I need to add about 200 TextBox Shapes to a document through Visual Basic using Word 9.0 Library The Code i use is: Set textBox22 = wordDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, y, 100, 15) Then i add formatting: With textBox22 .Name = "TextBox" & i With .TextFrame .MarginTop = 0 .MarginLeft = 0 .TextRange = "sdfgsf" With .TextRange .Bold = True .Font.Name = "Verdana" .Font.Size = 12 End With End With End With This all works like a charm... except it works SLOOOOOOOW The first 30 or so controls are added at a reasonable speed (i have a counter and a progressbar to monitor the process) After that it starts to slow down more and more.... On textbox 150 it adds about one textbox per second... Very Slow!!!!! I tried following: Turned off spelling and grammar checking, Word app is not visible while textboxes are added, I even used LockWindowUpdate TOGETHER with ScreenUpdating = False. Didn't help. Still slow.... Here's the code for you to try. Visual Basic 6.0. Add a reference to the Word library before running the code. Add a progressbar to Form1 and name it PB1. The code adds 300 textboxes to a word document and sets margins and font format options. if you comment the formatting (all With..End With) the code runs faster. P.S. I HAVE tried it on different computers, and no they were not 486, but decent p4 machines. And it must be done from outside, thus i can't use the code from within a word macro. [CODE] Dim wA As Word.Application Dim wD As Word.Document Private Sub Command1_Click() PB1.Min = 1 'PROGRESSBAR PB1.Max = 300 Dim ttt As Word.Shape, y As Long y = 10 wA.ScreenUpdating = False For i = 1 To 300 PB1.Value = i y = y + 18 Set tB = wD.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, y, 100, 15) With tB .Name = "TextBox" & i With .TextFrame .MarginTop = 0 .MarginLeft = 0 .TextRange = "Sample Text" With .TextRange .Bold = True .Font.Name = "Verdana" .Font.Size = 12 End With End With End With Next wA.ScreenUpdating = True wA.Visible = True End Sub Private Sub Form_Load() Set wA = New Word.Application wA.Options.CheckGrammarAsYouType = False wA.Options.CheckGrammarWithSpelling = False wA.Options.CheckSpellingAsYouType = False wA.Options.CheckHangulEndings = False 'wA.Options.Pagination = False Set wD = wA.Documents.Add wD.Activate wD.ShowSpellingErrors = False wD.ShowGrammaticalErrors = False End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next wA.Quit wdDoNotSaveChanges End Sub Tag: Word Mail Merge Problem Tag: 63623
  - 25
    - language This is a very general question but i have message boxes in vba that display variables. These variables contain characters with accents such as "Ã©" and "Ã¡". Whe these are displayed they come up in really funny symbols. Is it something to do with the settings on my computer or word or must i type some command to change language?? Tag: Word Mail Merge Problem Tag: 63621

I wonder if anyone can help.

I realise my programming logic is flawed, but any help of a different
approach would be grate-fully received.

I'm writing a routine in VBA that mail merges Word from an Access
database, and obviously creates another merged document.

What I want to do is close the original document (taking with it the
instance of Access that has been opened).

I can successfully do this, but when returned to the new document the
VBA environment has frozen because End Sub hasn't been executed.

ie

Set MergeDoc = ActiveDocument
.
.
.

MergeDoc.Close wdDoNotSaveChanges
End Sub

Has anyone got any ideas how to close this original document without
causing a hang?

TIA

Steve

(I realise this method is horrible programming practice, but I'm
really stuck)

Top

Re: Word Mail Merge Problem by Jezebel

Jezebel
Wed Feb 23 05:44:43 CST 2005

There's nothing horrible about that in itself, and it shouldn't be causing
the hang. There must be something else going on. VBA doesn't freeze 'because
the End Sub hasn't been executed'.

"Steve" <blairsteve@hotmail.com> wrote in message
news:1109158104.226360.91400@z14g2000cwz.googlegroups.com...
>I wonder if anyone can help.
>
> I realise my programming logic is flawed, but any help of a different
> approach would be grate-fully received.
>
> I'm writing a routine in VBA that mail merges Word from an Access
> database, and obviously creates another merged document.
>
> What I want to do is close the original document (taking with it the
> instance of Access that has been opened).
>
> I can successfully do this, but when returned to the new document the
> VBA environment has frozen because End Sub hasn't been executed.
>
> ie
>
> Set MergeDoc = ActiveDocument
> .
> .
> .
>
> MergeDoc.Close wdDoNotSaveChanges
> End Sub
>
> Has anyone got any ideas how to close this original document without
> causing a hang?
>
> TIA
>
> Steve
>
> (I realise this method is horrible programming practice, but I'm
> really stuck)
>

Top