buttons on forms

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Save document according to file in certain location Hi. I am trying to develop a macro for a user who wants to have a macro that automatically merges an access file with a letter shell. After it has finished merging, she then wants each letter printed and saved in separate files. She also wants each letter to be saved according to a project number, which is located in the final merged document. I assume she may have anywhere from 5 to 50 letters that need to be printed, divided and saved. I need the macro to move to the location of the project number in the document, choose extend:=wdExtend, and then do a save as, or something like that. Essentially, I need the letters split into individual letters, printed, and saved according to this project number. Here is some code I have used for another project that involves splitting the document: Dim fname As String, i As Integer, Source As Document, Target As Document Set Source = ActiveDocument For i = 1 To Source.Paragraphs.Count Set Target = Documents.Add Target.Range = Source.Paragraphs(i).Range Selection.Find.Execute Replace:=wdReplaceAll ----> I think it should move six down, but each time I have tried, it stays in the same line, but it moves to the right six times: Selection.MoveDown Unit:=wdStory, Count:=6, Extend:=wdExtend --->the project number contains dashes Selection.MoveUntil Cset:="-" Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend fname = Selection Target.SaveAs FileName:=fname & ".doc" ---> Target.Print (? - not sure about this) Target.Close Set Target = Nothing Next i Set Source = Nothing End Sub If you have any code suggestions, I'd appreciate it. I know the above is quite off in some areas, but that's because I have been experimenting a lot. TIA, Jason Tag: buttons on forms Tag: 38160
 - 2
 - Office Symbol Server Somebody told me they heard that the Office group has set up a symbol server for Office executables and libraries. Does any know if this is true? If it is true, where can I go to access it? If not, is there any plan to do such a thing? Thanks.... Dan Tag: buttons on forms Tag: 38156
 - 3
 - QLE WELL WERE PRAYING FOR YOU . IT HAS TO BE ROUGH NOT BEING IN NORTH CAROLINA ......AS FR THE QLE QUESTION I CANT ANSWER IT Q 'AM I DOING WHAT GOD WANTS IN MY LIFE" L AM I LIVING UP TO WHAT GOD WANTS ME TO DO ? e- DO I EXPECT GOD TO ANSWER ME WHEN I CALL OUT TO HIM? Tag: buttons on forms Tag: 38154
 - 4
 - Method to remove Unicode Hex Symbol What is the method to remove Character Code : 25A1, Unicode Hex from a word document. Thanks, Yo:D ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ Tag: buttons on forms Tag: 38153
 - 5
 - About a "invisible" variable This is a multi-part message in MIME format. ------=_NextPart_000_0009_01C37C52.E67B0410 Content-Type: multipart/alternative; boundary="----=_NextPart_001_000A_01C37C52.E67B0410" ------=_NextPart_001_000A_01C37C52.E67B0410 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blanco Hi, This answer is the "evolution" of my last question: I still working in my template, the final part, but have a little final = problem (little for masters, great for novices): I have a variable "A" = in a UserForm1. That variable is a string, formed adding words filled in = 7 ComboBoxes. When I set "MsgBox A" at UserForm1 level, MsgBox display = the correcti string. That string I want to use at final, to auto-set = the name of the document. Well, the variable A have the right string at = UserForm1 level. I declared variable A as public in the "Declaration, = General" in the UserForm1, and the string is "formed" inside the "Public = Sub CommandButton1_Click()" module. That module is inside the UserForm1. At this point, everything allright. When I want to close the document, = in "this document" part, I declare too variable A as Public, but the = variable at this level es empty, have no string at all. If you, in that = instance, set "MsgBox A", the message is empty, with no string at all. = Then, I can=B4t use this string to set the document name. I can't = understand because I've declared as public the A variable, and = understand that this thing do it "visible" in all modules of the = document. Is too evident that I'm no doing something too basic in that = point, and some help will be great for me. Regards, Omar ------=_NextPart_001_000A_01C37C52.E67B0410 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE id=3DridTitle>En blanco</TITLE><BASE=20 href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft = Shared\Stationery\"> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <STYLE>BODY { MARGIN-TOP: 25px; FONT-SIZE: 10pt; MARGIN-LEFT: 25px; COLOR: #000000; = FONT-FAMILY: Arial, Helvetica } P.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } LI.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } </STYLE> <META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD> <BODY id=3DridBody bgColor=3D#ffffff=20 background=3Dcid:000401c37c6c$0bc5f220$d7f82bc8@mipcxt400> <DIV> </DIV> Hi, This answer is the "evolution" of my last = question: I still working in my template, the final part, but = have a=20 little final problem (little for masters, great for novices): I have a = variable=20 "A" in a UserForm1. That variable is a string, formed adding words = filled in 7=20 ComboBoxes. When I set "MsgBox A" at UserForm1 level, MsgBox display = the =20 correcti string. That string I want to use at final, to auto-set the = name of the=20 document. Well, the variable A have the right string at UserForm1 level. = I=20 declared variable A as public in the "Declaration, General" in the = UserForm1,=20 and the string is "formed" inside the "Public Sub = CommandButton1_Click()"=20 module. That module is inside the UserForm1. At this point, everything allright. When I want to = close the=20 document, in "this document" part,  I declare too variable A as = Public, but=20 the variable at this level es empty, have no string at all. If you, in = that=20 instance, set "MsgBox  A", the message is empty, with no string at = all.=20 Then, I can=B4t use this string to set the document name. I can't = understand=20 because I've declared as public the A variable, and understand that this = thing=20 do it "visible" in all modules of the document. Is too evident that I'm = no doing=20 something too basic in that point, and some help will be great for = me. Regards,   Omar      </BODY></HTML> ------=_NextPart_001_000A_01C37C52.E67B0410-- ------=_NextPart_000_0009_01C37C52.E67B0410 Content-Type: image/gif; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <000401c37c6c$0bc5f220$d7f82bc8@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_0009_01C37C52.E67B0410-- Tag: buttons on forms Tag: 38149
 - 6
 - Field codes I am trying to insert some Field Codes but when i hit Ctrl + f9 to see the field codes there in my doc but nothing is showing up ( Like were dos the LastSavedBy go to) nothing show on my screen? Tag: buttons on forms Tag: 38147
 - 7
 - Suggestions on How-To Guides to Visual Basic Have often used the Que series books for help on learning a software; ready to learn Visual Basic, beginning with creating more-than-basic macros. Suggestions on good books? Anyone used the Que guide to Visual Basic? Thanks in advance Tag: buttons on forms Tag: 38144
 - 8
 - How 2 add new style to collection Hi, I'm programing some macro and I need some hints, how should I Create a New Collection of styles or (if possible) how should i Create a New (my own) Style and put it into Styles Collection. That's becouse I want to make Cycle For Each to iterate through my own made styles. Thank you. I appreciate every help. Sasa Batovanja Tag: buttons on forms Tag: 38143
 - 9
 - Disappearing variable I have an AutoExec macro that obtains the name of the provider who will be using the terminal. The name is stored in a public variable called "provider" and it is entered into a note via other macros. Problem: after a few times the variable is applied to documents and printed, the variable gets "empty" and no longer keeps the provider's name. I'm using Word 2002 Any help will be appreciated. Public Provider As String Sub AutoExec() Provider = InputBox("Please enter your Name and title as your signature", "Provider Identity") Who = MsgBox("Please Click File, Open and Select by double clicking your directory, " + Chr(10) + Chr(10) + "corresponding to " + (Provider) + " then Cancel", 48, "Find Your Directory") End Sub Tag: buttons on forms Tag: 38142
 - 10
 - OLE Automation I need to print a multi-page Word document as a subreport in an Access report. I can get the subreport to print but only the first page of the Word document is included in the Access report. Tried changing the size mode on the Object with no success. Tag: buttons on forms Tag: 38136
 - 11
 - Images and Text disappears during print preview You can see the images and text while in the document. When you go to print preview you can not see the image and some of the text is missing. Then, when you go back to the document, the image is gone from there now. The only way to get it back is to close the document and reopen. Also, the image will not print. We are running Office 2000 with all updates on a Windows 2000 Professional system with SP4 and all the Windows updates. It seems these issues started with the installation of SP4 for Windows, however we can not remove SP4 because we did not choose archieve files during the installation. Any suggestions? Thanks, Cheryl Tag: buttons on forms Tag: 38134
 - 12
 - Resetting PrinttoFile option i have a macro which first checks the user's default printer and stores it in a variable then the macro selects a postscript printer where the option Print to File is checked. the macro runs correctly, creates a *.prn file, restores the users default printer but the only thing i cannot get it to do is to reset the Print to File option back to being unchecked!! there is a "PrintToFile" argument listed in the wdDialogFilePrint dialog box but it doesn't seem to work unless i send something to print which i don't want to do. does anybody have any ideas? Tag: buttons on forms Tag: 38133
 - 13
 - How can I add a jpg image to a word document on a predifined position How can I add a jpg image to a word document on a predifined position and how can I select images in a word document I would like to replace the image in a document by an automatically generated jpg How can I do this ? thank for you assistance Tag: buttons on forms Tag: 38132
 - 14
 - How to make a filesearch sorted on last modified files I try the following, but when sorting on LastModified it=20 always sorts ascending on filename. This is what i try: With Application.FileSearch .NewSearch .LookIn =3D testpath .SearchSubFolders =3D True .FileName =3D *.doc" .MatchTextExactly =3D True .FileType =3D msoFileTypeAllFiles .LastModified =3D msoLastModifiedAnyTime End With With Application.FileSearch If .Execute(SortBy:=3DmsoSortByLastModified, _ SortOrder:=3DmsoSortOrderDescending) <> 0 Then . . . Exactly the same reults when using Ascending /Bj=F6rn Tag: buttons on forms Tag: 38130
 - 15
 - Access two printers at the same time Hello I would like to print to two printers from the one word document. The first will be the main document that will be a mailout which will print on a laser printer, the second part will be an address label printed on a dedicated label printer (continuous roll). This can be done by changing default printers each time I print either the letter or the address label, however is it possible to perform the task with one action if there are bulk letters to be printed? My understanding is that an elaborate macro would be required to achieve this, as I have not come to grips with macro writing i am seeking some guidance. regards Tony Tag: buttons on forms Tag: 38123
 - 16
 - Search for a symbols and special characters Macro to Search for any symbols or any special characters in the document without defining a unicode value. Tag: buttons on forms Tag: 38121
 - 17
 - Form Macro Problem Hi, I have created a form macro and it will automatically open. Because of that I can not open a anther document or do any changer to a Opened document until I close the macro form. Is there way to me access another word document freely with out closing the form. THEJAN Tag: buttons on forms Tag: 38120
 - 18
 - Word 2002 A box, the size of the header/footer dialog box, frequently shows over my text document. The box can start out plain but it will capture the help menu or anything else that overlays it, including the header/footer dialog box. It refuses to be selected or deleted. It remains in the same place and text can be scrolled up and down behind it. It doesn't get printed or saved, but it is a nuisance. Any helpful ideas will be appreciated. Tag: buttons on forms Tag: 38117
 - 19
 - working with clipbord Hi group, I am working with office 2000. I am able to copy the content of word document to clipboard using WD.Range.copy () .now I want the reverse operation .that is how to retrieve the content from clipboard and set it into word document. 2> how to retrieve the contents in clipboard as byte array and set it to dotnet byte array. Is this possible. regards, sudhir Tag: buttons on forms Tag: 38115
 - 20
 - macrobutton I have a template with a macrobutton. If I use my mouse 'double-click' button the macro is called as expected. If I try to double click the left mouse button the focus moves on before a second click can be made (however fast I try!!). What's going on? How do I make it work?? Thanks, Laurie ps Thanks for previous help, Jonathan... Tag: buttons on forms Tag: 38113
 - 21
 - Select file to open Hi, I have Word 2002. I need to write a macro that changes to a certain folder, then displays the file open dialog box with a filter like "*.txt" that will let me select which file to open. Does anyone know how to do this? Thanks. -- Clayton L. Wilson Tag: buttons on forms Tag: 38111
 - 22
 - Counting Lines I am pretty new at this, so I ask you not to laugh. I need to count the number of lines in a word document that looks like this: 0ADDRESS W 868543erterter 5103ertert 85 HPS0400 E 2 F120 W 0ADDRESSW 86854ertertertrt 2134ertert 85 HPS0400 E 2 F110 W and it goes on for pages sometimes 100 pages. I need to count the number of lines including empty lines all the way down. I have tried EOF with no luck. Thanks ahead. ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ Tag: buttons on forms Tag: 38096
 - 23
 - Baffling Find Count Problem I'm trying to count the number of occurences in a given selection of a given word through VBA. Modifying the code on the Word MVP FAQ to do so, I have the following function: Function CountOccurences(strSearch As String, Optional WildCardSwitch As Boolean = True) As Integer ' Counts number of times passed string occurs in selection Dim iCount As Integer ' Initialize counter iCount = 0 With Selection.Find .Text = strSearch .Format = False .Forward = True .Wrap = wdFindStop .MatchWildcards = WildCardSwitch Do While .Execute iCount = iCount + 1 Loop End With CountOccurences = iCount End Function Pretty straight forward. However, the problem comes when I'm trying to count the occurences of a word only in a selected range... the ranges are broken apart by tags (like SGML). When the first range is selected, CountOccurences() looks for not only the occurences of the word in the given range, but all the way through to the end of the document. When the second range is selected, CountOccurences(), the same thing happens, but the first range is ignored. Likewise for the third, fourth, etc. so that only the last range gives the appropriate count. The ranges are laid out sequentially in the document. The call to CountOccurences() is being made in this code: ' Where CurrentTable is a Range variable CurrentTable.Select intStepCount = CountOccurences("\<tsstep\>*\<\/tsstep\>") This is driving me totally batty. Any help or insight would be terrific. -Dave Tag: buttons on forms Tag: 38094
 - 24
 - Saving file with custom names automatically This is a multi-part message in MIME format. ------=_NextPart_000_000E_01C37BA7.95BF1A30 Content-Type: multipart/alternative; boundary="----=_NextPart_001_000F_01C37BA7.95BF1A30" ------=_NextPart_001_000F_01C37BA7.95BF1A30 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blanco Hi, I got a pattern that have some things for my office. In that we got = somes ComboBox (7, exactly) that are filled when the document is open. = That ComboBoxes have words that fills somes fields in the document, and = I need re-use that values to use for automatically generate the name of = the document. I was working with codes, but (again) I can't find the optimal solution. = Basically, I need the name of the document formed by: (ComboBox1.Text) + (ComboBox2. Text) + ...... (ComboBox7. Text) I find the way that the document format be .doc, and have the solution = for create in VBA a custom folder in the C unit, but the name of the = document is a great problem.=20 Any little help will be a great help for me. Thanks a lot, Omar ------=_NextPart_001_000F_01C37BA7.95BF1A30 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD><TITLE id=3DridTitle>En blanco</TITLE><BASE=20 href=3D"file://C:\Archivos de programa\Archivos comunes\Microsoft = Shared\Stationery\"> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <STYLE>BODY { MARGIN-TOP: 25px; FONT-SIZE: 10pt; MARGIN-LEFT: 25px; COLOR: #000000; = FONT-FAMILY: Arial, Helvetica } P.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } LI.msoNormal { MARGIN-TOP: 0px; FONT-SIZE: 10pt; MARGIN-LEFT: 0px; COLOR: #ffffcc; = FONT-FAMILY: Helvetica, "Times New Roman" } </STYLE> <META content=3D"MSHTML 6.00.2800.1106" name=3DGENERATOR></HEAD> <BODY id=3DridBody bgColor=3D#ffffff=20 background=3Dcid:000901c37bc0$bb0c5230$0100007f@mipcxt400> <DIV> </DIV> Hi, I got a pattern that have some things for my office. In that we got = somes=20 ComboBox (7, exactly) that are filled when the document is open. That = ComboBoxes=20 have words that fills somes fields in the document, and I need re-use = that=20 values to use for automatically generate the name of the = document. I was working with codes, but (again) I can't find the optimal = solution. Basically, I need the name of the document formed by: (ComboBox1.Text) + (ComboBox2. Text) + ...... (ComboBox7. Text) I find the way that the document format be .doc, and have the = solution for=20 create in VBA a custom folder in the C unit, but the name of the = document is a=20 great problem. Any little help will be a great  help for me. Thanks a lot,     Omar  </BODY></HTML> ------=_NextPart_001_000F_01C37BA7.95BF1A30-- ------=_NextPart_000_000E_01C37BA7.95BF1A30 Content-Type: image/gif; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <000901c37bc0$bb0c5230$0100007f@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_000E_01C37BA7.95BF1A30-- Tag: buttons on forms Tag: 38093
 - 25
 - inlineshape - converttoshape Hi, I have some pictures in my worddocument. I would like to scale, give them a position and wrap the text around. How is this possible with a VBA program. Thanks, Marc Tag: buttons on forms Tag: 38092
