FileSendMail-macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Sort Loop Problem I'm trying to create a file of employees with their dependents. I have created this procedure to sort the people but I'm getting duplicate dependents in some cases but not all. I'll appreciate any input. Thanks. Private Sub ExportMain() Dim LogFile As Integer LogFile = FreeFile Dim LogFileName As String LogFileName = "C:\EligFile.txt" Dim DepNotFound As Boolean Dim rstMain As Recordset Dim rstDep As Recordset Dim db As Database Set db = CurrentDb() Set rstMain = db.OpenRecordset("tblMainParts") Set rstDep = db.OpenRecordset("tblDeps2") Open LogFileName For Append As #LogFile Do While Not rstMain.EOF 'Main Subscriber Print #LogFile, Left(rstMain!Field1 & Space(680), 680) 'Move through dependent records until Dep SSN matches with Main SSN Do While Left(rstMain!Field1, 9) <> Left(rstDep!Field1, 9) rstDep.MoveNext If (rstDep.EOF = True) Then DepNotFound = True Exit Do Else DepNotFound = False End If Loop 'Write Dependent records while Dep SSN matches with Main SSN If (DepNotFound = False) Then Do While (Left(rstMain!Field1, 9) = Left(rstDep!Field1, 9)) Print #LogFile, Left(rstDep!Field1 & Space(680), 680) rstDep.MoveNext If (rstDep.EOF = True) Then Exit Do End If Loop End If rstMain.MoveNext rstDep.MoveFirst Loop Close #LogFile End Sub Tag: FileSendMail-macro Tag: 118059
  - 2
    - Collapsing Ranges and Inserting Tables..... just can't figure it out. Hi, I'm trying to insert a couple of tables into Word, and have spent a couple of days trying to figure this out. Either the tables merge together, or they are displayed in the wrong order. I thought that using Range.Collapse wdCollapseEnd would take to the end of the specified range. However, whatever I am doing, it is inserting text at the start of the range. Any ideas where I am going wrong. Many Thanks Rgds Neil. Code Below (I stripped out the code that populates the table cells, because there would be just too much code to look at): ---------------------------------------------------------------------- Set tRange = objDoc.Bookmarks("client_table").Range tRange.Collapse wdCollapseEnd With tRange .Text = clientFirstName(currentClient) .Font.Bold = True End With With tRange .Collapse wdCollapseEnd .Text = vbCr & vbCr .Collapse wdCollapseEnd End With Set ClientTable = objDoc.Tables.Add(Range:=tRange, _ NumRows:=5, NumColumns:=2) ////////////////////////////////////////// /// Insert Table Cells - works OK ////////////////////////////////////////// ClientTable.AutoFormat Format:=wdTableFormatContemporary If partnerFirstName(currentClient) <> "" Then Set tRange = objDoc.Bookmarks("client_table").Range With tRange .Text = partnerFirstName(currentClient) .Font.Bold = True End With With tRange .Collapse wdCollapseEnd .Text = vbCr & vbCr .Collapse wdCollapseEnd End With Set PartnerTable = objDoc.Tables.Add(Range:=tRange, _ NumRows:=4, NumColumns:=2) ////////////////////////////////////////// /// Insert Table Cells - works OK ////////////////////////////////////////// PartnerTable.AutoFormat Format:=wdTableFormatContemporary With tRange .Collapse wdCollapseEnd .Text = vbCr & vbCr .Collapse wdCollapseEnd End With End If Tag: FileSendMail-macro Tag: 118034
  - 3
    - Copying consecutive pages of a .DOC into another documnt's table cells Hi all, I'd like to create a macro to copy consecutive pages in a word document into cells of a table in a separate .doc file. (Each page into separate cell). The problem I face is how to "put" a page in the source document into a range object to subsequently get its contents and "formatting" and deliver them into the target cell. Additional question: What if the source page contains a picture or a text box. TIA, Primoz Bradac Tag: FileSendMail-macro Tag: 118033
  - 4
    - Handle docx type in VB6.0 hi, We have been using word automation to generate word documents based on bookmarks etc from VB6.0 application. Now are researching if we can handle opem office xml (ie. docx) from vb6, save and retrieve docx format files., i'm unable to find any help in terms with handling the open office xml document in VB6. Please can you help me with it? Tag: FileSendMail-macro Tag: 118032
  - 5
    - How to apply the property "InitialView = msoFileDialogViewList"? Hello. There is the code which opens dialog box (below). Why I can't apply the property "InitialView = msoFileDialogViewList" for dialog box? Let that primary the dialog had the initial presentation as "msoFileDialogViewProperties". But after start this macro the initial presentation don't change. Why? Sub openDlg() Dim fd As FileDialog Dim regPath As String Dim myPath As String Dim keyValue As String Set fd = Application.FileDialog(msoFileDialogOpen) regPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common \General" keyValue = System.PrivateProfileString("", regPath, "RecentFiles") myPath = Environ("APPDATA") & "\Microsoft\Office\" & keyValue & "\" With fd .InitialFileName = myPath .AllowMultiSelect = False .Filters.Add "Documents Word:", "*.doc; *.rtf; *.dot; *.docx" .FilterIndex = 9 .Title = keyValue .InitialView = msoFileDialogViewList 'here is problem ??? If .Show = -1 Then .Execute End If End With Set fd = Nothing End Sub Tag: FileSendMail-macro Tag: 118029
  - 6
    - Using the dialogbox autotext in a formfield Hi! I need help to create VBA for this: I have several formfields in my document and offcourse the document is protected. I want the dialogbox "insert autotext" to appear in one of my fields, then I shall be able to choose one of the autotexts and insert it in the formfield. Please help -- Mia SundÃ©n Sweden Tag: FileSendMail-macro Tag: 118027
  - 7
    - Printing Select Pages in sequence in a file Hi, Pls help to print select pages..the issue is..i used to merge a word document of 7 pages ...with the excel data...which results to hav a file of 654 pages...i have saved it...after some months .i want to print page 2 & 3 ..and page 9 & 10..16 & 17..i.e leaving 5 pages which is not required better it will like Page 1- not req Page 2-print Page 3- print Page 4 - not print Page 5 - not print Page 6 - not print Page 7 - not print Page 8 - not print Page 9 - print Page 10- print Page 11- not print Page 12 - not print Page 13 - not print Page 14 - not print like wise...till the end of the document..is this will happen in word in one go ..i have to do it manually..i am fed up; Thanks, Safi Tag: FileSendMail-macro Tag: 118025
  - 8
    - styleref returns nothing Hi, I was trying to add in a styleref to the word document (word 03) as follows Appendix {STYLEREF \s "Heading 4"} - Testing Only but it shows Appendix (blank) - Testing Only, instead of Appendix A That styleref works in the footer of the document. Does it only work for the footer or header? Thank you in advance Tag: FileSendMail-macro Tag: 118019
  - 9
    - MS Word Templates Iâ??m a physician (radiologist) and also involved with a company in the medical information systems arena, DR Systems. Inc, based on San Diego. Iâ??m not a software engineer and something less than a beginner when it comes to VBA. I wonder if you can help me with the following problem or direct me to a resource that can. Iâ??ve been creating templates for radiologists who read MRI, CTâ??s and other imaging exams, and have been experimenting with form automation. In the world of health care information systems, we have some limitations. Often reports must be handed to other information systems using only HL-7 text strings. So diagrams, buttons, tables, etc are usually not acceptible. Also, locking forms can be tricky, since physicians usually want to be able to both use an automated form, but also change or delete just about anything. Finally, the reporting doctor doesnâ??t really want it obvious to the reader that he used a form. Iâ??ve learned to still automate report forms using macrobutton fields, hidden text, toolbar button-activated macros. With this background, hereâ??s my issue. Iâ??d like to be able to create the equivalent of a drop-down menu or listbox such that when you select an item, the selected item appears as text, meaning that you donâ??t continue to see evidence of the dropdown. In some cases, Iâ??d like to create the drop down as part of a macro. For example, Iâ??d like to show text like: â??The left ventricle is normal.â?? If the doctor clicks this text, it should change to: â??The <<?>> segment of the left ventricular myocardium shows <<?>>.â?? Where the <<?>> includes a list of available choices. Iâ??m getting close, but havenâ??t figured out how to add the drop down choices without running into issues related to form locking. For example, I canâ??t seem to lock just the drop down. If I had continuous section breaks befor and after the drop-down, MSWord creates a new line. Also, Iâ??m struggling to create a macro that itself writes and drop down menu (again, the issue isnâ??t so much inserting the menu, but dealing with the locking/unlocking). Iâ??ve tried dealing with the control toolbox as an alternative, but not successfully. Also, I use hanging indents in my templates, but run into an issue when the text is sent to other information systems. A hanging indent doesnâ??t result in any sort of HL-7 message, so the formatting is incorrect when displayed on other systems. Iâ??d love to figure out a way to add a VB instruction in my templates that automatically adds a tab whenever there is a soft line break. Can you help or point me to a resource that can? Iâ??m using MSWord2003, but would jump to 2007 if itâ??s easier. -- MAR Tag: FileSendMail-macro Tag: 118018
  - 10
    - What does Val return? The VBA help says the Val function "[r]eturns the numbers contained in a string as a numeric value of appropriate type." Does this mean that the data type of the returned value will automatically converted to the data type of the variable that's calling the function? For example, in the following contruction Dim myValue as Long Dim myString as String myString = "123 Main Street" myValue = Val(myString) will Val return "123" but will it be returned as a Long or do I need to use CLng to convert it? I know I can just be sloppy and let VBA force the conversion, but I would prefer to be precise. -- Cheers! Gordon Uninvited email contact will be marked as SPAM and ignored. Please post all follow-ups to the newsgroup. Tag: FileSendMail-macro Tag: 118015
  - 11
    - How to Load Form using Variable for Name I have a project I'm working on that will have lots and lots (20-30 or more) UserForms. As such, I don't want to pre-load them. Instead, I want to load them as needed. To do so, I've created a combo box on each form that lets the user choose what form to go to. The User picks one from the list then clicks on "OK" button. I then want to load that form and show it. To make it one bit harder my forms are all named "frm" + Form name. For example the forms are named, frmMyForm, frmYourForm, frmHisForm and the combo box shows "MyForm", "YourForm", "HisForm" The code I have so far for the OK click routine is: Private Sub cmdChoose_Area_Click() vChosen = Me.cmbChoose_Area.Value vName = "frm" + vChosen Call FormGoTo(Me.Name, vName) End Sub In FormGoTo I have the receiving parameters (vFormFrom, vFormTo) No matter what I do I can't Load "vFormTo". I've tried FormGoTo (vFormFrom, vFormTo as UserForm) but then I get an error from the calling procedure. I've tried: Load vFormTo Load UserForms(vFormTo) etc, but with no luck. Is there any way to do this? Tag: FileSendMail-macro Tag: 118013
  - 12
    - email form based on drop down value I have a form in word with a drop down field. I have a submit button at the bottom of the form and I want the form to email as an attachment using code to determine the email address. The code in the "submit" button should reference the drop down field to determine the recipient. For example: If the dropdown = "service", then email joe@abccompany.com If the dropdown = "sales", then email mary@abccompany.com If the dropdown = "billing", then email john@abccompany.com Can this be done? I have other forms that mail to a specified address as an attachemnt, but do not know how to have a field refernced like this. Please help..... Thanks- Scott Tag: FileSendMail-macro Tag: 118006
  - 13
    - Out of Stack Space???? I have this code below which gets me into the Header rather than going through the toolbar but the problem is once I get into the header, the header toolbar Close button is deactivated, I can't get out of the header area and the document locks up. This then generates an Out of Stack Space message with this: "ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader" line highlighted in yellow. Any one out there know what's going on with this and how to solve this. Thanks in advance for your help. Sub ViewHeader() ' ' ViewHeader Macro ' Macro recorded 9/16/2008 by dwallace ' 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 End Sub Tag: FileSendMail-macro Tag: 118004
  - 14
    - 'PrivateProgramString' of object 'System' failed The following autorun code worked in Word 2003/Windows XP: Sub AutoNew() InvoiceNo = System.PrivateProfileString("C:\Settings-Hannani.txt", "MacroSettings", "InvoiceNo") If InvoiceNo = "" Then InvoiceNo = "1" Else InvoiceNo = InvoiceNo + 1 End If System.PrivateProfileString("C:\Settings-Hannani.txt", "MacroSettings", "InvoiceNo") = InvoiceNo ActiveDocument.Bookmarks("InvoiceNo").Range.InsertBefore Format(InvoiceNo, "00#") ActiveDocument.SaveAs FileName:="C:\Hannani\Word Files\Invoices\" + "Hannani Inv 2008-" & Format(InvoiceNo, "00#") End Sub I copied everything over to a new computer running Windows Vista and Word 2007 and get the following error: "Method 'PrivateProfileString' of object 'System' failed" This is what appears in the referenced Settings-Hannani.txt file: [MacroSettings] InvoiceNo=16 It is used to increment an invoice number each time the template is used to create a new document. Can you tell why this does not work in Word 2007? Thanks... -- singeredel (Julie) Tag: FileSendMail-macro Tag: 118001
  - 15
    - Acronym macro - find and print in second file Hi, Back in '02 Mark Tangard suggested this snippet to find macros. With Selection.Find .Text = "<[A-Z]{3,}>" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = True .MatchWildcards = True .Execute End With Has anyone (or would anyone like to) used this to create a fuller macro that reads through file 1, finds acronyms, and writes them and the page number to file 2? Alternatively, has anyone written a macro that finds the first use of an acronym and somehow checks that it is indeed defined (and only defined once!) with that first use? Cheers, Bruce Tag: FileSendMail-macro Tag: 117998
  - 16
    - Why using AutoExit don't delete CommandBarControl from menu? Hello. There is one template which has 3 macro. First macro is called "AutoExec". It create one menu item into menu FILE. The click on this item launches other macro (3-st macro). Second macro is called "AutoExit" It delete new menu item from menu FILE. I placed my template to the folder "StartUp" for Word. When I start Word into menu File is creates my item. Next I close Word and delete (manually) my template from folder "StartUp". Again start Word and see that new menu item wasn't deleted - it there. Why? I know that auto macro "AutoExit" is run when closing Word or template. But why then my macro don't run? Thank you. Tag: FileSendMail-macro Tag: 117997
  - 17
    - Sending Picture to behind text using Word Automation With C# Hi all I have a word document and I am inserting a picture at a bookmark. BookMark1.Range.InlineShapes.AddPicture(PictureLocation.Text, ref readOnly, ref isVisible, ref missing); What I need to do is to set the picture layout as Behind Text. I know it has to be a shape to do this so I use the ConvertToShape method but I don't seem to be able to find a method to set the layout. Can anyone help please. Thank You Tag: FileSendMail-macro Tag: 117993
  - 18
    - Word page formatting with protection on I am trying to protect field references that are embedded in the body of a paragraph. I have been able to do so using protection and exceptions. Once that is in place page setup is no longer editable. Can someone offer a solution? Tag: FileSendMail-macro Tag: 117990
  - 19
    - Need to find commands behind a ToolBarPopup control I've inherited a couple of Word templates which have custom toolbars, one of which has a button, "Report AutoText", which opens a popup menu. One of the submenu options is "Insert FramedFigure", which appears to do some formatting and then inserts a small logo image. I can't find any code anywhere in the macros that does this, and can't find any kind of a link to the image so it can be changed. How do you identify the commands that run behind one of these ToolBarPopup controls? Tag: FileSendMail-macro Tag: 117984
  - 20
    - Delete page (that includes a header & footer) I'm trying to delete the last page of a 4 page document. All pages have the same header and footer. I've tried macropod's code from 15/8/08 (slightly amended as I'm using late binding): objDoc.Application.Selection.Goto 1, -1 ' wdGoToPage, wdGoToLast objDoc.Bookmarks("\Page").Range.Delete This clears all the text (except in the header & footer) from the page, but doesn't actually delete the page! I'm assuming this is because of the header and footer. How can I actually delete the page? Tag: FileSendMail-macro Tag: 117976
  - 21
    - How can show into Dialog (Open) only the files excluding the folders? I wonder if there is a way to hide the folders into the dialog Open File and show there only the files? Thank you very much. Tag: FileSendMail-macro Tag: 117974
  - 22
    - Selecting a particular Frame Hi I have had help of here recently to help me batch change 2 frames in a document. I need to be able to ensure which frame I am changing. One of the frames has a bookmark in it but the otherone doesn't I need to be able to change both frames but there doesn't seem to be any standard as to which is frame 1 and which is frame 2. Can I set this knowing that one frame has a book mark in it? Hope this makes sense Jay Tag: FileSendMail-macro Tag: 117973
  - 23
    - How to select Secure printing for a document Is there a way to activate Secure printing with VBA? I found something about duplex printing with Word Automation in http://support.microsoft.com/?kbid=230743. Tag: FileSendMail-macro Tag: 117971
  - 24
    - Reg. MS Word Add-in Hi, I need to get the print details(number of pages, page range) in my add- in, when printing is completed. Is there any callback that can be handled in add-ins to get these details? Thanks, VSP Tag: FileSendMail-macro Tag: 117970
  - 25
    - extract characters from inside brackets in string I've got a combo box containing multiple values, ending in (xxx) where xxx is any number of characters. I want to write the combo box value to a string but strip out everything outside the brackets (so I just get the xxx characters). I looked at using a regex, but it seems a little complicated to get them working in VBA. Would anyone be able to rattle off a function that will do that for me? I'd spend ages working it out but I'll bet someone out there can write that stuff with their eyes shut :) cheers -E Tag: FileSendMail-macro Tag: 117965
