Printing Select Pages in sequence in a file

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - styleref returns nothing Hi, I was trying to add in a styleref to the word document (word 03) as follows Appendix {STYLEREF \s "Heading 4"} - Testing Only but it shows Appendix (blank) - Testing Only, instead of Appendix A That styleref works in the footer of the document. Does it only work for the footer or header? Thank you in advance Tag: Printing Select Pages in sequence in a file Tag: 118019
  - 2
    - MS Word Templates Iâ??m a physician (radiologist) and also involved with a company in the medical information systems arena, DR Systems. Inc, based on San Diego. Iâ??m not a software engineer and something less than a beginner when it comes to VBA. I wonder if you can help me with the following problem or direct me to a resource that can. Iâ??ve been creating templates for radiologists who read MRI, CTâ??s and other imaging exams, and have been experimenting with form automation. In the world of health care information systems, we have some limitations. Often reports must be handed to other information systems using only HL-7 text strings. So diagrams, buttons, tables, etc are usually not acceptible. Also, locking forms can be tricky, since physicians usually want to be able to both use an automated form, but also change or delete just about anything. Finally, the reporting doctor doesnâ??t really want it obvious to the reader that he used a form. Iâ??ve learned to still automate report forms using macrobutton fields, hidden text, toolbar button-activated macros. With this background, hereâ??s my issue. Iâ??d like to be able to create the equivalent of a drop-down menu or listbox such that when you select an item, the selected item appears as text, meaning that you donâ??t continue to see evidence of the dropdown. In some cases, Iâ??d like to create the drop down as part of a macro. For example, Iâ??d like to show text like: â??The left ventricle is normal.â?? If the doctor clicks this text, it should change to: â??The <<?>> segment of the left ventricular myocardium shows <<?>>.â?? Where the <<?>> includes a list of available choices. Iâ??m getting close, but havenâ??t figured out how to add the drop down choices without running into issues related to form locking. For example, I canâ??t seem to lock just the drop down. If I had continuous section breaks befor and after the drop-down, MSWord creates a new line. Also, Iâ??m struggling to create a macro that itself writes and drop down menu (again, the issue isnâ??t so much inserting the menu, but dealing with the locking/unlocking). Iâ??ve tried dealing with the control toolbox as an alternative, but not successfully. Also, I use hanging indents in my templates, but run into an issue when the text is sent to other information systems. A hanging indent doesnâ??t result in any sort of HL-7 message, so the formatting is incorrect when displayed on other systems. Iâ??d love to figure out a way to add a VB instruction in my templates that automatically adds a tab whenever there is a soft line break. Can you help or point me to a resource that can? Iâ??m using MSWord2003, but would jump to 2007 if itâ??s easier. -- MAR Tag: Printing Select Pages in sequence in a file Tag: 118018
  - 3
    - What does Val return? The VBA help says the Val function "[r]eturns the numbers contained in a string as a numeric value of appropriate type." Does this mean that the data type of the returned value will automatically converted to the data type of the variable that's calling the function? For example, in the following contruction Dim myValue as Long Dim myString as String myString = "123 Main Street" myValue = Val(myString) will Val return "123" but will it be returned as a Long or do I need to use CLng to convert it? I know I can just be sloppy and let VBA force the conversion, but I would prefer to be precise. -- Cheers! Gordon Uninvited email contact will be marked as SPAM and ignored. Please post all follow-ups to the newsgroup. Tag: Printing Select Pages in sequence in a file Tag: 118015
  - 4
    - How to Load Form using Variable for Name I have a project I'm working on that will have lots and lots (20-30 or more) UserForms. As such, I don't want to pre-load them. Instead, I want to load them as needed. To do so, I've created a combo box on each form that lets the user choose what form to go to. The User picks one from the list then clicks on "OK" button. I then want to load that form and show it. To make it one bit harder my forms are all named "frm" + Form name. For example the forms are named, frmMyForm, frmYourForm, frmHisForm and the combo box shows "MyForm", "YourForm", "HisForm" The code I have so far for the OK click routine is: Private Sub cmdChoose_Area_Click() vChosen = Me.cmbChoose_Area.Value vName = "frm" + vChosen Call FormGoTo(Me.Name, vName) End Sub In FormGoTo I have the receiving parameters (vFormFrom, vFormTo) No matter what I do I can't Load "vFormTo". I've tried FormGoTo (vFormFrom, vFormTo as UserForm) but then I get an error from the calling procedure. I've tried: Load vFormTo Load UserForms(vFormTo) etc, but with no luck. Is there any way to do this? Tag: Printing Select Pages in sequence in a file Tag: 118013
  - 5
    - email form based on drop down value I have a form in word with a drop down field. I have a submit button at the bottom of the form and I want the form to email as an attachment using code to determine the email address. The code in the "submit" button should reference the drop down field to determine the recipient. For example: If the dropdown = "service", then email joe@abccompany.com If the dropdown = "sales", then email mary@abccompany.com If the dropdown = "billing", then email john@abccompany.com Can this be done? I have other forms that mail to a specified address as an attachemnt, but do not know how to have a field refernced like this. Please help..... Thanks- Scott Tag: Printing Select Pages in sequence in a file Tag: 118006
  - 6
    - Out of Stack Space???? I have this code below which gets me into the Header rather than going through the toolbar but the problem is once I get into the header, the header toolbar Close button is deactivated, I can't get out of the header area and the document locks up. This then generates an Out of Stack Space message with this: "ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader" line highlighted in yellow. Any one out there know what's going on with this and how to solve this. Thanks in advance for your help. Sub ViewHeader() ' ' ViewHeader Macro ' Macro recorded 9/16/2008 by dwallace ' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End Sub Tag: Printing Select Pages in sequence in a file Tag: 118004
  - 7
    - 'PrivateProgramString' of object 'System' failed The following autorun code worked in Word 2003/Windows XP: Sub AutoNew() InvoiceNo = System.PrivateProfileString("C:\Settings-Hannani.txt", "MacroSettings", "InvoiceNo") If InvoiceNo = "" Then InvoiceNo = "1" Else InvoiceNo = InvoiceNo + 1 End If System.PrivateProfileString("C:\Settings-Hannani.txt", "MacroSettings", "InvoiceNo") = InvoiceNo ActiveDocument.Bookmarks("InvoiceNo").Range.InsertBefore Format(InvoiceNo, "00#") ActiveDocument.SaveAs FileName:="C:\Hannani\Word Files\Invoices\" + "Hannani Inv 2008-" & Format(InvoiceNo, "00#") End Sub I copied everything over to a new computer running Windows Vista and Word 2007 and get the following error: "Method 'PrivateProfileString' of object 'System' failed" This is what appears in the referenced Settings-Hannani.txt file: [MacroSettings] InvoiceNo=16 It is used to increment an invoice number each time the template is used to create a new document. Can you tell why this does not work in Word 2007? Thanks... -- singeredel (Julie) Tag: Printing Select Pages in sequence in a file Tag: 118001
  - 8
    - Acronym macro - find and print in second file Hi, Back in '02 Mark Tangard suggested this snippet to find macros. With Selection.Find .Text = "<[A-Z]{3,}>" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = True .MatchWildcards = True .Execute End With Has anyone (or would anyone like to) used this to create a fuller macro that reads through file 1, finds acronyms, and writes them and the page number to file 2? Alternatively, has anyone written a macro that finds the first use of an acronym and somehow checks that it is indeed defined (and only defined once!) with that first use? Cheers, Bruce Tag: Printing Select Pages in sequence in a file Tag: 117998
  - 9
    - Why using AutoExit don't delete CommandBarControl from menu? Hello. There is one template which has 3 macro. First macro is called "AutoExec". It create one menu item into menu FILE. The click on this item launches other macro (3-st macro). Second macro is called "AutoExit" It delete new menu item from menu FILE. I placed my template to the folder "StartUp" for Word. When I start Word into menu File is creates my item. Next I close Word and delete (manually) my template from folder "StartUp". Again start Word and see that new menu item wasn't deleted - it there. Why? I know that auto macro "AutoExit" is run when closing Word or template. But why then my macro don't run? Thank you. Tag: Printing Select Pages in sequence in a file Tag: 117997
  - 10
    - Sending Picture to behind text using Word Automation With C# Hi all I have a word document and I am inserting a picture at a bookmark. BookMark1.Range.InlineShapes.AddPicture(PictureLocation.Text, ref readOnly, ref isVisible, ref missing); What I need to do is to set the picture layout as Behind Text. I know it has to be a shape to do this so I use the ConvertToShape method but I don't seem to be able to find a method to set the layout. Can anyone help please. Thank You Tag: Printing Select Pages in sequence in a file Tag: 117993
  - 11
    - Word page formatting with protection on I am trying to protect field references that are embedded in the body of a paragraph. I have been able to do so using protection and exceptions. Once that is in place page setup is no longer editable. Can someone offer a solution? Tag: Printing Select Pages in sequence in a file Tag: 117990
  - 12
    - Need to find commands behind a ToolBarPopup control I've inherited a couple of Word templates which have custom toolbars, one of which has a button, "Report AutoText", which opens a popup menu. One of the submenu options is "Insert FramedFigure", which appears to do some formatting and then inserts a small logo image. I can't find any code anywhere in the macros that does this, and can't find any kind of a link to the image so it can be changed. How do you identify the commands that run behind one of these ToolBarPopup controls? Tag: Printing Select Pages in sequence in a file Tag: 117984
  - 13
    - Delete page (that includes a header & footer) I'm trying to delete the last page of a 4 page document. All pages have the same header and footer. I've tried macropod's code from 15/8/08 (slightly amended as I'm using late binding): objDoc.Application.Selection.Goto 1, -1 ' wdGoToPage, wdGoToLast objDoc.Bookmarks("\Page").Range.Delete This clears all the text (except in the header & footer) from the page, but doesn't actually delete the page! I'm assuming this is because of the header and footer. How can I actually delete the page? Tag: Printing Select Pages in sequence in a file Tag: 117976
  - 14
    - How can show into Dialog (Open) only the files excluding the folders? I wonder if there is a way to hide the folders into the dialog Open File and show there only the files? Thank you very much. Tag: Printing Select Pages in sequence in a file Tag: 117974
  - 15
    - Selecting a particular Frame Hi I have had help of here recently to help me batch change 2 frames in a document. I need to be able to ensure which frame I am changing. One of the frames has a bookmark in it but the otherone doesn't I need to be able to change both frames but there doesn't seem to be any standard as to which is frame 1 and which is frame 2. Can I set this knowing that one frame has a book mark in it? Hope this makes sense Jay Tag: Printing Select Pages in sequence in a file Tag: 117973
  - 16
    - How to select Secure printing for a document Is there a way to activate Secure printing with VBA? I found something about duplex printing with Word Automation in http://support.microsoft.com/?kbid=230743. Tag: Printing Select Pages in sequence in a file Tag: 117971
  - 17
    - Reg. MS Word Add-in Hi, I need to get the print details(number of pages, page range) in my add- in, when printing is completed. Is there any callback that can be handled in add-ins to get these details? Thanks, VSP Tag: Printing Select Pages in sequence in a file Tag: 117970
  - 18
    - extract characters from inside brackets in string I've got a combo box containing multiple values, ending in (xxx) where xxx is any number of characters. I want to write the combo box value to a string but strip out everything outside the brackets (so I just get the xxx characters). I looked at using a regex, but it seems a little complicated to get them working in VBA. Would anyone be able to rattle off a function that will do that for me? I'd spend ages working it out but I'll bet someone out there can write that stuff with their eyes shut :) cheers -E Tag: Printing Select Pages in sequence in a file Tag: 117965
  - 19
    - Accessing a Word document source Greetings! We have a bunch of Word documents that were created long time ago. One of the software that we use to translate complains about some track changes were left without accepting or rejecting. I have a script that supposely accepts all changes to the Word doc, but it does not work on some of these older documents. I know how to fix this problem by hand, but I would like to do this programmatically. The way to fix it by hand is, 1. Open the word document 2. Go to Tools > Macro > Microsoft Script Editor 3. Use Edit > Find and Replace > Find to search for the string mso- prop-change; you should find something like: <p class=MsoNormal style='mso-prop-change:"John Johnson" 20071130T1052'"... 4. Remove the part style='mso-prop-change:"John Johnson" 20071130T1052'" 5. Repeat this until you do not find the string mso-prop-change anymore 6. Save the document and close the Microsoft Script Editor I am able to open the Script Editor by doing, var w = WScript; var word = w.CreateObject("Word.Application"); var doc = word.Documents.Open(file); //msoHTMLProjectOpenSourceView 1 //msoHTMLProjectOpenTextView 2 var htmldoc = word.ActiveDocument.HTMLProject.Open(2); // This opens the Microsoft Script Editor But, the problem is that I would like to do this behind the scenes and not have the Script Editor come up. I would also like to do a search and replace on that specific document. I have searched on the Microsoft site for a solution, but none was found. I know how to do the search and replace, all I need is to be able to access the xml side of the Word document. Any ideas? thanks, jic Tag: Printing Select Pages in sequence in a file Tag: 117959
  - 20
    - Populate List Box with Word doc names in a folder I'm creating a user form with two list boxes. The list box on the left (lstDivisions)has check boxes for Divisions (i.e., 01, 02, 03 etc.). Upon selecting the desired division, I'd like the right list box (lstAvailDocs) to display all the names of Word documents that exist in the corresponding folder number located at G:\Master Specifications. For example, if the user chooses division 02 on the left, then the right list box should display all Word documents in G:\Master Specifications\02. The desired 02 folder may contain other non-Word files, but I only want Word documents to display in the second list box. I made a start with the code below, but I need help with the details. Thanks! -- Steve C Private Sub lstbxDivisions_Change() 'Runs when a check box in Divisions list box is selected For x = 0 To lstbxDivisions.ListCount - 1 If lstbxDivisions.Selected(x) = True Then LastSelected = lstbxDivisions.List(x) 'Check box has been selected 'Following populates the AvailDocs list box with choices made in lstbxDivisions With lstbxAvailDocs Ifile = FreeFile Open "G:\Master Specifications\" & LastSelected For Input As #Ifile While Not EOF(Ifile) Line Input #Ifile, SpecName .AddItem SpecName Wend Close #Ifile End With Next x End Sub Tag: Printing Select Pages in sequence in a file Tag: 117956
  - 21
    - How to open recent file momentary? Hello. There is the code macro for open dialog "Recent Files" (below). However when click "Open" on the some selected file then open new dialog with this file. I'm obliged twice click that open some file. Qustion: how to open some selected file from dialog "Recent Files" is for single click? thank you very much. My code: Sub openDlgMRU() im myPath As String Dim bKey As String bKey = System.PrivateProfileString("", "HKEY_CURRENT_USER\Software \Microsoft\Office\11.0\Common\General", "RecentFiles") myPath = Environ$("appdata") & "\Microsoft\Office\" & bKey & "\" With Dialogs(wdDialogFileOpen) .Name = myPath If .Display = -1 Then .Show End If End With End Sub Tag: Printing Select Pages in sequence in a file Tag: 117948
  - 22
    - Adding InlineShape makes Word freeze Hi, I'm adding a picture like shown below.. into Word 2007 Just before adding I get some data from another word file.. When I break the code here and step trough the code with F8 it runs perfectly , but when it runs without a break Word just freeze Do anybody know why? Thanks alot, Flemming Dim rBookmark As Range Dim oIS As InlineShape Set rBookmark = oDoc.Bookmarks(sBookmarkName).Range Set oIS = rBookmark.InlineShapes.AddPicture(FileName:=sFullFileName, LinkToFile:=False, SaveWithDocument:=True) If Not oBorderLineStyle = wdLineStyleNone Then With oIS With .Borders(wdBorderTop) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With With .Borders(wdBorderBottom) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With With .Borders(wdBorderLeft) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With With .Borders(wdBorderRight) .LineStyle = oBorderLineStyle .LineWidth = wdLineWidth150pt End With End With End If End If Tag: Printing Select Pages in sequence in a file Tag: 117947
  - 23
    - Why field shading persists Is there a way to have a Word 2007 .docx file not reveal field shading? The files in questions start out as .docm and are later saved as .docx. I know you can unlink field codes by selecting all and doing a Ctrl + shift + F9 but since it appears the VB code is gone in a .docx, I do not understand why the field shading persists? I am trying to give coworkers simple instruction on how to prepare a Word 2007 file before sending to a customer. The field shading gives a very undesirable boilerplate appearance should the recipient have the field shading option turned on to always. The field shading persists with the .dox file, a surprise to me. Has anyone ever run into this and have an easy solution? Tag: Printing Select Pages in sequence in a file Tag: 117944
  - 24
    - Disappearing code I had a Word template with some form fields. I used the Visual Basic editor to write some macro code for when the document closes. I did a Save As and saved the template as a new name. When I open that template, I can't find the macro code, as if it just disappeared? Am I doing something wrong? Tag: Printing Select Pages in sequence in a file Tag: 117940
  - 25
    - Using VBA how do set the position of a table I'm creating. I'm using the following to create a table. Set tblNew = docActive.Tables.Add( _ Range:=docActive.Range(Start:=0, End:=0), NumRows:=2, _ NumColumns:=3) How do I change the location of the table? If I put values in Start and End I get an app error, value out of range. I used 5 for both Start and End. Tag: Printing Select Pages in sequence in a file Tag: 117938
