Macro Help

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Macro Help Tag: 38062
  - 2
    - 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: Macro Help Tag: 38056
  - 3
    - 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: Macro Help Tag: 38052
  - 4
    - 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: Macro Help Tag: 38051
  - 5
    - 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: Macro Help Tag: 38049
  - 6
    - 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: Macro Help Tag: 38040
  - 7
    - 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: Macro Help Tag: 38039
  - 8
    - 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: Macro Help Tag: 38038
  - 9
    - 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: Macro Help Tag: 38036
  - 10
    - 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: Macro Help Tag: 38034
  - 11
    - 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: Macro Help Tag: 38033
  - 12
    - 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: Macro Help Tag: 38032
  - 13
    - 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: Macro Help Tag: 38027
  - 14
    - InsertAfter - What am I missing? I am using insertafter to add two lines of text that are used by my fax server as embedded codes for determining destination name and fax number. The following is an example... <TONAME:ME> <TOFAXNUM:15555555555> The text must be formated in a native printer font such as courier. When I look at the document it looks great but the fax application does not recognize the embedded codes. If I retype the same text manually it works fine. What am I missing? Thanks for taking a look. I am greatly appreciative for any hints you may be able to provide. Thanks, Howard Tag: Macro Help Tag: 38026
  - 15
    - Execute a macro on file open I want to execute a macro when a file opens. Any help is appreciated. Thanks Paul Tag: Macro Help Tag: 38018
  - 16
    - External commands for Word? Hi All...... Background: I have an Excel Add-in that will create a textScript of AutoCAD commands and store it in a file. Then, I have an AutoCAD menu which allows me to seize that Scriptfile and have it to start feeding AutoCAD it's commands and AutoCAD responds, specifically by opening AutoCAD files and printing them out........... Problem: I would like to know if it's possible to get Word to find a similar Script file and use it to execute the list of commands therein to open and print a list of Word documents. Of course, the contents of the new Scriptfile would be modified to be Word commands rather than AutoCAD ones, and the list would vary each time. Any ideas would be appreciated..... Vaya con Dios, Chuck, CABGx3 Tag: Macro Help Tag: 38017
  - 17
    - Document Name Comparition This is a multi-part message in MIME format. ------=_NextPart_000_0025_01C37959.D7070E80 Content-Type: multipart/alternative; boundary="----=_NextPart_001_0026_01C37959.D7070E80" ------=_NextPart_001_0026_01C37959.D7070E80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blancoHi, I need a code that tell me the name of the document (generally = Document1, Document2), get that name and compare with "Plantilla = 2003+". If the name of the document is equal than "Plantilla 2003+" = application will finish, if not you continue working. I'll put that code = in Document.New and Document.Open place. I've trying with code but can't find the righ code. Please, any help = will be so much important for me. Regards, Omar ------=_NextPart_001_0026_01C37959.D7070E80 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:002001c37972$fc51d580$0100007f@mipcxt400> <DIV>Hi,</DIV> <DIV> </DIV> <DIV>I need a code that tell me the name of the document (generally = Document1,=20 Document2),  get that name and compare with "Plantilla 2003+". If = the name=20 of the document is equal than "Plantilla 2003+" application will finish, = if not=20 you continue working. I'll put that code in Document.New and = Document.Open=20 place.</DIV> <DIV> </DIV> <DIV>I've trying with code but can't find the righ code. Please, any = help will=20 be so much important for me.</DIV> <DIV> </DIV> <DIV>Regards,</DIV> <DIV> </DIV> <DIV> </DIV> <DIV>Omar</DIV> <DIV> </DIV> <DIV> </DIV> <P> </P></BODY></HTML> ------=_NextPart_001_0026_01C37959.D7070E80-- ------=_NextPart_000_0025_01C37959.D7070E80 Content-Type: image/gif; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <002001c37972$fc51d580$0100007f@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_0025_01C37959.D7070E80-- Tag: Macro Help Tag: 38016
  - 18
    - Macro to pull information out of an email Hi, I am not a programmer so any help in this request would be much appreciated. I am trying to create a macro within a word document that would allow me to paste the subject line of an email that I could select out of outlook. If that is easy enough to do, then the next step would be to save the word document and attach it to the email that I selected for the subject line. Again, any help would be appreciated. Thanks, Shaun Tag: Macro Help Tag: 38009
  - 19
    - Automation Looking for a method to have a document when you open it mail merge itself, print and then close itself. Any pointer in the right direction would be great. Tag: Macro Help Tag: 38008
  - 20
    - AutoFormat Problems I checked my AutoFormat options under AutoCorrect under the tools menu and it is turned on to turn 3 hyphens into a border. But when I do that on Word it won't work. Why? Can anyone help me? I also tried three =s and then enter for a double line and that didn't work either. Thanks Kay Tag: Macro Help Tag: 38007
  - 21
    - Inserting WordArt In Headers I am trying to programmatically insert a WordArt object into all the headers in all the sections of a document. I am using the following code: For Each mySection In ActiveDocument.Sections If ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter Then Set FirstPageWatermark = mySection.Headers (wdHeaderFooterFirstPage).Shapes.AddTextEffect (msoTextEffect2, "test", "Arial Black", 36, msoFalse, msoFalse, 0, 0, mySection.Headers (wdHeaderFooterFirstPage).Range) End If Set PrimaryWatermark = mySection.Headers (wdHeaderFooterPrimary).Shapes.AddTextEffect (msoTextEffect2, "test", "Arial Black", 36, msoFalse, msoFalse, 0, 0, mySection.Headers (wdHeaderFooterPrimary).Range) Next In a document set to use a different first page, the result I get is that there are two WordArt objects on the first page and none on the subsequent pages. I suspected it was down to the Anchor property of the shape, but I have messed about with various settings to no avail. I know it can be done using SeekView and moving around the document, but that does not seem very elegant to me - especially when you have to put the document in print layout first and then put it back to whatever the user had originally, etc. Anyone got any better ideas? Tag: Macro Help Tag: 38005
  - 22
    - Deleting Automatic Macro When I installed Office XP - somehow it decided to install a macro for EZ Photo on my standard toolbar in Word. Unfortunately, I don't have the EZPhoto installed on my computer - so I don't know why this came up. Also, each time I open Word, a new EZPhoto button appears on the toolbar. If I haven't removed the button from the tool bar from the last time that I opened Word, it adds another one. So, I keep having to remove the button. How do I get it to stop running this macro? It shows up as "LaunchEasyPhoto.MAIN" in the macro list. I have tried the delete macro steps in the Tools menu, but it won't let me delete the Project Template for EZ Photo. Thanks. Tag: Macro Help Tag: 38004
  - 23
    - WORD MACRO I am having lots of problems with what should be a simple macro. I am creating a form in word. What I want to happen is that when the user selects a certain option from the dropdown, it will execute another macro. however my code doesnt seem to do that at all. here is my code Sub dropdown() ' ' dropdown Macro ' Macro created 9/12/2003 by matt ' If dropdown1.Value = "Not Accepted" Then comment End If End Sub Sub comment() ' ' comment Macro ' Macro recorded 9/12/2003 by matt ' Selection.comments.Add Range:=Selection.Range End Sub Can anyone help me so this executes when the dorp down item is selected Tag: Macro Help Tag: 38002
  - 24
    - Bookmarks in VBA? Hi Folks, How can I loop through the number of bookmarks in a document assigning the name to a VAR and output it to a file? It's mainly the parsing of the bookmark name from the bookmark property I need as I can do teh rest from there. I can loop through the file holding the names of the bookmark and add them to a doc but I can't seem to retrieve them! Cheers J p.s. here's what I tried If ActiveDocument.Bookmarks.Count > 1 Then BKMCount = ActiveDocument.Bookmarks.Count ReDim aMarks(BKMCount) i = 0 For i = 0 To BKMCount Step 1 aMarks = ActiveDocument.Bookmarks.Item(i) Next i filename = "C:\test2.txt" filenumber = FreeFile Open filename For Input As #filenumber On Err GoTo Closefile Do While Not (EOF(filenumber)) Input #filenumber, aMarks(i) i = i + 1 Loop Closefile: Close #filenumber Tag: Macro Help Tag: 38001
  - 25
    - Disable word asking notes I got this problem. When I use macro for formating tables in long document, Word (after few formated tables) keep asking if I realy want to do this, because it has an insufficient memory and tells me that there will be no possibility to undo this action. I want to disable this asking note, because i wont use undo action. Thank you for helping me out. Batovanja Sasa Tag: Macro Help Tag: 37994