- Next
  - 1
    - Accessing a Word document source Greetings! We have a bunch of Word documents that were created long time ago. One of the software that we use to translate complains about some track changes were left without accepting or rejecting. I have a script that supposely accepts all changes to the Word doc, but it does not work on some of these older documents. I know how to fix this problem by hand, but I would like to do this programmatically. The way to fix it by hand is, 1. Open the word document 2. Go to Tools > Macro > Microsoft Script Editor 3. Use Edit > Find and Replace > Find to search for the string mso- prop-change; you should find something like: <p class=MsoNormal style='mso-prop-change:"John Johnson" 20071130T1052'"... 4. Remove the part style='mso-prop-change:"John Johnson" 20071130T1052'" 5. Repeat this until you do not find the string mso-prop-change anymore 6. Save the document and close the Microsoft Script Editor I am able to open the Script Editor by doing, var w = WScript; var word = w.CreateObject("Word.Application"); var doc = word.Documents.Open(file); //msoHTMLProjectOpenSourceView 1 //msoHTMLProjectOpenTextView 2 var htmldoc = word.ActiveDocument.HTMLProject.Open(2); // This opens the Microsoft Script Editor But, the problem is that I would like to do this behind the scenes and not have the Script Editor come up. I would also like to do a search and replace on that specific document. I have searched on the Microsoft site for a solution, but none was found. I know how to do the search and replace, all I need is to be able to access the xml side of the Word document. Any ideas? thanks, jic Tag: FileSendMail-macro Tag: 117959
  - 2
    - Populate List Box with Word doc names in a folder I'm creating a user form with two list boxes. The list box on the left (lstDivisions)has check boxes for Divisions (i.e., 01, 02, 03 etc.). Upon selecting the desired division, I'd like the right list box (lstAvailDocs) to display all the names of Word documents that exist in the corresponding folder number located at G:\Master Specifications. For example, if the user chooses division 02 on the left, then the right list box should display all Word documents in G:\Master Specifications\02. The desired 02 folder may contain other non-Word files, but I only want Word documents to display in the second list box. I made a start with the code below, but I need help with the details. Thanks! -- Steve C Private Sub lstbxDivisions_Change() 'Runs when a check box in Divisions list box is selected For x = 0 To lstbxDivisions.ListCount - 1 If lstbxDivisions.Selected(x) = True Then LastSelected = lstbxDivisions.List(x) 'Check box has been selected 'Following populates the AvailDocs list box with choices made in lstbxDivisions With lstbxAvailDocs Ifile = FreeFile Open "G:\Master Specifications\" & LastSelected For Input As #Ifile While Not EOF(Ifile) Line Input #Ifile, SpecName .AddItem SpecName Wend Close #Ifile End With Next x End Sub Tag: FileSendMail-macro Tag: 117956
  - 3
    - How to open recent file momentary? Hello. There is the code macro for open dialog "Recent Files" (below). However when click "Open" on the some selected file then open new dialog with this file. I'm obliged twice click that open some file. Qustion: how to open some selected file from dialog "Recent Files" is for single click? thank you very much. My code: Sub openDlgMRU() im myPath As String Dim bKey As String bKey = System.PrivateProfileString("", "HKEY_CURRENT_USER\Software \Microsoft\Office\11.0\Common\General", "RecentFiles") myPath = Environ$("appdata") & "\Microsoft\Office\" & bKey & "\" With Dialogs(wdDialogFileOpen) .Name = myPath If .Display = -1 Then .Show End If End With End Sub Tag: FileSendMail-macro Tag: 117948
  - 4
    - Adding InlineShape makes Word freeze Hi, I'm adding a picture like shown below.. into Word 2007 Just before adding I get some data from another word file.. When I break the code here and step trough the code with F8 it runs perfectly , but when it runs without a break Word just freeze Do anybody know why? Thanks alot, Flemming Dim rBookmark As Range Dim oIS As InlineShape Set rBookmark = oDoc.Bookmarks(sBookmarkName).Range Set oIS = rBookmark.InlineShapes.AddPicture(FileName:=sFullFileName, LinkToFile:=False, SaveWithDocument:=True) If Not oBorderLineStyle = wdLineStyleNone Then With oIS With .Borders(wdBorderTop) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With With .Borders(wdBorderBottom) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With With .Borders(wdBorderLeft) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With With .Borders(wdBorderRight) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With End With End If End If Tag: FileSendMail-macro Tag: 117947
  - 5
    - Why field shading persists Is there a way to have a Word 2007 .docx file not reveal field shading? The files in questions start out as .docm and are later saved as .docx. I know you can unlink field codes by selecting all and doing a Ctrl + shift + F9 but since it appears the VB code is gone in a .docx, I do not understand why the field shading persists? I am trying to give coworkers simple instruction on how to prepare a Word 2007 file before sending to a customer. The field shading gives a very undesirable boilerplate appearance should the recipient have the field shading option turned on to always. The field shading persists with the .dox file, a surprise to me. Has anyone ever run into this and have an easy solution? Tag: FileSendMail-macro Tag: 117944
  - 6
    - Disappearing code I had a Word template with some form fields. I used the Visual Basic editor to write some macro code for when the document closes. I did a Save As and saved the template as a new name. When I open that template, I can't find the macro code, as if it just disappeared? Am I doing something wrong? Tag: FileSendMail-macro Tag: 117940
  - 7
    - Using VBA how do set the position of a table I'm creating. I'm using the following to create a table. Set tblNew = docActive.Tables.Add( _ Range:=docActive.Range(Start:=0, End:=0), NumRows:=2, _ NumColumns:=3) How do I change the location of the table? If I put values in Start and End I get an app error, value out of range. I used 5 for both Start and End. Tag: FileSendMail-macro Tag: 117938
  - 8
    - Import Access Query into Form Fieldson in a Template I have a User Form with Form Fields that have bookmarks that identify each field. I also have an Access Database that has corresponding fields. Corresponding fields: ProjectTitle ProjectCatagory ProjectLeader TeamMember1 TeamMember2 Is it possible using VBA to import from the Access Query into the opened Template, the corresponding fields? Some how the user would have to select the Record wanted, but I think the fields could already be identified in the code. Also, would the Template have to be unprotected? -- Your guidance is greatly appreciated! Tag: FileSendMail-macro Tag: 117937
  - 9
    - Mailmerge, open Data Source through macro Hi We have two templates, one containing a list of clients and one with a standard letter. The one with the list of clients is the source for the other, so we can easily create a letter to a long list of clients. I would like to create a AutoNew macro in the template with the standard letter that opens the "Select Data Source" for mailmerge when opened, but can't figure out how? /Lasse Tag: FileSendMail-macro Tag: 117934
  - 10
    - How to use the function for find some text? Hello. Mr. Allen Wyatt publish code of one function which provide replace one text to other (http://wordtips.vitalnews.com/Pages/ T000811_Replacing_Text_in_a_Macro.html). However I can't call it into macro. How to correct take advantage of the opportunity this function? That is this function and my macro: Function RepText(sIn As String, sFind As String, sRep As String) As String Dim x As Integer x = InStr(sIn, sFind) While x > 0 sIn = Left(sIn, x - 1) & sRep & Mid(sIn, x + Len(sFind)) x = InStr(sIn, sFind) Wend RepText = sIn End Function Sub findWord() sIn = Selection.Text sFind = "the" sRep = "of" End Sub Thank you for your tips. Tag: FileSendMail-macro Tag: 117930
  - 11
    - Check for Changes I only want to save a document if changes have been made - is there some code that will tell you if changes have been made to a document? -- Bill @ UAMS Tag: FileSendMail-macro Tag: 117921
  - 12
    - Form I am in the process of creating a form and have a simple question. I have created a fill in text field and would to automatically use the contents of that field, once filled in, and have it automotically incorporated into other parts of the form / document. How do I do this? Thanks, Dave. Tag: FileSendMail-macro Tag: 117919
  - 13
    - copy first para of each section hello everyone i'm looping thru all the sections of a document. How can I put the first paragraph of each section into a variable. Or if I can put it into the header is better. Hope someone can show me how to code both options. thanx ahmed Tag: FileSendMail-macro Tag: 117918
  - 14
    - How to select first word into document? Hello. I need to select first word into current document. I use follow macro: Sub selFirstWord() ActiveDocument.Words.First.Select End Sub But if text has the space or pilcrow sing at the first set-out, then selecting it - not word. Similar with last word. Question: how to set bound for selection only for words? Thank you very much. Tag: FileSendMail-macro Tag: 117917
  - 15
    - From where can i download c++ turbo for free? i would like to know from which site can i downloas c++ turbo for free Tag: FileSendMail-macro Tag: 117910
  - 16
    - Autosave problem I am having a nightmare with the word autosave "feature". I am writing code to display forms on save and on SaveAs. The idea is that the user has to enter the information when saving. However, I cannot make these forms not appear during autosave!! Turning autosave off is not an option. Please help!!! Tag: FileSendMail-macro Tag: 117909
  - 17
    - Error message automating word 2007 Hi, I am using Visual Basic and hope this is the right group to ask this in. I have a program that automates MS Office and has worked fine up until Office 2007 and now I am getting the error message "This command not available on this platform". Below is one of the commands that is giving me problems. Set objwrd = CreateObject("Word.Application")'Works fine Set fso = objwrd.FileSearch 'This line generates error Is FileSearch not available in Office 2007 or do I need a different reference for my program to work? Any help appreciated. Thanks, Norm --? Norm Don't blame me, my programming is self-taught and my teacher was not very experienced. :-) normfowler_don't use_@hotmail.com Tag: FileSendMail-macro Tag: 117903
  - 18
    - Change formating of Dates with a macro Hi. I have a file that has a date of birth in the format of MM-DD-YYYY and I would like to reformat it to YYYY-MM-DD. An example of what the data looks like: <DoB>01-01-1990</DoB> I was attempting to isolate the date and change the formating using this code: With Selection.Find .Text = "<DoB>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With With Selection .StartIsActive = False .Extend Character:="<" End With Dim rdate As Range Set rdate = Selection.Range rdate = Format(rdate, "YYYY-MM-DD") it doesn't appear to work. Could someone help? thanks! Tag: FileSendMail-macro Tag: 117894
  - 19
    - A HELP BOX I have a form that opens from a document. When you go to enter your name, it needs to be in a set format. Is there a way that when Iâ??m in the name textbox a help or information balloon opens with the following : â??Enter your First name, CtrlTab twice, your Middle Initial, CtrlTab once, Last Nameâ?? and then closes when they go to the next box? Tag: FileSendMail-macro Tag: 117893
  - 20
    - Expandable text box I have created a simple form in Word 07, which has active X content controls. I would like to make these controls a certain height to begin, but then allow them to expand if the user types more inside them. I would also like to set a maximum character amount within reason. I have set the IntegralHeight to true but no luck. WordWrap is true as is Multiline. This allows the user to enter as much text as tehy want, but the text box does not expand, and if this form is printed it only shows the text which is visible. Is this possible? I added 2 text box content controls and those work better, however those are quirky in that sometimes depending on where you click in the cell, it may not let you type. The only way this form works is after I protect it ... is that truly necessary? I have looked online but am not a programmer, but I will continue searching. Hope this makes sense, and thanks in advance Tag: FileSendMail-macro Tag: 117892
  - 21
    - Revision control I would like to add some programming to our existing document template that allows for a summary of changes. Currently, the document simply places a line next to any changed text (when Track Changes is turned on). What I would like it to do, when we make a change, is to ask for the Reason for Change, and enable us to gather a list of those changes and include them in the document. Can Word do this? Tag: FileSendMail-macro Tag: 117891
  - 22
    - Drop Down Lists Where can I find a sample code to create a drop down list with cascading sub menus for microsoft word 2002? Tag: FileSendMail-macro Tag: 117886
  - 23
    - How to insert the space into selection range? There is text which has some words (and phrases) which enclosure brackets. Example: "Some text (has has) words.". I need to change text within brackets (exclude brackets) to space. I use follow code (below), but I can't insert space into brackets. Help me, please. N.B. Of course, I can simply using dialog Find and Replace, but I want to do it by this code and with range. Thank you very much. My code: Sub delText() Dim oRange As Range Dim dt As String 'Set oRange = ActiveDocument.Range Selection.HomeKey wdStory With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "$*$" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True While .Execute Selection.MoveStart Unit:=wdCharacter, Count:=1 Selection.MoveLeft wdCharacter, 1, wdExtend Selection.Delete Wend End With Selection.HomeKey wdStory End Sub Tag: FileSendMail-macro Tag: 117881
  - 24
    - Paragraph numbrs in header I'm working on a large document, and I want to be able to put the last paragraph number used on every page in the header. I have defined Heading one as my chapters titles, Heading 2,3 and 4 are in the format 1.1, 1.1.1 and 1.1.1.1. I only need headings 2, 3, and 4 in my headers. I know how to insert the field STYLEREF "Heading 2" \l \n but this only shows me the paragraph numbers for those headings which are H2. Is there some way I can make the header display the paragraph number for *whichever* heading level is at the bottom of the page, perhaps using If..Then..Else? Thanks, Alice Tag: FileSendMail-macro Tag: 117875
  - 25
    - Mutually Exclusive Checkboxes and Counting the number of ticks in Hi, I am creating a form for users to complete that contains a table with 11 rows and fours columns in, each row has a question in the first column (apart from the top row which has headings in) and three checkboxes in columns 2, 3 and 4, which are used to record the end users answer, to clarify: Heading A B C Question 1 | ï?? | ï?? | ï?? | Question 2 | ï?? | ï?? | ï?? | Totals | ï?? | ï?? | ï?? | The two problems I require advice regarding are: Mutually Exclusive Checkboxes and Counting the number of ticks in each column. I would love some help in writing a macro that counts the number of checks in each column and returns a value to the bottom row, however each row answer needs to be mutually exclusive to ensure that users only make one selection per row (i.e. cannot choose A & B as an answer!). Please help me if you can and thanks for looking. Tag: FileSendMail-macro Tag: 117867

Hello NG,

I need help. I must develop a MAPI32.DLL to send files from Word with
File/Send Mail. (This command use the dll under
"HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Microsoft Outlook\DllPath" )
How can I see, what a functions are used from this MAPI-DLL, when I send a
file from Word? Can I edit the Word-command macro FileSendMail?

Kind regards,
KS.

Top

RE: FileSendMail-macro by KonradSchiemert

KonradSchiemert
Thu Sep 18 06:33:02 PDT 2008

Hello NG,

the macro FileSendMail-macro call the method Document.SendFile from the
active document object. Know everybody, how this method works?

Regards,
KS.

"Konrad Schiemert" wrote:

> Hello NG,
>
> I need help. I must develop a MAPI32.DLL to send files from Word with
> File/Send Mail. (This command use the dll under
> "HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail\Microsoft Outlook\DllPath" )
> How can I see, what a functions are used from this MAPI-DLL, when I send a
> file from Word? Can I edit the Word-command macro FileSendMail?
>
> Kind regards,
> KS.

Top