multiple copies in different printer trays

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Searching for and Replacing Multiple items in a macro Hi: There is a financial messaging service known as SWIFT. SWIFT does not allow the usage of certain characters in its messages. I am attempting to create some code that will strip a Word document of the invalid characters â?? and preferably replace the invalid character with a highlighted space so the user can easily identify what the document will look like without the invalid characters. The following code successfully removes the â??*â?? character from my document. I would like to modify the code so that it will search for a list of other characters such as &, $, %, #, etc. and remove them from the document as well. Ideally, I would like the space where the character was removed to be highlighted so the user can see where the character was removed. (I am fine replacing the character with the â??spaceâ?? character.) Is there a way to search for and replace multiple characters without having to repeat the code multiple times? I havenâ??t done a lot of programming in Word â?? but have a basic understanding of VBA in an Access environment. Any help would be greatly appreciated. Thanks, Dave (The following code was created using the macro recorder in Word.) Sub RemoveInvalidISO15022characters() ' Removes Invalid ISO15022 characters from document Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "*" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Tag: multiple copies in different printer trays Tag: 88996
  - 2
    - FileSearch I wrote several macros in Word 95 and 97 which were searching for files with specific words in the file text, but I cannot convert them into Word 2003 or write new macro in Word 2003 of this type. I cannot insert words for search into the "text or property" property in the FileSearch object: With Application.FileSearch .NewSearch .FileType = msoFileTypeOfficeFiles .Text Or Property = ??? .LookIn = Directory .Execute In a way to search for files which contains several keywords. For instance, I have to find all files in a directory which contains words "bread", "butter" and "pepper". In the early versions of Word Basic it was enough to insert "&" between the search words, but I do not understand how to make it in Word 2003. I tryed to record macro from screen, but Word 2003 display empty window after recording such macro. I cannot use earlier version of Word, because they cannot open .htm files without frequent crashes. I make my life money with searching files in Word, and I am currently in the dead end. I am not a programmer, but live forced me to do the simple things with macro. Please, if somebody has an idea, help me. Petr Dombrovski, Graz Tag: multiple copies in different printer trays Tag: 88992
  - 3
    - VBA Write to file error I am working on a template for monthly reports; the top part of the form is a table full of the usual parameters (Project Number, Leader, Sponsor, Month, Hours Worked, etc). Management wants to be able to grab all the values and dump the data into an Excel file. My approach was to create bookmarks throughout the table. Say for instance I had two cells. First one is Project Leader, and the next one is Terry Detrie. I'd set bookmark for the first cell, then tab over to the next and grab the selected text. I'd cycle through all the bookmarks this way, save the text to an array, and then write the array to a text file. This text file could then be read by Excel (also via macro). If anyone thinks my approach is useful, I will post the code. Is there a more direct way to transfer data from Word to Excel? If 'yes', which is easier, running the code from Excel (opening and reading Word document) or from Word (opening and writing Excel spreadsheet)? Terry Tag: multiple copies in different printer trays Tag: 88987
  - 4
    - Auto fill-in multiple documents I don't get paid enough for this... I know how to create a user form. And I know how to use the ActiveDocument properties to automatically take data from the user form and put it into a document in form fields. What my boss wants now, is for that to work with MULTIPLE documents. I.E. a new employee comes in to our company and filles out a user form (document) asking basic info like name, social, phone numbers, address, etc. and when they are done: Word opens up employee profile.doc and fills in all the data in the form fields in there, then opens up the W--4 form and fills in all the data in the form fields in there, and opens up the I-9 form and fills in all the data in the form fields there... I guess my question is: how do I get VB to OPEN a document and propagate that data into the fields in it? Tag: multiple copies in different printer trays Tag: 88979
  - 5
    - Adding complex cross-reference I tried searching for a solution to this, but I haven't been able to hit the magic string of key words that might hit on a solution. I have a table that lists the subsection number, the heading text, and the page number for each subsection. Right now I'm doing it manually by putting the cursor in the first cell, inserting a cross reference to a paragraph number, tabbing to the next cell, inserting a cross reference to paragraph text, and tabbing to the next cell, then inserting a cross reference to a page. I turned on macro record and generated these two blind alleys: Sub Paragraph_CF() ' ' Paragraph_CF Macro ' Macro recorded 8/2/2006 by whitlev ' Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="1", _ InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _ SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdContentText, ReferenceItem:="1", InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdPageNumber, ReferenceItem:="1", InsertAsHyperlink:=True, _ IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="2", _ InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _ SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdContentText, ReferenceItem:="2", InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdPageNumber, ReferenceItem:="2", InsertAsHyperlink:=True, _ IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="2", _ InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _ SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdContentText, ReferenceItem:="3", InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdPageNumber, ReferenceItem:="3", InsertAsHyperlink:=True, _ IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="1", _ InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _ SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdContentText, ReferenceItem:="1", InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdPageNumber, ReferenceItem:="1", InsertAsHyperlink:=True, _ IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell End Sub And then I tried this: Sub CF() ' ' CF Macro ' Macro recorded 8/2/2006 by whitlev ' Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="72", _ InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _ SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdContentText, ReferenceItem:="72", InsertAsHyperlink:= _ True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:= _ " " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdPageNumber, ReferenceItem:="72", InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="73", _ InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _ SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:="73", _ InsertAsHyperlink:=True, IncludePosition:=False, SeparateNumbers:=False, _ SeparatorString:=" " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdContentText, ReferenceItem:="73", InsertAsHyperlink:= _ True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:= _ " " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="Numbered item", _ ReferenceKind:=wdPageNumber, ReferenceItem:="72", InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " End Sub But editing them to update from, say, "72" to "73" seems like it would take longer than doing it manually. Surely someone else has had this need before I did. Dare I hope there's a macro out there for this? TIA--Eva Whitley Tag: multiple copies in different printer trays Tag: 88978
  - 6
    - How do I parse a document? Hi, I've got a 1500+ lines MS-Word 2003 document that contains plenty of short articles. Each article begins with a bulleted, bold-type title, styled with the 7th bullet from Word's bullet gallery found at "Format | Bullets and Numbering". I want a macro that does the following: - parse the whole document and extract all bulleted lines styled with the 7th bullet. - populate a listbox with the titles (extracted above) so that I can choose a topic and jump to the corresponding article. I'm new to VBA programming and don't know how to tackle the problem. I barely was able to get the line count with a piece of code I copied and pasted from somewhere like so: Dim NumLines As Long With ActiveDocument.Range.Find .ClearFormatting .Format = False .Forward = True .Wrap = wdFindStop .MatchWildcards = True End With NumLines = ActiveDocument.ComputeStatistics(wdStatisticLines) MsgBox ("The document contains " & NumLines & " Lines") End Sub So, NumLines holds the document's line count. Now, how do I continue from here to get the rest done? (Word's object model is huge and I'm stuck). Guidelines and pointers appreciated. Thank you. Fernando Ronci E-mail: fernandoronci@hotmail.com Tag: multiple copies in different printer trays Tag: 88977
  - 7
    - Foolproof way to add toolbar button for .dot file Is there a foolproof way to make a global template file, a .dot file, add a button to the standard Word toolbar, the one with File, Edit etc. I have seen and tried many suggestions, such as putting the code that adds the button in: - an AutoOpen Sub - an AutoExec Sub - the Document_Open event - Just adding the button manually and saving the .dot file with the added button. The last one was the only one that seemed to work, but when I altered the location of the .dot file from the Startup folder in C:\Program Files\ etc. to the one under Documents and Settings it didn't work anymore. Surely, there must be same place to put the code so it will run when the .dot file opens/loads. RBS Tag: multiple copies in different printer trays Tag: 88976
  - 8
    - OLB enum values I am creating a class to connect to Microsoft Word using VC++ 6.0 ClassWizard and the object library MSWORD.OLB. Most of the function calls in this class use the Varient type to pass parameters, but I cannot find the actual values for the enumeration types so I can pass in that value. Does anyone know how or where these enumeration types are defined. For example, WdUnits is composed of wdCharacter, wdWord, wnSentence, etc. Thanks for your help. Phil Tag: multiple copies in different printer trays Tag: 88965
  - 9
    - Print sample of all fonts I am looking for the VBA code to print a sample of all the fonts in Word. I am using Word 2003. Thanks. Tag: multiple copies in different printer trays Tag: 88964
  - 10
    - Merging 2 list documents. I have 2 notepad documents consisting of 16 character lines. One is 380,000 lines, the other is 20,000 lines. Is there a way to merge the two so that the 1st line of the smaller ends up as the 20th line of the larger, second line of the smaller ends up as the 40th line of the larger and so on untill all 20,000 lines are evenly distributed within the larger giving me a final document of 400,000 lines consisting of the lines of both original documents and an even distribution of the 20,000 lines within the 380,000. I couldn't use Excel because the characters are digits and Excel truncates the last digit to a zero. I have opened both within MS Word but couldn't find a setting for doing this. Anyones help is greatfully appreciated. Tag: multiple copies in different printer trays Tag: 88962
  - 11
    - Spell Check Macro in Forms I created a form with form fields a few months ago and it is protected. I got a call from a uset stating they could not spell check the info they typed. I did some research and found a Spell Check code and I pasted it into the code for Visual Basic, but I could nver get the Macro to work. I then decided to just record a basic macro of spell check. I inserted it on my toolbar and change it from text to a button. I typed on the form and clicked the button to test it, but it took me to Visual Basic instead of checking the document. Help! How can I get this to work - I have never used Visual Basic before, so I'm a bit lost. Tag: multiple copies in different printer trays Tag: 88961
  - 12
    - How to merge two raw rtf documents? Hello All, We need to merge two rtf documents automatically without the user seeing. The combined product of this merge is then shown to the user. Currently we : open the docs using notepad, remove the last outer brace from the first doc and the first outer brace from the second. We then save them to a new rtf text document and then open this in word. However this is causing problems with font tables and other items in the headers of the rtf. We have tested using Word automation but want to know if there is any other way or a recommended way of doing this? We currently do the merging of the rtf on the server side. Moving to using Word Automation will mean we need to rely on the COM component server side which as the following link shows is not a good idea: http://support.microsoft.com/default.aspx?scid=kb;EN-US;q257757#kb2 We are considering moving the merging client side and therefore we can use Word automation but this does add extra time to the client viewing the document. I presume that the method of merging the rtf by removing the braces is a complete no no? Has anyone ever tried doing it this way? If we can categorically rule this out we can push forward with the Word Automation. Thanks for your help Tag: multiple copies in different printer trays Tag: 88959
  - 13
    - how do i can make pie charts I want to draw or make pie charts or pie diagram Tag: multiple copies in different printer trays Tag: 88956
  - 14
    - Automation Error using Web Browser Control to Display Word Document I am writing an addin for Microsoft Word, and I have a requirement to show a (different( word document in a Web Browser Control on the form. The code is: WebBrowser1.Navigate ("c:\test\test.doc") When I run this I get the error: Run-time error '-2147417848 (80010108)': Automation error The object invoked has disconnected from its clients I thought it was my pc so I rebuilt it, and same problem, it works fine from excel though... any ideas? Tag: multiple copies in different printer trays Tag: 88955
  - 15
    - Extract doc into text with 75 char line length Does anhyone know of a VBA command that will take a Word doc paragraph and convert it to (approx) 80n chars in width, while splitting the line at the end of a word (ie, not to split at exactly 80 chars, but to split at the last full word before the 80 chars is reached). My problem is that we export the Word doc text into a database by extracting the textual content (as ascii text) and the database app cannot present the wider lines betyond 80 chars. I need to split the lines at the 80 (or less) char mark and insert a CRLF so the db app can handle it for display. Much appreciated. Terry Tag: multiple copies in different printer trays Tag: 88947
  - 16
    - Automatically insert date when user selects from a form drop-down I am using Word 2003 and have created a form for users to complete. I would like to have a field that automatically inserts today's date when a user changes their selection in a drop-down field. For example, if a user selects a particular status from the status drop-down, the corresponding status date field is automatically updated to today's date. A user may not necessarily select a new status each time they open the document, so it has to be specific to the corresponding drop-down. Thanks! Tag: multiple copies in different printer trays Tag: 88946
  - 17
    - Deleting objects on page If a document has a number of pages and one of those pages has a number of objects (in this case text boxes) how can I select these and then delete them, please? There is an "Ah, yes but..." factor here: these pages have a very deep top margin of about 9 cm. The objects are located in that space between the top margin and the top edge of the paper. My code of: Activedocument.bookmarks("\page").Range.Select Selection.Delete ...removes everything within the boundaries of the page's margins but nothing outside of these. Is there a way of selecting these extra-marginal objects, please? Regards Roderick Tag: multiple copies in different printer trays Tag: 88944
  - 18
    - Smart Tag/XML to create doc that compiles sections from multiple d I have several reports that are arranged into four sections, (s1, s2, s3, s4). I am looking for a way to be able to create a document that pulls the text/charts from each section on each report. I was thinking that XML smart tagging would be what I would need to do, but I don't know how to create an application or a "transform" that would pull the data. Ideally, I would want to be able to create an ad hoc document that would pull and arrange all the s1 sections from each report, and arrange them into one fluid report; or be able to pull data from s1 and s3 and do the same thing. Any ideas? Thanks, Scott Tag: multiple copies in different printer trays Tag: 88932
  - 19
    - Reliable Character counts without opening word I need to get reliable character counts from documents submitted in word format. *Reading them from structured storage isn't reliable, as by default fast saves are enabled and the count isn't up to date as far as I can tell. *Word on Macs doesn't save using structured storage. Opening word is to expensive to do to get counts with doc.Characters.Count() 5000 openings of word crushed the system last year, and noone wants to by 10 more servers just to open word. I have thougth of keeping word running and opening/closing documetns as necessary, but that is still a lot of Processor time. Aside from that Characters.Count counts Paragragh symbols and other things that aren't Charaters to the final print layout. Is there a standard way to get Char counts from word documents composed on different platforms without opening word everytime? ANd if I have to buy 10 copies of word and 10 servers to get character counts is there a way to get them reliably without counting markup characters as characters? TIA for any advice or direction. ~reed Tag: multiple copies in different printer trays Tag: 88930
  - 20
    - Use "Read Only" Parameter in FileOpen DDE Function with Office 200 Could anyone provide information please how to use the "Read Only" Parameter with the FileOpen DDE Function? Articles on the internet (e.g. http://word.mvps.org/FAQs/AppErrors/ReadOnlyPrintMsg.htm) suggest that this is possible, the version used here (Office 2003 11.6359.6360 SP1) interprets all options also as part of the filename, which then results in an "File not found". This is the snipped from the article that describes the suggested changes to the "Folder settings"-dialog (DOC filetype): ----- Change the DDE Message to: [REM _DDE_Minimize][FileOpen("%1",,1)][t=IsDocumentDirty()][FilePrint 0][SetDocumentDirty t][DocClose] Note, you're really just changing the FileOpen code from [FileOpen("%1") to [FileOpen("%1",,1) Change DDE Application NOT Running to: [FileOpen("%1",,1)][FilePrint 0][FileExit 2] Note: same change. ----- This just not works with the version here. Any suggestions? Tag: multiple copies in different printer trays Tag: 88929
  - 21
    - find bold headings and add a return(or tab) after it have a document like this... 1.0 Introduction(this is bold). Welcome to my document(first sentance of a pragraph that isnt bolded text). I need to put a return or a tab after the heading stuff thats in bold. Note that some tables have bold headings centered on the page so perhaps a condtion needed in the code to test for end of line(or text thats centered) so it will skip that stuff i have this from another post i found so maybe you VBA folks will have a starting point to play with to help me out..thanks! Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find '********************** .Text = "text" 'put your searched text here .Replacement.Text = "^&" .Replacement.Font.Underline = True .Replacement.Font.Bold = True '********************** .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False End With Selection.Find.Execute replace:=wdReplaceAll Tag: multiple copies in different printer trays Tag: 88928
  - 22
    - change default printer I have an application that runs word in batch, and I want to change the printer to use a duplex printer. Print the report, and change the printer back to the default printer. I created this template, which resides in templates directory, with a shortcut residing in C:\Documents and Settings\Darrell Lee\Application Data\Microsoft\Word\STARTUP I have macros autoexec and autoclose in the template as shown below, but it doesn't seem to be working. I could use some help. Sub AutoExec() ' ' AutoExec Macro ' change to duplex printer ' ActivePrinter = "\\swbc-pdw\Aficio2045-ELIC" End Sub Sub AutoClose() ' ' AutoExec Macro ' change back to original default printer ' ActivePrinter = "\\swbc-pdw\LM410-ELIC" End Sub -- dlee Tag: multiple copies in different printer trays Tag: 88927
  - 23
    - Hyperlinking to a template containing VB from webpages I'm probably missing something obvious here... I've created some Word templates using VB and I want the users to be able to link to them from our intranet site. However, if you open the template using the link it opens the template itself rather than creating a new document based upon the template. Does anyone know how this could be fixed? Tag: multiple copies in different printer trays Tag: 88925
  - 24
    - Adding logos to document I've concocted the following macro. The idea is that the user prints the current document onto headed paper but then if they want to email it (as an attachment) and therefore want the logo on the document the macro fetches the "pictures" from another document. 1) It feels "cludgy". Is there a more elegant way of achieving this result? 2) I've tested it on Word 2002. It will be installed (tomorrow?) on Word 2003 - should I expect it to work? 3) There are around 30 users on a network who need access to it. Is it better installed locally or on the network? I assume Gobal templates is where it should go? 4) How do I find out what the picture numbers are? So far I only know by recording a macro and then seeing the result. Many thanks. Sub Letter2Email() ' ' Macro1 Macro ' Macro recorded 25/05/2006 by anthonyl ' Dim docSource As Document Dim docDest As Document Set docDest = ActiveDocument Set docSource = Documents.Open("L:\letterheadwithlogo.dot") ' Application.Move Left:=115, Top:=25 ' ActiveDocument.Shapes("Picture 2").Select docSource.Shapes("Picture 2").Select Selection.Copy docDest.Activate Selection.Paste Selection.ShapeRange.IncrementLeft -1 Selection.ShapeRange.IncrementTop -10 docSource.Activate ActiveDocument.Shapes("Picture 3").Select Selection.Copy docDest.Activate Selection.Paste Selection.Collapse docSource.Close wdDoNotSaveChanges End Sub Tag: multiple copies in different printer trays Tag: 88923
  - 25
    - PDF TO WORD does anyone know of any piece of sw that can convert a pdf file to word cleanly? i have a document with lots of formatting and when i use Adobe 6.0 to convert the pdf file to word all the formatting gets messed up. or any ideas on how to make the pdf file editable? TIA Ted Tag: multiple copies in different printer trays Tag: 88921
- Next
  - 1
    - How to enable envelope in a protected document I was wondering if somebody could help me finish this macro to work correctly. Basically what I'm trying to accomplish is to be able to run the envelopes and labels with a protected document. I found a macro to spell check a protected document and that worked great, at http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm I then tried taking this macro and making it work for envelopes and labels. I came fairly close, I can run the macro and the envelopes and labels dialog box will pop up and if the user has a name and address it will bring that into the envelope dialog box. If the user hits print it will print it correctly and then close the dialog box and then protect the document. If the user it's cancel they get an run-time error and the document doesn't get protected. Here is what I have and maybe if we can get this to work correctly maybe this could be posted on the MVPS site for "How to enable envelopes and labels in a protected document" Option Explicit Dim Cancelled As Boolean, MyRange As Range, CorrectedError As String Sub WSNEnvelope() ' ' WSNEnvelope Macro ' Macro created 7/25/2006 by WSN ' Dim oSection As Section, OriginalRange As Range, oDoc As Document 'If no documents open, quit macro If Documents.Count = 0 Then Exit Sub End If Set oDoc = ActiveDocument Set OriginalRange = Selection.Range System.Cursor = wdCursorWait 'Now unprotect the document oDoc.Unprotect Password:="wsnforms" Application.Run Macroname:="ToolsCreateEnvelope" If Cancelled Then Exit Sub 'Re-protect the document oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, _ Password:="wsnforms" 'oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True OriginalRange.Select Application.ScreenRefresh 'Release variables from memory System.Cursor = wdCursorNormal Cancelled = False CorrectedError = vbNullString Set MyRange = Nothing End Sub Thanks Brent Morris Tag: multiple copies in different printer trays Tag: 88918
  - 2
    - Move cursor to end of table of contents Hi all, I have a macro which adds extra text into the table of contents, but for it to work correctly, the cursor needs to be placed at the end of the TOC. Is there a way I can get word to place the cursor there automatically, rather than making the user do it? Thanks a lot, TimDouglas Tag: multiple copies in different printer trays Tag: 88915
  - 3
    - Capturing Information via a User Form I'm using a user form to capture fax information for a fax cover sheet. 1) Is the RANGE property the preferred means of grabbing info from a field and placing it into a field on the user form? ex: frmFaxCover.txtPhone = Bookmarks.Item("fieldPhone").Range 2) What syntax would I use to grab the information from the User Form and update the fields on the document? When I tried setting the .Range property, the field was deleted completely. I'd prefer to simply update the field preserving it. David H Tag: multiple copies in different printer trays Tag: 88912
  - 4
    - generating a count of items in an array I have an array (shown below as "varArr") in which a macro searches for terms in the array ("text1", etc.) with a while statement. I occasionally add or delete a term from the array. Is there any way of using UBound or something else, to pick up the quantity of terms to be used in the array, so that I can use a variable for that quantity instead of hard-coding it each time I add or delete a term from the list? varArr = Array("text1", "text2", "text3", "text4") While intCnt < 5 ~~ -- Bryan Tag: multiple copies in different printer trays Tag: 88906
  - 5
    - need new product key for trail version Tag: multiple copies in different printer trays Tag: 88904
  - 6
    - Word VBA Documentation I don't have any documentation for Word VBA. Is it available for free on the Internet? Tag: multiple copies in different printer trays Tag: 88888
  - 7
    - Run the Same Macro on Multiple Files I'm proud of myself. I actually came up with a very useful Word VBA macro without having to ask anyone how to do it: Sub Macro2() Dim theFileName As String theFileName = Dir("C:\Temp\*.htm") Do While Len(theFileName) > 0 ChangeFileOpenDirectory "C:\Temp\" Documents.Open FileName:=theFileName Application.Run MacroName:="Normal.NewMacros.Macro1" ChangeFileOpenDirectory "C:\Temp2\" ActiveDocument.SaveAs FileName:=theFileName, _ FileFormat:=wdFormatFilteredHTML ActiveWindow.Close theFileName = Dir Loop End Sub This time-saving macro opens an .htm file in "C:\Temp", edits it by running a macro called "Macro1", and then saves it as an .htm file by the same name in folder "C:\Temp2". Then it automatically repeats the procedure for all of the other .htm files in folder "C:\Temp". I found out how to do the above for one file by recording a macro while going through the procedure manually, but this didn't tell me how to perform the operation on multiple files automatically. For that information I did a search and found the following old posting on this same amazing news-group (microsoft.public.word.vba.general): http://groups.google.com/group/microsoft.public.word.vba.general/msg/0b1408cc4f19cd26 Hooray for Google Groups! I love you! Tag: multiple copies in different printer trays Tag: 88887
  - 8
    - Unprotecting Module Is there a way when the password is known to unprotect a VBE project with code, if so can someone assist me, please? -- Mark Tag: multiple copies in different printer trays Tag: 88878
  - 9
    - using vba to delete part of a document I've got a group of letters that are generated through a mail merge with an excel file. These letters are to various entities and contain a listing of specific incidents that they were involved in. Since I wanted to just have one template and since the number of incidents per letter will vary, I simply created a template that had X number of incident placeholders and when the merge was performed, the placeholders were only populated up to the number of incidents that particular entity had. For example, right now the template has 39 placeholders because that happens to be the largest number of incidents in any one letter. If I merge the data for an entity who has 6 incidents, then the resulting letter will contain those 6 incidents, followed by 33 incident placeholders that contain no data. Currently, I have to go back in to each letter and delete the "extra" placeholders that are left over from the mail merge. (I know, I know..there is probably a much easier way for me to do all of this from the outset, but this is what I'm currently stuck with.) I've managed to place an identifier in the excel file so that when the data is merged into letters, this identifier is always found after the last incident in the letter...thus I know that everything after the identifier until the language at the bottom of the letter that is the same for all the letters can be deleted...that is, all the rest of the incidents are simply blank placeholders. What I would like to be able to do is create a macro that will go through a letter and remove those placeholders for me. I'm thinking along these lines, but I don't know how to make Word do this: 1. Find the identifier in the letter and move the cursor there. 2. Mark where the cursor is. 3. Find the beginning text at the bottom of the letter that marks the ending of the incident placeholders and place the cursor at the beginning of the paragraph. 4. Mark where the cursor is. 5. Now delete everything that is between the first and second marks. Any ideas on how to accomplish this? Or possibly even a better way to go about it? -Brian Tag: multiple copies in different printer trays Tag: 88876
  - 10
    - VBA Referencing reI have a template which I keep a lot of code in which is referenced to by quite a number of other templates. I want to move the template which is referenced to another location on my computer, this will obviously affect the reference link. it is possible with code to alter all my templates so that I don't have to open them myself one by one and change the reference path? If so, would someone by kind enough to assist me with some code, please? Thanks -- Mark Tag: multiple copies in different printer trays Tag: 88870
  - 11
    - Symbol font chars changing to "(" after passing through VBA Regex I've been having some trouble with characters in Symbol font converting to "(" when the paragraph which contains them is altered using VBA Regular Expressions. I'm using the Range.Text object because the FormattedText object will not work (for me, anyway) with Regex. The characters are fine if only a match is done. However, once any kind of substitution is performed in the paragraph, the characters "break". Has anyone else out there encountered this? If so, have you come up with any work arounds? The search is complex enough to rule out using Word's wildcard search capabilities with Selection. Thanks, Tag: multiple copies in different printer trays Tag: 88867
  - 12
    - Read word document and copying part of it another word doc I need to read a word document ( 250 pages), Based on the a value of text in the begining of the document, I want to copy the whole page and dump it in to new word document. So finally have one new document with selected pages. Thanks, AJ Tag: multiple copies in different printer trays Tag: 88866
  - 13
    - How can I sort paragraphs of text? I'm presently trying to create a macro that will sort paragraphs of text. Below is an example of one of the paragraphs. I'm trying to sort them with reference to the "Classification:" number. The number of words between the header of the paragraph and the classification header is inconsistent. The end result should maintain the paragraph formatting only altering the position of the paragraphs placing them into an ascending order. ITEM ID. URO 001 Sentence of text. Sentence of text: 1. Sentence of text. Sentence of text. Sentence of text. Sentence of text. *2. Sentence of text. Sentence of text. Sentence of text. Sentence of text. 3. Sentence of text. Sentence of text. Sentence of text. Sentence of text. 4. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Classification: 08 Keywords: Text. Text Text text. Ref. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Sentence of text. Tag: multiple copies in different printer trays Tag: 88865
  - 14
    - Use variable with small Roman numerals? In a looped Find/Replace routine, I want to use a variable that I can increment with each loop. I want to find "i" and replace with "1", "ii" with "2", etc. Something like: Dim x x=0 Do x=x+1 Find x Format(small Roman numeral) Replace With x (Arabic number) Loop Is a Format switch for something like this available? -- Ed Chief Chef, Kludge Code Cafe "Spaghetti Is Our Specialty!" ' Tag: multiple copies in different printer trays Tag: 88864
  - 15
    - Message box to show in Word and not in Excel All: I am running Windows XP with Word and Excel 2003. I am running Excel VBA to open a word document and do some procedures. Basically, my code gets some values in excel, then opens up Word and inserts the data into Word. At the end of my code, I have a message box that says "the CD labels are ready to print". When my code is finished, it ends with word showing and activated on my screen. But the message box is shown on Excel and the only way to see it is to activate Excel . Is there any way to have this message box show up on top of Word being activated or do I need to reactivate Excel to show this message box? If I can only do one or the other, can you let me know and show me some code that can do this? I am new to this VBA code stuff but am trying to eagerly learn. Thanks in advance. ~Matt Private Sub CommandButton2_Click() Dim sCustomer As String Sheets("SC Database").Activate sCustomer = ActiveSheet.Range("Customer") Dim appWD As Object Dim docWD As Object Set appWD = CreateObject("Word.Application") Set docWD = appWD.documents.Open("C:\CD Jewel Case Label.doc") appWD.Visible = True 'Replace Customer with correct job information With docWD.Content.Find .Text = "Customer" .Replacement.Text = sCustomer .Wrap = 1 .Execute Replace:=2 End With MsgBox "Your CD labels for " & sCustomer & _ " are ready to print!", vbOKOnly, "CD Labels are done!" End Sub Tag: multiple copies in different printer trays Tag: 88862
  - 16
    - Sending mail with VBA in BCC field Hello, Hope someone can help. Im using this code to send a mail to some of my clients: Set Outmail = ActiveDocument.MailEnvelope.item With Outmail .Subject = InputBox("Voer hier het onderwerp van de email in:", "Onderwerp") End With Dim Message, Title, Default, MyValue Message = "Naar welk type emailadressen wilt u de e-mail versturen" & vbCr & "1 - Zakelijke emailadressen" & vbCr & "2 - Privé emailadressen" & vbCr & "3 - Privé & Zakelijke emailadressen" Title = "Selecteer type emailadressen" MyValue = InputBox(Message, Title) Select Case MyValue Case 1 With rstTemp While Not .EOF If rstTemp.Fields("email priv") <> "" Then Outmail.AddRecipient rstTemp.Fields("email priv") lijst = rstTemp.Fields("email priv") enz.enz You can see im using the AddRecipient method to add recepients to the To list. My question is: How can i add adresses to the BCC field, I don't want that my customers can see each others emailadresses... Hope someone can help.. Eric van der Niet Tag: multiple copies in different printer trays Tag: 88859
  - 17
    - Removing unusual Char Style Hello Windows XP - Office 2002 / 2003 I have some VBA that loops through the Styles Collection identifying Char styles. I then copy the Styles and break the link. I then delete the Char style. I cannot delete one Char style named " char" (please read "space Char"). I get "Run-time error '5941': The requested member of the collection does not exist." Any ideas on how I can delete this Style from the Styles Collection. Any assistance will be appreicated. Regards Mike Faulkner Tag: multiple copies in different printer trays Tag: 88857
  - 18
    - how do you display a prompt with a list of options? Hi, I wrote a macro that uses inputbox$ to display several bookmarks in the prompt and go to the bookmark that I enter in the input field. How do you display those choices in a pulldown menu? I can't figure out what type of statement allows you to create a pulldown menu. Michael F. ==================== Sub GotoBookmark() ' ' GotoBookmark Macro ' 7/19/2006 - GotoBookmark by Michael Frascinella ' 7/27/06 - added more chapters ' Prompt to select a chapter bookmark. Dim Title, Prompt, default_value, Response As String Title = "Chapter Bookmarks" ' Define title. ' Define the message. Prompt = "Select a bookmark to go to:" & vbCrLf & _ "chapter1" & vbCrLf & _ "chapter2" & vbCrLf & _ "chapter3" & vbCrLf & _ "chapter4" & vbCrLf & _ "chapter5" & vbCrLf & _ "chapter6" & vbCrLf & _ "chapter7" & vbCrLf & _ "chapter8" & vbCrLf & _ "chapter9" & vbCrLf & _ "chapter10" default_value = "chapter" Response = InputBox$(Prompt, Title, default_value) Selection.GoTo What:=wdGoToBookmark, Name:=Response Selection.Find.ClearFormatting End Sub Tag: multiple copies in different printer trays Tag: 88855
  - 19
    - Page Breaks Hi - not sure what has been changes on my setup but for some reason the automatic page breaks Word inserts when you near the bottom of a page do not work and the text does not move onto new page but just becomes invisible. I have to actually create a page break manually. Anyone any ideas of what has happend Thanks Tag: multiple copies in different printer trays Tag: 88850
  - 20
    - Question about template Hi all, I've tried to attach my custom template to the existing document. My purpose is to apply the the header and footer of my custom template in my existing document. I use "document.set_AttachedTemplate(ref o);" to attach my custom template to the existing document but it seems doesn't work. Is anyone know how to do it? Thanks Tag: multiple copies in different printer trays Tag: 88845
  - 21
    - Autoclose Hi! Sub Autoclose() On Error Resume Next Application.CommandBars("Menu Bar").Controls("&Company").Delete End Sub I have created menu and I would like to deleted it when document close. It is working, but if I made changes in doc and then I close doc the Autoclose will be executed and after that come pop-up window with "Do you want to save the changes yes/no/cancel) if I press cancel I will go back to the doc, but my menu is already gone while the Autoclose was executed. any idea how could I solve this problem. It is working with close() with Savechanges:=true, but I donÂ´t want to do that while I could close doc w/out saving. thanks Tag: multiple copies in different printer trays Tag: 88843
  - 22
    - Questions regarding Userform/Macro Hello, it's been a while since I've posted my problems here :D but I'm still having the same ones... I've got a macro that will insert a form number in a document (where ever the cusor is) and it works well. When I tried insert the option to omit the last page from printing I ran into issues with variables (as in I'm not sure how to use them correctly). The code uses multiple message boxes to get all the info required and Jezebel suggested using a userform. I've got that created but I'm not sure how to go about setting it up for use with my macro (assigning buttons/fields). I'm discovering that I may be in a little over my head with this stuff so your help would be GREATLY appreciated :D I'll post the code for the macro, the userform, and the "omit last page print" code that Jezebel suggested. Can you help me combine these to hopefully work using the userform. Thanks :) Here's the code for the macro: Dim NumCopies As String Dim StartNum As String Dim Counter As Long Dim oRng As Range If MsgBox("The copy number will appear at the insertion point." _ & " Is the cursor at the correct position?", _ vbYesNo, "Placement") = vbNo Then End If ActiveDocument.Saved = False Then If MsgBox("Do you want to save any changes before" & _ " printing?", vbYesNoCancel, "Save document?") _ = vbYes Then ActiveDocument.Save End If End If StartNum = Val(InputBox("Enter the starting number.", _ "Starting Number", 60099444)) NumCopies = Val(InputBox("Enter the number of copies that" & _ " you want to print", "Copies", 1)) ActiveDocument.Bookmarks.Add Name:="CopyNum", Range:=Selection.Range Set oRng = ActiveDocument.Bookmarks("CopyNum").Range Counter = 0 If MsgBox("Are you sure that you want to print " _ & NumCopies & " numbered " & " copies of this document", _ vbYesNoCancel, "On your mark, get set ...?") = vbYes Then While Counter < NumCopies oRng.Delete oRng.Text = StartNum Dim sCurrentPrinter As String Dim sFormPrint As String sCurrentPrinter = Application.ActivePrinter Application.ActivePrinter = "\\AMPACPRINT\05025_82_9k on NE02:" Application.PrintOut Application.ActivePrinter = sCurrentPrinter StartNum = StartNum + 1 Counter = Counter + 1 Wend End If End Sub Here's the code for the "omit last page": Select Case MsgBox("Do you want to print the last page?", vbYesNoCancel) Case vbYes ActiveDocument.PrintOut Case vbNo ActiveDocument.PrintOut From:=1, To:=ActiveDocument.BuiltInDocumentProperties("Number of pages") - 1 Case Else End Select And finally the userform code... Private Sub CancelMacro_Click() End Sub Private Sub FormNumber_Click() End Sub Private Sub PrintLastPage_Click() End Sub Private Sub RunMacro_Click() End Sub If you've made it this far I appreciate it and would be forever grateful! Also, if you could point me to some tutorials regarding this stuff so that I don't have to bother everyone as much in the future... Tag: multiple copies in different printer trays Tag: 88842
  - 23
    - Formatting column width Hi, I have a table with 3 columns and 9 rows. Several of the columns need to have different widths within the table. For instance: Rows 1-3: col 1: 3, col2: .5, col3: 1.5 Rows 4-6: col 1: 2, col2: 2, col3: 1 Thanks. jbc Tag: multiple copies in different printer trays Tag: 88834
  - 24
    - How do I use my laptop with out a mouse from the start? Please advise on what to do with a laptop when there is no mouse and you just turned the computer on. How do I get to the programs? Tag: multiple copies in different printer trays Tag: 88827
  - 25
    - Getting it all out of word. Hi, I am wanting to write a converter to convert a word document to an ActiveReport. To do this I need to get everything out of a word document. For example TABLES: I need to get position, columns, rows and size of table TEXT: the text plus all formating (bold, underlined, font, size etc) As long as at the other end I get a file that looks exactly like the word document. Is there a way to loop through the document? I have looked at looping through tables cell by cell but am not sure if there is a way to guarantee getting everything from a word document. Thanks in Advance. Stephen M Tag: multiple copies in different printer trays Tag: 88823

I need help........ I have a word template and want to print 3 copies,
where the first copy goes to tray 1 and the remaining copies to tray 2
of a printer. Can someone help me.

Top

Re: multiple copies in different printer trays by Doug

Doug
Thu Aug 03 15:48:14 CDT 2006

See:

Controlling the Printer from Word VBA
Part 1: Using VBA to Select the Paper Tray
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=101

Controlling the Printer from Word VBA
Part 2: Using VBA to control Duplex, Color Mode and Print Quality
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=116

Controlling the Printer from Word VBA
Part 3: Dealing with Different Paper Sizes
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=132

Controlling the Printer from Word VBA
Part 4: Getting printer driver details
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=183

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"TKF" <tkfreese@hotmail.com> wrote in message
news:1154605458.555630.321170@i3g2000cwc.googlegroups.com...
>I need help........ I have a word template and want to print 3 copies,
> where the first copy goes to tray 1 and the remaining copies to tray 2
> of a printer. Can someone help me.
>

Top