- Next
  - 1
    - Import Access Query into Form Fieldson in a Template I have a User Form with Form Fields that have bookmarks that identify each field. I also have an Access Database that has corresponding fields. Corresponding fields: ProjectTitle ProjectCatagory ProjectLeader TeamMember1 TeamMember2 Is it possible using VBA to import from the Access Query into the opened Template, the corresponding fields? Some how the user would have to select the Record wanted, but I think the fields could already be identified in the code. Also, would the Template have to be unprotected? -- Your guidance is greatly appreciated! Tag: Printing Select Pages in sequence in a file Tag: 117937
  - 2
    - Mailmerge, open Data Source through macro Hi We have two templates, one containing a list of clients and one with a standard letter. The one with the list of clients is the source for the other, so we can easily create a letter to a long list of clients. I would like to create a AutoNew macro in the template with the standard letter that opens the "Select Data Source" for mailmerge when opened, but can't figure out how? /Lasse Tag: Printing Select Pages in sequence in a file Tag: 117934
  - 3
    - How to use the function for find some text? Hello. Mr. Allen Wyatt publish code of one function which provide replace one text to other (http://wordtips.vitalnews.com/Pages/ T000811_Replacing_Text_in_a_Macro.html). However I can't call it into macro. How to correct take advantage of the opportunity this function? That is this function and my macro: Function RepText(sIn As String, sFind As String, sRep As String) As String Dim x As Integer x = InStr(sIn, sFind) While x > 0 sIn = Left(sIn, x - 1) & sRep & Mid(sIn, x + Len(sFind)) x = InStr(sIn, sFind) Wend RepText = sIn End Function Sub findWord() sIn = Selection.Text sFind = "the" sRep = "of" End Sub Thank you for your tips. Tag: Printing Select Pages in sequence in a file Tag: 117930
  - 4
    - Check for Changes I only want to save a document if changes have been made - is there some code that will tell you if changes have been made to a document? -- Bill @ UAMS Tag: Printing Select Pages in sequence in a file Tag: 117921
  - 5
    - Form I am in the process of creating a form and have a simple question. I have created a fill in text field and would to automatically use the contents of that field, once filled in, and have it automotically incorporated into other parts of the form / document. How do I do this? Thanks, Dave. Tag: Printing Select Pages in sequence in a file Tag: 117919
  - 6
    - copy first para of each section hello everyone i'm looping thru all the sections of a document. How can I put the first paragraph of each section into a variable. Or if I can put it into the header is better. Hope someone can show me how to code both options. thanx ahmed Tag: Printing Select Pages in sequence in a file Tag: 117918
  - 7
    - How to select first word into document? Hello. I need to select first word into current document. I use follow macro: Sub selFirstWord() ActiveDocument.Words.First.Select End Sub But if text has the space or pilcrow sing at the first set-out, then selecting it - not word. Similar with last word. Question: how to set bound for selection only for words? Thank you very much. Tag: Printing Select Pages in sequence in a file Tag: 117917
  - 8
    - From where can i download c++ turbo for free? i would like to know from which site can i downloas c++ turbo for free Tag: Printing Select Pages in sequence in a file Tag: 117910
  - 9
    - Autosave problem I am having a nightmare with the word autosave "feature". I am writing code to display forms on save and on SaveAs. The idea is that the user has to enter the information when saving. However, I cannot make these forms not appear during autosave!! Turning autosave off is not an option. Please help!!! Tag: Printing Select Pages in sequence in a file Tag: 117909
  - 10
    - Error message automating word 2007 Hi, I am using Visual Basic and hope this is the right group to ask this in. I have a program that automates MS Office and has worked fine up until Office 2007 and now I am getting the error message "This command not available on this platform". Below is one of the commands that is giving me problems. Set objwrd = CreateObject("Word.Application")'Works fine Set fso = objwrd.FileSearch 'This line generates error Is FileSearch not available in Office 2007 or do I need a different reference for my program to work? Any help appreciated. Thanks, Norm --? Norm Don't blame me, my programming is self-taught and my teacher was not very experienced. :-) normfowler_don't use_@hotmail.com Tag: Printing Select Pages in sequence in a file Tag: 117903
  - 11
    - Change formating of Dates with a macro Hi. I have a file that has a date of birth in the format of MM-DD-YYYY and I would like to reformat it to YYYY-MM-DD. An example of what the data looks like: <DoB>01-01-1990</DoB> I was attempting to isolate the date and change the formating using this code: With Selection.Find .Text = "<DoB>" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With With Selection .StartIsActive = False .Extend Character:="<" End With Dim rdate As Range Set rdate = Selection.Range rdate = Format(rdate, "YYYY-MM-DD") it doesn't appear to work. Could someone help? thanks! Tag: Printing Select Pages in sequence in a file Tag: 117894
  - 12
    - A HELP BOX I have a form that opens from a document. When you go to enter your name, it needs to be in a set format. Is there a way that when Iâ??m in the name textbox a help or information balloon opens with the following : â??Enter your First name, CtrlTab twice, your Middle Initial, CtrlTab once, Last Nameâ?? and then closes when they go to the next box? Tag: Printing Select Pages in sequence in a file Tag: 117893
  - 13
    - Expandable text box I have created a simple form in Word 07, which has active X content controls. I would like to make these controls a certain height to begin, but then allow them to expand if the user types more inside them. I would also like to set a maximum character amount within reason. I have set the IntegralHeight to true but no luck. WordWrap is true as is Multiline. This allows the user to enter as much text as tehy want, but the text box does not expand, and if this form is printed it only shows the text which is visible. Is this possible? I added 2 text box content controls and those work better, however those are quirky in that sometimes depending on where you click in the cell, it may not let you type. The only way this form works is after I protect it ... is that truly necessary? I have looked online but am not a programmer, but I will continue searching. Hope this makes sense, and thanks in advance Tag: Printing Select Pages in sequence in a file Tag: 117892
  - 14
    - Revision control I would like to add some programming to our existing document template that allows for a summary of changes. Currently, the document simply places a line next to any changed text (when Track Changes is turned on). What I would like it to do, when we make a change, is to ask for the Reason for Change, and enable us to gather a list of those changes and include them in the document. Can Word do this? Tag: Printing Select Pages in sequence in a file Tag: 117891
  - 15
    - Drop Down Lists Where can I find a sample code to create a drop down list with cascading sub menus for microsoft word 2002? Tag: Printing Select Pages in sequence in a file Tag: 117886
  - 16
    - How to insert the space into selection range? There is text which has some words (and phrases) which enclosure brackets. Example: "Some text (has has) words.". I need to change text within brackets (exclude brackets) to space. I use follow code (below), but I can't insert space into brackets. Help me, please. N.B. Of course, I can simply using dialog Find and Replace, but I want to do it by this code and with range. Thank you very much. My code: Sub delText() Dim oRange As Range Dim dt As String 'Set oRange = ActiveDocument.Range Selection.HomeKey wdStory With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "$*$" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True While .Execute Selection.MoveStart Unit:=wdCharacter, Count:=1 Selection.MoveLeft wdCharacter, 1, wdExtend Selection.Delete Wend End With Selection.HomeKey wdStory End Sub Tag: Printing Select Pages in sequence in a file Tag: 117881
  - 17
    - Paragraph numbrs in header I'm working on a large document, and I want to be able to put the last paragraph number used on every page in the header. I have defined Heading one as my chapters titles, Heading 2,3 and 4 are in the format 1.1, 1.1.1 and 1.1.1.1. I only need headings 2, 3, and 4 in my headers. I know how to insert the field STYLEREF "Heading 2" \l \n but this only shows me the paragraph numbers for those headings which are H2. Is there some way I can make the header display the paragraph number for *whichever* heading level is at the bottom of the page, perhaps using If..Then..Else? Thanks, Alice Tag: Printing Select Pages in sequence in a file Tag: 117875
  - 18
    - Mutually Exclusive Checkboxes and Counting the number of ticks in Hi, I am creating a form for users to complete that contains a table with 11 rows and fours columns in, each row has a question in the first column (apart from the top row which has headings in) and three checkboxes in columns 2, 3 and 4, which are used to record the end users answer, to clarify: Heading A B C Question 1 | ï?? | ï?? | ï?? | Question 2 | ï?? | ï?? | ï?? | Totals | ï?? | ï?? | ï?? | The two problems I require advice regarding are: Mutually Exclusive Checkboxes and Counting the number of ticks in each column. I would love some help in writing a macro that counts the number of checks in each column and returns a value to the bottom row, however each row answer needs to be mutually exclusive to ensure that users only make one selection per row (i.e. cannot choose A & B as an answer!). Please help me if you can and thanks for looking. Tag: Printing Select Pages in sequence in a file Tag: 117867
  - 19
    - How to get value from registry? Hello. Probably I found solution for getting the path for recent files. It can get from registry. Examle, for Office 2003 it is here: HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common\General \RecentFiles I want to get value from this key. How? I used follow code: Sub getPathRF() 'get the path for recent files Dim oPath As String Dim sPath As String oPath = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Common \General\RecentFiles" sPath = GetSetting() '???? I don't dig ???? MsgBox sPath End Sub However I don't know how to get value for my case? Help VBA don't explain for me. Thank you very much. Tag: Printing Select Pages in sequence in a file Tag: 117863
  - 20
    - Controlling Excel from Word Hi, I have read, and used, the information in the Control Excel fro Word article, and I have got my system to partially work (i.e. I can write to excel from a Word Macro) What I am now struggling with is inserting rows in the Excel Spreadsheet from the Word Macro, here is the relevant portion of the code: 'Open the workbook Set oWB = oXL.Workbooks.Open(FileName:=WorkbookToWorkOn) 'Select the Sheet Set oSheet = oWB.Sheets(SheetToWorkOn) oSheet.Range("C12") = "test" 'To prove I can access the worksheet! oSheet.Rows("3:3").Select Selection.Insert Shift:=xlDown ' "Compile Error Method or Data member not found" 'oSheets.Insert Shift:=xlDown 'doesn't work either 'oSheets.Selection.Insert Shift:=xlDown 'Nor does this, Could some one point out the errors of my ways please? Barry Tag: Printing Select Pages in sequence in a file Tag: 117861
  - 21
    - VBA Formfield Errors autotext insertion This is a multi-part message in MIME format. ------=_NextPart_000_0168_01C914D2.01D65080 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Help required please. In dropdown formfield autotext is not = consistently inserting attached template auototext tables. Code is = below. The template has three sections - two protected. one unprotected. = I got code from Microsoft online. Sometimes it inserts the autotext other times it throws and error. I am running SP3 WinXP Word 2003.=20 Sub DDAutotext1() 'DropDown Autotext =20 Dim DropResult As String ' Get result of the form field. DropResult =3D ActiveDocument.FormFields("Dropdown1").Result =20 ' UnProtect the document. ActiveDocument.Unprotect =20 Call DeleteSubject =20 With Selection =20 ' Go to location to insert Autotext =20 .GoTo What:=3DwdGoToBookmark, Name:=3D"Table1" =20 ' Insert AutoText name chosen from dropdown list '.InsertAfter DropResult =20 ' Insert the AutoText .Range.InsertAutoText '***This line falls over more often = than not and unprotects the form when it does. =20 End With =20 ' If ActiveDocument.Bookmarks("StartHere") =3D True Then =20 ' Selection.GoTo What:=3DwdGoToBookmark, Name:=3D"StartHere" =20 ' End If =20 =20 ' Re-Protect the document. =20 =20 If ActiveDocument.ProtectionType =3D wdNoProtection Then ActiveDocument.Protect Type:=3DwdAllowOnlyFormFields, = NoReset:=3DTrue End If End Sub ------=_NextPart_000_0168_01C914D2.01D65080 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.6000.16705" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV><FONT face=3D"Comic Sans MS">Help required please.  In = dropdown=20 formfield autotext is not consistently inserting attached template = auototext=20 tables. Code is below. The template has three sections - two=20 protected. one unprotected.  I got code from Microsoft = online.</FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS">Sometimes it inserts the autotext = other times it=20 throws and error.</FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS">I am running SP3 WinXP Word 2003. = </FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS">Sub DDAutotext1()</FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS">'DropDown Autotext</FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS">   <BR>   Dim = DropResult As String</FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS">   ' Get result of the form=20 field.<BR>   DropResult =3D=20 ActiveDocument.FormFields("Dropdown1").Result<BR>   = <BR>   '=20 UnProtect the document.<BR>   = ActiveDocument.Unprotect<BR>  =20 <BR>   Call DeleteSubject<BR>   = <BR>    With=20 Selection<BR>   </FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS">   ' Go to location to = insert=20 Autotext<BR>     <BR>   .GoTo=20 What:=3DwdGoToBookmark, Name:=3D"Table1"<BR>   = <BR>    '=20 Insert AutoText name chosen from dropdown list<BR>   =20 '.InsertAfter DropResult<BR>    <BR>   =20 '    Insert the AutoText<BR>   =20 .Range.InsertAutoText        &nbs= p; =20 '***This line falls over more often than not and unprotects the form = when it=20 does.<BR>    <BR>    End=20 With<BR>    <BR>'    If=20 ActiveDocument.Bookmarks("StartHere") =3D True = Then<BR>   =20 <BR>'        Selection.GoTo=20 What:=3DwdGoToBookmark,=20 Name:=3D"StartHere"<BR>       =20 <BR>'    End If<BR>    <BR>  = <BR>  =20 ' Re-Protect the document.<BR>   <BR>   = <BR>   If=20 ActiveDocument.ProtectionType =3D wdNoProtection=20 Then<BR>       ActiveDocument.Protect=20 Type:=3DwdAllowOnlyFormFields, NoReset:=3DTrue<BR>    End = If</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3D"Comic Sans MS">End Sub</FONT></DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV><FONT face=3D"Comic Sans MS"></FONT> </DIV> <DIV> </DIV></BODY></HTML> ------=_NextPart_000_0168_01C914D2.01D65080-- Tag: Printing Select Pages in sequence in a file Tag: 117860
  - 22
    - I know this is tiring but, spell check in form fields isn't workin Anita Kay In: microsoft.public.word.vba.general Hello all, I have read all postings on this topic and have done this on other documents, although the code on those documents iwas from an older version of the MVP doc. I keep getting a runtime error 4605 that tells me that the protect method is not available because the document is already protected. I do have the line of code that unprotects the doc. Would someone be so kind as to look over this and see where the problem lies? Here is all my code: Option Explicit Dim Cancelled As Boolean, MyRange As Range, _ CorrectedError As String, oDoc As Document Sub RunSpellcheck() Dim oSection As Section, OriginalRange As Range 'If no documents open, quit macro If Documents.Count = 0 Then Exit Sub End If Set oDoc = ActiveDocument 'Check what type of protection - if any - has been applied Select Case oDoc.ProtectionType 'If not protected, or if protected for tracked changes, 'run spellchecker and quit '------------- Case wdNoProtection, wdAllowOnlyRevisions If Options.CheckGrammarWithSpelling Then oDoc.CheckGrammar Else oDoc.CheckSpelling End If Application.ScreenUpdating = True Application.ScreenRefresh If oDoc.SpellingErrors.Count = 0 Then If Options.CheckGrammarWithSpelling Then MsgBox "The spelling and grammar check is complete", _ vbInformation Else MsgBox "The spelling check is complete", vbInformation End If End If System.Cursor = wdCursorNormal Exit Sub '------------- Case wdAllowOnlyComments 'Don 't want to run spellchecker if protected for comments Exit Sub End Select Set OriginalRange = Selection.Range System.Cursor = wdCursorWait '------------- '------------- 'If we've got this far, it's protected for forms 'Now unprotect the document oDoc.Unprotect Password:="not2day" oDoc.SpellingChecked = False 'Check each section for its protection property - 'which you can get even after unprotecting the document. 'If the section was protected, call a subroutine to spellcheck the formfields. 'if it wasn't, spellcheck the section StatusBar = "Spellchecking document ..." For Each oSection In oDoc.Sections If oSection.ProtectedForForms Then oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True If Cancelled Then 'Boolean variable returned by CheckProtectedSection 'procedure if user pressed Cancel button Exit For End If Else If oSection.Range.SpellingErrors.Count > 0 Then Application.ScreenUpdating = True oSection.Range.CheckSpelling If oSection.Range.SpellingErrors.Count > 0 Then 'User pressed Cancel button '(Pressing Ignore reduces the count, pressing Cancel doesn't) Exit For End If End If End If Next oSection 'Re-protect the document oDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True, Password:="not2day" OriginalRange.Select Application.ScreenUpdating = True Application.ScreenRefresh If oDoc.Range.SpellingErrors.Count = 0 Then If Options.CheckGrammarWithSpelling Then MsgBox "The spelling and grammar check is complete", vbInformation Else MsgBox "The spelling check is complete", vbInformation End If End If 'Release variables from memory System.Cursor = wdCursorNormal Cancelled = False CorrectedError = vbNullString Set MyRange = Nothing End Sub Private Sub CheckProtectedSection(oSection As Section) Dim FmFld As FormField, FmFldCount As Long, Pos As Long 'check only the text formfields, 'don't check listboxes and checkboxes - this speeds up the code Application.ScreenUpdating = False For Each FmFld In oSection.Range.FormFields 'Check to see if the field is a text formfield If FmFld.Type = wdFieldFormTextInput Then 'Check if the field is a 'real' text field (no date, formula etc); 'and that it is enabled for text input If FmFld.TextInput.Type = wdRegularText And FmFld.Enabled Then 'The following subroutine won't be called if Word 97 is in use If Not Left$(Application.Version, 1) = "8" Then Call TurnNoProofingOff(FmFld) End If FmFld.Range.SpellingChecked = False 'Change the language constant in the following line if necessary; 'when you type the = sign, a list of all supported language 'constants will appear, and you can choose one from the list. FmFld.Range.LanguageID = wdEnglishUS 'Or whichever language is appropriate for you 'If the current form field contains errors, spellcheck the text in it If FmFld.Range.SpellingErrors.Count > 0 Then 'The following condition is to allow for a Word 97 bug, which 'was fixed in 2000; (and in the latest Word 97 patches). If 'the formfield is in a table and contains more than one 'paragraph, then spellchecking it will crash Word 97 If Left$(Application.Version, 1) = "8" _ And FmFld.Range.Paragraphs.Count > 1 _ And FmFld.Range.Tables.Count > 0 Then Call Word97TableBugWorkaround(FmFld) If Cancelled Then Exit Sub Else 'Set a range to the formfield's range in case the user 'accidentally destroys the formfield by overtyping its entire 'contents Set MyRange = FmFld.Range FmFldCount = oSection.Range.FormFields.Count Application.ScreenUpdating = True FmFld.Range.CheckSpelling If IsObjectValid(FmFld) Then If FmFld.Range.SpellingErrors.Count > 0 Then 'User pressed Cancel button. (Pressing Ignore 'reduces the count, pressing Cancel doesn't) Cancelled = True Exit Sub End If Else 'If formfield was destroyed because user overtyped its 'entire contents CorrectedError = MyRange.Text If Len(CorrectedError) = 0 Then CorrectedError = MyRange.Words(1).Text End If 'Formfields should really NEVER be preceded by a tab; 'design your forms so that each formfield is in its own 'table cell (removing borders as necessary). However, to 'cater for any legacy forms you may have, the following 'loop works around the possibility that it might be 'preceded by a tab Pos = InStr(CorrectedError, vbTab) Do While Pos > 0 CorrectedError = Mid$(CorrectedError, Pos + 1) Pos = InStr(CorrectedError, vbTab) Loop 'If formfield was destroyed when the user corrected the 'spelling, reinstate it, and put the user's correction into its 'result. Note that although Undo reinstates the Formfield 'itself, if the Formfield is preceded by a tab, It doesn't 'reinstate the FmFld object, hence the need to do a count '(although, as previously stated, in a well-designed form, 'formfields should never be preceded by a tab, as it's 'better use table cells (removing borders as necessary). Do While Not FmFldCount = _ oSection.Range.FormFields.Count oDoc.Undo Loop 'Also due to a Word bug, if the formfield is preceded by a 'tab, the text within the formfield may now be selected 'without the formfield itself being selected! 'Hence the following convoluted workaround If Selection.FormFields.Count = 0 Then Selection.MoveRight unit:=wdCharacter Selection.MoveLeft unit:=wdCharacter, Extend:=True End If If Not IsObjectValid(FmFld) Then Set FmFld = Selection.FormFields(1) End If FmFld.Result = CorrectedError End If End If Application.ScreenUpdating = False End If End If End If Next FmFld End Sub '-------------------------------------------------------------------------------- Private Sub TurnNoProofingOff(FmFld As FormField) 'This subroutine is called only in Word 2000 and above FmFld.Range.NoProofing = False End Sub '-------------------------------------------------------------------------------- Private Sub Word97TableBugWorkaround(FmFld As FormField) 'Unlink formfield (convert to text) Set MyRange = FmFld.Range FmFld.Range.Fields(1).Unlink Application.ScreenUpdating = True MyRange.CheckSpelling If MyRange.SpellingErrors.Count > 0 Then 'User pressed Cancel button '(Pressing Ignore reduces the count, pressing Cancel doesn't) Cancelled = True End If CorrectedError = MyRange.Text 'Undo to reinstate the formfield Do While Not IsObjectValid(FmFld) oDoc.Undo Loop FmFld.Range.Fields(1).Result.Text = CorrectedError Application.ScreenUpdating = False End Sub Tag: Printing Select Pages in sequence in a file Tag: 117859
  - 23
    - Combo Box Problem In Word 2003, I created a form template. I created a macro that opens a user form when the document is opened. The user form comes up and I can fill in all the text fields, click OK and the document fills in everything exactly where I want (where the bookmarks are located in the form). I used Dian Chapmanâ??s instructions and it works fine. All is well...except, I need three drop downs (I assume combo boxes) from which the end user can select an item from a list. I began by creating a ComboBox, but canâ??t seem to get it to populate. Iâ??ve seen several ways to accomplish this and canâ??t seem to get any of them to work. I was going with: Private Sub UserForm_Initialize() With ComboBox1 .AddItem â??oneâ?? .AddItem â??twoâ?? .Add Item â??threeâ?? End With End Sub Where exactly do I put that? I have all the information for my bookmarks, etc., after btnUserOK_Click() and it works just fine. Tag: Printing Select Pages in sequence in a file Tag: 117850
  - 24
    - Searching for ." Hello: Using the code below, I am searching for many words, in addition to a period followed by a closing quotation mark. However, when I compile it, I am asked for a list separator or a closing paranthesis ()). Any idea how I would be able to search for a period and a closing quotation mark while using an array? What if I were searching with quotation marks on both sides? Thanks. vscourtext = Array("check ", "checks ", "checking account", "counseling", "offense", "center", "labor", "behavior", "honor", "honors", "here in the US", "in the US", "actualized", "analyze", "analyzer", "authorize", "capitalize", "categorize", "centralize", "color", "customize", "endeavor", "familiarize", "favor", "individualize", "industrialize", "maximize", "minimize", "normalize", "normalizing", "organize", "personalize", "privatize", "realize", "recognize", "skeptical", "stabilize", "utilize", "practice ", "licensed", "$", "/08", "/07", "/06", "5:00", ", and", "."") Tag: Printing Select Pages in sequence in a file Tag: 117849
  - 25
    - how do i instert the print meter on word I try to keep track on how many time I print MS word file. Please help me to create a meter or something that can help me to keep track. Thanks Tag: Printing Select Pages in sequence in a file Tag: 117848

Hi,

Pls help to print select pages..the issue is..i used to merge a word
document of 7 pages ...with the excel data...which results to hav a file of
654 pages...i have saved it...after some months .i want to print page 2 & 3
..and page 9 & 10..16 & 17..i.e leaving 5 pages which is not required better
it will like
Page 1- not req
Page 2-print
Page 3- print
Page 4 - not print
Page 5 - not print
Page 6 - not print
Page 7 - not print
Page 8 - not print
Page 9 - print
Page 10- print
Page 11- not print
Page 12 - not print
Page 13 - not print
Page 14 - not print
like wise...till the end of the document..is this will happen in word in
one go ..i have to do it manually..i am fed up;
Thanks,
Safi

Top

Re: Printing Select Pages in sequence in a file by Doug

Doug
Wed Sep 17 02:24:51 PDT 2008

Each 7 page letter will be in a separate section in the document and you
therefore need to tell Word to print the page and the section number - for
example
p2s1-p3s1, p2s2-p3s2, etc

To do this with a macro, use

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.PrintOut Range:=wdPrintFromTo, From:="p2s" & i, To:="p3s" & i
Next i
End With

--
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

"Safi." <Safi@discussions.microsoft.com> wrote in message
news:72E48D4A-C1DF-43FE-885E-3D3EF0584E64@microsoft.com...
> Hi,
>
> Pls help to print select pages..the issue is..i used to merge a word
> document of 7 pages ...with the excel data...which results to hav a file
> of
> 654 pages...i have saved it...after some months .i want to print page 2 &
> 3
> ..and page 9 & 10..16 & 17..i.e leaving 5 pages which is not required
> better
> it will like
> Page 1- not req
> Page 2-print
> Page 3- print
> Page 4 - not print
> Page 5 - not print
> Page 6 - not print
> Page 7 - not print
> Page 8 - not print
> Page 9 - print
> Page 10- print
> Page 11- not print
> Page 12 - not print
> Page 13 - not print
> Page 14 - not print
> like wise...till the end of the document..is this will happen in word in
> one go ..i have to do it manually..i am fed up;
> Thanks,
> Safi

Top