Error 1004?

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Sorry for the cross-post but.. I posted this to the Word97 VBA group but haven't seen any response so with apologies I find myself forced to repeat this post. I have an application that prints a letter and envelope using bookmarks and taking the data from a VB data entry form. What's really odd is that the system works fine on an HP 4000 which is the printer we use at the main office but when I adapted the program for some other locations and sent it there the envelope prints with the address at the very top, even losing the first line and the return address prints lower than the main address but still much higher than it ought to be located. The location uses an HP IIID. When I tested on an HPIII that we have here the same problem appears. The really odd part is that it doesn't happen if the envelope is printed from Word instead of from my program. Does anyone have any ideas? The one article that came close to describing my problem didn't seem to help. I went back in and specified that it was an envelope, that it's size is a size 10 and the AddressFromTop, AddressFromLeft and return address settings, but that made almost no difference. Now in fact it's even weirder because the main address dropped down one line but the return address is printing just below the main address. Tag: Error 1004? Tag: 38200
 - 2
 - AttachedTemplate Hi, When ActiveDocument.AttachedTemplate.Path is wrong in a document, Word seems to use Normal.dot as an AttachedTemplate. How can I find out which file is the actual ActiveDocument.AttachedTemplate? This occurs when a file is based on a template that does not exist on a user's computer. / Ulf Tag: Error 1004? Tag: 38196
 - 3
 - Application Events Hi, I'm trying to implement application event procedures. I've inserted a class module etc like decribed on the www.mvps.org/word/faqs/MacrosVBA/appClassEvenstContent.htm website. It works fine until I end a macro by the "End" statement. Why ? I added a watch for my oAppClass object It exist until I run the "End" statement, then its reporting "object variable or with block variablel not set" I work with Word Xp on a Win Xp prof. station. Any suggestions ? Thanks Bart Hernalsteen Tag: Error 1004? Tag: 38190
 - 4
 - Delete bug? We are using word 97 on a windows 2000 platform. In the file open dialog box it is possible to delete directories without any "security question" - Do you relly want to..... We have accidentally deleted two to three directories in this way. Does anyone know about this problem. Is there a choice in the setup system to disable this or do anyone know about a fix (VBA or other) to disable it? Tag: Error 1004? Tag: 38187
 - 5
 - Disappearing bookmarks Hi anyone, I'm looking for a straightforward way if setting values in bookmarks without them disappearing. (Users of my work will then not be able to utilize the bookmarks that I've populated) This worked with DDE, but I want to use OLE. This is how I do it. ActiveDocument.Bookmarks("strBookMarkName").Range = strBookmarkValue This causes the bookmark to disappear in faluor of the value but I want them both. Tag: Error 1004? Tag: 38180
 - 6
 - Adding new style 2 macro I have problem with creating new style into my macro. When I try it, Word told me that requested member of collection does not exist. Please tell me where is mistake. Here is my code: Dim NewStyle As Style Set NewStyle = ActiveDocument.Styles("Normal + Courier _ New, 18 pt, Bold, Custom Color(RGB(0,51,255))") For Each NewStyle In ActiveDocument.Styles . . . . Next Thank you. Sasa Tag: Error 1004? Tag: 38179
 - 7
 - Template can not modfiy Hi All, I have created a Document template with 2 bookmarks and save it. the template also have a form and autorun macro. now I need to put an ENTER MARK between the bookmarks. so did and save the file into a new template name. but the new template doses not run my forms or any autonew macros. how do I modify my template without loosing my macros and forms. THEJAN Tag: Error 1004? Tag: 38177
 - 8
 - Printer tray selection...again.... Hi All, I tried to make a macro to select a printer tray on our MFD konica copier/printer at work which has 4 trays. I recorded: Sub Macro2() ' ' Macro2 Macro ' Macro recorded 17 September 2003 by AGG530 ' Selection.TypeText Text:="TEST BOTTOM TRAY'" Selection.TypeParagraph Selection.TypeBackspace Selection.TypeBackspace Selection.TypeParagraph Selection.TypeParagraph With Options .UpdateFieldsAtPrint = False .UpdateLinksAtPrint = False .DefaultTray = "Tray 4" .PrintBackground = False .PrintProperties = False .PrintFieldCodes = False .PrintComments = False .PrintHiddenText = False .PrintDrawingObjects = True .PrintDraft = False .PrintReverse = False .MapPaperSize = True End With With ActiveDocument .PrintPostScriptOverText = False .PrintFormsData = False End With Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ Collate:=True, Background:=False, PrintToFile:=False End Sub This code works and I have run it a few times, it correctly prints from tray 4. I inserted the code into my project and it does'nt work in my project. I copied everything using the clipboard except the sub and end sub. I did msgbox options.defaulttray gives "tray 4" So what am I doing wrong? Cheers - AL Tag: Error 1004? Tag: 38176
 - 9
 - advance word field codes When i insert the field code "advance" nothing happens what is this field code for and what dos it do? Tag: Error 1004? Tag: 38174
 - 10
 - Cell contents swapping Hi All We have a macro that allows the user to swap the text in two adjacent cells in a table ... works great. Now we are looking to use formfields rather than plain text, we have tried to ammend the macro to swap the formfield but get an error, any suggestions on swappings formfields, or even better, the entire contents of a cell whether it be formfield or text or img ? Thanks for any input Tim Tag: Error 1004? Tag: 38172
 - 11
 - Status of word document / WordMail, Outlook 2000 Hello, I'm trying to automate Outlook by writing an Office Addin. Things work pretty well until I test the case where the user is using Word as their email editor. In this case, certain events and objects are not available. (See MS KB 218298). The biggest problem I'm facing is when using Outlook 2000. As noted in the MS KB, the NewInspector event does not fire when Word is used as the editor under Outlook 2000. I decided to make the Addin work with Word as well as Outlook. I'm trying to setup my behaviour at the equivalent time of when the NewInspector event fires. I registered for *all* the event in the Word Application object. The Word events that got called when the user clicks the New Mail Message button are: - WindowActivate - WindowSelectionChange - WindowSize - DocumentChange Of course these events are called at various times other than when the New Mail Message button is clicked. I can filter out the times when Word is not acting as WordMail (thanks to MS KB 237338) but I'm having trouble determining when any of these events are occuring because a New Mail Message window is opening. I thought if I could query the status of something in the Word document (or some Word property), I could insert my desired addin behaviour only when needed. Does anyone have any suggestions on how to handle Outlook 2000 when using WinWord as the email editor? Thanks! Tag: Error 1004? Tag: 38170
 - 12
 - Select and copy from a attached template Hi I have a template with refernce to another template which contains different sections. I want to select one of teh secions, copy and paste it in to the document based on the first template. I attache the second template with " Set vbProj = ActiveDocument.VBProject vbProj.References.AddFromFile "C:\Mallar\Samlingsmall.dot"" in an autonewmacro. I guess I need to start with something like this: For x = 1 To Word.Templates.Count If Templates(x).Name = "samlingsmall.dot" Then num = x Exit For End If Next x and then templates(num).????? (the code to select the section) but I cant find out the code. Does anyone know how I can do that? Regards Camilla Tag: Error 1004? Tag: 38168
 - 13
 - buttons on forms 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 Tag: Error 1004? Tag: 38167
 - 14
 - 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: Error 1004? Tag: 38160
 - 15
 - 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: Error 1004? Tag: 38156
 - 16
 - 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: Error 1004? Tag: 38154
 - 17
 - 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: Error 1004? Tag: 38153
 - 18
 - 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: Error 1004? Tag: 38149
 - 19
 - 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: Error 1004? Tag: 38147
 - 20
 - 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: Error 1004? Tag: 38144
 - 21
 - 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: Error 1004? Tag: 38143
 - 22
 - 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: Error 1004? Tag: 38142
 - 23
 - 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: Error 1004? Tag: 38136
 - 24
 - 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: Error 1004? Tag: 38134
 - 25
 - 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: Error 1004? Tag: 38133
