Macro to diplay printer list

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Transferring macros and toolbars Hello A little question about copying macros and toolbar from one .dot to another .dot I have a "normal.dot" and a "special.dot" with my macros. I needed to create a new .dot which I will call "test.dot". Firstly, when I tried opening "special.dot" and "test.dot" and using the tools>macro>organise option, I could not manage to transfer the macros from "special.dot" to "test.dot" directly. I had to send the macros to "normal .dot" and then to "test.dot" Is this a limitation of Word? Secondly, I finally managed to copy my special toolbar from "special.dot" to "test.dot" also. But the link between the macros and the toolbar seems to have been broken.(the macros can not be found) How can I relink the macros with the toolbar? Both are certainly present in special.dot. Thanks in advance Dave Neve Tag: Macro to diplay printer list Tag: 80897
  - 2
    - Macro to change style based on style of current paragraph Hi! Though I've made a couple of attempts at this, I have yet to figure out how to create a macro that does the following. 1. Determine the style of the paragraph in which the cursor is sitting. 2. Compare the style determined in step 1 to a short list of style names. If the style = A, change the style of the paragraph in which the cursor is sitting to A1;if the style = B, change to B1, and so on. 3. If the style is not equal to one that is on the list, return an error message. ANybody have something liek this I can look at or some suggestions about how to create this macro? Thanks! Beth Tag: Macro to diplay printer list Tag: 80892
  - 3
    - Userforms and bookmarks Hi! For my template, I've created an autonew macro that displays a userform prompting the user for a title, code, and date. The responses are displayed in the file via bookmarks. I've also created an autoopen macro that prompts the user for a new date. The problem is that the new date gets added to the bookmark in front of the existing date (entered when the file was created. I end up with this: 10 Feb 200609 Feb 2006 Any suggestions on how to fix this would be welcome! Thanks! Beth Tag: Macro to diplay printer list Tag: 80891
  - 4
    - Hide X button on VBA forms Hello All, I am just wondering if it's possible at all to disable or hide the X button on the top right hand corner of a word VBA windows form? The form in question is a sub form of the main form in my application, I want the user to be able to open the form, click off some options and then close the form, when the form closes however (via the cmdbutton close) it hides the form so that if they go back into it the options they chose are still clicked off, if the user however clicks on the X it disposes of the form and the options are gone.. so i don't want them to be able to click the X at all... Thanks in advance for your time!! Erin Tag: Macro to diplay printer list Tag: 80882
  - 5
    - find current page number I'm sure this is fairly simple, but for some reason I can't seem to find it. Does anyone know the code to find the current page number? This is what I am using it for: I have code that will run on exit of all the fields on my word form. However, I need the code to vary slightly depending on the page the field is on. If I can find the page number, I can have the code run the necessary changes. Thanks in advance! Tag: Macro to diplay printer list Tag: 80881
  - 6
    - Tick instead of cross I am using Word in Office XP. Can anyone assist me, please? I am wanting to create a form which has 'tick boxes instead of 'cross' boxes. Thanks in anticpation. -- Mark Tag: Macro to diplay printer list Tag: 80878
  - 7
    - Identifying the button that activated the macro Is there a way tell tell what the .ID of the button was that started a macro? I have several toolbar buttons running the same code, doing slightly different things determined by their .ID Tag: Macro to diplay printer list Tag: 80873
  - 8
    - Get numbering text when several ListNum on same line Hi, I'm having trouble getting the numbering text of a ListNum field when it is not the first numbering field in a paragraph. I usually use the ListFormat.ListString property, but it doesn't work in this case, as this property (and ListFormat in general) always gets the first list entity in a paragraph. So if I had this in the document: "It happens fbecause: a) reason1, b) reason 2, c) reason 3" the ListFormat.ListString for any range in this line (including the listnum "Result" and "Code" ranges for any listnum field) would be "a)". The same happens if I have a listnum field after a bullet (don't ask me why anyone would this, it's not my document :)), the code character for the bullet is returned (whatever it is). So, how can I get the resulting text of a listnum field, or the listnum field immediately before the current selection (I have no trouble finding the field, just getting the text)? Hope you can help Thanks Tag: Macro to diplay printer list Tag: 80867
  - 9
    - VB cant find bookmark in Header Hello again I have bookmark in Header, When I try to get to it in VB with the code -- objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.GoTo What:=wdGoToBookmark, Name:="HeaderPlanName" I get the error 5678 "Word cannot find the reuested bookmark." even though the above is generated by word it self (by recording macro). Help please!!! You guys have been great so far Tag: Macro to diplay printer list Tag: 80866
  - 10
    - How can I make all text between '/' and '/' bold? I'm writing something about phonetics and pronunciation. I've been cutting and pasting all the symbols. It's too much trouble to make them bold as I go through. I'd like to find all the things like this '/s/' in a document and make them bold. I think this must be possible, but I have no idea how to do it. I'm using MS Word 2002. Thanks for any help. Tag: Macro to diplay printer list Tag: 80864
  - 11
    - Pure Virtual Function Call R6025 Can any one help please. I keep getting this error Program: C:\Program Files\microsoft Office\Office 11\Winword.exe R6025 -Pure Virtual Fuction Call On a XP machine SP2 Office 2003 SP2. No other programs. Have tried reinstalling the service packs and making sure printer drivers are XP. Have aslo tried installing office 2002 but still get error. Happens on different word documents.Many thanks -- Ades Tag: Macro to diplay printer list Tag: 80863
  - 12
    - Pure Virtual Function Call R6025 Can any one help please. I keep getting this error Program: C:\Program Files\microsoft Office\Office 11\Winword.exe R6025 -Pure Virtual Fuction Call On a XP machine SP2 Office 2003 SP2. No other programs. Have tried reinstalling the service packs and making sure printer drivers are XP. Have aslo tried installing office 2002 but still get error. Happens on different word documents.Many thanks -- Ades Tag: Macro to diplay printer list Tag: 80862
  - 13
    - Bridge documents....Red Hearts and Diamonds, Balck Clubs and Spade How do I write tutorials for Bridge so word can type, autocorrect or insert the proper character with its proper color? Red Hearts and Diamonds, Balck Clubs and Spades are typed many many types, how can this be automated? Tag: Macro to diplay printer list Tag: 80858
  - 14
    - BuiltInDocumentProperties Hello I created a Word document template from a document created at another institution, and stupidly didn't notice that before there were hundreds of documents in my organization's file system with the other company's name in the "Company" BuiltInDocumentProperties. I wrote the routine below to traverse the file tree and update each file. I change the system time to the original modified time for each file so I don't end up setting every file to be modified now. HOWEVER, (A) this is insanely slow (even if I turn off Application.ScreenUpdating; and (B) I noticed that from Windows Explorer, you can modify these properties without opening the file. Does anyone know either: 1) How I could improve the performance in general; or 2) Achieve the same result without having Word open each document? Tx & rgds Bongo Sub Traverse(folderspec) Dim fs, f, fl, fc, s, company Dim realdate, realtime, filetime realdate = Date realtime = Time() Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each fl In fc If fl.Type = "Microsoft Word Document" Then filetime = fl.DateLastModified Documents.Open FileName:=fl.Path company = Documents(fl.Name).BuiltInDocumentProperties("Company") If company = "OTHER COMPANY" Then Time = filetime Date = filetime Documents(fl.Name).BuiltInDocumentProperties("Company") = "MY COMPANY" Documents(fl.Name).BuiltInDocumentProperties("Keywords") = "" Documents(fl.Name).Save End If Documents(fl.Name).Close End If Next ' RECURSIVE PART, DISABLED FOR TESTING ' Set fc = f.subfolders ' For Each fl In fc ' Traverse (fl.Path) ' Next Time = realtime End Sub Tag: Macro to diplay printer list Tag: 80856
  - 15
    - Removing blank lines in report Hi, I have a report that produces a text file. When I open it in Word its about 3,000 pages long. This is because 60% of the report is blank lines. Is there a way to take out the blank lines using VBA? Once the file is reduced I hope to import it into Excel. Regards Garry Tag: Macro to diplay printer list Tag: 80852
  - 16
    - Using forms to collect information Hi, Thanks for your time. I'm using Word 2003. Wondering if there is a way to have users fill out a form in Word and then be able to collect the data somehow. I know conceptually there is, I've heard of it being done but I was wondering if anyone could point me in the right direction. For example if I wanted to create a survey for my users, create a form using the form toolbar in Word and then collect and analyze the data in a table or something like that. I believe you can do this in Adobe also, but I'd rather use Word if I can. Thanks! Tag: Macro to diplay printer list Tag: 80842
  - 17
    - how do I remove a line when a mergefield has no value Tag: Macro to diplay printer list Tag: 80840
  - 18
    - example code for Would someone have some example code for renaming a button on a custom toolbar called "schedule"? Tag: Macro to diplay printer list Tag: 80829
  - 19
    - Linking word Userform to excel using word vba I am trying to populate an excel workseet using a word Userform that I have developed. Everthing that is entered into the userform needs to be exported to excel. The problem that I ma having is trying to figure out to get the two programs to talk. I imagine that this is a basic thing to do if you know what your are doing, I do not. Please help Tag: Macro to diplay printer list Tag: 80828
  - 20
    - Normal.dot I'm just coming over from Office 97 to XP with Word 2003. Word's VBA macros used to be stored in Normal.dot. What's the deal with "Normal" now? And, why doesn't it prompt for module save confirmation when closing after a modification? Thanks, -- Trent Argante [DC.J(125)] Tag: Macro to diplay printer list Tag: 80823
  - 21
    - Delete a line which has a unique Style with a macro Hello, I am trying to find a way to delete many lines in a document, which all have a unique paragraph style. How can I do that? Thanks Octavee Tag: Macro to diplay printer list Tag: 80822
  - 22
    - Paper Tray Bin Selection macro I need to get the number assigned to paper trays on laser printers and copiers to add this to a macro for bin selection. I believe there may be a macro to find this out but not sure what this is. Have tried choosing File, Page Setup whilst running a macro and whilst this gives me the bin number on the copiers we use, when I put this code in my current macro, it doesn't select correct bin - just picks from the default tray. On our HP laser printers, when I select File, Page Setup, I just get Upper or Lower Tray in the code. I actually do have the numbers for the printers from our consultant who wrote the macro, but as we will probably be getting new models, I would like to know where/how to get the actual bin numbers. Thanks in advance. Tag: Macro to diplay printer list Tag: 80816
  - 23
    - Capture ALL movements...event? Currently I am trying to create my own StatusBar because the Word StatusBar doesn't display when you are using it with Internet Explorer. My question is what event do you use to capture every movement of the cursor(pointer) so I can display the current line, section, column, etc...? I've tried Me.SelectionChange but it only captures some of the movements. It doesn't capture when I hit the Enter button, etc... Any ideas? Thanks for your time! -- Brenda Tag: Macro to diplay printer list Tag: 80814
  - 24
    - Headers, Footers inserting text... Hi, I hope this is the correct forum for this question... Is there some trick to programmatically inserting text in the header and/or footer of a Word document? I'm working with Word 2003, and the documents are XML format. I created a schema and a XML data file and a XSL transform file. I pull the XML file into Word with the schema and XSL attached and everything gets formatted and populated correctly except the header and footer. The header and footer have the XML tags but the data that pops them isn't present. I need to be able to pop those header/footer tags programmatically but, they don't get populated even when I open the files manually. Any ideas? TIA! David Tag: Macro to diplay printer list Tag: 80813
  - 25
    - is it possible to create sequentialy numbering templets in word? I am creating work order templets and I am wondering if there is any way to generate a numbered identifier that will increase sequentialy as the work orders are generated? Tag: Macro to diplay printer list Tag: 80812
