prinitng selctions

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Word 2000 - fade edges of photo inserted in document Word 2000 bulletin in progress: have a photo Dad wants to fade the edges on for cover (oval, square shape etc). He has done this previously years ago but can't remember how he did it, or which program. I've tried Picture Editor and see no such effect, same for Paint (all XP 2000 versions). Can anyone give tips on how one might do this? -- AJ Tag: prinitng selctions Tag: 87875
  - 2
    - Field Codes I am trying to add a field code in word to pull from our public folder contact list. ie, company names, numbers, addresses....so when the user goes to this document and clicks on the "to" it's pulls from outlook contacts. Does anyone know the best way to accomplish this task? thanks in advance. Tag: prinitng selctions Tag: 87870
  - 3
    - DocumentBeforeSave Event error Hi, everybody. I am trying to move file from one folder to another, back and forth depending on user's actions. However, when the move file procedure is triggered by the DocumentBeforeSave event, Word shuts down completely with the message "Microsoft Office Word has encountered a problem and needs to close. We are sorry for the inconvenience", and I am not able to trap this error. File is successfully moved if the sub is called by subs other than DocumentBeforeSave. Please help. I have spent close to 2 weeks on this problem. Tag: prinitng selctions Tag: 87869
  - 4
    - Font Substitution Hello OS: Windows XP App: Word XP I would like to obtain some VBA that will permanently convert all Substituted Fonts to "Times New Roman". The code below will permanently convert a single known substituted Font. I am looking for VBA that will loop through all Substituted Fonts. Application.SubstituteFont UnavailableFont:="Times New Roman Bold", SubstituteFont:="Times New Roman" PLease don't burn too much midnight oil on this one, however, a result would be outstanding. Regards Mike Tag: prinitng selctions Tag: 87867
  - 5
    - Can't Merge Cells in Word after Splitting and deleting Hi, I will try to explain my problem the best I can. I have a table and the first column's text went with 6 rows (in the 2nd column) so the first column was merged to show this. I split cells in the first column to go with the 6 adjacent rows, then I deleted some rows, and tried to remerge the first column and it won't give me the option to merge. I can merge some of the cells, but can't merge the ones that went above the rows I deleted. Any information on how to fix this problem would be greatly appreciated! Thanks! Tag: prinitng selctions Tag: 87864
  - 6
    - DAO OpenRecordset in Word 2000 VBA returns nothing I'm having an unusual problem with DAO and VBA in Word 2000. Here's the problem code: set myRecord = myDatabase.OpenRecordset(someQuery) "myDatabase" is an open database connection to an Access database file (mdb file), "myRecord" is a Recordset object, and "someQuery" is an SQL query string; e.g. "select * from thisTable where thisField=SomeValue" The problem is, if "someQuery" returns 0 (zero) rows, then myRecord isn't "set" - it remains uninitialized. Later on in the code, a test like this is used: do while myRecord.EOF = False ' do something loop This causes a problem in Word 2000 (but not later versions of Word) because "myRecord" is not set, so you get a "object variable or with block variable not set" error. My question is this: is the behavior of "OpenRecordset" different under Word 2000's VBA? Or have I been wrong all this time in assuming that if the query passed to OpenRecordset returned 0 (zero) rows, it would at least return an empty (i.e. EOF=True) recordset? Or is this maybe just a strange problem with a particular installation of Word/VBA/JET/DAO? Tag: prinitng selctions Tag: 87859
  - 7
    - CTRL+Tab Gives VB Error Word 2003 I have a user who has reported a strange problem in Word. I have my doubts as to whether or not this problem is caused by Word, but since the user is getting a VB error in Word, I thought that I would start my research by posting the problem in this group. When the user hits CTRL+Tab she gets the following VB error. Error 91: Object variable or With block variable not set The user also uses a program called CrossEyes, which is supposed to be like the WordPerfect Reveal Codes command for Word. The user has noticed that if she opens CrossEyes and then closes it, she can then go in to Word and use CTRL+Tab without getting the VB error. This leads me to believe that one of my least favorite programs--CrossEyes--is the real culprit. Has anyone seen this problem before, or have an idea of what might be causing the error? --Tom P.S. I detest CrossEyes because the information that it gives is of limited use, not always accurate, and the program has become a crutch for our old WordPerfect users by helping them to continue to think in terms of how WordPerfect does things, which just prevents them from ever truly understanding Word. But that's just my opinion. Tag: prinitng selctions Tag: 87854
  - 8
    - My Microsoft Word is askin me to convert? What do I do? I am tryin to use my Microsoft Word and a little box would pop up abnd say I need to convert. then it ask for a 16 digit number but i dont have a number and I dont have a program i bought my computer but the program was already on the computer. I need a 16 digit number. what do i do? Tag: prinitng selctions Tag: 87853
  - 9
    - Hidden rows appearing on open I'm using the following VBA to hide rows based on the selected checkboxes. However, if I close the document and then reopen it, the hidden rows appear, but sort of squashed. Any ideas? Sub AutoOpen() Dim myArray1() As Variant Dim myArray2() As Variant myArray1 = Array("Regular", "24 Hour Priority", "Same Day Urgent") With ComboBox1 .Clear .List() = myArray1 End With myArray2 = Array("Test1", "Test2", "Test3") With ComboBox2 .Clear .List() = myArray2 End With End Sub Private Sub CheckBox1_Click() CheckBox1.Font.Bold = CheckBox1.Value If CheckBox1.Value = False Then CheckBox1.Font.Size = 10 ActiveDocument.Tables(1).Rows(2).Range.Font.Hidden = False Else CheckBox1.Font.Size = 12 ActiveDocument.Tables(1).Rows(2).Range.Font.Hidden = True End If End Sub Private Sub CheckBox2_Click() CheckBox2.Font.Bold = CheckBox2.Value If CheckBox2.Value = False Then CheckBox2.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox2.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Private Sub CheckBox3_Click() CheckBox3.Font.Bold = CheckBox2.Value If CheckBox3.Value = False Then CheckBox3.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox3.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Private Sub CheckBox4_Click() CheckBox4.Font.Bold = CheckBox2.Value If CheckBox4.Value = False Then CheckBox4.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox4.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Private Sub CheckBox5_Click() CheckBox5.Font.Bold = CheckBox2.Value If CheckBox5.Value = False Then CheckBox5.Font.Size = 10 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = False With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleDot .LineWidth = wdLineWidth025pt .Color = wdColorGray25 End With Else CheckBox5.Font.Size = 12 ActiveDocument.Tables(1).Rows(1).Range.Font.Hidden = True With ActiveDocument.Tables(1).Rows(2).Borders(wdBorderTop) .LineStyle = wdLineStyleSingle .LineWidth = wdLineWidth225pt .Color = wdColorBlack End With End If End Sub Tag: prinitng selctions Tag: 87851
  - 10
    - how do u change the text encoding default from Windows to ASCII In word how do i change text encoding from the Windows(default) to US-ASCII Tag: prinitng selctions Tag: 87849
  - 11
    - Override Regional settings within app Hi, I would like to override the regional settings (e.g. for the decimal char and the thousand separator) within an application. Is this possible and mor eimportant... how? Thx, Christian Tag: prinitng selctions Tag: 87843
  - 12
    - http interface from inisde VBA Hi: I want to send data using a cgi script via a http interface to the server from indide a VBA code. Is that possible? I know of something called "HTTP package" that Tcl provides. I was looking something similar to it. Any help is appreciated. Thanks. Tag: prinitng selctions Tag: 87839
  - 13
    - Failed SaveAs Makes Documents Invisible (Mystery with clues) I am using Word 2003 (11.8026.6360) Sp1 (VBA) When the execution of a "SaveAs" fails; as in the following statements; ActiveDocument.SaveAs _ FileName:="D:\Documents and Settings\henryhiggin\My Documents\Billminer\doppel.txt", _ FileFormat:=wdFormatText, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False, Encoding:=1252, InsertLineBreaks:=True, AllowSubstitutions:=False, _ LineEnding:=wdCRLF ActiveDocument.Close The followinf statements ignore all open word docs; passgo: For Each docOpen In Documents docOpen.Close SaveChanges:=wdDoNotSaveChanges Next docOpen The clue is that; although the documents can be closed manually; one cannot select "SaveAs" from the "File" menu. Is there a way of closing these stubborn files programatically? Thanks Tag: prinitng selctions Tag: 87832
  - 14
    - trapping run-time error 4198 I am experiencing a run-time error 4198 when comparing certain Word documents using vba (from Access 2000 - automating Word 2000). In general, I think it is caused when trying to compare documents that have already been compared. My problem is that I cannot trap the error. I have an On Error goto statement right before the doc.Compare filename statement, but it does not go to the error handler when the error occurs, instead presenting the 'Command failed' message to the User and then showing the yellow highlight on the Compare command when the 'Debug' button is clicked. I have tried setting the DisplayAlerts to each of the 3 different choices right before the Compare, all to no avail. Behaviour remains the same. The same code works fine for many other documents, but I want to gracefully be able to handle this problem, even if it is only to log the error and move on to the next file to be processed. Any ideas on why I can't trap this error? Anything different I can do? Any way I can detect if the file has already been compared, and thus avoid comparing when it would cause this error? Any help much appreciated, Thanks Christine Tag: prinitng selctions Tag: 87831
  - 15
    - Enabling spellcheck for protected forms in Word 2003 I believe that I have followed the instructions in http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm to attempt to enable spellcheck for a protected form. Unfortunately, I can't get this to work and Tools/Spelling and Grammar remains greyed-out. The process I used was to Create a new macro and paste in the code from the referenced URL, having deleted what Word put inb automatically. I have also created a very simple .dot file and tried to enable spellcheck using the same macro, but still Tools/Spelling and Grammar is greyed-out I note, BTW, that if I delete this macro, I am still told when opening these files that they contain macros. I don't understand this. I have run the example on the referenced URL and this works fine. I am using Word 2003. Any help much appreciated .... this is my first attempt to use Word macros. Thank you Gordon Marwood Tag: prinitng selctions Tag: 87823
  - 16
    - Add macro to the doc and change reference. Hi! I created Template with some macros.I put in Trusted Location on Server. every user can select template and create new document. in my templates i created Menu&Toolbar&Styles and I need it to be inherit to the *doc file. It is working well in company, while the reference point to the location of template. My problem is : when doc file is sent via email to the other company then the reference will be unknow and Word select default reference Normal.dot which donÂ´t include my Menus&Macros&style... 1. I copied Macros to the doc file project while creating. 2. I add Menu also while creating but when I send it to the another company word set as Normal as reference and the Forms&Procedu&menu&toolbar will be ignored. I hope you guys undestood what my problem is and I really need some help. Q: How can I solve this problem? I tried to delete reference it is not working! Q:Maybe have can I attach whole Template to the .doc file (doc size donÂ´t matter). Q:any other solution. Here is some code I used to add Items & Styles sub autonew() . . . 'Update styles ActiveDocument.CopyStylesFromTemplate Template:=ActiveDocument.AttachedTemplate.FullName . . . . Application.OrganizerCopy Source:= _ ActiveDocument.AttachedTemplate.FullName, Destination:= _ ActiveDocument.FullName, _ Name:="UF_translation", Object:=wdOrganizerObjectProjectItems Application.OrganizerCopy Source:= _ ActiveDocument.AttachedTemplate.FullName, Destination:= _ ActiveDocument.FullName, _ Name:="UserForm_Frontpage", Object:=wdOrganizerObjectProjectItems . . end sub Thanks Tag: prinitng selctions Tag: 87817
  - 17
    - Collecting Footnote reference text I wish to collect the actual text displayed in the footnote references in my document. Of course, just using Footnote.Index only gives you a numeric index, and while you can query the FootnoteOptions to work out that the format is say, lowercase letter, this doesn't help if the document editor has chosen to restart the footnote numbering at some point. And Reference.Text just returns an ASCII char 2. The following code shows an example of collecting each footnote and its reference. How do I collect the Reference's displayed text? Dim doc As Document Dim sect As Section Dim note As Footnote Set doc = ActiveDocument For Each sect In doc.Sections For Each note In sect.Range.Footnotes If (note.Reference.Start >= sect.Range.Start And note.Reference.End <= sect.Range.End) Then Debug.Print note.Reference.Text & " " & note.Range.Text End If Next Next Using Word XP and Word 2003 Tag: prinitng selctions Tag: 87814
  - 18
    - Duplex Printing I have managed to get the duplex printing working from the code found on "Controlling the Printer from Word VBA Part 2: Using VBA to control Duplex, Color Mode and Print Quality" which is much better than using sendkeys as I was before. However the even pages are printing upside down. Have I done something wrong or it is a querk from my printers (HP Laserjer 8150 PCL 5e Thanks Tag: prinitng selctions Tag: 87811
  - 19
    - Pasting charts to Word from Excel as picture Hi, I want to transfer some charts (as picture) in excel to a particular word document (specific page and specific position). The word document already has some data and lots of pages in it and Im inserting charts in specific places. When I used to do the above task for Excel to Power- point then I could use the, Right click Format picture, of Size (Height, Width) and Position on Slide (Horizontal, Vertical) in order to place the charts in powerpoint in the exact position and dimension I want. But Im not able to see an analogous feature in word where I could specify the Position (Position on page - Horizontal and Vertical) of object/chart in Word. When I do right click on a picture in Word, then size tab has height and width (Good for me), but I dont have any tab for position. What we do have is a tab called Layout, in which the "Advanced" button has Absolute position ... to of the column and Absolute position .... below paragraph. Im not sure whether by using these 2 properties I will be able to position my chart in the place I want. Again, I have not been able to try the above because of 2 reasons:- a) If I copy paste a chart named as Chart1 in excel to Winword then what is the name of that object in word? For checking this I recorded a macro in word where I selected a newly pasted chart from excel and see that the code it produces is ActiveDocument.Shapes("Group 1570").Select Knowin the name of the chart in word seemed important to me, because as soon as im done pasting, the cursor in word moves to the new line or rather the chart object is no longer active in word. So, if it is not active then how do I apply positional and size properties to it? b) Secondly, Im not sure of the of the exact syntax for applying positional and size properties. When I record a macro in word where I change the Height/width/Abs Position Col/ Abs Position Para to 2 inches then I get lot of recorded code out of which following seemed relevant to me (I have snipped rest). Selection.ShapeRange.Height = 144# Selection.ShapeRange.Width = 144# Selection.ShapeRange.Left = 180# Selection.ShapeRange.Top = 126# Selection.ShapeRange.Left = InchesToPoints(2) Selection.ShapeRange.Top = InchesToPoints(2) Im not able to understand as to why the Left and Top (Probably the positonal parameters for object) is getting recorded twice and that too in different units (once as 180# and another time as InchesToPoints(2)). Also, I want to know one more thing. As I have already mentioned I have text data in word and I have left enough space so that when a new chart gets pasted the text data below the chart doesnt get shifted down. For example, in the below code Im first navigating to the page where I want to paste chart and then pasting it. In this whats happening is that, even my page title and rest text gets shifted. How to avoid this situation Sub StartTransferProcess(WkbookNam As String, ShtNam As String, ChtNam As String, _ Pageno As Byte, Height As Double, Width As Double, ColPos As Double, ParPos As Double) Set SWinword = GetObject(, "Word.application") Set Sdocument = SWinword.Documents(WordDocName) Workbooks(WkbookNam & ".xls").Activate Sheets(ShtNam).Select ActiveSheet.ChartObjects(ChtNam).Activate ActiveChart.ChartArea.Select ActiveChart.ChartArea.Copy Sdocument.Activate Sdocument.ActiveWindow.Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=Pageno Sdocument.ActiveWindow.Selection.Paste ''' New code to be written for Positioning and sizing object End Sub Regards, HP India Tag: prinitng selctions Tag: 87808
  - 20
    - How do I insert an picture in Word which will automatically say print page .. Tag: prinitng selctions Tag: 87804
  - 21
    - Restrict Editing I have created a word document that has fields that can be filled in by the user. I also have other text in the document that I do not want the user to change/delete etc. Is there I way I can protect these areas of text? Thanks for any help Roger Tag: prinitng selctions Tag: 87802
  - 22
    - Create Word document from Access Query - Import image based on pat Hi, I need to create a Word document using data from an Access query. I can do this successfully using a mail merge. One of the fields is the UNC path to an image. I would like to insert the image into the document each time a new record is read. For example <<Field1>> <<Field2>> <<Field6 - Pathname>> <<Field3>> <<Field4>> <<Field5>> --------------------------------------------------------------- Field6 - Pathname is replaced by the actual image. Can the image also be resized? I do this in access using If IsNull(Me.Expr1) Or IsEmpty(Me.Expr1) Then Me.Image30.Picture = "\\server\path\noimage.jpg" Else Image30.Picture = Me.Expr1 End If Where Expr1 is the path. Can I do similar in Word VBA? My end user requires the output in Word so they can further format it before incorporating it into a book. Have I confused everyone yet? thanks Scott Tag: prinitng selctions Tag: 87801
  - 23
    - Code execution on footer change I am trying to get some code to run when a changes is made to the footer in a word document any ideas on how to do this. Tag: prinitng selctions Tag: 87795
  - 24
    - Mail Merge: Save every page with the value of cells in excel... Dear all, I have a word document that takes values from an excel file. In my excel file, there are 5 columns and the third column represents the supplier code. It takes values from the excel sheet and when i run mail merger, it gives me about a document with 150 pages... And then i manuelly split every ! page according the supplier code. I want a code that makes it automatically. The code will do something like that; for 1 = 2 to 150 (would change to the number of suppliers) Fill the linked places from excel file to word document document name = suppliercode save document close document next The problem is i couldn't find a way to use excel from word macro :( Can you please help me? Regards.. PS: The automation is not have to do everything. I can open the document, show the data adres. I just want it to save every page automatically with the name of the supplier code... :( Tag: prinitng selctions Tag: 87793
  - 25
    - Closing down Outlook using word VBA Is it possible to use VB code in a word macro to check if Outlook is running and if so to close outlook down? Thanks? Tag: prinitng selctions Tag: 87792
