How 2 add new style to collection

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: How 2 add new style to collection Tag: 38142
  - 2
    - 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: How 2 add new style to collection Tag: 38136
  - 3
    - 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: How 2 add new style to collection Tag: 38134
  - 4
    - 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: How 2 add new style to collection Tag: 38133
  - 5
    - 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: How 2 add new style to collection Tag: 38132
  - 6
    - 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: How 2 add new style to collection Tag: 38130
  - 7
    - 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: How 2 add new style to collection Tag: 38123
  - 8
    - 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: How 2 add new style to collection Tag: 38121
  - 9
    - 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: How 2 add new style to collection Tag: 38120
  - 10
    - 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: How 2 add new style to collection Tag: 38117
  - 11
    - 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: How 2 add new style to collection Tag: 38115
  - 12
    - 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: How 2 add new style to collection Tag: 38113
  - 13
    - 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: How 2 add new style to collection Tag: 38111
  - 14
    - 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: How 2 add new style to collection Tag: 38096
  - 15
    - 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: How 2 add new style to collection Tag: 38094
  - 16
    - 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> <P>Hi,</P> <P>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.</P> <P>I was working with codes, but (again) I can't find the optimal = solution. </P> <P>Basically, I need the name of the document formed by:</P> <P>(ComboBox1.Text) + (ComboBox2. Text) + ...... (ComboBox7. Text)</P> <P>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. </P> <P>Any little help will be a great  help for me.</P> <P>Thanks a lot,</P> <P> </P> <P> </P> <P>Omar</P> <P> </P></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: How 2 add new style to collection Tag: 38093
  - 17
    - 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: How 2 add new style to collection Tag: 38092
  - 18
    - 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: How 2 add new style to collection Tag: 38084
  - 19
    - 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: How 2 add new style to collection Tag: 38083
  - 20
    - 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: How 2 add new style to collection Tag: 38082
  - 21
    - 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: How 2 add new style to collection Tag: 38080
  - 22
    - 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: How 2 add new style to collection Tag: 38079
  - 23
    - 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: How 2 add new style to collection Tag: 38078
  - 24
    - 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: How 2 add new style to collection Tag: 38077
  - 25
    - 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: How 2 add new style to collection Tag: 38076
- Next
  - 1
    - 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: How 2 add new style to collection Tag: 38073
  - 2
    - 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: How 2 add new style to collection Tag: 38071
  - 3
    - 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: How 2 add new style to collection Tag: 38069
  - 4
    - 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: How 2 add new style to collection Tag: 38064
  - 5
    - 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: How 2 add new style to collection Tag: 38062
  - 6
    - 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: How 2 add new style to collection Tag: 38056
  - 7
    - 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: How 2 add new style to collection Tag: 38052
  - 8
    - 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: How 2 add new style to collection Tag: 38051
  - 9
    - 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: How 2 add new style to collection Tag: 38049
  - 10
    - 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: How 2 add new style to collection Tag: 38040
  - 11
    - 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: How 2 add new style to collection Tag: 38039
  - 12
    - 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: How 2 add new style to collection Tag: 38038
  - 13
    - 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: How 2 add new style to collection Tag: 38036
  - 14
    - 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: How 2 add new style to collection Tag: 38034
  - 15
    - 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: How 2 add new style to collection Tag: 38033
  - 16
    - 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: How 2 add new style to collection Tag: 38032
  - 17
    - 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: How 2 add new style to collection Tag: 38027
  - 18
    - 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: How 2 add new style to collection Tag: 38026
  - 19
    - Execute a macro on file open I want to execute a macro when a file opens. Any help is appreciated. Thanks Paul Tag: How 2 add new style to collection Tag: 38018
  - 20
    - 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: How 2 add new style to collection Tag: 38017
  - 21
    - 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: How 2 add new style to collection Tag: 38016
  - 22
    - 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: How 2 add new style to collection Tag: 38009
  - 23
    - 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: How 2 add new style to collection Tag: 38008
  - 24
    - 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: How 2 add new style to collection Tag: 38007
  - 25
    - 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: How 2 add new style to collection Tag: 38005

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

Top

Re: How 2 add new style to collection by Helmut

Helmut
Tue Sep 16 15:54:43 CDT 2003

Hi Sasa,
I'm not quite sure what you are going to do.
Every new style is added to the styles collection.
What good would it be for to create new styles
programmatically? (Maybe I'm, off the track).
To loop over not built-in-styles you may use
something like that:
Dim oStl As Style
For Each oStl In ActiveDocument.Styles
If Not oStl.BuiltIn Then
MsgBox oStl.NameLocal
End If
Next
Greetings from Bavaria, Germany
Helmut Weber
"red.sys" & chr$(64) & "t-online.de"
Word 97, XP, NT4.0, W98

Top