- Next
 - 1
 - Problem inserting string into Text Form Field I am taking Text Field values from an Outlook Form and inserting them into a Text Form Field in a Word Doc. When I try to insert a Description from the Outlook form into a Text Form field in Word I am getting the error, "Run-time error '4609'; String to long". Properties on the Text form field are max len:unlimited and the Description string is not even close to 32,767. Type is Regular Text. My question is why is this happening? Also, is there a better technique for moving the data to Word and inserting the data in exactly the desired position.? Any help is most appreciated. Tag: buttons on forms Tag: 38084
 - 2
 - Replace Word's Error Message I have 2 dot files that load from the startup path. Both contain macros. One file needs to call a macro from the other file. I have this part working fine. What I want is if the user runs the macro that calls the macro from the other file to have a custom error message that says file x is missing and must be loaded in the startup path. I've tried creating my own message using the "on error goto" statement but it isn't working. Word keeps kicking up its message "compile error in hidden module". Any way to stop this message and show my own so that the user actually knows what to do to correct it? Thanks. Tag: buttons on forms Tag: 38083
 - 3
 - Formula to Determine Number of Checked Check Boxes in Table Column I have been working with a protected form and have been asked to add a table to the form which has 5 columns. The first column is a description of an item and columns B, C, D and E contain check boxes. The last row of the table is supposed to give the total number of "true" check boxes for each column. Frankly, I don't have a clue if this is possible. Any and all assistance would be appreciated. Sjane Tag: buttons on forms Tag: 38082
 - 4
 - Inserting blank lines into a Range Hi, This is a continuation of a prior message which I accidently hit a hot key and sent...sorry I'm currently writing code in Access97 to format a Word document. I have a range(currently the entire document) and am trying to replace and format this document based on values in a source doument. Within this range, I'm trying to move to the end of some text I've just inserted within a range, and and insert a blank line. When I record the macro in Word it looks like this: Selection.EndKey Unit:=wdLine Selection.TypeParagraph Selection.TypeParagraph I'm just not clear on how to accomplish this from Access, having a Word object open. Should I use a range object? When I try to insert a blank line, the text I just pasted gets overwritten.... Any ideas? Thanks!! Tag: buttons on forms Tag: 38080
 - 5
 - Inserting blank lines into a Range Hi, I'm currently writing code in Access97 to format a Word document. I have a range(currently the entire document) and am trying to replace and format this document based on values in a source doument. Within this range, I'm trying to move to the end of some text I've just inserted within a range, and and insert a blank line. When I record the macro in Word it looks like this: Selection.EndKey Unit:=wdLine Selection.TypeParagraph Selection.TypeParagraph Tag: buttons on forms Tag: 38079
 - 6
 - Change Bars Hello Everyone, I've got a document with Change Bars (rev bars) to the right. I'de like to be able to check the whole document and specify which pages have the change bars. Is this possible? Any ideas and suggestions are much appreciated. -MarkA Tag: buttons on forms Tag: 38078
 - 7
 - Open document line acting strange Hello. I am running a mail merge from Access 97 into Word 97, and using the following code in Access to open my mail merge document. Some computers here are on Windows 2000, while others are on Windows NT. The code works fine on the NT computers, while on the 2000 computers it doesn't assign the document to WordDoc. Here's the code: Set WordDoc = WordApp.Documents.Open(strDocName) Could anyone explain this? Thanks in advance, Jen Tag: buttons on forms Tag: 38077
 - 8
 - Problem VB/VBA Hello, I make a fusion of personal fields into Word, with a vb project. This code make my search and replace : Public Sub Remplacer_texte(Texte_à_remplacer As Variant, Texte_de_remplacement As Variant) With myWordApplication // instancié à l'init de la classe .Selection.Find.ClearFormatting .Selection.Find.Replacement.ClearFormatting With .Selection.Find .Text = Texte_à_remplacer .Replacement.Text = Texte_de_remplacement .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With .Selection.Find.Execute Replace:=wdReplaceAll End With End Sub It's works great ! But if there is a text area, the text into it is not replaced. The strange thing, is when i do that directly with Word, Word replace the texte into text areas too. I maked a macro to see how Word do that, and the code is exactly the same with my !!! If somebody can help me ? tks Carl Tag: buttons on forms Tag: 38076
 - 9
 - Controlling Excel from Word 2002 I have been working on this for weeks. I am trying to import a .WRI file into word, modify it, put it into columns, enter it into an excel file and save it to .DBF. I have everything but the parsing of the text in excel. I keep getting an error. I modified the code found in here, but it crashes at the "TEXTTOCOLUMNS" line. This is the code: Dim i As Integer Set xlApp = CreateObject("Excel.Application") xlApp.Visible = True Set xlWB = xlApp.Workbooks.Add xlWB.Activate xlWB.ActiveSheet.Range("A1").Select xlWB.ActiveSheet.Paste 'xlWB.ActiveSheet.Range("A1").Select 'xlSht.Select "A1" xlApp.Selection.TextToColumns Destination:=Range("A1").Select, DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(22, 1), Array(32, 1), Array(44, 1), Array(55, 1), _ Array(61, 1), Array(69, 1), Array(78, 1)), TrailingMinusNumbers:=True Columns("A:A").EntireColumn.AutoFit Columns("A:A").ColumnWidth = 26.14 Columns("B:B").ColumnWidth = 9.57 Columns("C:C").EntireColumn.AutoFit Columns("C:C").ColumnWidth = 11.71 Columns("D:D").EntireColumn.AutoFit Columns("D:D").ColumnWidth = 11.14 Columns("H:H").EntireColumn.AutoFit Thanks for any help ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~ View and post usenet messages directly from http://www.ExcelForum.com/ Tag: buttons on forms Tag: 38073
 - 10
 - Strange field action in protected document We have developed a protected 'form' document that contains what is basically a description of changes to a test web site that need to be reviewed. The document is structured with indentation and font styles to highlight information. The original document, as prepared by the web site team, contains embedded HYPERLINK fields to provide direct access to the test site. In order to tuen this into a form, we replace a special character sequence into a drop-down with an edit fiedd to permit the user to indicate whether the change is approved or rejected and, if rejected, to explain the reasons. The HYPERLINKS are embedded within a MacroButton field to permit them to be invoked from within the protected form. An example is shown below. { MacroButton "FollowLink"{ HYPERLINK http://a.b.c.d/TestSite/Page.html } } Of course, the file also contains a macro named FollowLink that contains the code Selection.Hyperlinks(1).Follow Normally, this type of field is the first thing on a line of a list with special bullet characters and there is text after the field. In most cases these fields work just fine, simply requiring that the user double-click on the field to cause the specified web page to be displayed in a browser. In one case, however, simply clicking once causes the page to move so that the selected field is in the top 1/3 of the page. Once it is there, double-clicking will then work. As long as that field is in the top 1/3 of the page, this behavior is not exhibited. There are also some of these fields at the end of the document that cause the docuemnt to scroll to a location near the top of the document (I believe that the first drop-down field is being selected) when they are clicked. Since the document is several pages long, this makes it impossible to double-click on these fields. The only thing different about these fields that I can see is that there is no text after them; but even if I add some text they behave the same way. All of the other fields so defined behave as expected. They do not reposition the visible portion of the document and a double-click functions properly. Does anyone have any idea why this may be happening and what I can do to stop it? -Ken Tag: buttons on forms Tag: 38071
 - 11
 - Application Error when running Macro on Workbook open I have a multipage form that I'd like to open when a workbook is opened. It reads values from various defined Names of the workbook to populate the form fields. The user can then change the values and on pressing 'OK' button the values should be validated and if appropriate re-copied back into the cells referenced by the Names. This works fine when I display the form from the already opened workbook, but the process fails with Error 1004 ("Application-defined or object-defined error") when the form is called from the Workbook_Open() procedure. The procedure crashes on the following line: ActiveWorkbook.Names(arrControlNames(intCurrentControl, 2)).RefersToRange.Value = _ Controls(arrControlNames(intCurrentControl, 1)).Value Where arrControlNames is an array to store details of text controls and associated name such that arrControlNames(x,1) is the ControlName and arrControlNames(x,2) is the associated RangeName Full code extract is below. Can anyone shed any light on this? Thanks in advance TM ================== Private Sub Workbook_Open() Load frmProjectProperties frmProjectProperties.Show End Sub Private Sub cmdOK_Click() 'First, validate all values - if invalid then exit sub '... {Validation Code} '... 'If we reach this point then all values have tested valid 'Update values to worksheet and close form For intCurrentControl = LBound(arrControlNames, 1) To UBound(arrControlNames, 1) If arrControlNames(intCurrentControl, 1) <> "" Then ActiveWorkbook.Names(arrControlNames (intCurrentControl, 2)).RefersToRange.Value = _ Controls(arrControlNames (intCurrentControl, 1)).Value End If Next Unload frmProjectProperties End Sub Tag: buttons on forms Tag: 38069
 - 12
 - Macro Help I got this problem. I want to make macro which will copy some sentences from specified areas (for 1 sentence from each area) from Document1 to specified sentences areas (1 sentence to each area) in Document2. I know it is hard but I need help or some hints if possible. You can also answer on my e-mail. Thank you. Sasa Batovanja Tag: buttons on forms Tag: 38064
 - 13
 - Urgent help need for line break macro plssssssss Hi everybody, I just thought somebody can help me to create a macro with following functions. I have some text document each has two potions -HEAD- . . . -BODY- ---------SAMPLE---------- -DATE- 20030601 -ISSU- June 2003 -PAGE- 96 -SECT- jhhkhrthehrkht -HEAD- Every job i ever had, people always seemed to want to think small,"**(70 charachter limits) says Geoffrey Ballard by way of explaining why he went into -BYLN- fgdfhggdfjg -TYPE- *** -SUBJ- efforts to promote vehicles powered by zero-emission hydrogen-*** based fuel cells have earned him such accolades -NAME- *** -BODY- I said this years ago and I see no reason to change my mind: The family-owned, garaged vehicle is the last vehicle that's going to get a fuel cell. Fuel cells are still 30 times the cost of what they need to be for the automotive market. We will need to have huge experimental fleets, where we will put hundreds of people in controlled environments and see what they do with these vehicles. Are people going to be buying them and taking them apart to see ho they work? What sort of problems are we going to create? I doubt that I will ever see a hydrogen car for personal consumption in a showroom. But I am certainly going to struggle to stay alive long enough to see the fleets change--army vehicles, taxis, trucks and ----------------------SAMPLE END----------- * in the head part there will text and it should not exceed 70 characters per line. if its gos to more than 70 characters, macro has to put enter or para break. but it should not break from the middle of a word. * in the body part, also same rule but charachter limits is 73. Please help me some Thejan Tag: buttons on forms Tag: 38062
 - 14
 - Saving .txt l am having a problem getting the system to save the .txt file in the local share. l have tried to change the lines : Order = System.PrivateProfileString ("C:\Settings.txt","MacroSetting", "Order") and System.PrivateProfileString ("C:\Settings.txt","MacroSetting", "Order") = Order To Order = System.PrivateProfileString ("S:\Company_Templates\Purchase_Orders.txt","MacroSetting", "Order") and System.PrivateProfileString ("S:\Company_Templates\Purchase_Orders.txt","MacroSetting", "Order") = Order The system does not like this so now l'm lost. Is anybody able to put me on the right track as to how to fix this. Regards Tony Goldring Tag: buttons on forms Tag: 38056
 - 15
 - Font change not recorded in Word 2002 I am just beginning to relearn VBA. The book that I am using suggests recording a macro that changes selected text to Aril, 12 point bold. When I record the macro with Word 2002, it has not picked up the fontname change from the font list, nor the point size change from the drop-down list. It just picks up the toggling of the bold button. Is this a bug or am I doing something wrong? Tag: buttons on forms Tag: 38052
 - 16
 - Following the shortcut How can I follow a shortcut from within VBA. I guees I will need to use a Windows API call but I don't know which. I want to list all documents in a folder (using Dir function) and if one of the folders is actually a shortcut, I will need to go to the destination of this shortcut and list the documents here. If I rightclick on the shortcut and choose properties, I can see the destination, but how can I access this information from VBA? Tag: buttons on forms Tag: 38051
 - 17
 - Can't close footer In Word 2002 I have a macrobutton in the footer of the document that is intended to delete the paragraph containing the macro button, return to the main document, and then run another macro. Below is the entire code. When I "step" through it, the footer closes as expected, but when I double-click it, the paragraph with the macro button is deleted as desired, but the cursor stays in the footer. What can I do to make the footer close? With Selection .MoveRight Unit:=wdCharacter, Count:=1 .Expand Unit:=wdParagraph .Delete End With ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Application.Run MacroName:="Find_Next_Caret" TIA, Vivian Tag: buttons on forms Tag: 38049
 - 18
 - Can I evaluate strings during a merge? If I want to do advanced text processing during a merge, like extracting a first initial from the First_Name field or looking for a word in a larger merge field in order to determine what text appears in a final merge document, how can I do this? Possible approaches: Is there a way to include a Field code that automatically runs some VBA code I wrote, so that it is executed and evaluates each record as it is merged, looking at the first character or searching for a word within the text (like Instr in VBA)? Is there a way to just embed those more advanced text commands directly into the Merge main document (the form)? I'm coming at this from WordPerfect where such things were trivial - you could embed any command into the Form document and it would be executed during the merge. The equivalent in Word would be being able to enter VBA commands as Field codes so they are carried out during the merge. As far as I can tell, this is impossible. The next best thing, I think, would be to be able to launch VBA code and pass it parameters during the merge. I cannot figure out how to do this. Maybe I'm looking at the problem all wrong, because I am still thinking like a WordPerfect user. Is there a whole other approach I need to take? Maybe I need to think of the VBA running the merge, instead of the merge calling my VBA code? If so, how would I do that and how would I specify where to do the string processing I need? If you need more information from me to be able to answer my questions, please let me know. Thanks, Colin Tag: buttons on forms Tag: 38040
 - 19
 - Extraction Hello, I was reading a reply Cindy Meister provided a while back to another question. In her reply she said that you could write a macro to extract the first letter of a word in a list and create a new list. Can this be extended to say the third and fourth character or the information between slashes. For example if I had a table with First Name, Last Name and Date, Greg Maxey 9/14/03 How would one go about creating a macro to extract "G" and create an new column Initial that contains "G" and extract "14" and create a new column Day that contains "14." Thank you. -- \\\\/////////// ( @ @ ) ----oo00---(_)---00oo---- Greg Maxey A peer in "peer to peer" support Rockledge, FL Tag: buttons on forms Tag: 38039
 - 20
 - Send as attachment I have a VBA button and need to insert a code in it that when the user clicks, it will send the document as an attachment to Todd.Huttenstine@VerizonWireless.com and will make the subject of the email say "Order Form". Thanks in advance Todd Huttenstine Tag: buttons on forms Tag: 38038
 - 21
 - out of memory problem in code documentor I've been developing a code documentor in Word 97 for some time & finally figured out how to add line numbers to the lines of code exported to a Word document. The line numbering code is run twice because a key word index & a TOC change the line numbers after they have been added. Running a second time corrects the problem, but it only gets half way thru before it runs out of memory. The temporary files left in the Temp folder are huge - the code is VERY long. Is there a more efficient way of doing some of the code to release enough memory for it to finish? I would package the bas files etc or the whole template in a zip if anyone would be kind enough to help & give a few tips on where I could make improvements. Many thanks in advance, Terry Hornsby Tag: buttons on forms Tag: 38036
 - 22
 - Compare Documents problem Word 2000 I have a problem with the Compare Document function of Word 2000 and I was wondering if any one might have a solution or a work around. It involves comparing documents that contain tables. Whenever there is a minor change in a table the result is that the whole row is shown with a strikethrough and a new row below all shown highlighted. This both disguises the changed portion of text (in many cases very minor) and overstates the amount of change. Is there anyway of changing this? Or upgrade the compare document feature of Word 2000 to Word 2002? I realize that Word 2002 and Word XP has solved this problem, however, I am currently working with Word 2000 at work and I don't think the company will be upgrading to Word 2000 or XP any time soon. I use the Compare Document feature of Word 2000 through Microsoft Excel and I was wondering if there are any Visual Basic classes that might mimic what Compare Document does, in which case I can add it to the code of my Excel project. Thank you Garry Tag: buttons on forms Tag: 38034
 - 23
 - Compare Documents problem Word 2000 I have a problem with the Compare Document function of Word 2000 and I was wondering if any one might have a solution or a work around. It involves comparing documents that contain tables. Whenever there is a minor change in a table the result is that the whole row is shown with a strikethrough and a new row below all shown highlighted. This both disguises the changed portion of text (in many cases very minor) and overstates the amount of change. Is there anyway of changing this? Or upgrade the compare document feature of Word 2000 to Word 2002? I realize that Word 2002 and Word XP has solved this problem, however, I am currently working with Word 2000 at work and I don't think the company will be upgrading to Word 2000 or XP any time soon. I use the Compare Document feature of Word 2000 through Microsoft Excel and I was wondering if there are any Visual Basic classes that might mimic what Compare Document does, in which case I can add it to the code of my Excel project. Thank you Garry Tag: buttons on forms Tag: 38033
 - 24
 - ActivePrinter Does anyone else have trouble with a time delay to process a line of code that sets the ActivePrinter property? eg. ActivePrinter = "Brother Series 1240" If so is there a work around? Simon Hayden Tag: buttons on forms Tag: 38032
 - 25
 - Controlling Distiller from VBA Are there an example on how to write out Word documents with Distiller? I wrote up some code to do this and it works if I single step through the code. I do not block on distiller execution so running it in normal mode causes file contention problems. I added sleep commands but this does not work consistently. I need to use Distiller and not PDFWriter since I need to have password security. Regards, Bill Bell Tag: buttons on forms Tag: 38027

Macrobuttons seem tricky to trigger - double click can be
too slow. Is it possible to 'hold the focus' unless the
user clicks elsewhere of course?

Command buttons look good and should be easy for the user -
they work on the template. They work from a 'new
document' using the template but if I save a 'blank form'
document on the desktop the command button won't work?????
Why not?

Creating a button on the toolbar is another option - but
is it possible to have an image only button?

Thanks, Laurie

Top

RE: buttons on forms by haroldk

haroldk
Thu Sep 18 12:50:54 CDT 2003

Hi Laurie,
Based on what you've stated I'm not certain why the code doesn't fire. I
tested in a new template and the button works fine in a new document based
on the template.

Yes it is possible to configure a button on the toolbar to display only a
picture.
1. Click on View -> Toolbar -> Customize.
2. Right click on your button and choose Change Button Image to select an
image or Edit image to either edit an image or make your own.

Harold Kless, MCSD
Support Professional
Microsoft Technical Support for Business Applications
haroldk@microsoft.com

--

This posting is provided "AS IS" with no warranties, and confers no rights.
Use of included script samples are subject to the terms specified at
http://www.microsoft.com/info/cpyright.htm

Note: For the benefit of the community-at-large, all responses to this
message are best directed to the newsgroup/thread from which they
originated.

Top

RE: buttons on forms by Laurie

Laurie
Fri Sep 19 15:36:23 CDT 2003

Thanks Harold - I think my problem relates specifically to
Win98

The button works fine with a document based on my template
but when saved to the desktop (to make available for easy
repetitive use) fails to be able to use the button...

>-----Original Message-----
>Hi Laurie,
>Based on what you've stated I'm not certain why the code
doesn't fire. I
>tested in a new template and the button works fine in a
new document based
>on the template.
>
>Harold Kless, MCSD
>Support Professional
>Microsoft Technical Support for Business Applications
>haroldk@microsoft.com

Top