- Next
  - 1
    - Can a password be applied to a folder? Is there a method for password protecting a folder rather than having to protect each file in that folder. Tag: prinitng selctions Tag: 87788
  - 2
    - FAQ - Frequently Aske Questions - vba - please read before posting - unofficial July posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted every ten days or so. Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2003 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THESE --- http://www.mvps.org/word/FindHelp/Posting.htm http://www.dts-l.org/goodpost.htm http://users.tpg.com.au/bzyhjr/liszt.html Reading these articles will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. (5) Do not use your real email address unless you want spam. (See bottom for sample.) The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at http://addbalance.com/word/index.htm Newsgroup Archives: http://groups.google.com/advanced_group_search MVPs FAQ site: http://word.mvps.org/FAQs/MacrosVBA.htm and http://word.mvps.org/FAQs/Userforms.htm To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? http://addbalance.com/word/macrosfromnewsgroup.htm or http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm http://www.gmayor.com/installing_macro.htm 2. What are some good books for me to read about Word? http://addbalance.com/word/wordbooks.htm and http://www.mvps.org/word/Tutorials/BookRecommendations.htm 3. How can I run a macro automatically when a document opens, closes, is created? http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm 4. How can I distribute or backup macros / customizations? http://word.mvps.org/FAQs/MacrosVBA/DistributeMacros.htm http://addbalance.com/word/movetotemplate.htm 5. What is an MVP? http://www.mvps.org/word/AboutMVPs/index.html and http://addbalance.com/word/mvp.htm 6. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: http://addbalance.com/word/wordwebresources.htm#Forms especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: http://www.mvps.org/word/FAQs/Userforms.htm 7. Where can I find more information on the Web? http://addbalance.com/word/wordwebresources.htm#webvba http://www.mvps.org/word/FAQs/MacrosVBA.htm http://www.mvps.org/word/FAQs/Userforms.htm http://www.mvps.org/word/FAQs/Customization.htm http://www.mvps.org/word/FAQs/OfficeInterdev.htm 8. Recorded macros... http://word.mvps.org/FAQs/MacrosVBA/UsingRecorder.htm How do I edit or change? http://word.mvps.org/FAQs/MacrosVBA/ModifyRecordedMacro.htm Recorded macros are usually inefficient and sometimes just plain don't work. Nevertheless, they often do work and can be a good place to start! 9. How can I enter something once in a document and have it repeat elsewhere? (Not really vba, but it keeps being asked.) http://gregmaxey.mvps.org/Repeating_Data.htm 10. I can't save my customizations - AutoText, menus, etc. Can't save normal.dot... If you have Adobe Acrobat 7 installed see the last section of http://www.gmayor.com/lose_that_adobe_acrobat_toolbar.htm. Otherwise, hold down the Shift key when selecting the File menu and select Save All. See also http://www.adobe.com/support/techdocs/331259.html. 11. How can I get a template to show up under a tab with File => New? What are templates? Global templates? Document templates? http://addbalance.com/usersguide/templates.htm Comments / corrections / additions may be sent to wordfaq@no.spam.addbalance.com. Remove no.spam from the address. Posted 3 July 2006 Charles Kenyon (the editor) Tag: prinitng selctions Tag: 87785
  - 3
    - Want to know Line no. in which cursor is placed. I want to design a macro which when run can display the line no. of cursor position. -- Kushal Tag: prinitng selctions Tag: 87782
  - 4
    - dcsvv mb Tag: prinitng selctions Tag: 87780
  - 5
    - How do I export fields result from a word document to excell? I had design a Form in MS-Word 2003, now I need just to pick the results of the fields from the word document to excell sheet, so what shall I do? please help. Tag: prinitng selctions Tag: 87778
  - 6
    - Locked Document. I have activated my document, and the document still reads locked. Tag: prinitng selctions Tag: 87777
  - 7
    - Returning number of rows in table and adding to formula Hi, I am setting up a macro that allows users to add information into an unspecified number of rows in a table. The user adds info and then is asked if they wish to add more and this loops (addin a new row to the table) until they no longer wish to add info. One of the columns in the table is a figure and I want to have it automatically total at the end. As I do not know how many rows there will be I am unable to specify the formula. I have been able to return the number of rows and have defined this as "NumRows", however cannot use this in the formula - I have tried Sum(B1:BNumRows) but this does not work. Does anyone know how I can get the result of NumRows into my formula. FYI, I cannot use Sum(Above) as some cells may not contain any information and this would then not work. thanks, Tag: prinitng selctions Tag: 87775
  - 8
    - on error, go to next section of code Hello, I'm very new to this and was trying to create some error traps. Basically, if the text does not exists, then jump to next portion of code. In this example, if "10 Clothing" does not exists, then jump to "20 Clothing" Any help is appreciated Thank you. Sub test() ' ' test Macro ' Macro recorded 07/02/06 by rex ' Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .Text = "10 Clothing" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.ClearFormatting With Selection.Find .Text = "Deposits" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.ClearFormatting With Selection.Find .Text = "reason total" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend Selection.Copy Selection.EndKey Unit:=wdStory Selection.Paste Selection.TypeParagraph Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .Text = "20 Clothing" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.ClearFormatting With Selection.Find .Text = "Deposits" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Find.ClearFormatting With Selection.Find .Text = "reason total" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdWord, Count:=4, Extend:=wdExtend Selection.Copy Selection.EndKey Unit:=wdStory Selection.Paste Selection.TypeParagraph Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting -- rex Tag: prinitng selctions Tag: 87768
  - 9
    - Combobox that populates from outside source or a declared list val I have created a word document with fields for Techs to fill out online. In each row they will choose the customer name, error detected, etc. Each table will hold 25 lines, or 25 different customers. I would like to find an easy way to duplicate a combobox (drop-down), so that each row will give them the same choice of our customers. I know the .additem, but I don't want to repeat that list 25 times throughout the code. Ideally I would like someone else to maintain the document after I have created it. I can show them how to go into the code, but I prefer if they only have to modify one area. I tried to find info on declaring a list string, but I am not sure if I am using the correct terminology. Connecting to an excel, access, or other document is a possibility, but I would prefer if it was contained all in the same file (aka word doc). I use to be comfortable with Visual Basic, however it was over 5 years ago and I feel like I am starting all over again. Thanks in advance, Maria Tag: prinitng selctions Tag: 87765
  - 10
    - How to insert a variable string at different places in a Word document? Hi, I want to put a string that I can vary later at different places in a Word document. For example, I want to put a person's name in a document at several different places in a Word document, and I would vary that name from time to time. How can I do it with VBA or the built-in functions of Word? Thank you. David Tag: prinitng selctions Tag: 87754
  - 11
    - Template inheritance in Microsoft Word Is it possible for a Word template to inherit/refernce another template? I'm about to create several templates with different content, but the same code och forms and would like to store all code and forms in one template and let other localized templates inherit from a base template. BaseTemplate.dot ---- Template_En.dot -------- English document.doc ---- Template_Se.dot -------- Swedish document.doc Tag: prinitng selctions Tag: 87750
  - 12
    - Anyone know how to merge to labels? Created a mail-merge to labels both in design and again via wizard steps and it doesn't work Each label includes <next record> but it starts page 2 with 2nd record, pg 3 with 3rd record, etc Since the wizard creates this unusable document by default i assume it's a bug - is there a work around? Tag: prinitng selctions Tag: 87743
  - 13
    - Browsing through Column I am designing a macro in which i want to browse through a word document containing 3 columns. How can I browse (move) around in the columns. Suppose i want to go to last line of second column how can i do that. I don't want to use column breaks at the end of column. -- Kushal Tag: prinitng selctions Tag: 87742
  - 14
    - Disappearing bookmarks I have a procedure that updates the text in bookmarks as follows: --------------------------------------------------------------------------------------------------------- Public Sub BookMark_Update(strBookMark As String, strText As String) Dim oRange As Range On Error GoTo BookMark_Update_Error With ActiveDocument Set oRange = .Bookmarks(strBookMark).Range oRange.Text = strText .Bookmarks.Add strBookMark, oRange End With BookMark_Update_Exit: On Error GoTo 0 Exit Sub BookMark_Update_Error: [error routine] Resume BookMark_Update_Exit End Sub ------------------------------------------------------------------------------------------------------------ I use this to insert or update all the bookmarks in my document. However, I am having a problem with one bookmark. After I insert the text ok in this bookmark, and I try to refer to it again, I get the error message that this bookmark does not exist. If I look for the bookmarks in the document ( Insert->bookmarks), I can see the name of this particular bookmark. If I look in the Visual Basic IDE, and look at ThisDocuments.BookMarks, I cannot see this bookmark, but I see all the other bookmarks. The only difference between this particular bookmark and the other bookmarks in the document is that this particular bookmark is very lengthy and contains tab values. I am trying to refer to this particular bookmark to create table to contains this bookmark's contents. I have this same procedure in other documents. As a matter of fact, I just copied the whole code from another document, that does work. Tag: prinitng selctions Tag: 87737
  - 15
    - Drop Down Field Options - Add Hello: I created a fill in Word form with the controls from the Form Toolbar. One of them is a regular text field. Users always ask for more. Now, they say they would like to be able to have options to select so they don't have to type each time the "teacher's name". I cannot enter those names up front because I don't know what the list will be. I can create drop down field with the options but how would I have the options entered by the user? This form is protected. Can I give user access to Add Option or create some sort of dialog so the box can accept entries. I guess it would need to be unprotected for this to happen. Is is possible? Woudl appreciate your help. -- danka Tag: prinitng selctions Tag: 87735
  - 16
    - Help set a Default File Path I have a template file I want to fix the "Save as" directory to w:\MyPath instead of the normal "My Documents". I want to then reset to c:\DoumentsAndSettings... upon document closure. I see the "Run Method" and the "DefaultFilePath Property" help verbage but am somewhat clueless as to which method is best and how to embed the code. Thanks for the help. Office2003 Tag: prinitng selctions Tag: 87727
  - 17
    - Hyperlink to Outlook Hi, By putting, for example in Word, the following: <Outlook:Inbox/~Message_object> when you click on that link, it opens the message named "Message_object" (which message is in your Oulook Inbox already opened). But how can I open an attached document (named for instance "toto.doc" without the "") to this email from a link (put in a Word document for instance)? Additional questions: if two personal files are simultaneously opened , each in one Inbox (respectively corresponding to files "file1.pst" and "file2.pst"), how should I write the link? And does this work if only "file1.pst" is already opened in Outlook (in that case, how to write the link regarding the "file2.pst" supposed to be in C:\Mail\ ? Thank you in advance for your answer. U007 P.S. I asked already the question in the Word new user forum and in Outlook forum but got no answer ... Tag: prinitng selctions Tag: 87725
  - 18
    - AutoText Entries Word 2000 Hello, How, in VBA, can I define an complete AutoText entry in VBA? Name and text in VBA? Thanks Tag: prinitng selctions Tag: 87719
  - 19
    - Copy a module from add-in to active doc How do I copy a macro module from an add-in to the active document? (I'm trying to insert an auto-open macro by copying it into the doc.) I've used the Application.OrganizerCopy method to copy a toolbar that way, but it fails if I try to copy a module. And if you open the organizer and examine an add-in, you can't see the modules either. You can only see the modules in the add-in when it's actually open. Any help will be appreciated. Bear Tag: prinitng selctions Tag: 87708
  - 20
    - Does Style Exist in Document? Hello, I'm trying to write a macro that finds out if a particular style (MyBodyText) exists in the active document. Can you help? Thank you Tag: prinitng selctions Tag: 87704
  - 21
    - Check box form Feild Hello As you know we have two types of check boxs. One that is comming from Control toolbox toolbar and another that is on Form toolbar. My question is for the Check box that come from Froms toolbar not the other one. This is the Check box that when you check it a cross like X will be displayed on it. Other one "Control Toolbox" only a tick mark is shown. Does anybody know how to set and unset this check box using VB or Macro? I need to set this via Macro because it looks better when it is checed compare to the check box that is comming from Control toolbox toolbar. -- Jeff B Paarsa Tag: prinitng selctions Tag: 87701
  - 22
    - how to automate drop-down forms in a word doucment I have inserted drop down menus in a word document to make a template, if i lock the form and have a drop down box that is A-Z for example. How can I make it so that when a user hits the letter P, P shows up?? I can only find out how to make it work if the user drops down the list and selects the option, I'm sure there has to be an easier way. Thank you so much! Tag: prinitng selctions Tag: 87700
  - 23
    - Durability of objects I've managed to confuse myself. I open a document and set objTable to the first table in the document. Now I close the document, but I'm still able to access objTable and its contents. How can this be? I thought setting the object to some part of the document meant that the object was pointing to the same area of memory used to hold a range of the document. Am I wrong? Is it only by luck that I'm able to access that area of memory with the document closed? Is what I'm doing bad practice? Would it be better to load the table into an array? Confused, Bear Tag: prinitng selctions Tag: 87694
  - 24
    - On Entry Macro behaviour with Mouse click (Word 2003) I have a simple protected form with Text1 DropDown1 and Text2 If the user leaves Text1 empty I want to return to Text1 if the tabs or "mouses" to DropDown1 or Text2 This is my code: Sub OnEntry() Dim oFFLd As Word.FormFields Set oFFLd = ActiveDocument.FormFields If oFFLd("Text1").Result = "" Then oFFLd("Text1").Range.Fields(1).Result.Select End If End Sub and it is set to run onentry to DropDown1 and Text2 This works as expected using the Tab key and it works if the users mouse clicks to "Text2". However, if the user mouse clicks to DropDown1 the user is given access of the field and the code isn't executed until *after* the user makes a selection. I don't want the user to be able to change the value of Dropdown1 until they have entered text in Text1. Can this be done? Tag: prinitng selctions Tag: 87684
  - 25
    - Do not Print Header&Footer HI. I create Letter Template with some Macros. Firts page header ist diferent from primary header. both include some pictures. my problem is I need to print the letter on blank paper or preprinted paper. when I print on preprinted paper I do no want to print header&footer. 1,I try select the pictures from H&F then Selection.cut then print and followed by selection.paste. was not working properly(to many problems) 2,I try to select just the content and then print selection. ActiveDocument.content.select but H&F will be selected as well. I need help or ideas thanks Tag: prinitng selctions Tag: 87677

i need to print from page 1 to page n
page n is te one in which i find text "Chapter 2"

as my selection is located at chapter 2 (page 7 for example, but not always
7!))
how can i use ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1",
To:=n ??

how can i know in vba the current page number?

i need to use this for printing from chpater 1 to last page of chapter 1
then same for chpater 2 and 3

tya

Top

Re: prinitng selctions by Dave

Dave
Fri Jul 07 12:21:47 CDT 2006

Hi,

Are you printing "selections" or printing "sections"?

If you're printing sections, then you have a look at the article "How can I
print a range of pages that spans more than one section of a document" at
http://word.mvps.org/FAQs/General/index.htm

HTH,
Dave

"Paula Marcy" <puala@notspam.com> wrote in message
news:1horg.30758$zy5.609636@twister1.libero.it...
>i need to print from page 1 to page n
> page n is te one in which i find text "Chapter 2"
>
> as my selection is located at chapter 2 (page 7 for example, but not
> always 7!))
> how can i use ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1",
> To:=n ??
>
> how can i know in vba the current page number?
>
> i need to use this for printing from chpater 1 to last page of chapter 1
> then same for chpater 2 and 3
>
> tya
>

Top