- Next
  - 1
    - Launch VBA form from toolbay buttom I have made a VBA program & exported it out to a .frm. Is there a way to create a toolbar button to run the .frm which in turn would run the code in the background? Tag: Macro to diplay printer list Tag: 80801
  - 2
    - Renaming a toolbar button Is there a way to programatically rename a toolbar button? Can I then access the name of that button as a string in another sub code? thanks, ck Tag: Macro to diplay printer list Tag: 80800
  - 3
    - Template Creation When creating a template for another user to fill in the blanks, how do you format and fix template only allowing for the answers to be put in the underlined blanks? Tag: Macro to diplay printer list Tag: 80796
  - 4
    - Identify Capital Paragraphs with VBA for word. Hi, How can I identify a paragraph that has all word in captial letters in Microsoft Word. For example: ROAD SAFETY SHOW We had a road safety show and we were walking along the road. Suddenly we started to dance and we got to know that a new ice cream shop has opened up. In the example above, I want to be able to identify "ROAD SAFETY SHOW" and then have the text formatted as shown below. #TITLE#ROAD SAFETY SHOW#/TITLE# We had a road safety show and we were walking along the road. Suddenly we started to dance and we got to know that a new ice cream shop has opened up. Can someone please help me with this? Thanks, Yash Tag: Macro to diplay printer list Tag: 80792
  - 5
    - Speed in opening word documents and executing the word application I work in an office with 25 users which were all "refreshed" with new computers and upgraded to Windows XP Professional. All the applications open immediatly with the exception of "Word". It takes around 20 seconds to execute the application and about 45 seconds to open documents no matter how small the size. This is frustrating as the previous version "Windows 2000" was much faster. Most docs opened immediatly. Excell, Access, PowerPoint, in XP, all execute upon a click of the icon so why is Word different. I have called our helpdesk for assistance and believe they cannot figure this out or my request has been buried. Does anyone have a clue as to why this is happening?? Tag: Macro to diplay printer list Tag: 80790
  - 6
    - Delete all shading Alright, now... i only ask questions when i really need help... so here goes. I have documents that have all this highlighting to help notify people of issues that may or may not be problematic, so i have this- Sub RemoveHighlights() Dim rngSearch As Word.Range Application.ScreenUpdating = False Set rngSearch = ActiveDocument.Range rngSearch.Find.ClearFormatting rngSearch.Find.Replacement.ClearFormatting With rngSearch.Find .Format = True .highLight = True .Replacement.highLight = False .Execute Replace:=wdReplaceAll End With Application.ScreenUpdating = True End Sub Well, i get a document, and it turns out a programmer has added shading, not highlighting. I've tried all kinds of things to delete shading using a range, and i can't figure it out. I searched through past threads and didn't find anything also. If anyone could help it'd be much appreciated. Thanks guys. Tag: Macro to diplay printer list Tag: 80789
  - 7
    - ActiveDocument.Fields.Add - Setting Font Color and Hidden? Is there a way to set the font when adding a new field? Set newfield = ActiveDocument.Fields.Add(Range:=Selection.Range, _ Type:=FieldType, Text:=FieldText, _ PreserveFormatting:=PreserveFormat) Add_Field = newfield.Index Want to set the font to be hidden for this field? Tag: Macro to diplay printer list Tag: 80788
  - 8
    - Disable AutoOpen macro after saving document Hi, I have a macro (below) that puts document information in the header and footers of a document from an external application which works fine until the user saves the document then opens another document from the same program when they subsequently reopen the first documnet it now has the second documents details in it which is what I want to stop! (The information is written to the persons ini file on their C drive) Is there any way to stop the macro from running once the document has been saved? all the documents start with a name ~qw if thats any help. The user can also open the documents from the intranet which doesn't cause the same problem. Sub nofooter() ' With WordBasic .NormalViewHeaderArea Type:=0 End With ' End End Sub ' Sub HeaderLine() ' Selection.HeaderFooter.Shapes.AddLine(93.6, 57.6, 504#, 57.6).Select Selection.ShapeRange.Line.Weight = 2.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(128, 128, 128) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) End Sub Sub footerlines() ' Selection.HeaderFooter.Shapes.AddLine(93.6, 760#, 504#, 760#). _ Select Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph 'Second line !! Selection.HeaderFooter.Shapes.AddLine(93.6, 780#, 504#, 780#). _ Select Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph End Sub Sub AutoOpen() ' Dim MyDate MyDate = Date ' MyDate contains the current system date. With WordBasic maxchar = 64 ' modification D B 02/09/04 if document comes from IE then load different INI file generated If Left(Application.ActiveDocument.Name, 10) = "IEDownLoad" Then Dim strIniName As String strIniName = Left(Application.ActiveDocument.Name, 60) & ".ini" Title$ = .[getPrivateProfileString$]("Document", "QWTitle", "\\Appsrv2\QWBINI_Files\" & strIniName) Ref$ = .[getPrivateProfileString$]("Document", "QWref", "\\Appsrv2\QWBINI_Files\" & strIniName) Rev$ = .[getPrivateProfileString$]("Document", "QWRev", "\\Appsrv2\QWBINI_Files\" & strIniName) Stat$ = .[getPrivateProfileString$]("Document", "QWStat", "\\Appsrv2\QWBINI_Files\" & strIniName) IDate$ = .[getPrivateProfileString$]("Document", "QWIssue", "\\Appsrv2\QWBINI_Files\" & strIniName) Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE", "\\Appsrv2\QWBINI_Files\" & strIniName) Else Title$ = .[getPrivateProfileString$]("Document", "QWTitle", "qwcs.ini") Ref$ = .[getPrivateProfileString$]("Document", "QWref", "qwcs.ini") Rev$ = .[getPrivateProfileString$]("Document", "QWRev", "qwcs.ini") Stat$ = .[getPrivateProfileString$]("Document", "QWStat", "qwcs.ini") IDate$ = .[getPrivateProfileString$]("Document", "QWIssue", "qwcs.ini") Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE", "qwcs.ini") End If ' ' Get next issue date from RC ini file NIDate$ = .[getPrivateProfileString$]("Document", "Nissue", "\\appsrv1\qwb_pro\master\RC.ini") ' End With ' check for short or long date format Dim Findspace Findspace = Mid(IDate$, 9, 1) If Findspace = " " Then IDate$ = Left(IDate$, 8) Else IDate$ = Left(IDate$, 10) ' ' Check to see if document status is ISSUED Dim Issuestatus Issuestatus = Mid(Stat$, 1, 6) If Issuestatus <> "ISSUED" Then IDate$ = "" ' With WordBasic With ActiveDocument.PageSetup ' .FooterDistance = 35 End With header: .StartOfDocument .NormalViewHeaderArea Type:=0 .EditSelectAll .WW6_EditClear .Font "Arial" .FormatFont Points:=14, Bold:=1, Italic:=0, Color:=0 .Insert " " + Title$ Call HeaderLine '.StartOfDocument ' footer: '.StartOfDocument .NormalViewHeaderArea Type:=0 .Font "Arial" .NormalViewHeaderArea Type:=1 .EditSelectAll .WW6_EditClear .Font "Arial" .FormatFont Points:=8, Bold:=0, Italic:=1, Color:=0 .InsertPara ' 'Can't use word basic for this End With Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' ' check to see if the document is a form, and if it is then exit ! ' 'If Typ$ = "Form (F)" Then Call nofooter Else With WordBasic .Insert "Document administered by WPro. Uncontrolled copies valid until the next document issue on " + NIDate$ .InsertPara .InsertPara '.CharRight 100 .Font "Arial" .FormatFont Points:=8, Bold:=1, Italic:=0, Color:=0 .Insert "HFL " + Ref$ .Insert Chr(9) + "Revision " + Rev$ .Insert Chr(9) + "Page Number " .InsertField Field:="page \*arabic" .Insert " of " .InsertField Field:="numpages" .CharRight 10 .InsertPara .Insert "Status: " + Stat$ + " (" + IDate$ + ")" .Insert Chr(9) + "Issuing Authority: System Administrator" .Insert Chr(9) + "Date Printed " Selection.InsertDateTime Call footerlines .NormalViewHeaderArea Type:=0 End With End Sub Tag: Macro to diplay printer list Tag: 80770
  - 9
    - Macros error when launching an MS word Macros Document " microsoft visual basic sub or function not defined " Tag: Macro to diplay printer list Tag: 80769
  - 10
    - About Sequentially numbered documents? Hi I didn't know anything about macros and VBA for nowadays but I want to make my documents numbered sequentially and I looked at some related sites ( such as http://word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm ). Also I read 70 pages about my subject at this site :) I changed the code as the following for me: Sub AutoNew() Order = System.PrivateProfileString("\\server\Counter.Txt", _ "MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("\\server\Counter.txt", "MacroSettings", _ "Order") = Order ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#") ActiveDocument.SaveAs FileName:="\\server\DocumentName Ref-06-" & Format(Order, "00#") End Sub As you can see In my document I have a Ref-06-XXX part and everytime I opened the template document it adds one to Ref like â??Ref-06-001â??, â??Ref-06-002â??, â??Ref-06-003â??... and also it creates the document at â??\\server\â?? like â??DocumentName Ref-06-001â??, â??DocumentName Ref-06-002â??, â??DocumentName Ref-06-003â??... But the problem is it saves the document after it opens the new numbered document so if i made a mistake to open a new document i should delete the last document that was created and also change the order number in the â??Counter.txtâ?? to -1. I hope I had explained my problem well :) So I think about the problem and have some answers like; * Macro shouldn't save the document at the beginning (after the creation of the new document). It would save the document after I made changes on the document and I think that the document have that Ref number on it. So it should save the document after I made my changes on document (before closing the document). As I said at the beginning I donâ??t know VBA codes so I need help from you. I know that this is too easy for experts. Thanks for your help this very moment :) Tag: Macro to diplay printer list Tag: 80764
  - 11
    - Creating macro Good day Could someone please help me with a macro? I would like to paste text unformatted into Word. Thanks -- Ansie Tag: Macro to diplay printer list Tag: 80761
  - 12
    - modification to merge field before mail merge In mail merge I need to split one field form datasource into 3 parts (string will be separated by - sign) and put in different places in document. I can't modify datasource, so I need to do this in word, probably using macros? Tag: Macro to diplay printer list Tag: 80758
  - 13
    - Macro - not visible I have a document with a macro attached which if I open on my machine I can see and run however if I open the same document on another machine with same level of macro security can't see the macro. Any ideas why ? Tag: Macro to diplay printer list Tag: 80756
  - 14
    - Quick & clean way to select all following chars until colorchange? Hi, I'm trying to select all characters which have the same color as a certain character without any gaps example: bbbbbbbbbbbbbbbbbbbbbb<cursor is here>ggggggggggggggggggggggggggggggggggggggggbbbbbbbggggggggggg From the position of the cursor I would like to select all the green (g) charcters untill a blue (b) appears, so I don't want the second range of g's for now. at the moment I solve this by looping over the content and check the color of each char. On a colorchange I'll select the chars of the old color. This is pretty slow though and it seems primitive. There has to be a better way.... Thanks in advance, rVo Tag: Macro to diplay printer list Tag: 80754
  - 15
    - How do I print only one page in a document on MS Office Word 2003 I have a word document of 31 pages. I want to print only one of these pages (not the whole thing). When I select 'print', it just stars printing the whole document. It doesn't offer me the selection of what page to print, like I have in other applications. Is there anyway to do this, (just tell the printer to print only 1 specific page)???? Tag: Macro to diplay printer list Tag: 80746
  - 16
    - Shortcut This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C62D02.8E3C0340 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I posted the following in the DocManagement group to format words like = Smith as S-M-I-T-H. Sub myFormat() Dim oRng As Range Dim oChr As Word.Range Set oRng =3D Selection.Range oRng.Text =3D UCase(oRng.Text) oRng.MoveEndUntil Cset:=3D"ABCDEFGHIJKLMNOPQRSTUVWXYZ", _ Count:=3DwdBackward Set oChr =3D oRng.Characters.First Do oChr.InsertAfter "-" Set oChr =3D oChr.Next Loop Until oChr =3D oRng.Characters.Last End Sub I thought that I could use Cset:=3D"[A-Z]" but it didn't work. I suppose that there is nothign wrong with = "ABCD..." but was curious to know if there is a better way. Thanks --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0008_01C62D02.8E3C0340 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> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2802" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>I posted the following in the DocManagement group to format words = like=20 Smith  as S-M-I-T-H.</DIV> <DIV> </DIV> <DIV>Sub myFormat()<BR>Dim oRng As Range<BR>Dim oChr As = Word.Range<BR>Set oRng =3D=20 Selection.Range<BR>oRng.Text =3D UCase(oRng.Text)<BR>oRng.MoveEndUntil=20 Cset:=3D"ABCDEFGHIJKLMNOPQRSTUVWXYZ", _<BR>    =20 Count:=3DwdBackward<BR>Set oChr =3D = oRng.Characters.First<BR>Do<BR>oChr.InsertAfter=20 "-"<BR>Set oChr =3D oChr.Next<BR>Loop Until oChr =3D = oRng.Characters.Last<BR>End=20 Sub</DIV> <DIV> </DIV> <DIV>I thought that I could use Cset:=3D"[A-Z]"</DIV> <DIV>but it didn't work.  I suppose that there is nothign wrong = with=20 "ABCD..." but was  curious to know if there is a better way.</DIV> <DIV> </DIV> <DIV>Thanks<BR>-- <BR>Greg Maxey/Word MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_0008_01C62D02.8E3C0340-- Tag: Macro to diplay printer list Tag: 80742
  - 17
    - how to compile C++ code with input file using API I'm trying to compile a C++ file with the Microsoft C/C++ compiler in VBA. Thru the use of API (CreateProcess) I was able to compile the C++ file. However, as I tried to include input file, it doesn't work. The result is simply the compilation without an input file. Any help is appreciated. Thanks!! In main: ======== Call compileAndWriteOutput("cl " & "inputfile.txt" & " " & "program.cpp", outputFileName) VBA code ======== Option Explicit ' Contants Private Const STARTF_USESHOWWINDOW As Long = &H1 Private Const STARTF_USESTDHANDLES As Long = &H100 Private Const SW_HIDE As Integer = 0 ' Types Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type ' Declares Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, _ phWritePipe As Long, _ lpPipeAttributes As Any, _ ByVal nSize As Long) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _ lpBuffer As Any, _ ByVal nNumberOfBytesToRead As Long, _ lpNumberOfBytesRead As Long, _ lpOverlapped As Any) As Long Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, _ ByVal lpCommandLine As String, _ lpProcessAttributes As Any, _ lpThreadAttributes As Any, _ ByVal bInheritHandles As Long, _ ByVal dwCreationFlags As Long, _ lpEnvironment As Any, _ ByVal lpCurrentDriectory As String, _ lpStartupInfo As STARTUPINFO, _ lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'Delete file using deleteFile API Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long ' Declaration '--------------------------------------------------- ' Call this sub to compile and write output thru a console app. Public Sub compileAndWriteOutput(ByVal sCommandLine As String, _ ByVal outputFile As String, _ Optional ByVal sStartInFolder As String = vbNullString) Const BUFSIZE As Long = 1024 * 10 Dim hPipeRead As Long Dim hPipeWrite As Long Dim sa As SECURITY_ATTRIBUTES Dim si As STARTUPINFO Dim pi As PROCESS_INFORMATION Dim baOutput(BUFSIZE) As Byte Dim sOutput As String Dim lBytesRead As Long Dim waitError As Long Dim aFile As Integer With sa .nLength = Len(sa) .bInheritHandle = 1 ' get inheritable pipe handles End With 'SA If CreatePipe(hPipeRead, hPipeWrite, sa, 0) = 0 Then Exit Sub End If With si .cb = Len(si) .dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES .wShowWindow = SW_HIDE ' hide the window .hStdOutput = hPipeWrite .hStdError = hPipeWrite End With 'SI If CreateProcess(vbNullString, sCommandLine, ByVal 0&, ByVal 0&, 1, 0&, ByVal 0&, sStartInFolder, si, pi) Then Call CloseHandle(hPipeWrite) Call CloseHandle(pi.hThread) hPipeWrite = 0 aFile = FreeFile Open outputFile For Output As #aFile Do DoEvents If ReadFile(hPipeRead, baOutput(0), BUFSIZE, lBytesRead, ByVal 0&) = 0 Then Exit Do End If sOutput = Strings.Left$(StrConv(baOutput(), vbUnicode), lBytesRead) Print #aFile, sOutput Loop Call CloseHandle(pi.hProcess) Close #aFile End If ' To make sure... Call CloseHandle(hPipeRead) Call CloseHandle(hPipeWrite) End Sub Tag: Macro to diplay printer list Tag: 80739
  - 18
    - mass conversion to PDF To convert multiple office files to multiple pdf files one has to 1. Set PDF as a default printer 2. Disable all PDF prompts for confirming file names, etc. This can be done under Acrobat settings or under PDF printer properties 3. Create a new folder named *my Documents* in ...Adobe/Acrobat/Distllr folder 4. Select files to be converted, e.g. in Windows Explorer, right click and click Print. Many thanks to Jezebel for helping with sorting this thing out. You saved me hours of boring work. The newly created PDF files are placed in the above mentioned my Document folder retaining their original name. Strangely, this folder is not created at the Acrobat installation, but without it, conversion to PDF via print command returns an error. -- JanAdam Tag: Macro to diplay printer list Tag: 80733
  - 19
    - disable macro on save Is it possible to delete or disable a macro when a document has been saved? Tag: Macro to diplay printer list Tag: 80716
  - 20
    - Stuffing text from Word into a VT100 terminal emulator Here's a challenge for you. I need to get some complex text into a legacy database running in a VT100 terminal emulator (please don't laugh). So I am generating the text in Word 97 using dropdown form fields, with VBA running in the background to conditionally alter other fields. Once done, I have a button that copies the text to the clipboard. The user switches to the VT100 terminal emulator and pastes the text in. There are two remaining things that I would like to do. 1) Preserve the bold and underline from the Word text. In the database, bold is switched on and off with key strokes <crtl-6><b> and underline with <ctrl-6><u>. 2) Also put data into other fields in the database. I could due this with a macro in the terminal emulator but I want the data vary depending on the contents of the Word file. So when I switch to the database, I am thinking that I need to be able to stuff the keyboard with a sequence of keystrokes. I realise that the solution may depend on the specifics of the VT100 terminal emulator that I am using. The terminal emulator runs macros which are held in files. One possibility is to have VBA write the macro to a file, switch to the terminal emulator and then run the macro that Word has just produced. -- Paul Bishop Tag: Macro to diplay printer list Tag: 80714
  - 21
    - Can a merge to print macro be created/used on a protected .dot? Created a fax template with a mail merge. Would like a macro toolbar button that can be used to "merge to printer" while the template/document is still protected. Is this possible? Tag: Macro to diplay printer list Tag: 80712
  - 22
    - temporary font install I am creating templates for use on our intranet using Word and Excel 2000 on Win 2000. I need a template to temporarily install a Type 1 font from our fileserver for use while the document is open; I cannot have users install fonts manually and I don't have a TrueType version. After much Googling, the following is what I have come up with. It throws no errors, but it always returns 0 (meaning no font installed) and the font list in Word never shows the font. Any suggestions or alternatives would be greatly appreciated. Thanks, Bruce '---------- Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Private Declare Function RemoveFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Const FONTFILE = "\\server\share\folder\fontname.PFB|\\server\share\folder\fontname.PFM" Dim tmp As Long Private Sub Document_Close() tmp = RemoveFontResource(FONTFILE) MsgBox tmp End Sub Private Sub Document_New() MsgBox FONTFILE tmp = AddFontResource(FONTFILE) MsgBox tmp End Sub Private Sub Document_Open() tmp = AddFontResource(FONTFILE) MsgBox tmp End Sub Tag: Macro to diplay printer list Tag: 80699
  - 23
    - Word Form submit function I have created a form in Word 2003 for publishing on my website. The idea is that me or my colleagues fill this form in hit the submit button and then it e-mails the form and its contents to an e-mail address. I have uploaded it to my server and tested it but when I hit the submit button my outlook editor opens and nothing else happens. I want the form to be e-mailed stright to my colleagues inbox. Can someone assist me with this or should I go out and purchase some specialist software Thankyou in anticipation Tag: Macro to diplay printer list Tag: 80697
  - 24
    - Creating a visible field with a hidden component? I need to create a field that will be inserted via VBA code. This will be made up of nested fields. The outer field will use a Quote field with a visible text element that will show in the document. Along with this is a nested field which contains tags that I will parse for with another macro. The issue is I need to make the second nested field not visible and also easily parsable in code. I'm thinking of storing a delimited string in this field to contain the various elements need later. The only way I can think to do this is using the SEQ field with the \h. Is this the only/best approach? Here is what I want or similar: { QUOTE (CAUKEO) { SEQ AA-BB-CCCC \h } } So later on I want to parse out the SEQ field associated with the QUOTE and based on what it contains (i.e. does it include AA then..) do something in the macro. Any thoughts or insight on this approach? Tag: Macro to diplay printer list Tag: 80695
  - 25
    - Insert document body, but not header I am trying to insert a word document with this code: Selection.InsertFile FileName:=myfile, Link:=False It works fine with most documents, but when myfile have a section and uses header/footer the header from myfile overwrites my origin header. I only want the main body of myfile and not the header. I use Word 2003. Tag: Macro to diplay printer list Tag: 80692

