Insert text based on checkbox

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Don't save normal.dot We have an application that reads a text file with bookmark names and values which is merged into a Word document automatically by a VB.NET custom program which then prints the merged document. Everything works except that when Word is closing it pops up a message stating that Normal.dot can't be saved because it is already open elsewhere. It also appears to be saving it in Document and Settings someplace. The VB app runs on an unattended server and each time a document is merged and printed another message pops up and I can't have all these messages hanging around. My question is; is there a way to prevent Word from trying to save Normal.dot? Thank you. Tag: Insert text based on checkbox Tag: 83426
  - 2
    - Emailing document automatically I am using Office XP and Lotus Notes. I am trying to email a document automatically. I have found the following code: ________________________________________________________________ ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "Test" .AddRecipient "someone@somewhere.com" .AddRecipient "someone@somewhere.com" .Delivery = wdAllAtOnce End With ActiveDocument.Route ________________________________________________________________ But when run it debugs with the following message: "Your mail system does not support certain services needed for document routing" Does anyone know a work around or alternative how this can be achieved, please? -- Mark Tag: Insert text based on checkbox Tag: 83422
  - 3
    - A button in Word 2002 to go to a web site. I have the HTML code for a button that I wish to place into a Word 2002 document. The button is for a reader to click on and go to a web site, PayPal, on which they can place money into my account. I do not understand how to make the button. Thank you. Tag: Insert text based on checkbox Tag: 83418
  - 4
    - Finding a bookmark with a macro I need to find a way to locate a bookmark's index number via a macro. Currently I use, Dialogs(wdDialogInsertBookmark).Show to allow the user to select the desired bookmark, then they have to click the Goto button. I can then get the index. The problem is with Dialogs(wdDialogInsertBookmark).Show, I can not disable the Delete button, if the user clicks Delete rather than Goto the macro errors out. Is there a way to display a dialog box, or something else, that will allow the user to select a bookmark from a list, and then I be able to read the index for that bookmark? Tag: Insert text based on checkbox Tag: 83417
  - 5
    - Run code after mail merge I am using WORD 97. I am in the process of producing mail merge letters via microsoft query. On one of these fields in the original document it has been bookmarked When the data has been merged I need to run some code which then cross references this bookmark and inserts various extras dependant on what has been merged into this particular field. Please can someone tell me how this can be done so that the following code is called: _______________________________________________________________ Sub DocPopulate() Dim strDivId, Signature As String 'Divisional Identifier taken from Crime Number strDivId = Left(ActiveDocument.Bookmarks("State").Range.Text, 2) 'File path for signatures so that Ian can update them! Signature = "U:\WT Business Services\Force Forms\Signatures\" & strDivId & ".gif" If strDivId = "Â«R" Then Exit Sub ActiveDocument.Bookmarks("Ref").Range.Text = strDivId Select Case strDivId Case "AA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "BA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "CA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "DA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "EA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "FA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "GA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "HA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "IA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "JA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "KA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case Else End Select End Sub _________________________________________________________________ Thanks in anticipation. Mark Tag: Insert text based on checkbox Tag: 83416
  - 6
    - is there any software for printing UPCs for free Tag: Insert text based on checkbox Tag: 83414
  - 7
    - Opening embedded Excel object with VBA Hi All, I need to programmatically manipulate embedded excel objects in PPT. I've put a macro together, but I am not able to get the macro to open the embedded excel object (excel comes up blank). Con someone please tell me what's wrong? Thanks in advance, JS ======================================= Sub a_Open_EmbeddedExcel() Dim Shp As Shape Dim Sld As Slide Dim xlApp As Excel.Application Dim oWorkbook As Excel.Workbook Dim oWorksheet As Excel.Worksheet Set xlApp = New Excel.Application For Each Sld In Application.ActivePresentation.Slides For Each Shp In Sld.Shapes If Shp.Type = msoEmbeddedOLEObject Then If Shp.OLEFormat.ProgID = "Excel.Sheet.8" Then Set oWorkbook = Shp.OLEFormat.Object Set oWorksheet = oWorkbook.ActiveSheet With xlApp .Visible = True oWorksheet.Activate MsgBox "Did it open the embedded excel object?" MsgBox "There are " & xlApp.Windows(1).VisibleRange.Cells.Count & " cells visible" ' if yes, ' MsgBox xlApp.ActiveWindow.VisibleRange.Address ' more excel macro commands here End With oWorkbook.Close (True) Set oWorkbook = Nothing Set oWorksheet = Nothing End If 'Shp.Type End If 'Shp.OLEFormat.ProgID Next Shp Next Sld xlApp.Quit End Sub Tag: Insert text based on checkbox Tag: 83413
  - 8
    - How to execute macro when starting Word? Hi, I want to execute some code when starting Word. In a template this can be done with AutNew() macro. But an AutoNew() macro in Normal.dot doesn't fire. I've created a sub Document_New() in the ThisDocument module of Normal.dot and this fires when I start a new blank document via File | New. But when I start Word via Start button or toolbar it doesn't work. What to do in the last situation? Thanks for help Regards, Henk Tag: Insert text based on checkbox Tag: 83410
  - 9
    - automatically update word count in textbox Hi, I'd appreciate some help with the following VBA problem. I have a multi-line textbox in a Userform. I would like to update the word count in the text box automatically as the user types text in the box. Does anyone know an easy way to do this? regards, E Tag: Insert text based on checkbox Tag: 83407
  - 10
    - macro security error trying to invoke a plug-in Hi, I have written a MS word COM add-in using vb6, which creates a menu item and invokes the add-in when it is clicked. It works on several of our PCs but on one users machine it always gives the following error when he tries to select the menu item: "The macro cannot be found or has been disabled because of your macro security settings" we have tried setting his macro security to low and still to no avail (mine is set to high and the plugin still works fine). he is using NAV but has disabled the office integration (and has also tried disabling the whole of NAV) but again he just gets the same error. All the PCs are using office 2003. I am using an add-in designer and have set the OnAction property of the CommandBarButton to "<!xxx>" where xxx is the progid of the designer. I can't beleive I have done anything wrong with the code because as I say it works on several other PCs. we can invoke the same progid via vbscript so I know everything is registered correctly does anyone have any clues for the next thing to try? Andy Tag: Insert text based on checkbox Tag: 83406
  - 11
    - Word cannot attach a document to a protected template There is a problem in word when you want to attach a protected template to a document. Because I found no real solutions in the groups I will post my workaround: 1. Open the Template as an AddIn: AddIns.Add(Filename, true) 2. Open the Template as a Document: Templates(Filename).OpenAsDocument 3. Unprotect this Templatedocument 4. Attach the Template to your Document: AttachedTemplate = Templates(Filename) 5. Close the Templatedocument (without saving it) 6. Delete the Template from the AddIns: AddIns(Filename).Delete Kurt Zimmermann Tag: Insert text based on checkbox Tag: 83397
  - 12
    - Report Writing to MS Word Using VB6 I need to write a report in MS Word using VB6 in the below format : Format : Page Heading : "COMPANY NAME" (Page Centre,Font = Bold, Size=14, Underline) Sub Heading#1 : "Something#1" (Page Centre,Font = Bold, Size=12, Underline) Sub Heading#2 : "Something#2" (Page Centre,Font = Bold, Size=11, Underline) Sub Heading#3 : "Something#3" (Page Centre,Font = Bold, Size=10, Underline) Inside a "Do while ... Loop" Data Line # 1 Data Line # 2 Data Line # 3 Data Line # 4 Data Line # 5 Data Line # 6 ... ** Report ends here ** Awaiting to hear from any knowledgeable and helpful soul. Thanks & Rgds Menon. Tag: Insert text based on checkbox Tag: 83384
  - 13
    - How to automatically assign standard password to documents Hi, in order to protect certain documents from being read when they accidentally get sent out by email I would like to do the following: - When a document is being saved for the first time being asked whether to assign the standard password (that's right, same password for all docs) - When a document is being opened and is password protected to try the standard password first and if that fails prompt for a password I tried fiddling around with Events and the Application Object (App_DocumentChange) but I'm just not getting anywhere. Suggestions? Cheers, Marc Tag: Insert text based on checkbox Tag: 83382
  - 14
    - How do I automatically run macro FileProperties when opening doc I have created a template and need to force the opening of the File Properties dialog when creating a new doc based on the template, or when re-opening the doc. I have tried naming a macro AutoExec and using the command ActiveDocument.Application.Run MacroName:="FileProperties" but it doesn't work. Tag: Insert text based on checkbox Tag: 83379
  - 15
    - Trying to banish toolbars - not working! In accordance with several posts here, I'm trying to banish the Web and Reviewing toolbars with an AutoExec macro in the Document object of Normal.dot in Word XP. This is NOT working, though. The Web toolbar has especially been annoying today. Can anyone help with this? Ed Sub AutoExec() With Application.CommandBars("Reviewing") .Enabled = False .Visible = False End With With Application.CommandBars("Web") .Enabled = False .Visible = False End With End Sub Tag: Insert text based on checkbox Tag: 83373
  - 16
    - Connect to a mysql database Hello, I have a mySQL DB on my local computer (localhost) and it holds information on many thousands of different products prices etc... I also have a number of word files that I have to manually update with the prices etc... every so often. Therefore, this can lead to discrepancies. Is there a way to connect a mySQL DB to Word 2003 using a macro and put data into certain places within the document. I've never done anything like this with an office document so any help would be great. Thanks David Tag: Insert text based on checkbox Tag: 83367
  - 17
    - Printing problem I am trying to print out a selected range of pages with the below code but the print fails to complete. Please can someone assist with a solution. Sub Print_Guidance() Dim i As String Dim s As String Dim t As String Dim u As String Dim v As String Dim w As String Dim x As String Dim PagesToPrint As String Application.ScreenUpdating = False ActiveDocument.Unprotect Password:="" Selection.EndKey Unit:=wdStory Selection.InsertBreak Type:=wdPageBreak Application.DisplayAutoCompleteTips = True ActiveDocument.AttachedTemplate.AutoTextEntries("Guidance"). _ Insert Where:=Selection.Range, RichText:=True ActiveDocument.Repaginate i = ActiveDocument.BuiltInDocumentProperties("Number of Pages") s = CStr(i - 6) t = CStr(i - 5) u = CStr(i - 4) v = CStr(i - 3) w = CStr(i - 2) x = CStr(i - 1) ' i = CStr(i) PagesToPrint = s & "," & t & "," & u & "," & v & "," & w & "," & x & "," & i Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=PagesToPrint, PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False Selection.MoveUp Unit:=wdLine, Count:=377, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Sections(1).ProtectedForForms = True ActiveDocument.Sections(2).ProtectedForForms = True ActiveDocument.Sections(3).ProtectedForForms = True ActiveDocument.Sections(4).ProtectedForForms = True ActiveDocument.Sections(5).ProtectedForForms = True ActiveDocument.Sections(6).ProtectedForForms = False ActiveDocument.Protect Password:="", NoReset:=True, Type:= _ wdAllowOnlyFormFields Application.ScreenUpdating = True End Sub -- Mark Tag: Insert text based on checkbox Tag: 83366
  - 18
    - Unspecified Error when trying to access my address book in MS Word I am getting the error message: Login failed. You must logon to Microsoft Exchange to access your address book. Error code: "Unspecified error." when trying to access my address book in Microsoft Word at work. We do not have Exchange and it is a brand new computer. IBM NetVista using Microsoft XP Professional. Any ideas? Jeff Tag: Insert text based on checkbox Tag: 83357
  - 19
    - using more than one combo box in the same document Someone at this wonderful community pointed me to an area so I could create a combo box containing more than 25 work locations in my document. I sucessfully did that. Now I want to use another combo box that holds more than 25 job titles in the same document but my coding just keeps getting the new combo box mixed with the first combo box. I tried searching the databases but once again, I am not good with keyword searching. Please help. Thank you. Tag: Insert text based on checkbox Tag: 83354
  - 20
    - Autotext doesn't work right in Word 2003... The autotext doesn't work right in Word 2003. We bought another 2003 package, and also did an update from the website, but it won't work consistantly. Sometimes it kicks in, but after a sentence or two, it stops working again. Did not have this problem with 2000 version. Is this a glitch??? Tag: Insert text based on checkbox Tag: 83353
  - 21
    - Reproducing Excel table in Word Hi, Does anyone has already reproduce an excel table in word. I'm trying to do that (the programmation is below) but it is very complex. I'm looking for information to help me to progress. What the program do is a mailmerge executed from Excel. The excel file contains a sheet for mail merge data and others sheets (table1.1, table1.2, etc.) for tables used in the mailmerge document. When I execute the macro in excel, the Word Macro is executed and all the tables are formatted in word just before the mailmerge execution. The table formating seems to be very complex because: 1) Text with bold and exponents, italic, size caracter, ... tbl.cell(i,j) = rngExcel.Cells(i, j).Format 'give format of the first character and not of all character. Does anyone know how to paste all cell formatting in word? I don't know if doing a copy and paste is the best solution because, some cells are merged in excel and I have to adjust formatting (borders,horizontal alignment) thereafter. 2) In excel table, some cell contains text that go on the following cells. I have to merge the table cells in Word to take this into account. Also, it is possible that the cells are merge in excel. 3) Want to respect column width, borders, alignment etc. 4) I added a section to take NumberFormat from Excel. etc. Does anyone have already done something similar to this ? Is there a simpler way to have great word table formatting without having to program each things? example: copy paste the table using a pre-determined table formating. After that, adjust borders, column width, some alignments, .. Thanks a lot ! Alex Sub Merge_Word() Dim appWord As Word.Application Dim docWord1 As Word.Document Dim docWord2 As Word.Document Dim appExcel As Excel.Application Dim wbExcel As Excel.Workbook Dim tbl As Word.Table Dim oRow As Row Dim rngExcel As Excel.Range Dim pathExcel, strFormat, strBookMark As String Dim iCol As Integer Set appWord = Word.Application Set docWord1 = appWord.ActiveDocument On Error Resume Next Set appExcel = GetObject(, "Excel.Application") If appExcel Is Nothing Then Set appExcel = CreateObject("Excel.Application") End If On Error GoTo 0 pathExcel = appExcel.ActiveWorkbook.Path & "\" & appExcel.ActiveWorkbook.Name ' PathExcel = ActiveDocument.MailMerge.DataSource.Name fileExcel = LCase(Right(pathExcel, Len(pathExcel) - InStrRev(pathExcel, "\"))) On Error Resume Next Set wbExcel = appExcel.Workbooks(fileExcel) If wbExcel Is Nothing Then Set wbExcel = appExcel.Workbooks.Open(FileName:=pathExcel, UpdateLinks:=True, ReadOnly:=True) ' Set wbExcel = GetObject(PathExcel, "Excel.Workbook") End If On Error GoTo 0 For nbTab = 1 To 3 If nbTab = 1 Then Set rngExcel = wbExcel.Application.sheets("table1.1").Range("table1_1") Set rng = docWord1.Bookmarks("Table1_1").Range ElseIf nbTab = 2 Then Set rngExcel = wbExcel.Application.sheets("table1.2").Range("table1_2") Set rng = docWord1.Bookmarks("Table1_2").Range ElseIf nbTab = 3 Then Set rngExcel = wbExcel.Application.sheets("table1.3").Range("table1_3") Set rng = docWord1.Bookmarks("Table1_3").Range End If Set tbl = rng.Tables(1) '1- Adjust number of rows DerLineExcel = rngExcel.Rows.Count DerLineWord = tbl.Rows.Count j = DerLineExcel - DerLineWord For k = 1 To j tbl.Rows.Add Next k For k = 1 To -j tbl.Cell(5, 1).Select Selection.SelectRow Selection.Rows.Delete Next k '2- Adjust number of columns '3- Adjust column width With tbl.Rows .LeftIndent = 0 End With UsableWidth = 432 TableWidth = 0 For CellNo = 1 To rngExcel.Rows(1).Cells.Count TableWidth = TableWidth + rngExcel.Columns(CellNo).ColumnWidth Next CellNo For j = 1 To tbl.Columns.Count For i = 1 To tbl.Rows.Count tbl.Cell(i, j).Width = UsableWidth * rngExcel.Columns(j).ColumnWidth / TableWidth Next i Next j '4- MergeCells For i = 1 To rngExcel.Rows.Count j = 1 Do Until j >= rngExcel.Columns.Count With rngExcel If .Cells(i, j).MergeCells = True Then iCol = .Cells(i, j).MergeArea.Columns.Count tbl.Cell(i, j).Select Selection.MoveRight Unit:=wdCharacter, Count:=iCol - 1, Extend:=wdExtend Selection.Cells.Merge j = j + iCol Else j = j + 1 End If End With Loop 'j Next i '5- Remove all borders With tbl .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone End With '6- Add borders With tbl For i = 1 To tbl.Rows.Count For j = 1 To tbl.Columns.Count With rngExcel.Cells(i, j) With .Borders(xlEdgeTop) If .LineStyle = xlContinuous Then C = wdLineStyleSingle tbl.Cell(i, j).Borders(wdBorderTop).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderTop).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderTop).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderTop).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeBottom) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderBottom).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderBottom).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderBottom).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeLeft) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderLeft).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderLeft).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderLeft).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderLeft).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeRight) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderRight).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderRight).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderRight).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderRight).LineStyle = wdLineStyleNone End If End With End With 'With Selection.ParagraphFormat ' .LeftIndent = CentimetersToPoints(0) ' .SpaceBeforeAuto = False ' .SpaceAfterAuto = False 'End With '7- Add data with formating strData = rngExcel.Cells(i, j) If IsNumeric(strData) And strData <> "" Then strFormat = rngExcel.Cells(i, j).NumberFormat If strFormat = "#,##0_);(#,##0)" Or strFormat = "# ##0_-;(# ##0)" Or strFormat = "#,##0_-;(#,##0)" Then ' voir ajout de n'importe quel _) strFormat = "#,##0;(#,##0)" End If strData = Format(strData, strFormat) If Right(strData, 1) = ")" Then .Cell(i, j).Select With Selection.ParagraphFormat .RightIndent = CentimetersToPoints(-0.13) .SpaceBeforeAuto = False .SpaceAfterAuto = False End With Else .Cell(i, j).Select With Selection.ParagraphFormat .RightIndent = CentimetersToPoints(0) .SpaceBeforeAuto = False .SpaceAfterAuto = False End With End If ')" End If 'IsNumeric .Cell(i, j).Range.text = strData Next j Next i End With Next nbTab Exit Sub '8- Add text to document strBookMark = wbExcel.Path & "\bookmark1.doc" Set docWord2 = appWord.Documents.Open(strBookMark, ReadOnly:=False) docWord2.Bookmarks(1).Range.Select Selection.Copy docWord1.Bookmarks("Bookmark1").Range.Select Selection.Paste docWord2.Close '9- Mailmerge execution With docWord1.MailMerge ActiveDocument.MailMerge.OpenDataSource Name:= _ pathExcel, ConfirmConversions:=False, ReadOnly:= _ True, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _ "", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _ "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\rap_modele_ameliorations.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine " _ , SQLStatement:="SELECT * FROM `merge$`", SQLStatement1:="", SubType:= _ wdMergeSubTypeAccess .Destination = wdSendToNewDocument With .DataSource .FirstRecord = 1 .LastRecord = 1 End With .Execute Pause:=False End With docWord1.Close (False) ' AppWord.Application.Quit '10- Reset variables Set appWord = Nothing Set docWord1 = Nothing Set appExcel = Nothing Set wbExcel = Nothing Set rngExcel = Nothing Set rng = Nothing Set tbl = Nothing Set docWord2 = Nothing End Sub Sub Mailmerge_execution_from_excel() Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim Chemin, Fichier, Chemin_Fichier, Source As String ChDrive ActiveWorkbook.Path ChDir ActiveWorkbook.Path Chemin_Fichier = Application.GetOpenFilename() Source = ActiveWorkbook.Name PathExcel = ActiveWorkbook.Path & "\" & Source On Error Resume Next Set WordApp = GetObject(, "Word.application") If WordApp Is Nothing Then Set WordApp = CreateObject("Word.Application") End If On Error GoTo 0 Fichier = LCase(Right(Chemin_Fichier, Len(Chemin_Fichier) - InStrRev(Chemin_Fichier, "\"))) Set WordDoc = WordApp.Documents.Open(Filename:=Chemin_Fichier) WordApp.Visible = True WordApp.Documents(Fichier).Activate WordApp.Run "merge_word" With WdDoc Name:=Source, _ LinkToSource:=True, _ Format:=wdOpenFormatAuto, _ SQLStatement:="SELECT * FROM `DonnÃ©es_Mailing$`" End With Set WordDoc = Nothing Set WordApp = Nothing End Sub -- Alex St-Pierre Tag: Insert text based on checkbox Tag: 83350
  - 22
    - Can I use a switch to truncate/substring a field? I am programming a document where I am inserting a character field (length=25) and I only want the last 4 characters inserted. I am trying to insert this field into a table and am limited on space. Word 2003 Tag: Insert text based on checkbox Tag: 83347
  - 23
    - Turn off formatting balloons only I would like to turn off formatting balloons, but keep the ability to read comments balloons. I know that you can turn off formatting balloons from the "Show..." drop down on the Reviewing toolbar, but anytime you turn off Track Changes and then turn it back on, it defaults back to showing the formatting balloons. Is there a macro or vb script to do this? Thanks. Tag: Insert text based on checkbox Tag: 83346
  - 24
    - No page numbers in table of contents for non-sequential levels Is there a way to remove the page numbers in the TOC for non sequential levels? \n 2-3 will take care of the first grouping but I also need TOC 5 without numbers. ABSTRACT................................................ iii TOC1 CHAPTER TOC2 I. INTRODUCTION TOC3 "{Sub-Topic}"....................... 2 TOC4 "{Sub-Topic}"....................... 2 TOC4 II. REVIEW OF LITERATURE TOC3 "{Sub-Topic}"....................... 3 TOC4 "{Sub-Topic}"....................... 3 TOC4 III. DESIGN AND METHODOLOGY and so on "{Sub Topic}" ...................... 4 "{Sub Topic}" ...................... 4 IV. ANALYSIS OF RESULTS "{Sub-Topic}"....................... 5 "{Sub-Topic}"....................... 5 V. CONCLUSIONS AND RECOMMENDATIONS "{Sub-Topic}"....................... 6 "{Sub-Topic}"....................... 6 APPENDICES 7 TOC 5 (shouldn't have number) "{Appendix Title}"................. 7 "{Appendix Title}"................. 8 REFERENCES 9 VITA AUCTORIS 10 Tag: Insert text based on checkbox Tag: 83345
  - 25
    - macro to import excel data into word text Ok, I would greatly appreciate any help with my situation. I have an excel spreadsheet containing data for many electrical devices. The first column in the spreadsheet contains the name of the device with the following columns containing data for that respective device. So, each row in the spreadsheet pertains to one electrical device. Now, in Word I have to create a report using this excel spreadsheet data. Because the devices are similar, I have created a paragraph in Word with bookmarks at the locations where I want to import the excel data for each device. Each paragraph in the report will pertain to only one electrical device in the spreadsheet (therefore, each paragraph will access one row of data in excel). I would like to create a macro that I can run in Word, that will prompt me for the name of the device and based on the input, it will generate the paragraph template with that device's respective data. Some bookmarks I have created have names like, devicename, amps, voltage, growthrate, transformer. Has anyone done something similar before or know how to do this? Again, any help would be great. Thanks, Kenneth Tag: Insert text based on checkbox Tag: 83344
- Next
  - 1
    - WindowSelectionChange event failing to fire We are seeing a problem at our customer sites, where the WindowSelectionChange event fails to fire, which is interfering with the proper functioning of one of our applications. In order to trace this, we have written a macro which simply declares an object as WithEvents Word.Application, and pops up a message box, when the event fires (see below). Testing at various sites, we have found that the macro fails at a small percentatge of client sites. We know that at least one site is running Word 2003, but we're not sure about the others. The problem always goes away (i.e. the event is always raised) if we keep any custom .DOT's from loading. In one case, we isolated a single .DOT from another vendor, and that vendor was able to figure out that the problem was due to code in the following form: On Error Resume Next Application.Run "macroname" On Error GoTo 0 where "macroname" was invalid, and where the code was excuted through an AutoOpen. That vendor removed the line of code, and the site is now up & running. However, we have found two other sites where the event fails to occur, and where we could isolate a single .DOT which controlled it. In these cases there were two different .DOTs triggering the problem, both of which include AutoOpen processing. However, as far as we can tell (one of those being from another product of ours) neither .DOT contains code in the above format. If you have any idea why this might happen, I would very much appreciate it if you could cc: any reply directly to me, as well as to the group. The test macro is as follows: ---- .bas module ------ Attribute VB_Name = "Test" Option Explicit Private moTest As CTest Sub TestWSC() If moTest Is Nothing Then MsgBox "Starting Test WSC" Set moTest = New CTest Else MsgBox "Stopping Test WSC" Set moTest = Nothing End If End Sub ---- .cls module -------- VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "CTest" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Private WithEvents moWordApp As Word.Application Attribute moWordApp.VB_VarHelpID = -1 Private Sub Class_Initialize() Set moWordApp = Application End Sub Private Sub moWordApp_WindowSelectionChange(ByVal Sel As Selection) MsgBox "In WindowSelectionChange: Select text: " & vbCr & Sel.Text End Sub Public Property Get WordApp() As Word.Application Set WordApp = moWordApp End Property -- Fletcher James President Levit & James, Inc. (703)771-1549 MailTo:fjames@levitjames.com http://www.levitjames.com Tag: Insert text based on checkbox Tag: 83343
  - 2
    - How would I search for a word using regular expressions? I need to search for all whole words and whole words words that also contain hyphens. For example: B1-B2 This is what I have so far.. <([A-Za-z0-9][A-Za-z0-9]*)> Tag: Insert text based on checkbox Tag: 83342
  - 3
    - Find/Replace Error I have code to find and replace strings of text within a document. However, I get a run-time error "5560" stating the Find What text contains a Pattern Match expression which is not valid. This is the code: FindAndReplace: Dim pFind As String Dim pReplace As String Dim pIndex As Long For pIndex = 1 To 14 pFind = Choose(pIndex, "{Name1}", "{Name2}", "{ClinicAddress}", "{Date}", "{DOI}", _ "M*.", "*male/female", "*his/her", "*he/she", "*He/She", "*man/woman", "*gentleman/woman", "*him/her", "*lady/gentleman") pReplace = Choose(pIndex, PatientFirstName, PatientLastName, ClinicAddress, ReportDate, DOI, _ Sex1, Sex2, Sex3, Sex4, Sex5, Sex6, Sex7, Sex8, Sex9) With Selection.Find .Text = pFind .Replacement.Text = pReplace .Forward = True .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll On Error Resume Next Next Can anyone tell me what is wrong with this code or possibly another way to do it? Thanks. -- singeredel (Julie) Tag: Insert text based on checkbox Tag: 83332
  - 4
    - Is there a way to remove macros from normal.dot? I am using Word 2000 in a networked environment. I am creating a template for others to use; however, when I put in the macros for the template, I started getting error messages when opening other word documents not associated with the template. The macros are an AutoOpen, AutoClose, EnterKeyMacro. I am creating an online schedule form for our IT department and need the template to be available to everyone else in the department. But, I don't need the error messages when other documents are opened up. The template will have to be stored on a network drive everyone can access so that any changes can be done on the one template. Any help in this matter would be greatly appreciated. Thank you for your time. -- Mark Tyler Tag: Insert text based on checkbox Tag: 83321
  - 5
    - Word mutti-session handling within VBA I have my VBA code fires up a word doc at run time, which does some search and text gathering and populates into an Access table, then it QUIT (by oWord.QUIT method). At this stage if the user opens another word doc, play around and exit, the "automated" word doc is prompted for "save/cancel" (I'm sure at this satge the "text gathering and populates into an Access table" hasn't completed yet). It ends up the populated info into the Access table is totally unexpected! In VBA, how to manage multi-sessions of MS Words (let's say some fire up by VBA, some fire up by user interactively)? Thanks Tag: Insert text based on checkbox Tag: 83319
  - 6
    - Identify Tables Hi, I am dealing with a document which contains 4 different types of tables. Since each type of table triggers a different set of actions, is there a way to test tables with a unique identifier, which would categorize them ? Thanks in advance for your comments Cheers Carim Tag: Insert text based on checkbox Tag: 83318
  - 7
    - Problem with DIR ChangeFileOpenDirectory _ "C:\Documents and Settings\Smith\My Documents\TXT\" Dir (activedirectory & "*.doc") fname = Dir If in that directory (TXT) exists only one file, fname is empty. If there are two or more files, then fname is the first filename it founds. What's the problem with this? Tag: Insert text based on checkbox Tag: 83316
  - 8
    - fields, cross-references How can I cross-reference to field text so that the cross reference is updated when the field is updated? John Tag: Insert text based on checkbox Tag: 83310
  - 9
    - Accessing Excel worksheets in a Word document (VB Word macro). Hello, would you please assist me in solving this problem: I have an Excel object (Excel.Sheet.1) in MS Word document. I'm trying to write a Visual Basic macro for MS Word to change the data in cell A1 of this table. How can I access the cell? I'll try to describe the table I have to work with: It's not a Word table. It's rather an Excel object present in my Word document. When it's activated a real Excel table with 3 sheets appears.. and if it's not activated, I just see a simple table which doesn't differ from a regular Word table. I would say it's an Excel OLE placed in the Word document I have to deal with. I was adviced to open Excel by using a filename but I don't have a separate Excel document which I open by using its name... I've applied the next to find out the name of my object: MsgBox ActiveDocument.Fields(1).OLEFormat.ProgID The result is: Excel.Sheet.1 What I've surely succeeded to do is activating the object. And it seems there are various ways of obtaining that, for example: ActiveDocument.Fields(1).DoClick ActiveDocument.Fields(1).OLEFormat.Edit ActiveDocument.Fields(1).OLEFormat.Activate ... and no way known to me to edit the object's contents... I suppose I have to apply DDE to the object in order to open Excel, edit it and then close Excel... I don't know how to do it yet... I hope that it's an easy task some one has already an idea of.. Thank you! Tag: Insert text based on checkbox Tag: 83309
  - 10
    - AutoRecovery Save Hi, Is it possible to directly do an AutoRecovery save in VBA? It seems that the temporary file Word uses for changes becomes full before the autorecovery save time interval as occued. I use Word 2000. Thanks in advance! BAnders Tag: Insert text based on checkbox Tag: 83307
  - 11
    - A simple question How would I modify this code to check first to see that there is indeed Phrases(0), Phrases(1), and Phrases(2) so I won't get an error if strSentence does not have 2 tabs in the sentence? thanks, ck Phrases = Split(strSentence, vbTab) str1 = Phrases(0) ' so you can see what they are str2 = Phrases(1) str3 = Phrases(2) Tag: Insert text based on checkbox Tag: 83301
  - 12
    - can I use the Office 2003 dictionary in C#? Hi. I'm using C# (and the .net framework 2). can I use the Office 2003 dictionary? I want to search for translation of a word in the office dictionary and print the result. Is there a code sample anywhere? I couldn't find it. thank you. Tag: Insert text based on checkbox Tag: 83298
  - 13
    - Keep Lines Together Could someone please tell the code to use Keep Lines Together on a selected paragraph? -- Thank you for your help! ilene Tag: Insert text based on checkbox Tag: 83283
  - 14
    - Word printing I would like to see Word keep all print settings for each individual document, as Publisher keeps individual print settings for each document. I am using HP Officejet 7310 All-in-one printer. Changing paper trays, paper type, etc., requires changing half a dozen settings each time I print. This is very time consuming and frustrating. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=7879c181-6e22-4ad9-af0f-100da7d6ec33&dg=microsoft.public.word.vba.general Tag: Insert text based on checkbox Tag: 83281
  - 15
    - Format Picture Word 2002 Windows 2000 I am using vba to insert a jpg. However, I would like the layout to be behinde text and cannot figure out how to add that to my vba coding. Just by inserting then the user can not move the jpg in the word document by dragging it. Thanks... Tag: Insert text based on checkbox Tag: 83277
  - 16
    - Opening specific folder clicking user defined button Hello. In Word: I have created a new button (copy of Open folder) with company logo in the Standard menu. How can I attach a macro which opens a spesific folder, containing the templates I want the users to select? (and if you please, What should the code be?) (Windows XP under Win2000) Thank you Tom Tag: Insert text based on checkbox Tag: 83274
  - 17
    - VBA paste clipboard picture Word 2002; windows 2000 Having a new document open and pressing a command button to run my VBA command: it opens a master document and copies a picture of a signature off the master document to the clipboard. It closes the master document and returns the new document letter that I am writing. It pastes the signature to the new letter. The problem is that it does not paste it where my cursor is. It pastes it at the top of the document. Is there something in my coding that would tell it to paste it at the insertion point. Thank you in advance... Tag: Insert text based on checkbox Tag: 83273
  - 18
    - How do I stop being prompted to save a template I have a template for a document that includes a command button which when pressed will do a save by assigning a file name based on a text string and looking up a number from a flat file. As part of the save process, the number gets incremented. This all works fine. What doesn't work quite the way I'd like is that when closing a document created off the template, the user is asked if they want to save changes to the template as well as the new document. How can I prevent the prompt on saving changes to the template from appearing? Thanks for any suggestions. John Tag: Insert text based on checkbox Tag: 83272
  - 19
    - Creating a macro that changes the layout of a form I need to create a macro that changes the layout of a form when the user selects a checkbox, but when I attach the macro to the desired checkbox, the only options are to activate the macro when the use enters or exits the field and not when they 'check' the box. Also, the macro places all of the desired formating additions where the checkbox used to be rather than where I intended for them to go. What can I do? Or, where is a resource that gives detailed descriptions about what I want to do? Tag: Insert text based on checkbox Tag: 83271
  - 20
    - How do I get labels so they aren't manually fed? I need to have my labels print from a tray, not manually fed. However, the labels that print when you hit the envelope at the top of the page will not let me change the print option to Automatically select tray from manual feed. How can I change this default setting? I am using Word 2000. Tag: Insert text based on checkbox Tag: 83270
  - 21
    - Add an Add-In across the network? Is it possible to add an Add-In that is located on a network drive? Or does it need to be located on the user's computer? Ed Tag: Insert text based on checkbox Tag: 83269
  - 22
    - Error 4120 Bad Parameter What cause Error 4120? Combining some code discussed in my previous Two Questions post, I have put together a macro to validate and tally columns of checkboxes in a table. To duplicate, create a 4 column, 5 row table. Leave the first and last rows blank and the first column blank. Put checkboxes in the remaining cells: The following macro is set to run from a macrobutton in the document: Sub ValidateAndTally() Dim pTable As Word.Table Dim pFormField As FormField Dim pColumnCount&, pColumn&, i&, oLastRow Dim pCount() As Long Dim pColumnFlags() As Boolean Dim x As Long, y As Long, z As Long Dim bValidator As Boolean Set pTable = ActiveDocument.Tables(1) pColumnCount = pTable.Columns.Count oLastRow = pTable.Rows.Count ReDim pCount(1 To pColumnCount) ReDim pColumnFlags(1 To pColumnCount) On Error GoTo Handler ActiveDocument.Unprotect For Each pFormField In pTable.Range.FormFields pColumn = pFormField.Range.Cells(1).ColumnIndex If pFormField.Type = wdFieldFormCheckBox Then pColumnFlags(pColumn) = True If pFormField.CheckBox.Value Then pCount(pColumn) = pCount(pColumn) + 1 End If End If Next bValidator = True For x = 2 To pTable.Rows.Count - 1 With pTable.Rows(x) z = 0 For y = 2 To pTable.Columns.Count If .Cells(y).Range.FormFields(1).CheckBox.Value = True Then z = z + 1 End If Next y Select Case z Case Is = 0 MsgBox "You did not answer question " & x - 1 & "." bValidator = False Exit For Case Is > 1 MsgBox "You checked more than one answer to question " & x - 1 & "." bValidator = False Exit For End Select End With Next x For i = 1 To pColumnCount If pColumnFlags(i) Then If bValidator Then pTable.Cell(oLastRow, i).Range.Text = pCount(i) Else pTable.Cell(oLastRow, i).Range.Text = "Not Validated" End If End If Next ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True Exit Sub Handler: If Err.Number = 4605 Then ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True Resume Else MsgBox Err.Number & " " & Err.Description End If End Sub When I get it working, it seems to work as expected. However, when I unprotect and edit the form then reprotect, I almost always get errror 4120 bad parameter when I try to fire the macro with the macrobutton. If I then go into the editor and run the macro it runs fine and thereafter runs from the macrobutton without further problem. What is this bad parameter and how do I prevent it from happening. Thanks. Tag: Insert text based on checkbox Tag: 83268
  - 23
    - Change spelling language How can I change language of spelling on the fly? I use CheckSpelling() method of Word.ApplicationClass Tag: Insert text based on checkbox Tag: 83256
  - 24
    - Find replace text in a text box I need to use VBA to open a doc file find a placeholder in a text box and then replace it with a date. Eg the text is XXXXXX. and this needs to be replaced with date field. I can do this fine if the XXXXXX is in a normal documnet, but when I try and do it for a text box it cant find it. Can anyone please help? Tag: Insert text based on checkbox Tag: 83255
  - 25
    - Table formatting I have a document that has about 60 tables in it. I'm working on a macro that will insert a row the second row, copy the formatting in row 2 column 1 and apply that to the rest of the cells in that column, copy the formatting in row 2 cell 2 and apply that to the rest of the cells in that column, etc., and then delete the extra row that was inserted to copy the formatting from. The formatting in the extra row contains a specific font size, style and a decimal tab. I have, however, been unsuccessful in finding how to copy the formatting of one cell and apply it to another. Is this possible? Thanks! Tag: Insert text based on checkbox Tag: 83249

Is it possible to have a field which displays an informatin based on what
checkbox is selected on a form?

Lets say I have an address field. If the user clicks on checkbox 1 address 1
is displayed. If the user clicks on checkbox 2 address 2 is displayed. Etc.

Thanks.

Top

Re: Insert text based on checkbox by Greg

Greg
Wed Mar 29 10:55:51 CST 2006

I would say yes. Have a look here for ideas:

http://gregmaxey.mvps.org/Form_Fields_Master.htm

Top