- Next
  - 1
    - Cleaning up and more instances of WORD I have a VB6 program looping through DOC-files in a folder making some statistics on the DOC-files in a Excel-sheet. When the program is runing I can NOT use WORD for other purposes because the DOC-files then open in this instans of Word - sample snip: Set WrdDoc = WrdApp.Documents.Open(App.Path & "\" & FileN) ', , , , , , , , , , , False) . . . gathering some statistics til an Excel-sheet . WrdDoc.Close False Set WrdDoc = Nothing IF I use the parameter Visible=False (commented out here!) I can NOT use the "WrdDoc.Close False" If I comments out the "WrdDoc.Close False" I get ALL tilde- workfiles visible (and it's 10.000'd of files !) How can I clean up nicely by closing each opened document AND use Word for other purposes WITHOUT opening the documents in this extra instance of Word ? KS, Denmark Tag: Macro Help Tag: 37993
  - 2
    - Parameterized Macro and Open in Browser Hello, I'm trying to take a word document and write a paramterized macro that can be called from client-side javascript to (ideally) open the word document in the browser while supplying the parameter. I almost had it working outside of the browser, except everytime I try to add a parameter to the Macro (in NewMacros) word doesn't recognize it. If I take it out of NewMacros and place it somewhere like ThisDocument's code, I can't seem to be able to run the code to test it. Can anyone provide some guidance??? Thanks, - Nick Coppola Tag: Macro Help Tag: 37989
  - 3
    - formatting task bar/ tool bar font I want to make the task bar font larger...i can't see it because the default in the program is 8 pt. font. How do i do this\? Tag: Macro Help Tag: 37988
  - 4
    - Excel Links - File Size Problem I have a Word file which has a large number of links to an Excel spreadsheet. There are about 150 such links. The contents of the Word file are otherwise not very great – about 24 pages of text with a lot of empty space. The size of the file is now 8.3 megabytes, which is much bigger than it should be. I believe the size should be roughly 1 to 1.5 megabytes. In fact the size seemed to suddenly shoot up from 1.2 to 8.3 megabytes after I added the last 4 or 5 Excel links. The large size of the file obviously makes it very time consuming to open and save and generally work on it. Does anybody have any ideas on why the size is so large? Any suggestions about how I can clear out any junk that may be in the file and reduce the size? I tried copying the contents to a new document but that did not make any difference. My thanks to Cindy and Doug of this newsgroup who enabled me to update the Excel file links in this file. Any help with this file size problem would be greatly appreciated. Regards, Partho Tag: Macro Help Tag: 37981
  - 5
    - simple question re: saving binary data file How can I write and read a binary data file from VBA? I want to create a data file for my code to use, and store it on the user's drive, then be able to reaccess it later. I think of it as a simple database, but I'd like it written as binary data that can't be viewed. Any help appreciated. thanks, gary Tag: Macro Help Tag: 37975
  - 6
    - Full Outline Data property? (let me try my post again in proper English :) Can someone tell me the property that reports the full outline level for the current selection? There is the .OutlineLevel property, but that only returns the top level of the Outline. For example, say my current selection is at outline level "2.1.7", the .OutlineLevel property only returns "2". I need the full Outline level data, e.g. "2.1.7". Tag: Macro Help Tag: 37974
  - 7
    - Saving word documents in web site. Hi I am looking for a solution in which a user can open a word document in the Website, make changes to it and save it back to the server. Assuming the user has all permissions to access the website. I am using ASP.Net to do the job. Thanks in advance mahendhar. Tag: Macro Help Tag: 37973
  - 8
    - Macro to replace header logo (graphic) on many documents Hi , Our logo has changed and I'd like to find a way to replace all instances of a header graphic with the new one (emf, wmf, or even jog would be suitable). Does anyone know if this is possible? thanks in advance. Tag: Macro Help Tag: 37970
  - 9
    - Macro for Word 2002 to merge to Winfax Pro 10.02 Can anyone point me to a free source for a Macro for Word 2002 to merge to Winfax Pro 10.02. I had one for Word 97 ( I don't remember where I got it.) I use it for merging single page Fax's from a large Word doc containing usually more than 100 Fax's. Thanks, Dave Tag: Macro Help Tag: 37969
  - 10
    - Need macro to color C keywords in a Word Document In Word 2002, would a macro be the best way to find all instances of 'C' programming language keywords in a Word document and change them to a certain color? The words are if, else, unsigned, short, return, long, for, int, void, etc. I would like all of them to be Blue. They are always all lower case. (If the same words in the document are in upper or mixed case, they should not be changed to Blue.) Also would like to find all comments - that always start with /* and always end with */ - and change them to Green. I am trying to display source code (text files converted to Word documents) with more or less automatic color coding of the keywords and comments similar to how Visual Studio displays them. Having to click a button to color format the document would be fine. Thanks. Tag: Macro Help Tag: 37967
  - 11
    - Property the reports the full outline level? Can someone tell me the property the reports the full outline level for the current selection? There is the .OutlineLevel property, but that only returns the top level of the Outline. For example, say my current selection is at outline level "2.1.7", the .OutlineLevel property only returns "2". I need the full Outline level data, e.g. "2.1.7". Tag: Macro Help Tag: 37966
  - 12
    - Macro to add comments to certain words Hi, I'm trying to write a macro that when run will search through the document for certain words and add specific comments to them. While I've programmed in VB before, I don't know where to start with macros. Can someone give advice, or tell me where to look for answers? Thanks! Tag: Macro Help Tag: 37961
  - 13
    - Is There a Test Document for the VBA security alert. We have just about every kind of mix of Office you can imagine. I would like to scope out the impact of this patch. Mainly because I must find the media for the SP3 to be install before, I apply the patch, which requires the media as well. It would be nice to send a test document/or program (to search the hard drive) around and have users report back to me. 193 nodes and 1 person trying to keep up. Only about 10% are computers, that have come in with OXP-SR1 and are ready to patch. BTW, Does one know how I can work around having the installation media for the patch? It would save me time, if I can get users to apply the patch. Regards, Michael Tag: Macro Help Tag: 37956
  - 14
    - Find/Replace Code Hi......... I would like to be able to write a Macro that selects the first the current parapraph as well as the one above. If either of those two paragraphs are a secion break, I would like to repalce it with nothing. This code seems to be close, but I think the problem lies with wdRepalceAll (although I could be wrong). I just want the code to find/select/replace the two selected paragraphs and not the entire document. As it stand now, it does the entire doc. Can anyone see where I am going wrong? I might want to consider remove the prompt for wdask as well, so the user is never prompted to check the rest of the document. Thanks in Advance, Don Sub Macro1() ' ' Macro1 Macro ' Macro recorded 9/11/2003 by Gibbons, Del Deo ' Selection.EndOf Unit:=wdParagraph, Extend:=wdMove Selection.MoveUp Unit:=wdParagraph, Count:=2, Extend:=wdExtend Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^b" .Replacement.Text = "" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting End Sub Tag: Macro Help Tag: 37955
  - 15
    - System error when trying to insert UserForm into VBA When inserting an userform in VBA in any application that uses VBA, I get a "System Error &H8007007E (-2147024770). The Specific module could not be found." How can I fix this problem? It happens on all three of my computers, hich have windows 2000 or NT, and have ArcGIS software (uses VBA also). Tag: Macro Help Tag: 37953
  - 16
    - Setting URL in Header When printing a Web document the pageSetup (is set to) include the URL on top of each page. I would like to place that URL in the file, however I cannot find out how to select the text. I have a nice routine for the doc´s FullName which is not usefull for any but myself. Can it be done? pre Tag: Macro Help Tag: 37952
  - 17
    - Using HTML to insert formatted text into Word I am writing a VB application that will pull text from a database and merge it with a Word template document. Some of the text in the database needs to be formatted (bold, italics, underlined, etc.). I have the formatting done with HTML (<b></b>, <i></i>, <u></u>, etc.) but I am having a hard time finding a way for Word to render this as formatted text instead of literally. I would think this would be a common task, but I can't seem to find a way to do it. More specifically, I am using a Word 2003 XML template, with embedded XML "elements" that will be used to insert the data from the database. But when I try to set the value of these elements in VB.NET, it just inserts the literal values of the HTML. I also tried "tricking" it by inserting Word's XML version of formatted text, but you can't insert XML markup within another XML element. I'm open for any suggestions that could help me accomplish this. Thanks in advance for any advise you can give me. Jerad Tag: Macro Help Tag: 37951
  - 18
    - Variale Size in a template-generated document This is a multi-part message in MIME format. ------=_NextPart_000_0091_01C3785C.2F3199D0 Content-Type: multipart/alternative; boundary="----=_NextPart_001_0092_01C3785C.2F3199D0" ------=_NextPart_001_0092_01C3785C.2F3199D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable En blancoHi, I made a custom template for my job with a lot of macros. The final size = of the template is about 150 KB. The template is working well and make = the appropiate tasks fine. The template is the basic document for my = office, and the people work in it and send me her work via e-mail, = always. But I noted than many files have the .dot atributes (or = extension) and the size is the same than the original template: when = you run it, you see the final documents with all the macro inside the = document, and too others documents that have the .doc extension, the = size of the file es about 25 kb and no have macros at all. I wonder why it happens and the way for generate always a .doc file = without the macros, all the time. There is a big diference for us = dowloading a lot of big document with macros (without utilitily after = generate the document) and a simple and "light" .doc document without = any macro at all. Then, I need a code or any sugestion that help me to eliminate all the = macros in the document generated with my template. Any helps will apreciate. Thanks in advance and... forgive my english, = please, Omar From Argentina ------=_NextPart_001_0092_01C3785C.2F3199D0 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:008c01c37875$547c87e0$0100007f@mipcxt400> <DIV align=3Djustify>Hi,<BR><BR>I made a custom template for my job with = a lot of=20 macros. The final size of the template is about 150 KB. The template is = working=20 well and make the appropiate tasks  fine. The template is the basic = document for my office, and the people work in it and send me her work = via=20 e-mail, always. But I noted than many files have the .dot atributes (or=20 extension)  and the size is the same than the original template: = when you=20 run it, you see the final documents  with all the macro inside the=20 document, and too others documents that  have the .doc extension, = the size=20 of the file es about 25 kb and no have macros at all.<BR><BR>I wonder = why it=20 happens and the way for generate always a .doc file without the macros, = all the=20 time. There is a  big diference for us dowloading a lot of big = document=20 with macros (without utilitily after generate the document) and a simple = and=20 "light" .doc document without any macro at all.<BR><BR>Then, I need a = code or=20 any sugestion that help me to eliminate all the macros in the document = generated=20 with my template.<BR><BR>Any helps will apreciate. Thanks in advance = and...=20 forgive my english, please,<BR><BR><BR>Omar<BR>From Argentina<BR></DIV> <P> </P></BODY></HTML> ------=_NextPart_001_0092_01C3785C.2F3199D0-- ------=_NextPart_000_0091_01C3785C.2F3199D0 Content-Type: image/gif; name="Fondo de En blanco.gif" Content-Transfer-Encoding: base64 Content-ID: <008c01c37875$547c87e0$0100007f@mipcxt400> R0lGODlhLQAtAID/AP////f39ywAAAAALQAtAEACcAxup8vtvxKQsFon6d02898pGkgiYoCm6sq2 7iqWcmzOsmeXeA7uPJd5CYdD2g9oPF58ygqz+XhCG9JpJGmlYrPXGlfr/Yo/VW45e7amp2tou/lW xo/zX513z+Vt+1n/tiX2pxP4NUhy2FM4xtjIUQAAOw== ------=_NextPart_000_0091_01C3785C.2F3199D0-- Tag: Macro Help Tag: 37950
  - 19
    - Unwanted dialog in automated mailmerge Hi all, I am using Office 2002/XP to automate a Word mailmerge using an Excel file as datasource. My problem is that Word displays a dialog in the mailmerge process in which the user has to specify the sheet in the Excel workbook. I don't want that dialog to popup, the Excel datasource file only has 1 sheet so there is nothing to choose anyway. Where can I programmatically specify the sheet to use? The OpenDataSource method doesn't seem to have an option for this. Is there a way to prevent this dialog to popup and still use the Excel file? TIA, Marco Tag: Macro Help Tag: 37949
  - 20
    - Headers, first pages, page numbers In an attempt to prevent this slipping too far down the list, I'm re-posting a distilled version of this problem: I am generating a document which has distinct first page header and footer and all pages are numbered (in the footer). With the following code: With ActiveDocument.Sections(1) SubjCateg = "CLASSICS" DiffCateg = "DIFFERENT" DateRange = "<date1> - <date2>" .Headers(wdHeaderFooterFirstPage).Range.Text = DiffCateg .Headers(wdHeaderFooterPrimary).Range.Text = SubjCateg .Footers(wdHeaderFooterFirstPage).Range.Text = "SPLAT" & FootText .Footers(wdHeaderFooterPrimary).Range.Text = FootText .Footers (wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSecti on = True .Footers (wdHeaderFooterPrimary).PageNumbers.StartingNumber = 5 .Footers(wdHeaderFooterPrimary).PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberRight, _ FirstPage:=True End With ActiveDocument.Sections (1).PageSetup.DifferentFirstPageHeaderFooter = True the first page headers and footers are indeed distinct, but the page number does not appear (only) on the first page. I have tried also putting the appropriate equivalent page number statements for Footers(wdHeaderFooterFirstPage), but this gives an error: subscript out of range. Any help gratefully received. Dave Tag: Macro Help Tag: 37944
  - 21
    - FORMULAS IN WORD TABLES I am not a programer so please make it idiot proof. I know word will accept an excell spread sheet, but then the information must be put in the spead sheet to recompute as the formulas do not copy accross so the data can be changed in the WORD document. Help indicates formulas can be made in a WORD table. How is this accomplished? Tag: Macro Help Tag: 37942
  - 22
    - Check the mouse Position Hi How do I check whether mouse point in * begin of the line * begin of the paragraph * and end od aboves Pls give me a sample cord for check these in word macro. THEJAN Tag: Macro Help Tag: 37934
  - 23
    - Events in Word XP If I have an open document with DocumentBeforePrint and DocumentBeforeSave events, these events are also executed in documents which have no macros and shouldn't execute them. How can I prevent this? Thank you for helping. Walter Tag: Macro Help Tag: 37933
  - 24
    - Delete double paragraph marks but not singles? I have text pasted from another source where each line has a paragraph mark at the end. I want to remove the paragraph marks and reconstruct the text into paragraphs where the only paragraph marks are there......at the paragraph breaks. Is it possible? -- Julian Milano Tag: Macro Help Tag: 37928
  - 25
    - Selecting word Below is an line where I need to convert single ">" to as ">" and not all. How to make it... <test> change > and not here</test> Any help Tag: Macro Help Tag: 37921

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

Top

Re: Macro Help by Jonathan

Jonathan
Mon Sep 15 04:15:08 CDT 2003

Hi Sasa,

Look in the VBA Help file for the FormattedText property. There is a code
sample there which does almost exactly what you are trying to do.

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

"Sasa" <sasa.batovanja@strom.cz> wrote in message
news:05bc01c37b66$6bd6dd70$a401280a@phx.gbl...
> 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

Top