Hello,

We have Word 2003. I'd like to create a macro that would pull up a userform
and allow my users to choose which printer they want. I know some visual
basic and I know how to create the userform.

What I need is the code to be able to select the printer.

We have HP Laserject printers.

Thanks!

Top

RE: Macro to diplay printer list by davelett

davelett
Fri Feb 10 14:22:28 CST 2006

Hi,

Any reason not to use the built-in dialog?

Dialogs(wdDialogFilePrint).Show

HTH,
Dave

"LDMueller" wrote:

> Hello,
>
> We have Word 2003. I'd like to create a macro that would pull up a userform
> and allow my users to choose which printer they want. I know some visual
> basic and I know how to create the userform.
>
> What I need is the code to be able to select the printer.
>
> We have HP Laserject printers.
>
> Thanks!

Top

Re: Macro to diplay printer list by Graham

Graham
Sat Feb 11 02:16:21 CST 2006

Even simpler - if multiple printers are available why not just add a
printers toolbar using the method at http://www.gmayor.com/fax_from_word.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

LDMueller wrote:
> Hello,
>
> We have Word 2003. I'd like to create a macro that would pull up a
> userform and allow my users to choose which printer they want. I
> know some visual basic and I know how to create the userform.
>
> What I need is the code to be able to select the printer.
>
> We have HP Laserject printers.
>
> Thanks!

Top