- Next
 - 1
 - 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: Error 1004? Tag: 38132
 - 2
 - 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: Error 1004? Tag: 38130
 - 3
 - 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: Error 1004? Tag: 38123
 - 4
 - 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: Error 1004? Tag: 38121
 - 5
 - 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: Error 1004? Tag: 38120
 - 6
 - 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: Error 1004? Tag: 38117
 - 7
 - 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: Error 1004? Tag: 38115
 - 8
 - 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: Error 1004? Tag: 38113
 - 9
 - 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: Error 1004? Tag: 38111
 - 10
 - 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: Error 1004? Tag: 38096
 - 11
 - 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: Error 1004? Tag: 38094
 - 12
 - 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: Error 1004? Tag: 38093
 - 13
 - 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: Error 1004? Tag: 38092
 - 14
 - 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: Error 1004? Tag: 38084
 - 15
 - 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: Error 1004? Tag: 38083
 - 16
 - 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: Error 1004? Tag: 38082
 - 17
 - 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: Error 1004? Tag: 38080
 - 18
 - 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: Error 1004? Tag: 38079
 - 19
 - 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: Error 1004? Tag: 38078
 - 20
 - 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: Error 1004? Tag: 38077
 - 21
 - 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: Error 1004? Tag: 38076
 - 22
 - 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: Error 1004? Tag: 38073
 - 23
 - 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: Error 1004? Tag: 38071
 - 24
 - 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: Error 1004? Tag: 38069
 - 25
 - 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: Error 1004? Tag: 38064

This line of code :

Worksheets("Questions").Range("B2").Value = Worksheets
("Data").Range("B" + Ion1).Value

In Visual Basic in an Excel workbook is throwing up:

Run-time error '1004'
Application-defined or object-defined error

Why?

Top

Re: Error 1004? by Jonathan

Jonathan
Wed Sep 17 11:42:52 CDT 2003

Hi Thomas,

This group deals with VBA in Word. The experts on Excel VBA programming can
be found at microsoft.public.excel.programming. You will be more likely to
get an informed answer if you re-post your question there.

--
Regards
Jonathan West - Word MVP
MultiLinker - Automated generation of hyperlinks in Word
Conversion to PDF & HTML
http://www.multilinker.com

"Thomas Wotten" <chiralutd@yaho.co.uk> wrote in message
news:00bf01c37d2c$07829fe0$a101280a@phx.gbl...
> This line of code :
>
> Worksheets("Questions").Range("B2").Value = Worksheets
> ("Data").Range("B" + Ion1).Value
>
> In Visual Basic in an Excel workbook is throwing up:
>
> Run-time error '1004'
> Application-defined or object-defined error
>
> Why?

Top