Only print certain sections of a document in a form

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Macro to open built-in dialog in Word 2003 This question deals with Word 2003 on Windows XP. I know, in general, how to add a command or macro to the toolbar by clicking on Tools>Customize, clicking on the Commands tab, scrolling down the Categories list on the left side, highlighting the appropriate category, and then dragging the appropriate item to the menu bar. But not everything can be got to that way. For example, I would like to have a menu item or button that enables one to go immediately to the dialog box that opens when one clicks Tools>Customize>Keyboard with Macros highlighted in the left-hand side. The keystrokes, which are not recordable to bring up this dialog, in the macro recorder, would b. the following: <alt><T>, <alt><C>, <alt><K>, <alt>C>, <M>,<M>,<Right>. How would I write a macro that does this? I have an AutoHotKey script that does this, but I wanted to have a macro that does this. Regards, Alan Stancliff Tag: Only print certain sections of a document in a form Tag: 110764
  - 2
    - VBA Style Changes Effecting Template Hi, I have a piece of VBA code that updates styles in a document. The problem is every time this code executes, the base template is changed and I'm prompted to save it. What I want is for the change to only apply to the current document. An example of the code is If langUK Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUK Else If langUS Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUS ActiveDocument.PageSetup.PaperSize = wdPaperLetter Else ActiveDocument.Styles("Normal").LanguageID = wdEnglishAUS End If Tag: Only print certain sections of a document in a form Tag: 110762
  - 3
    - Insert Fields to Bookmark Hi, I have a document where I want to enter particular fields and text, depending on a condition. When completed, the bookmark should refer to the inserted text. The fields and bookmarks are already defined in the document. It's important that the fields be inserted in the bookmark, rather than just the value. The code should look something like: <delete existing bookmark text> If (condition) Then <add field1 to bookmark> <add text to bookmark> <add field2 to bookmark> Else <add field3 to bookmark> End If The cleanest way to do it would be to build the appropriate insert string then replace the bookmark. I can do this easily with text, but not with fields. Any suggestions would be much appreciated. Thanks, Geoff. Tag: Only print certain sections of a document in a form Tag: 110761
  - 4
    - ISASCII function VBA Gerus, Is there a function in VBA to derermine if a character is an ASCII character (A - Z or a - z)? I need something like this: msgbox IsASCII(aWord) returning a one or zero. Thanks. Charlie from Texas Tag: Only print certain sections of a document in a form Tag: 110755
  - 5
    - Update table cell in footer ! looking for the right syntax to access a cell in a footer ? here's what I've tried with no success... Set Rng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range with rng.table(1).cell(2,2) .text = "updated on february 25" end with Merci ! Tag: Only print certain sections of a document in a form Tag: 110752
  - 6
    - macro help please I need a macro that works like this: Drop down box contains 5 selections, if selection 2 or 3 are selected, then teh next field will highlight and a pop up will state " please list school attending" Word 2003 and 07 form is in *.dot format. -- Thanks,, Kim Tag: Only print certain sections of a document in a form Tag: 110748
  - 7
    - Using Middle Mouse Button to Cut/Paste Selection Is there a way to tie a VBA script to the middle mouse button? I want the middle mouse button to cut selected text and paste it where the user clicks the middle mouse button - is this possible? Tag: Only print certain sections of a document in a form Tag: 110740
  - 8
    - Looping WordPerfect used to automatically quit the macro when it couldn't find the search criteria anymore. Can Word do the same thing? Tried to do a loop but can't get it to work. Here is my code that I want to keep looping until it can't find anymore occurrences of *#*. Selection.Find.ClearFormatting With Selection.Find .Text = "*#*" .Forward = True End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="Macrobutton nomacro [Keyboard]" Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.Fields.ToggleShowCodes Tks . . . Tag: Only print certain sections of a document in a form Tag: 110739
  - 9
    - { STYLEREF "Heading 1,Chapter Level" } Not Working I have a document with multiple chapters. The first page of each chapter has this: 1 Introduction The number 1 has the style "Heading 1,Chapter Level" applied. The word "Introduction" has the style "Heading 1,Chapter Level + Before: 0pt" applied. When I attempt to use { STYLEREF "Heading 1,Chapter Level" } to insert the chapter number in table numbers (i.e., "Table 1-2", where "1" is the chapter number and "2" is the table number), it doesn't work. The table number portion of it is working just fine, using { SEQ Table \* ARABIC \s 1 }. It's just the chapter number that isn't working. Instead of a chapter number, I'm getting the word "Introduction". Any ideas how to fix this? Thanks in advance, Gwen H Tag: Only print certain sections of a document in a form Tag: 110738
  - 10
    - inserting webpage as text into word doc. I am looking for a script or some advises how to write a script that sequentially opens several (specified) html pages, reads the text and inserts it into a word document, one after the other. A little help from my friends out there, please.... Tag: Only print certain sections of a document in a form Tag: 110737
  - 11
    - What does this WordBasic statement do? Hi all, I need to understand what this piece of WordBasic code do, in order to translate it to vba. Dim Q As Object Set Q = WordBasic.DialogRecord.EditFind(False) WordBasic.CurValues.EditFind Q I cant' find any information neither in the VBA help nor in the WordBasic help file. Thanks in advance, if you could help me. Regards, Philippe Tag: Only print certain sections of a document in a form Tag: 110732
  - 12
    - Bookmarks inside text box to insert text or pictures Using Word 2000. I am building a document that I want to use to generate written prescriptions for medicines. In order to control the exact placement of some text and graphics on the page, I would like to use textboxes. However, when I use the following code to do the insertion, the code can't find the bookmarks that are inside a textbox. In the instance of inserting text (for the final version of code, sBoxVal and sMark are set from controls on a UserForm): Sub Macro3() Dim sBoxVal As String, sMark As String sBoxVal = "SomeDrugName" sMark = "DrugName" Call FillMark(sMark, sBoxVal) End Sub Sub FillMark(sMark As String, sBoxVal As String) 'Go to bookmark and transfer the data. Selection.GoTo What:=wdGoToBookmark, Name:=sMark Selection.Range.Text = sBoxVal End Sub In the instance of inserting a graphic (in this case a .bmp of a signature that will vary depending on what doctor is writing the prescription): Sub Macro2() 'Go to Signature bookmark Selection.GoTo What:=wdGoToBookmark, Name:="Signature" 'Insert Signature Selection.InlineShapes.AddPicture FileName:= _ ThisDocument.Path & "\JPM Signature.bmp" _ , LinkToFile:=False, SaveWithDocument:=True End Sub Both of these approaches seem to work if I am using bookmarks in the main body of the document. I have discovered through fiddling around that if I click on the desired textbox before running the macro so that it has the focus before the macro runs the insertion works just fine. So, I think it might work if I could figure out how to set the focus on the correct textbox programatically. Thanks in advance Tag: Only print certain sections of a document in a form Tag: 110727
  - 13
    - how to put default suggested filename in SaveAs FileName:? I have the following simple macro to take a selection from a long document and create a new document from it, the problem is that every time I use it, the new file is saved to the same file name and over writes the old one. What I would like is to have the file saved to the default suggested file name that word would normally generate from the first line of the selection. Anyone know what the variable for FileName should be to make this so? Thanks Jim Sub NewDocFromSelection() ' ' NewDocFromSelection Macro ' Create new document from selection ' Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) ChangeFileOpenDirectory "D:\My websites\" ActiveDocument.SaveAs FileName:="What causes this Syndrome.docx", _ FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False ActiveWindow.Close End Sub Tag: Only print certain sections of a document in a form Tag: 110721
  - 14
    - se positionner sur un signet =?iso-8859-1?Q?plac=E9?= dans une zone de Bonjour, j'utilise la méthode suivante pour me positionner sur un signet: signet= "ici" Set rrange = odoc.Goto(wdGoToBookmark, , , signet) Ca marche en général très bien... Mais si le signet est dans une zone de texte (menu insertion/zone de texte), il me dit que le signet n'existe pas. En effet, dans word, si j'ouvre le document et fais ctrl-b, le signet présent dans la zone de texte n'est pas dans la liste. Il apparait uniquement après avoir cliqué dans la zone de texte. Quelqu'un pourrait-il me dire comment me positionner si le signet est dans une zone de texte? Merci, Alain Tag: Only print certain sections of a document in a form Tag: 110718
  - 15
    - detect new identifier from embedded excel sheet in word template I have a word template with an embedded excel sheet in it. I use a field to display the text from a cell in the sheet in another place in the word document, using the {LINK Excel.Sheet.8 "\\\..path..\\Template.dot" _1135171229!Sheet1!CELLNAME \a \t \* CHARFORMAT { }} Works fine - until I create a new document from the template and the identifier _1135171229 changes its value. I know how to change the identifier through VBA (as I already do the similar thing with the path and document name, which change too.) My problem is this; I can't find any simple way to get that new identifier from the newly created document! Is there any fast and simple way to do that? Tag: Only print certain sections of a document in a form Tag: 110716
  - 16
    - BUG ScaleHieght and ScaleWidth Alway return 0 For Inline Spreadshe I believe that there may be a bug in Word 2007 related to the ScaleHeight and ScaleWidth of an Inline OLE EXCEL spreadsheet. The issue is that the ScaleWidth and the scale heigh always return 0. Step to reproduce this issue include Open Word 2007 Paste any EXCEL spreadsheet an Microsoft Excel Office Worksheet Object Run the VBA CodeBelow Sub TestInlineObject() ActiveDocument.InlineShapes(1).ScaleWidth = 50 MsgBox ActiveDocument.InlineShapes(1).ScaleWidth End Sub Expected Results: The shape width is scaled 50% MsgBox ActiveDocument.InlineShapes(1).ScaleWidth should return 50 Actual Results: The shape width is scaled 50% MsgBox ActiveDocument.InlineShapes(1).ScaleWidth returns 0 THanks, Nathan Lacoff Tag: Only print certain sections of a document in a form Tag: 110711
  - 17
    - Code in document to place bookmarked data in Outlook subject line I have a Word document that has bookmark fields. I would like data from some of the bookmarks to show in the subject line when I email the document. We are using Office 97. Can this be done with code in the Word document or is it done in Outlook? Thanks in advance Ron Tag: Only print certain sections of a document in a form Tag: 110709
  - 18
    - error 5560 I have been using a "Clean up Text" template courtesy of this forum for about 18 months, and have just moved to Office 2007. Now getting Error 5560. Don't know if it is coincidental. The stumbling code (even when there is no text for it to clean) is: .Execute Replace:=wdReplaceAll Is there a way forward? Thanks Tag: Only print certain sections of a document in a form Tag: 110704
  - 19
    - Word 2003 search macro Hi all, In Word 2003, it is possible to write a VBA macro that searches for a string, positions the cursor at the string found, deletes the string, leaving the cursor where the string had been located. Such code might look like this: Selection.Find.ClearFormatting With Selection.Find .Text = "searchstring" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 However, if the string is not found, the macro deletes the character the cursor is resting on at the beginning of the search. What I want to know is if there is a way to test if the string is not found, so that another action can be taken. Such code might look like this: Selection.Find.ClearFormatting ' on not found, go to label NoSuchStringExists With Selection.Find .Text = "searchstring" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Exit Sub NoSuchStringExists: MsgBox "Sorry, I could not find this string" Regards, Alan Stancliff Tag: Only print certain sections of a document in a form Tag: 110699
  - 20
    - autonew mailmerge error Dear All, Working with Word 2003 on XP workstaions, I have a template that is being launched from a database application that uses an autonew macro. I want it to create a new document and do a mailmerge automatically. When I manually run the "RunMerge" sub that I created (after the autonew macro has completed and a new "Document 1" with the merge fields on it is on the screen, the merge completes successfully. However, if I include the code for the mailmerge in my autonew macro, it always fails. In the many permutations I've tried, I most frequently get an error message that says that the object or property doesn't exist, even though I've also produced an error that suggested the new document wasn't an acceptable main merge document. I've set a reference to the MSWORD.olb and provided a fully qualified name for the code. Is this a known problem of some sort? Any thoughts about other good places to look? Thnaks, Ridge (in New Joisey) Tag: Only print certain sections of a document in a form Tag: 110697
  - 21
    - Disabling click and change events in form initialize Hi, As with all user forms, if you set the value or state of a control in the initialize macro, then the corresponding _click or _change event macro will fire. I am looking for a way to disable this. I want to set the state and values of controls without firing these macros until after the initialize macro is done and the form is displayed. Is there a way to do this? Thanks, Peter Tag: Only print certain sections of a document in a form Tag: 110695
  - 22
    - Customize the Quick Access toolbar through a Word 2007 macro I am trying to write a macro to customize the Quick Access Toolbar when a Word 2007 document gets the focus and remove it when the document looses the focus. This way only the document that I put the macro into can use it and it is easy for the user to find it. Thanks for any help. Tag: Only print certain sections of a document in a form Tag: 110692
  - 23
    - Creating Excel Spreadsheet in Word with VBA Kind of a stupid question. Is it possible to create/embed an excel spreadsheet into a word document with VBA? I can just create a regular table and then copy and paste to Excel, but I want to know if there is any better option. Tag: Only print certain sections of a document in a form Tag: 110689
  - 24
    - How to change the "includeText" field value in the Footer via VB/VBA Hi, Im trying to change the "IncludeText" values in a word document throguh VB (VBA) , I need to change lot of word documents (nearly 500) , I could change the values of the "includtext" fields in the document body using the following ' /// after opened the document lcode = WordDoc.Fields(i).Code If Left(lcode, 12) = " INCLUDETEXT" Then newCode = Replace(lcode, "V:\\", "C:\\") WordDoc.Fields(i).Code.Text = newCode WordDoc.Fields(i).Update End If ' // save and close document and word objects but this code is not changing the "includetext" in the footer.. I dont know how to proceed now..can anyone help me here Thanks Tag: Only print certain sections of a document in a form Tag: 110686
  - 25
    - Bookmarks in footer - how to edit Hi, Im trying to change the "IncludeText" values in a word document throguh VB (VBA) , I need to change lot of word documents (nearly 500) , I could change the values of the "includtext" fields in the document body using the following ' /// after opened the document lcode = WordDoc.Fields(i).Code If Left(lcode, 12) = " INCLUDETEXT" Then newCode = Replace(lcode, "V:\\", "C:\\") WordDoc.Fields(i).Code.Text = newCode WordDoc.Fields(i).Update End If but this code is not changing the bookmarks or includetext in the footer, I dont know how to proceed now..can anyone help me here Thanks Tag: Only print certain sections of a document in a form Tag: 110685
- Next
  - 1
    - Unable To insert Line Break when selection is in TextBox hi , i am using Word Object Model to insert line break at selection using below statement: applicationObject.Selection.InsertBreak(ref BreakType) where BreakType is defined as object BreakType = MSword.WdBreakType.wdLineBreak; i get an COMException "Command Not available" whenever the current selection is with textBox. (inserted using Insert->TextBox) is anyone aware of alternate way of doing the same? Thanks and Regards, Anita. Tag: Only print certain sections of a document in a form Tag: 110684
  - 2
    - Disappearing Commandbar buttons [Word 2002/XP] I have a custom command bar with many buttons... but the two most recently added (invoking trivial macros) seem to disappear from the Controls collection even though they are still visually present on the command bar itself... (Word has been restarted since the original customisation) It only seems to happen after the VBA IDE has complained about a compile error though... and all the other buttons are fine... Any ideas? NB - when I say they disappear from the Controls collection I mean that having iterated through all of them they just aren't there anymore, not that e.g. the referencing "name" has been corrupted -- Julian I-Do-Stuff Some Vista stuff, but mostly just Stuff at http://berossus,blogspot.com Tag: Only print certain sections of a document in a form Tag: 110676
  - 3
    - Creating an Envelop I am trying to create a simple sub to create an envelope. ... Set MyDoc = Wrd.activedocument ' Create new envelopes strAddr = Me.FirstName & " " & Me.LastName & Chr(13) & Me.Address & Chr(13) & Me.City & ", " & Me.RegionID.Column(1) & " " & Me.PostalCode With MyDoc.Envelope .Insert Address:=strAddr, Size:="Size 10" End With ... the code does insert an envelop as section 1 but also leave the original blank doc as section 2. how can I simply get only the envelop without the blank doc section2. I also tried recording a macro to delete section2 but the the envelop revert to an 8.5x11.... Thank you for your help, QB Tag: Only print certain sections of a document in a form Tag: 110670
  - 4
    - Multiple easy questions. Hello, I would like to know how to: 1) I'm creating a kind of interactive program, what I need to do is to select each word of the document, then for each, select all the characters of the word and then do something with each one of the characters and the go to the next word, until now I have: Sub dfd() Dim oword, ochr As Range Set oword = ActiveDocument.Words For n = 1 To oword.Count oword.Item(n).Select Set ochr = oword.Item(n).Characters For Each ochr In oword 'bla bla bla bla ba Next Next End Sub 2) I would like to create a userform, when the userform is deactivated you are able to correct whatever you want for your document without closing the userform(like the find and replace form, you can change stuff on your document without closing the form) 3) a usrform with 2 bottons, before and next, when the before button is pressed it goes to the last word seleted (or changed) and with the next button it goes to the next word that fill a spesific criteria. Thanks for your help Tag: Only print certain sections of a document in a form Tag: 110669
  - 5
    - How to change an MS Word document's template before opening? Hi, Does anybody know how to change an MS Word document's assigned template, preferably before the document opens? DSOFile.dll can't do it, and I'm not sure what else that leaves? Any and all pearls of wisdom welcomed and appreciated, Cheers, Al Tag: Only print certain sections of a document in a form Tag: 110668
  - 6
    - Problem creating Userform Hi - I'm running Word 2000 at work and I'm trying to learn to create a Userform. I've been using the article by Doug Robbins on how to create a Userform and when I code in his example (letter for letter) I get the following error: Compile error: Method or data member not found It seems to be in regards to " .Range_ " in the the line: .Bookmarks("Text1").Range_ Can someone please help me? I'm sure it's a very simple error and one which is probably a simpler over looked area from me. Thanks for you future help.... Darren. Tag: Only print certain sections of a document in a form Tag: 110665
  - 7
    - Update Textbox1 after combox easy help for beginner! I want only that after I choose in the Combobox1 one value in the textbox1 appear automatically this value! I know it s a stupid question...I'm starting know to work with WBA and so I' reading a lot! Sub MACRO22() UserForm1.Show UserForm1.ComboBox1.RowSource = ThisWorkbook.Worksheets("Foglio1").Range("A1:A3").Address(External:=True) End Sub Private Sub ComboBox1_AfterUpdate() UserForm1.TextBox1.Text = UserForm1.ComboBox1.Value End Sub Tag: Only print certain sections of a document in a form Tag: 110658
  - 8
    - disable macros in word Hi, I would like to be able to write codes to disable macros in VBA for office word 03 document. I wonder if anyone might be able to guide me on how to do this? Thank you in advance Tag: Only print certain sections of a document in a form Tag: 110649
  - 9
    - Referencing Bookmarks and Fields Hello I was wondering if there is a way of representing the same bookmark (or field) in multiple places in a word document. I've designed a userform that requires input from the user and places data in appropriate placeholders in a document. For instance, suppose I want a particular phone number (let's say 180 -555-5000) to automatically be inserted into 7 different locations in a document from data extracted from a userform. Must I create 7 different bookmarks/fields in each place I want to see the number represented? I know Wordperfect 9 is capable of inserting the same bookmark with the same data in multiple places so that you avoid creating a new bookmark for the same data. Any thoughts? Thanks. Tag: Only print certain sections of a document in a form Tag: 110642
  - 10
    - Locating Misspelled words VBA Gerus, Is there a function to locate misspelled words that were identified by Word 2003 & 2007? Thanks. Charlie from Texas Tag: Only print certain sections of a document in a form Tag: 110638
  - 11
    - Insert {XE "test"}{TC "Test" \l 1} Automation a word report from Access. At run time, I want to be able to insert 2 field type to a company name. One type for a TOC and a second for an index. I'am using a table for an uniform layout. How can I simply insert those field right after the company name in the cell ? Maybe I started all wrong ? Do until rst.eof Set Tbl = Wrd.ActiveDocument.Tables.Add(Wrd.Selection.Range, 8, 2) with Tbl .Cell(1, 1).Range.Text = "Company name :" .Cell(1, 1).Range.Style = wdStyleStrong .Cell(1, 2).Range.Text = rst!CompName 'insert {XE "test"}{TC "Test" \l 1} after the company name... end with wrd.selection.InsertBreak Type:=wdSectionBreakNextPage rst.movenext loop Tag: Only print certain sections of a document in a form Tag: 110632
  - 12
    - Find page number for each word in document Hi All, I have a Word document for which I'm trying to create an index. I've just started this code, but the idea is to parse through each word and dump out the word and the page number to a CSV file that I can manipulate later on (or dump it to a dictionary object or array or something so I can manipulated it in code). The end result being the 100 least used words in the document should make a halfway decent index. My problem is that I can't figure out how to get the the page number to show up correctly using the following code: Function CreateIndex() Dim fso, NewsFile Set fso =3D CreateObject("Scripting.FileSystemObject") Set File =3D fso.CreateTextFile("c:\book\sampleindex.csv", True) Set objDictionary =3D CreateObject("Scripting.Dictionary") Set colWords =3D Application.ActiveDocument.Words For Each strWord In colWords strWord =3D LCase(strWord) strLetter =3D Left(strWord, 1) If Asc(strLetter) < 97 Or Asc(strLetter) > 122 Then Else ActiveWindow.ScrollIntoView Selection.Range, True intPage =3D Selection.Range.Information(wdActiveEndPageNumber) MsgBox (strWord & "," & intPage) File.WriteLine strWord & "," & intPage End If Next File.Close End Function I'm pretty new to VBA for Word, but I'm not terrible at VBS, so I can sometimes keep up with you =FCber scripters out there. The result of this script is a CSV file that has each word in the document, and the number "1", because wdActiveEndPageNumber always returns a "1". I tried to add the "ActiveWindow.ScrollIntoView" line to scroll to the page, but I have a feeling I'm missing something for that to work. So, any help you guys can offer would be much appreciated. Thanks! Gabe Tag: Only print certain sections of a document in a form Tag: 110625
  - 13
    - ThisDocument Question I have documents that are created from a template but once they get up into our system get delinked from the template. What I have done is when the document is created it copies all the forms and macros into each document. My question is how do I copy the following macros into ThisDocument? Option Explicit 'reserve memory for an application variable Private WithEvents wdApp As Word.Application Private Sub Document_New() 'assign Word to the application variable If wdApp Is Nothing Then Set wdApp = ThisDocument.Application End If End Sub Private Sub Document_Open() 'assign Word to the application variable If wdApp Is Nothing Then Set wdApp = ThisDocument.Application End If End Sub Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection) 'quit if active doc isn't attached to this template If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub 'get out of the header if we're in it Select Case Sel.StoryType Case wdFirstPageHeaderStory 'wdPrimaryHeaderStory ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument frmTable.Show Exit Sub Case Else If Sel.Range.InRange(ActiveDocument.Bookmarks("bktable").Range) Then ActiveDocument.Bookmarks("bkbeforetbl").Select frmTable.Show End If If Sel.Range.InRange(ActiveDocument.Bookmarks("bkProTitle").Range) Then ActiveDocument.Bookmarks("bkbeforetbl").Select frmType.Show End If End Select End Sub Tag: Only print certain sections of a document in a form Tag: 110623
  - 14
    - Inserting a checkbox using VBA I have a macro in Outlook that will create a word document. I want to insert a checkbox control. objWord.ActiveDocument.Bookmarks("Required").Select objWord.Selection.TypeText CStr(names) basically it select a bookmark, then type in some names. Instead of plain text I want it to be a checkbox with the caption = names. I tried this: objWord.Selection.InlineShapes.AddOLEControl ClassType:="Forms.CheckBox.1" However the checkbox just won't show up. Tag: Only print certain sections of a document in a form Tag: 110622
  - 15
    - How to replace OLE in Word? How to see source object in Word? /OLE, please vanish!/ 1) z.B. How to get an underlined blue text and to click on it and to send E-mail INSTEAD OF having this in Word doc: {HYPERLINK "mailto:oat@defgo.ru" }? 2)z.B. How to see real picture instead of reading this: {EMBED MSPhotoEd.3} ? Thank you! Tag: Only print certain sections of a document in a form Tag: 110620
  - 16
    - GotoBottom Using Word 2003, I have set up a Protected/Unprotected Form Form(set)...The file contains 5 different forms used by the engineering department. All of the forms, with the exception of the first must be able to replicate themselves. The forms are constructed using tables and section breaks as required. At the bottom of each of the forms in the set is a paragraph mark (set to 1.5 points). I am using the small routine (below) as part of the macro to get to the bottom of each page, add a 'page break', and then insert a specific table stored as an autotext entry to create another page in the series. When I record the macro (gotobottom, insert break-page, autotext-add table) the new page is there (bam!). All of the macros for this document are stored in a toolbar for the engineers to use. When I run the macro from the toolbar - the new page is all messed up. The page break is being added in the table above, pushing the balance of the table to the next page along with the addition of the autotext table and a space is added at the top of the original table which also pushes the table further down..... I tried creating a 'dummy' scenario in a blank document and when I initiate the gotobottom by itself, it jumps to the cell marker (outside the table) at the last cell, last row and not to a paragraph mark placed below the table, as I believe it should. If I place two paragraph marks below the table, then the cursor does jump to the first paragraph mark below the table.... can someone please explain what may be happening and how I can correct to get the desired results??? my thanks and best regards, Lenny Sub GotoPgBottom() Dim rTmp As Range Set rTmp = Selection.Bookmarks("\page").Range rTmp.End = rTmp.End - 1 rTmp.Collapse direction:=wdCollapseEnd rTmp.Select End Sub Tag: Only print certain sections of a document in a form Tag: 110619
  - 17
    - Perform readability statistics Hello, I know that I can get the readability statistics when I execute a grammar check, but is there a way to simply execute the readability statistics without running a complete grammar check. Just run it on the text as is? i am specifically trying to get the Flesch score for a document at the click of a button without any interaction on the behalf of the user. Thank you, QB Tag: Only print certain sections of a document in a form Tag: 110615
  - 18
    - split repeating table in my form i have repeating table, bind with webservice, receive data from database, data in more than 5000 rows. now i want to split this repeating table in pages, 100 rows per page is this possible without coding??? I use page break in repeating table, but it can't work. thanks -- Message posted via http://www.officekb.com Tag: Only print certain sections of a document in a form Tag: 110613
  - 19
    - Adding user to word document? Hi, Once I have logged onto my Windows XP machine in work, I was wondering if it was possible to add my user to a word document as soon as it is opened. i.e. I log on as DSmith, could DSmith be inserted into a field in a word document upon open? and if so, how? Appreciate any advice on this. Tag: Only print certain sections of a document in a form Tag: 110607
  - 20
    - selecting specific text within a cell Office 2003 Pro. I am creating tables in Word and then adding text to these tables and formatting. Qu.1 ------ This example shows 2 bits of text going into one cell. What I want to do is then make "Title text" bold, and I end up always setting the whole cell bold. How should I do this without using an extra row for my title ? Set rng = objWord.ActiveDocument.Tables(intTable).Cell(1, 1).Range rng.Text = "Title text" rng.Text = "Some more text" rng.InsertAfter (strUnit) Qu.2 ------ My table has multiple rows and combination of x1 column or x2 columns: Is it best to create all x1 column and use cell.slit or create all x2 columns and use cell.merge,... or it doesnt matter ? Tag: Only print certain sections of a document in a form Tag: 110606
  - 21
    - Link to Outlook Contacts I'm wondering if this is possible I'd like to link to an Outlook contact. I know how to grab the information both via MAPI and the address book. However, I'd like to create an updatable link to a specific contact item. Any ideas? Thanks. Tag: Only print certain sections of a document in a form Tag: 110604
  - 22
    - Word 2003 macro to re-place original clipboard contents I have a WORD 2003 macro that uses the clipboard to do various things. When the macro finishes, the clipboard contains a bit of the stuff the macro put into it. I would like the macro to re-place whatc had originally been in the clipboard. What I would like to have happen is this ****SEMI PSEUDO CODE**************** Sub DummyMacro() ' at beginning of macro copy ' clipboard material into variable Dim myOriginalClipboardVariable as string myOriginalClipboardVariable:= clipboard_contents ' 'Here macro does a bunch of stuff. A 'At the end of the macro, just before exiting 'clear the clipboard clipboard:= "" ' then place stuff that was originally in the clipboard back clipboard := myOriginalClipboardVariable End Sub ******END SEMI PSEUDO CODE********* I realize that this will not work as I have written it, but that's because I am not yet familiar enough with VBA basics. Would anyone mind giving me a hand here? Regards, Alan Stancliff Tag: Only print certain sections of a document in a form Tag: 110601
  - 23
    - hyperlinks in protected doc I have a table which is protected because it has formfields. I want to put in hyperlinks to a Help file at various points. The only way I've found to do this is to put in unprotected sections where I have the links. This leads to other problems. Any better ideas? Tag: Only print certain sections of a document in a form Tag: 110599
  - 24
    - Referencing Bookmarks and Fields Hello I was wondering if there is a way of representing the same bookmark (or field) in multiple places in a word document. I've designed a userform that requires input from the user and places data in appropriate placeholders in a document. For instance, suppose I want a particular phone number (let's say 180 -555-5000) to automatically be inserted into 7 different locations in a document from data extracted from a userform. Must I create 7 different bookmarks/fields in each place I want to see the number represented? I know Wordperfect 9 is capable of inserting the same bookmark with the same data in multiple places so that you avoid creating a new bookmark for the same data. Any thoughts? Thanks. Tag: Only print certain sections of a document in a form Tag: 110593
  - 25
    - VBA code to merge 2 tables I have an authoring software that automatically creates a Word document from text stored in a database. The software allows for VBA code to be run while the Word document is being created. Here's my problem: In one instance, a table is being broken up in 2 pieces with 3 paragraph marks separating the 2 tables. I need the macro to remove the paragraph marks, so that the 2 tables get merged. I have tried researching this in here, but no luck. Any help is appreciated. Tag: Only print certain sections of a document in a form Tag: 110588

Hello

Apologies if this is in the wrong discussion group.

I'm modifying a word document that when protected will be used as a
form/template.

The document consists of 8 pages which the last 3 are guidelines. I want to
create some sort of print macro or script that forces the print option to not
print the last 3 pages.

Ideally I'd like to avoid macros or script as I'm not the best with them,
but i think this might be unavoidable. Any other suggestions would be
helpful.

thanks
tish

Top

Re: Only print certain sections of a document in a form by Doug

Doug
Tue Feb 26 01:33:31 PST 2008

The following is the code that you would need in a macro to printout the
first five pages of the document

ActiveDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="5"

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

"tish" <tish@discussions.microsoft.com> wrote in message
news:85184A61-709F-47F4-8932-FC6896799D73@microsoft.com...
> Hello
>
> Apologies if this is in the wrong discussion group.
>
> I'm modifying a word document that when protected will be used as a
> form/template.
>
> The document consists of 8 pages which the last 3 are guidelines. I want
> to
> create some sort of print macro or script that forces the print option to
> not
> print the last 3 pages.
>
> Ideally I'd like to avoid macros or script as I'm not the best with them,
> but i think this might be unavoidable. Any other suggestions would be
> helpful.
>
> thanks
> tish

Top