macro to send email

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Adding control to the document and focus I dynamically add a control to the active document with "this.Controls.AddControl " which is triggered by the text the user types. After the control appears, the next letter the user types overwrites it with their text. It acts like the control is selected, but the control never has focus (according to it's events/properties), yet their cursor is no longer blinking on the document. Tag: macro to send email Tag: 97611
  - 2
    - Explanation of Automation Error Please The standard VBA InputBox does not provide a means of determining if the user clicked on cancel or just left the input field blank. I put together a UserForm to perform the role of an InputBox that allows me to determine which user action occurred. I basically built a form with a label, a textbox, an OK commandbutton and a Cancel command but. I assigned "Cancel" = True for the Cancel commandbutton. In my code I set the value of the textbox to "**Canceled by user**" if the user clicked the cancel button, clicked Esc, or clicked the close form "X." While perhaps crude, it worked like I expected. Next I thought I might set the value of the .Tag property to "**Canceled by user**" if one of the actions above occurred and set .Tag to "TextBox1.Text" if the OK command button was pressed. This worked also except for when the user closed the form with the "X" button. On that action, the VB Editor returned an: Run Time Error '2147418105(8011007)' Automation Error. The callee (server [not server application]) is not available and dissappared. All connections are invalid. The call may have been executed. After stepping through my code I can "almost" understand why that occurs. However, I don't understand why it occurs when I use .Tag vice .TextBox1.Text Here is my code with both variations. The current arrangement uses .TextBox1.Text. It works as expected. If you change the arrangement and use .Tag, the error occurs on the line: CallInputBox = myFrm.Tag Main Macro: Sub ScratchMacro() Dim myStr As String myStr = CallInputBox("User Name", "What is your name?") If myStr = "**Canceled by user**" Then Exit Sub Else MsgBox myStr End If End Sub Function opens the UserForm: Function CallInputBox(ByRef pTitle As String, ByRef pPrompt As String, _ Optional ByRef pDefualt As String) As String Dim myFrm As myInputBox Set myFrm = New myInputBox myFrm.Caption = pTitle myFrm.Label1 = pPrompt myFrm.TextBox1 = pDefualt myFrm.Show CallInputBox = myFrm.TextBox1.Text 'CallInputBox = myFrm.Tag Unload myFrm Set myFrm = Nothing End Function UserForm code: Private Sub CommandButton1_Click() If Me.TextBox1.Text = vbNullString Then MsgBox "Please enter your name in the text field provided" Me.TextBox1.SetFocus Else Me.Tag = Me.TextBox1.Text Me.Hide End If End Sub Private Sub CommandButton2_Click() Me.TextBox1.Text = "**Canceled by user**" 'Me.Tag = "**Canceled by user**" Me.Hide End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Me.TextBox1.Text = "**Canceled by user**" 'Me.Tag = "**Canceled by user**" End If End Sub If I step through the code and close the Userform with the "x" I can see that the UserForm_QuerryClose Event (and Terminate Event) fires before the Function CallInputBox gets its value. So why does myFrm.TextBox1.Text work when myFrm.Tag throws the error? Also interested in other ideas to streamline or improve on this UserForm idea. Thanks. Tag: macro to send email Tag: 97610
  - 3
    - problem saving HTML/other web formatting in Word 2007 Am having trouble saving an HTML/XML based order page in Office 2007- it changes the formatting! Office 2003 does not however- what's the deal? Tag: macro to send email Tag: 97603
  - 4
    - Saving A multi Page Doc? Hello, I have a 93 page doc. I need to save each page as an individual document. Is there any way to do that without coping and pasting each page? Perhaps with some code? Thanks, Lime Tag: macro to send email Tag: 97600
  - 5
    - Watermark only appears in first section I have a Word document with nine sections. None of the sections are linked because there is specific text in each header. From an Access database, I have code that opens the Word document, replaces a bunch of bookmarks, updates some fields and the table of contents, saves the document, and exits. Now, I have to add a watermark. After spending way too much time coming up with a solution, it turns out that the code only writes the watermark in the first section. So I am looking for any help, advice, tips, code samples, or anything else you can think of that will help me out (and take pity on me, as I am a PowerBuilder developer by trade, acting as a VB/VBA developer as a favor to my boss). Thanks, Glenn Harland Here's the code: wmtext = IIf(IsNull(watermark_text.Value), "", watermark_text.Value) For ctr = 1 To oTemp.Sections.Count For idx = 1 To 3 With oTemp.Sections(ctr).Headers(idx).Shapes.AddTextEffect(powerpluswatermarkobject1, wmtext, "Times New Roman", 1, False, False, 0, 0) .TextEffect.NormalizedHeight = False .Line.Visible = False .Fill.Visible = True .Fill.Solid .Fill.ForeColor.RGB = RGB(192, 192, 192) .Fill.Transparency = 0.5 .Rotation = 315 .LockAspectRatio = True .Height = oWord.InchesToPoints(2.27) .Width = oWord.InchesToPoints(7.95) .WrapFormat.AllowOverlap = True .WrapFormat.Side = wdWrapNone .WrapFormat.Type = 3 .RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin .RelativeVerticalPosition = wdRelativeVerticalPositionMargin .Left = wdShapeCenter .Top = wdShapeCenter End With Next Next Tag: macro to send email Tag: 97599
  - 6
    - How to move normal.dot to 2007 I have a lot of macro's and customisation of the menu and toolbar stored in my normal.dot. How can I move everything to Word 2007? Hans List Tag: macro to send email Tag: 97595
  - 7
    - Word XML This is probably not the right news group, but perhaps someone can help me: Word 2007 docx, part from: document.xml is: </w:t></w:r><w:r><w:rPr><w:b/></w:rPr><w:t>aBC</w:t></w:r><w:r><w:t xml:space="preserve"> Where can I find the meaning of the codes between <>? </w:t> </w:r> <w:r> <w:rPr> <w:b/> </w:rPr> <w:t> etc. Thanks a lot! Hans List Tag: macro to send email Tag: 97592
  - 8
    - VBA Runtime Error 5281 I'm getting a randome Runtime Error #5281 when I run a macro that creates a paragraph style in a document. The error says something like the style I'm trying to create is based on too many styles. The funny thing about this is that if I quit out of Word and load the macro again, it doesn't necessarily happen. I've created 120 style macros. When a user activates a User Form through a command bar, a selection of buttons are available to apply style to text. You highlight the text and then click a button. It checks to see whether the style is already created and if it isn't it creates the style, then applies it to the selected text. It was very odd. It was working fine yesterday. Then, when I created a few more style macros, it suddenly started giving me the error. After closing and opening the project template, it then allowed me to cycle through all the macros with no error. I don't know what is going on. I couldn't even find the error when I checked with Microsoft. Help Tag: macro to send email Tag: 97586
  - 9
    - VBA Runtime Error 5843 I'm kinda a newbie to Word VBA. I generated a macro for removing right, top, bottom borders of a cell frm a table. But when i try to run the macro after modifying the code to run for multiple cells. I gives an error msg Run-Time Error 5843: One of the values passed to this method or property is out of range. With Selection.Cells With .Borders(wdBorderLeft) .LineStyle = wdLineStyleOutset .LineWidth = wdLineWidth075pt ---> Errors out on this line .Color = wdColorAutomatic End With .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False End With With Options .DefaultBorderLineStyle = wdLineStyleOutset .DefaultBorderLineWidth = wdLineWidth075pt .DefaultBorderColor = wdColorAutomatic End With Any advice on this would help. Thanks. Tag: macro to send email Tag: 97573
  - 10
    - Office Clipboard Format I am copying a range from Excel and pasting it into a Word document. The problem is that sometimes it pastes the clipboard item as a table (the format I want it in) but other times in a tab delinated format. Is there a reason for this? How do I force it to paste as a table? Tag: macro to send email Tag: 97571
  - 11
    - vba newbie question Hi all, I want to create a vba program that allow user to input a num(eg 3) Then the program will add 3 textbox in the form The problem is how I can get the value of these textbox? The easiest way to do that is I create couple of textbox in the form, and hide them When the user enter 3, I just show the first 3 textbox. Also, I can get the text from the textbox, becoz the textbox exist. Is there a better way to do it?? For other language, I can run a string as a line of code. As I know, vba can't.... Dim i as integer for i = 1 to num ( from user) textbox & "i".text = "hihi" <---- I know I cant do it @@ next Sorry for my bad English. I hope u guys understand what I'm saying Thanks Tag: macro to send email Tag: 97570
  - 12
    - Formatting dates? I can't seem to figure out how to make a date come out in a specific format. I parse thorugh a text file sent ot me by someone else. One day the date will be 3/5/07, the next 5 Mar, the next 05 March 2007, etc. I've tried capturing whatever I get into a variable Dim ThisDate as Date, then using Format(ThisDate, "yyyymmdd") to get 20070305 - but it didn't work like I hoped it would. Any suggestions? Ed Tag: macro to send email Tag: 97569
  - 13
    - AutoOpen not Executing When Document Macros Disabled If I answer Enable Macros when opening a document containing macros then both Normal.dot.NewMacros.AutoOpen and then opening document AttachedTemplate.ThisDocument.Document_Open execute. If I answer Disable Macros when opening a document containing macros and VBE is closed Normal.dot.NewMacros.AutoOpen and opening document AttachedTemplate.ThisDocument.Document_Open do not execute. Other Normal.dot and AttachedTemplate.macros execute when invoked. Of course, macros in the opened document do not execute. If I answer Disable Macros when opening a document containing macros and VBE is _open_ Normal.dot.NewMacros.AutoOpen executes, but the opening document AttachedTemplate.ThisDocument.Document_Open does not execute. Other Normal.dot and AttachedTemplate.macros execute when invoked. Of course, macros in the opened document do not execute. In all cases, I start with Word open with no other documents open. Is this behavior expected? How do I cause Normal.dot.NewMacros.AutoOpen and opening document AttachedTemplate.ThisDocument.Document_Open to execute? Word 2003 SP2, Macros security set to Medium, Windows XP SP 2. Tag: macro to send email Tag: 97568
  - 14
    - Selection.Find.Execute Problem I am pulling a number (eg, 3.2.1.1.1.2) from an Excel doct and then trying to locate that position in a Word(2003) doct., and insert some text below that line. The sub works properly the first time through, but fails after that. The cursor ends up at the top of the doct but the Find.execute does not happen after that. Can someone help me with this? Thanks Sub Locate_in_Doct() ' ' Locate_in_Doct Macro ' ' ActiveDocument.Range(0, 0).Select Selection.Find.ClearFormatting With Selection.Find .Text = sExcelTextJ ' Example "3.2.1.1.1.2" (SExcelTextJ is a Public String) .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Collapse Direction:=wdCollapseEnd If Selection.IPAtEndOfLine = False Then Selection.EndKey Unit:=wdLine, Extend:=wdMove End If Selection.TypeText Text:=vbCrLf & "Locate Here " & vbCrLf End Sub Tag: macro to send email Tag: 97567
  - 15
    - Word 2003 not allowed to FAX word file through Web Application Hi All, I have developed the Fax Application in ASP.NET, on windows 2003 server and i want to fax the word file. I am using office 2003 for faxing the file. But i not able to fax the doc file. If i use the .txt file than it work but when i use the .doc file than gives error. The code is given below. Imports FAXCOMEXLib Imports System.IO Partial Class _Default Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim fsc As New FaxServerClass Dim doc As New FaxDocumentClass doc.Body = "c:\TEST.doc" //document body doc.DocumentName = "test.doc" 'FNStr;//document name doc.Priority = FAX_PRIORITY_TYPE_ENUM.fptNORMAL doc.Recipients.Add("9084509299", "Mitesh Patel") doc.ReceiptType = 0 doc.ScheduleType = 0 doc.Sender.Name = "Test Fax" 'FName.Text.Trim(); doc.Sender.TSID = "FAX" doc.AttachFaxToReceipt = True Do_Conn(fsc, doc) End Sub Private Sub Do_Conn(ByVal fsc As FaxServerClass, ByVal doc As FaxDocumentClass) Try fsc.Connect("rangam03") fsc.Connect("rangam03") doc.ConnectedSubmit(fsc) fsc.Disconnect() Catch ex As UnauthorizedAccessException ErrLabel.Text = ex.ToString() Catch eio As IOException ErrLabel.Text = eio.ToString() Catch e As Exception ErrLabel.Text = e.ToString() End Try End Sub End Class Error comes: System.IO.FileNotFoundException: Operation failed. at FAXCOMEXLib.FaxDocumentClass.ConnectedSubmit(FaxServer pFaxServer) at _Default.Do_Conn(FaxServerClass fsc, FaxDocumentClass doc) in D:\Utpal\LinkIt\FAX\Default.aspx.vb:line 31 I am sure that this error is due to the office 2003 so pleas help me in this context Thanks in Advance Mitesh Patel Tag: macro to send email Tag: 97566
  - 16
    - Uploading text file to form Is there an easer way to upload a text file into a form than what I have written below. Some of my forms are rather large. Dim tempfile Dim bk1, bk2, bk3, bk4 ChangeFileOpenDirectory "C:\History\" With Dialogs(wdDialogFileOpen) If .Display = -1 Then Application.DefaultSaveFormat = "Text" tempfile = .Name Open tempfile For Input As #1 Input #1, bk1, bk2, bk3, bk4 Cmd1.Value = bk1 Cmd2.Value = bk2 Text1.Value = bk3 Text2.Value = bk4 Close #1 End If End With Tag: macro to send email Tag: 97562
  - 17
    - Text Form Calculations I have two Date Text forms in a template e.g 01/10/1970 and 07/10/2005. I need to create a box or test form and calculate the difference of these two text e.g 30.5 years. Can this be done? I need help in this one. Tag: macro to send email Tag: 97557
  - 18
    - How you call these task I have a template. In this template when a click this Grey line the document expand. In other words a optional table information is added to the document. If I click the line again the information collapse. (Disappear). How you call this task. Is this a macro? Tag: macro to send email Tag: 97556
  - 19
    - Text Form Field I need to duplicate the information entered in a Text Form Field of a template in differents pages of this document. Do you have any suggestions how this can be done? Tag: macro to send email Tag: 97555
  - 20
    - Word 2003 VBA error I receive the following error message 'Run-time error 4605; This command is not available. I built this template 3 months back and works just fine then, now that the user has request a new table column added, I add the new column to an exists table and saved the *.dot. I run it and get this error. I'm guessing some MS patch that was applied made this not function anymore. If I open and save the template in office 2007 as a template with embedded macros, it works again. My plans are not to deploy the new office until later this year, so any ideas for my fix. Thanks, Jay Bukstein Tag: macro to send email Tag: 97549
  - 21
    - Add Header footer to word doc Hi, I'm currently developing a documents manager that stores th documents in sql server. The application is developed in classic ASP sqlserver and pffice automation. The application lets you program circuit o responsabilities and many other features. I use IExplorer and DSOFramer ActiveX Office Control to process and print and perform other processes to office docs. Currently I have found a solution having 2 instances of dsoframer o the page. I use vbvscript to control the instances. I open a templat (.dot) into the first dsoframer control instance (lets call it oDodT) Then Word Document (.doc) into the another instance of dsoframe control (lets call it oDOcD). Select wholestory from oDocD, selec bookmark("doc_content") from oDocT. Then do PasteandFormat to oDocT. S this way the application lets you select between templates to print you docs. But have a problem with some documents written in word 97 found in man companies nowadays. When the content is pasted, oooppssss, somethin extrange occurs. The normal text becomes Italic and the italic Tex becomes Normal. So I decided to follow another way to give header and footer to offic docs. Instead of pasting the contents of docs to templates I want t ADD header and footer to Docs. I'm not an expert on this. I'm a senior web apps developer. I foun difficult to translate to vbscript some vba sintax but after man try/error I have come up with something. Here's my email address martinb2007@hotmail.com (MSN welcomed), so w can share our knowledge or codes. I want to copy header and footer from a template, or create them on th fly, then add them (or paste them) to .doc. Resuming: 1 - now I do -> Open .Dot, Open .Doc, Select .Dot, Select content o Tag: macro to send email Tag: 97547
  - 22
    - Word vb altered by Outlook or mail filter software? Is it possible that the process of emailing using Outlook (combined with company email filters) could do anything to alter the state of vb code and vb controls? I emailed (using Lotus Notes) a vb document complete with vb controls/userforms, I had thoroughly tested, to others in remote locations to do further testing in the true environment. They received document ok, and the functionality worked when they opened the document there, but when they returned it to me, it was corrupted, it would open up stuck in design mode, the code was getting mixed up, the controls were getting renamed, such as cmdEdit would become cmdEdit1, then cmdEdit11, etc. We thought we pinned it down to them working on the document while opening it from Outlook instead of saving first to server/hard drive, then editing, then re-attaching, as they were also emailing directly from Outlook, instead of saving the document, then attaching to email. But when they completely saved/closed the document, then attached it, it was still corrupted upon receipt by me. I am beginning to wonder if there are any known issues between Outlook/Word, and/or if spam filtering software used by companies could be tinkering with the code somehow, because when I receive the corrupted document, it still works fine on their end, and the only difference is that it's been transported via email. Thanks for any suggestions. Tag: macro to send email Tag: 97546
  - 23
    - How I can change some words in XPS, using C#? I have a XPS generated by Microsoft Word 2007 document and I would like to modify some words in this XPS. I am developing an application in Visual Studio (C# - with VSTO) that will manage this XPS document. I need to know, how I can change some words in this XPS, using C#? Tag: macro to send email Tag: 97537
  - 24
    - turn off compile error box I am new to VBA programming and wish to turn off the compile error message box that constantly appears as I am writing code. Tag: macro to send email Tag: 97532
  - 25
    - Get section number if selection in header/footer Hi folks, Is there a way to return the number of the SECTION whose header or footer the cursor is in? Obviously (um, ok, not obvious to me til just now), Selection.Sections(1).Index doesn't do it. Thanks for any help. Mark Tangard Tag: macro to send email Tag: 97530
- Next
  - 1
    - How do I automatically insert the date one month from today? I need to have the date one month from the current date automatically inserted into a new document. Tag: macro to send email Tag: 97523
  - 2
    - Display file list I have a macro that prompts me to enter a file name and then it gets the text and writes it to my document. I have too many file names now to remember them all. Is there a way to display all the files in my folder and I can just choose the one I want? Here is the first part of my macro that gets the file: Dim tempfile Dim bk1, bk2, bk3, bk4, bk5, bk6, bk7 tempfile = InputBox("Input your file name") tempfile = "C:\History\â?? + tempfile + ".txt" If Dir(tempfile) = "" Then MsgBox "This file doesn't exist please try again", , "No File" Exit Sub End If Open tempfile For Input As #1 Tag: macro to send email Tag: 97513
  - 3
    - Determine which toolbar button was pressed? Okay, I would like to dynamically build a menu of items to be inserted. This menu would be created based upon the existence of files in a certain directory. The filename of each item would be used as the name of the menu button for each item. Everytime one of those dynamically-created buttons is pressed, I'd like it to call a bit of code that inserts the same-named item. The only way I can think of to do this (without maintaining a list of the possible items to insert somewhere), would be to call one standard macro which knows what button on the toolbar was pressed, as the button's name would correspond to the file's name. Is this possible at all? Or are there any better solutions? Thanks for any help! Tag: macro to send email Tag: 97502
  - 4
    - Sequentially numbering a word document on SharePoint I have a word template on SharePoint and would like to set it up to Sequentially number each form. The code to call a file from the C: drive is Order = System.PrivateProfileString("C:\Settings.Txt", _ "MacroSettings", "Order") But a SharePoint link does not work with System.PrivateProfileString - Can anyone tell me what to use when I need to call the file in SharePoint. ( http://us-team-it.hereIam.net/sites/gesfa/BEN/ChangeRequest/PMIS%20Change%20Request/Forms/Settings.txt) -- DJK Tag: macro to send email Tag: 97500
  - 5
    - Open Dialog Box... HELP I'm trying to tweak a MSDN Article that allows me to import data from a Word form to a Access db.... I'm wanting to have a directory open dialog box pop open and feel i've traveled into hositle waters on this..... Your help is appreciated!!! Sub GetWordData() Dim appWord As Word.Application Dim doc As Word.Document Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim strDocName As String Dim blnQuitWord As Boolean Dim d As FileDialog On Error GoTo ErrorHandling strDocName = "C:\Documents and Settings\chavira\Desktop\CPD\" & _ InputBox("Enter the name of the Word contract " & _ "you want to import:", "Import Contract") Set appWord = GetObject(, "Word.Application") Set doc = appWord.Documents.Open(strDocName) cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\My Documents\" & _ "CPD Form.mdb;" rst.Open "CPD_Table", cnn, _ adOpenKeyset, adLockOptimistic Tag: macro to send email Tag: 97499
  - 6
    - Text Formfields? Hi, I've created a userform with a textbox that allows the user to enter multiple lines of text and use the Enter key to add additional paragraphs. I'm trying to move this text to a text formfield but it's pulling out the hard carriage returns. I know that if the user was filling out the formfield directly, they would be able to use the Enter key within the field. I've already tested the code to ensure that it works, for example, when I use a simple bookmark (instead of the formfield) and it does. The obvious solution is to use a bookmark but this option isn't viable due to other issues. Any suggestions on getting the text formfield to recognize the hard carriage return? Really desperate for an answer so any thoughts would be most appreciated. Thanks, Jille Tag: macro to send email Tag: 97497
  - 7
    - Testing For Valid Collections How do you test if a collection is valid? For example, for inline shapes the Count is always available, even if it's zero. On other hand, ShapeRange will be "Requested object is not available" if it's zero. How do you texst for that case? Tag: macro to send email Tag: 97490
  - 8
    - Grammar checking error The checker could be made to detect conjunctions, and to not flag conjoined words as different parts of speech. An example: "I would like to call him or her to get the move scheduled." The grammar checker flagged "her," suggesting that "she" was the appropriate word. The "Explain" button resulted in the (not very) sage advice that the "marked pronoun needs to reflect its function in your sentence." Of course, its function is as an object, and "she" is used for a subject. In any case, to be consistent, "him" should have been (incorrectly) flagged for a change to "he," matching the suggested "she." ---------------- 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=7579110b-6875-4642-b24e-8ec44e0abad0&dg=microsoft.public.word.vba.general Tag: macro to send email Tag: 97486
  - 9
    - An idiot needs help with a macro I'm writing a script. I would like to write a macro that allows me to go Center/Caps On/enter text(character name)/Return/Caps Off. This seems like a pretty simple thing to do, but I have tried using the macro editor and weirdness ensues. The cap lock won't work, or the cursor returns to center on the subsequent line, or it just bounces back to the left margin...I don't know enough about the visual basic editor to just write the commands. Can anyone help? do I have to write two macros? Thanks in advance, Tag: macro to send email Tag: 97480
  - 10
    - Parsing Bulletin (in Numbering Format) in MS Word Document Hi there, I know reading/writing of document in VB, .Net But due to lack of exact file format, and unavailaibilty of enough documentation for Doc file format i dont know how to extract the Section, bulletin in Word Doc. I want to search a particular text in a Word Document, & i need to extract the session, or bulletin (in number format) for e.g. if my text to be searched is "TEstData123" & if it is present in say in section 1.2, 3.2.1, 4.2.3.1, 5.1 .... and so on So wherever it is present i need to extract all these sections(1.2, 3.2.1, 4.2.3.1, 5.1 .... ) as an output So would any one plz help me in doing so Eagerly waiting for help Thanks in Advance :) Tag: macro to send email Tag: 97476
  - 11
    - My Template When I run my template on my computer by going to File, New, From Exisitng Document, Choose the template, Enable the Macros - It works perfectly when my colleague does it by going File, New, Recently used documents, Choose the template - it doesnt work - Visual Basic Error??? Any ideas please? Thanks Tag: macro to send email Tag: 97471
  - 12
    - update other sheet I am looking for a macro that can do the following task. In a w/sheet I have three columns and five rows data to be entered every day. At 6th row totals are calculated for all the three columns.Whenever I press 'Update' (button has to be inserted in the sheet) these three totala have to be copied and pasted in sheet 2 next available empty row.After updating the forst sheet data should become blank.Can anybody give the code please. -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200703/1 Tag: macro to send email Tag: 97469
  - 13
    - Extract RTF text from word without clipborad function????? Hi All, I'm trying to extract RTF text from a given word document and I'm using clipboard functionality to get RTF text which is as follows. I'm using .NET technology. I dont mind accepting VB6\VBA solution. Dim data As IDataObject oParagragh.Range.CopyAsPicture() data = Clipboard.GetDataObject() If Not data Is Nothing AndAlso _ data.GetDataPresent("Rich Text Format") Then strParagraphText = data.GetData("Rich Text Format", True) End If As it intereferes with user copy\paste functionality I just want to findout whether there are any other possible ways to extract RTF text without using clipboard logic. -- Cheers, Rama Tag: macro to send email Tag: 97468
  - 14
    - resize images with macro Hi, I need to resize some images in MS Word. The pictures are various in size, but I need them to be scaled to a height of 12pts. The width is not important, as long as the aspect ratio is locked. Thnx Tag: macro to send email Tag: 97467
  - 15
    - Macro Dear, Is it possible te create a macro in Word, that is registered in word itselfs and not in a document, so the macro kan run on differt docs in word ? I want to create a macro that inserts automatically a border Page setup - layout - border I also want te insert automaticallyu header and foodnote. Is this possible ? Thanks in advance ! Tom Tag: macro to send email Tag: 97465
  - 16
    - Someone know event to determine something are typed??? User type some text on word, words counter(It exist on status bar) are change dynamically. I'm making like this app. If someones type some text on word, how can I know text are inputed? I want to know user have typed something!!! I try to find predefined event like 'AfterInsert', 'TextChanged' or 'KeyDown', but it's not exist in word 2007 apis. So, I use timer. It's so bad. ;( Anyone know event api, help me. - Sorry poor my English. :) Tag: macro to send email Tag: 97464
  - 17
    - How can I save a Document from a Template witha Conditional File Name Pre-Defined I have a MS Word 2003 Template that I fill out when start a contract or Proposal I want to be able to save the individual Contract Files in a Specific Format ie. PP-RW_030507_REV0102A PP is Preliminary Proposal RW is Riverside Wholesalers 030507 is Date March 5, 2004 REV0102A is Revision 01.02.A These are All Fields on the Form that are filled out but I would like to save it with the Naming convention that I have for all my clients like in this format automatically after every change or addition to the proposal any help would be greatley appreciated TIA Guy Montecalvo Tag: macro to send email Tag: 97461
  - 18
    - Controls Collection + VBA Hi, I have placed some controls (from View -> Toolbars -> Control Toolbox) on the word form. I 'm restricted to use controls from this toolbox only. What i have been asked is to have a button on a word form and when that button is clicked, i must display using a msgbox, the name of the control, its caption and some other properties of the control. I have tried this but it is not helping me. Dim fld As Field dim fldCount as Integer dim intIndex as Integer for intIndex = 1 to ThisDocument.Fields.Count Set fld = ThisDocument.Fields(intIndex) If fld.Type = TextboxType Then ' show text box name and text elseif fld.Type = CheckboxType then ' show checkbox name and checked state (T / F) elseif ....(more controls) End If Next intIndex Tag: macro to send email Tag: 97447
  - 19
    - VBA built-in object names auto-switching to lowercase--why? I'm working on code that frequently uses the Fields collection, but when I type something into the VBA editor, the word "Fields" is automatically switched to lowercase, like this: ActiveDocument.fields.Update Normally, it would automatically be made uppercase, so I'm assuming the VBA editor is indicating some sort of problem by making it lowercase--but what? Why is this happening? Tag: macro to send email Tag: 97442
  - 20
    - How to use Select Case when several cases result in the same code? I have a Select Case structure with six cases (six different values for the variable I'm checking). However, in three of the cases, I want to run the exact same lines of code. How can I do this without copying and pasting the same chunk of code three times over? If I write: Case "This" Or "That" VBA gives an error. Is there another structure I should be using? A lot of If/Then statements would be more cluttered than a Select Case, but maybe there's something else I can use instead? Thanks! Tag: macro to send email Tag: 97438
  - 21
    - Q: SaveAs? I have an document cotaining an UserForm. How do i make the document to save as the same filename, but in two different libraries, om closing document? The next time i open one of these documents, i don't want them to save again. Klaus H Tag: macro to send email Tag: 97437
  - 22
    - Merging with Access Hello, I have a template that I created several years ago. I'm now using it in Word 2003 that merges with a query in Access 2003. I recorded the merging process and am getting 2 prompts that I would rather not get. I want to be able to double click on the word template and have the macro merge the template with the access query. The prompts are: Opening this document will run the following SQL command. Select *From[qryLetterNewMember] Data from your database will be placed in the document. Do you want to continue? YES NO Confirm Data Source: I choose MS Access Database via DDE *.mdb *.mde this is the code: ActiveDocument.MailMerge.OpenDataSource Name:= _ "C:\xxxxx\Membership.mdb" _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="QUERY qryLetterNewMember", _ SQLStatement:="SELECT * FROM [qryLetterNewMember]", SQLStatement1:="", _ SubType:=wdMergeSubTypeOther With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .Execute End With What am I doing wrong? Thanks. jbc Tag: macro to send email Tag: 97436
  - 23
    - remove manual page breaks before headings and leave the others untouched Hello, is it possible to tell Word VBA to remove only all manual page breaks immediately! preceding headings that are formatted with the built-in heading paragraph style "heading 1" and leave the other page breaks untouched. Example text text text text text text text text text text ------------------------------------------- page break (manual) Heading 1: The analysis etc. Should there be a blank paragraph (paragraph mark) between the page break and heading 1, the page break should not be removed. It should only be removed if the heading 1 follows directly after. Kind of a weird request, nevertheless I wonder whether this could be achieved. Help is appreciated. Thank you very much in advance. Regards, Andreas Tag: macro to send email Tag: 97428
  - 24
    - userform close issue I am still working in office 97 at the mo but can anyone tell me if it is possible to either diasble the user form close prebuilt into all userforms. What i mean by that is in the top right corner there is the x that if you press, this unloads the userform. is there a way that this function can be prevented from closing the userform if the person hasnt completed the relevant sections and so skipping through the various forms. Tag: macro to send email Tag: 97427
  - 25
    - Clear button for text box Hi - I have a simple find/replace textbox that I use to replace specific bookmarks within a document. Currently, user inputs values into the text box, hits a button, and the various bookmarks are replaced with the contents of the text box. Now, I want to add a CLEAR button to my text box so the user can start over. Please note that I only want to wipe out the contents of the text box (not the entire document) so the user has a fresh text box with which to start. One problem, though, is that my current code automatically closes the text box after all of the replacements have taken place. I need the auto-close feature to stop. Here is my existing code: Private Sub CommandButton1_Click() Dim oRng As Word.Range Dim oBMs As Bookmarks Set oBMs = ActiveDocument.Bookmarks Set oRng = oBMs("RD").Range oRng.Text = TextBox1 oBMs.Add "RD", oRng Set oRng = oBMs("DOS").Range oRng.Text = TextBox3 Set oRng = Nothing Set oBMs = Nothing Unload Me End Sub Thank you for any help provided! Tag: macro to send email Tag: 97423

I have created a form in word that has a button that when you click on it
pulls data from the form and puts it in a new email. When you click the
button, the word doc jumps around and flashes. Is there any way to stop this?

Top

Re: macro to send email by Jean-Guy

Jean-Guy
Thu Mar 08 17:55:43 CST 2007

dmklaus was telling us:
dmklaus nous racontait que :

> I have created a form in word that has a button that when you click
> on it pulls data from the form and puts it in a new email. When you
> click the button, the word doc jumps around and flashes. Is there
> any way to stop this?

Are you using the Selection Object?

Try sandwiching your code with:

Application.ScreenUpdating = False
'Your code
Application.ScreenRefresh
Application.ScreenUpdating = True

--

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Top