Booklet, back to front, landscape 1/2 page

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Using an IF statement I am in the process of creating a letterhead macro/template. I would like it to work like this: Open letterhead template, you are asked to enter a "lawyer number" and based on the lawyer number you type, that lawyer's personal info is inserted in the letterhead. An example I've been playing with is: If txtLawyerNo = 31 Then Application.Run MacroName:="ArsenaultGreg" End If Any help would be appreciated. Brenda Tag: Booklet, back to front, landscape 1/2 page Tag: 52910
  - 2
    - Change Table Properties I have a macro which creates a table. I would like to select some cells (e.g. column 1 rows 1, 2 &3) and set the border property to BOX. How could I do that? Also, I would like to delete individual cells in row1, and change the width of the remaining cells. How could I do that? Tag: Booklet, back to front, landscape 1/2 page Tag: 52909
  - 3
    - Do While or While & Selection or Range (REPOSTED AS PER REQUEST) Hi Folks, I've written some code to check the character style in paragraphs and 'do stuff' based of the style found. First question: Is it better to use the 'Do While' clause with this (which I'm thinking it might be). Second Question: Is it better to use range instead of selection, and if so how do I convert this to ranges? I've never used ranges before and don't really know that much about the properties/methods. Any pointers/improvements gratefully accepted. Cheers J Dim x As Integer, y As Integer, s As Integer Dim StyleNow As String Dim test As Variant, test1 As Variant StyleNow = "Persname" SavedMemData = ActiveDocument.BuiltInDocumentProperties(wdPropertyParas) For x = 0 To SavedMemData - 1 styletype = Selection.Style For s = 1 To 6 y = 0 test1 = Selection.Paragraphs.Last test = Selection.Document.Paragraphs.Item(x + 1) If test <> test1 Then GoTo End1 If Selection.Style = StyleNow Then StyleNow = Selection.Style Selection.MoveLeft wdCharacter, 1 Selection.MoveRight Unit:=wdWord, Count:=1, _ Extend:=wdExtend If StyleNow = "Persname" Then GoTo Pers1 While StyleNow = "Persname" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend This must be performed on multiple paragraphs and multiple styles to have the effect I need. Tag: Booklet, back to front, landscape 1/2 page Tag: 52907
  - 4
    - Macro to edit VBA code I perform (by hand) a certain standard 15 step routine on my VBA code to make the coding that runs in Word2003 workable in Word98. Is there anyway to create a macro that runs directly on the VBA coding so that the manual steps I take to edit the code can be automated? Thanks, Roy Tag: Booklet, back to front, landscape 1/2 page Tag: 52902
  - 5
    - double click to update Fill-in field Hello all, I am looking for a way to update Fill-in fields by doubleclicking on them instead of using the update field command by clicking the right mouse button. I have a document with some Fill-in fields. This document is about 10 pages long and every page contains one or more Fill-in fields. I know I can also use the function UpdateAllFields instead off the right mouse button. But then I have to go through all the Fill-in fields when I only want to change, for example, the 11th Fill-in field in the document. I am just a beginner with VBA-coding so I don't know a lot about putting the above problem in a code. I know it has something to do with the WindowBeforeDoubleClick, but the VBA-help doesn't help me out that much. Can anyone help me with the VBA-code for updating/changing a Fill-in field by doubleclicking on it? I am using word 2002 Tag: Booklet, back to front, landscape 1/2 page Tag: 52897
  - 6
    - Listing Bookmark By Location in Document Word 2000 I have a simple macro that populates an array with bookmark names by reading the contents of the Bookmarks collection. The only problem is that it fills the array with the bookmark names in alphabetical order, and I need them listed in the order in which they appear in the document from top to bottom. Is there a way to sort the Bookmarks collection by location, and then use that sorted list to populate an array? -- Tom MT DOJ Help Desk Making the world a safer place. Tag: Booklet, back to front, landscape 1/2 page Tag: 52896
  - 7
    - Status Bar Appears Mid-Screen Of2k/w2kPro & Of97/nt4 Macro calls for the TOC to be generated. The "re-paginating" message flashes mid-screen rather than staying put on the bottom of the display. Happens with a project that is being developed on both the above platforms (home & work) but the problem occurs (intermittently) on w2k only. This is more of an annoyance than anything else. Any ideas? -- Regards; Rob ------------------------------------------------------------------------ Tag: Booklet, back to front, landscape 1/2 page Tag: 52892
  - 8
    - visual basic errer message help when i open word i recieve the following message "Compile error in hidden module:AutoExec" what does this mean and how do i get rid of it. thanks Tag: Booklet, back to front, landscape 1/2 page Tag: 52891
  - 9
    - Build Table with Macro I have used a macro to update an existing table by deleting all the rows after the first, and the reading data from a file and adding new rows. I would now like to create the first row of a table with a macro ( that would allow me to set the number of columns). I recorded a macro when I used the tool bar to create a table, but that only showded the number of row and columns. It didn't show me how to set the width of each column. Where could I find out how to set the individual column widths? Tag: Booklet, back to front, landscape 1/2 page Tag: 52886
  - 10
    - resize pasted bitmap-picture Hi all, I have an ACCESS database with an embedded OLE-field containing a bitmap-picture. I already mannaged to copy and paste the picture from the database to a word-document, but now i still need to resize it... here is the code i use: imgFoto.Action = acOLECopy Set objWord = CreateObject("WORD.APPLICATION") With objWord .Documents.Add "D:\bitmap\bitmap.dot" .Selection.GoTo What:=-1, Name:="bitmap" .Selection.Paste 'here i should do the resize .Visible = True End With Is this the way it should be done? Anyone got an idea how to do the resize? Jan Hendrickx. Tag: Booklet, back to front, landscape 1/2 page Tag: 52883
  - 11
    - NT Username auto fill-in I need to know how I can have a users NT domain username autofilled into a field such as form field or another specific location on a word doc in Office XP. I am presume this would need a macro and if anyone has a working code example I would love to see it. Also, if there is another method, that would also be excellent. -Regards Jon Tag: Booklet, back to front, landscape 1/2 page Tag: 52882
  - 12
    - bookmarks save & restore We would like to save & delete any bookmarks at the start of the procedure & then @ the end of the procedure restore those deleted bookmarks. Tried a few things but no banana. HELP! Tag: Booklet, back to front, landscape 1/2 page Tag: 52880
  - 13
    - insert page footer on every page Hi, I have a document that consists of section and page breaks. I'm using this code to insert a page number footer onto every page. But on the pages where the content of the document goes to the bottom of the page, the footer(page number) is not showing up. Thanks in advance. _______________________________________________________ Sub insertFooter() Dim mySCTN As Section For Each mySCTN In ActiveDocument.Sections With ActiveDocument.Sections(mySCTN.Index).Footers _ (wdHeaderFooterPrimary) .PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberRight End With Next mySCTN End Sub Tag: Booklet, back to front, landscape 1/2 page Tag: 52867
  - 14
    - Saving Word as text I need code to open each document in a specific directory and save them as text files. Any help on this would be greatly appreciated. Tag: Booklet, back to front, landscape 1/2 page Tag: 52866
  - 15
    - Macro misfires after move to Word 2003 I was using the code below on a Win 98 machine running Word 2000. It worked fine. I am now trying to run the same code on a Win XP Pro machine running Word 2003. The macro seems to insert all the includetext fields just fine, but instead of ending after the last insert, it goes into a continuous loop. Code: Dim marker As String Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Highlight = True With Selection.Find Do While .Execute(FindText:="", _ Wrap:=wdFindStop, Forward:=True) = True marker = Selection.Text Selection.Delete Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="INCLUDETEXT " & Chr(34) & "I:/htltr/jdltr/prod/" & marker & ".doc" & Chr(34) & " B" & marker Selection.MoveRight wdCharacter, 2 ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes Loop End With ActiveDocument.Fields.Update Tag: Booklet, back to front, landscape 1/2 page Tag: 52865
  - 16
    - VB to change Security Level I have a document containing macros that needs to be sent to others. The problem is when the users had Word installed the default security level was set at high and will not allow macros to be run. My question is: Is there a way to change the security settings to medium or low when the document is opened, then reset it to high when the document is closed? Thanks. Vince Tag: Booklet, back to front, landscape 1/2 page Tag: 52855
  - 17
    - Iterate paragraphs through VB6? I'm having trouble getting a VB6 app to iterate the paragraphs in a Word doc. It opens the doc fine , but every way I've tried to set an object to Paragraphs is rejected. Migth someone be able to help? Ed Dim objWord As Object Dim objFiles As Object Dim objPar As Object Dim rngPar As Object Dim docFiles As String Dim strFile As String Dim strDest As String Dim strHere As String strDest = "C:\Documents and Settings\emillis\Desktop\XCopy\" Set objWord = CreateObject("Word.Application") docFiles = "C:\Documents and Settings\emillis\Desktop\XCopy\TestDoc.doc" Set objFiles = objWord.Documents.Open(docFiles) 'Error here Set objPar = objFiles.Paragraph Tag: Booklet, back to front, landscape 1/2 page Tag: 52852
  - 18
    - Saving a document as and automatically deleting the original Hello, people. Is there a macro that could help me do the following: I am working on a document named ABC that I have already saved on my disk and want to save it with a different name, XYZ, while at the same time getting rid of the ABC document stored on my disk, without having to delete it by getting to its containing folder using Windows Explorer. Any ideas? Regards, Wtbx Tag: Booklet, back to front, landscape 1/2 page Tag: 52850
  - 19
    - Missing FilePicker Dialog I had been using the FileDialog object in a Word (2002) add-in until a colleague running Word 2000 tried to use it and got an error. I discovered that the FileDialog object is available only in the Office 10.0 library. Since I need to distribute this add-in to people whose version of Office I won't be able to update, I want to do without using the FileDialog object. But I can't seem to find a filepicker type dialog otherwise. Does one exist? Or will I need to create my own filepicker using a userform? I should note that I considered using Word's built-in fileopen dialog as a workaround. But I don't need to open the file that is picked. (The program simply needs to take the fullname of the document that is picked and assign that value to one of the activedocument's variables.) I'd prefer to avoid that workaround if possible. Thanks for any guidance, GPL Tag: Booklet, back to front, landscape 1/2 page Tag: 52848
  - 20
    - Can 3rd Party Tools or Machine Configuration (i.e. Win XP / Office 2000) Interfere with Overridden Word Commands? Hello, I have overriden code that runs for the "EditPaste" Word command. This works fine on a Win98 / Office 2000, Win XP Pro / Office XP Developer and WINNT / Office 2000 machines all of which do not have 3rd party MS Word-associated addins and / or tools. The routine does not fire on a Win XP / Office 2000 machine that also has FactSet addin tools installed. More specifically, a dummy "EditPaste" routine used for testing does fire provided the clipboard is empty when the user does a Ctrl + V or Edit > Paste. Does anybody know of any 3rd party tools, Service Packs or missing Service Packs that could cause such behavior? Thanks, TC Tag: Booklet, back to front, landscape 1/2 page Tag: 52845
  - 21
    - Copy Table to End of Document after i do activedocument.tables(1).range.copy how should i go about pasting it to the end of the document? Is there a better/faster way to copy a table to the end of the document? Thanks!! Tag: Booklet, back to front, landscape 1/2 page Tag: 52843
  - 22
    - Word Template for Mac Hello I have done Wordtemplates for PC and i now try to change them to also works in MAC. When i start my Wordtemplate i want Word to start with a Form who will fill in som fields from a textfile. Frmfax.txttillavsÃ¤ndare = System.PrivateProfileString("c:\Mallpaket\min info.txt", "Ett", "strNamn") Frmfax is the form and .txttillavsÃ¤ndare is the field. The path is c:\Mallpaket\min info.txt". Mallpaket is folder and Macintosh HD is the computer and "min info.text" is the textfile And thats the problem, can anyone tell me how this path should be written ? And i believe the path should be written like this Macintosh HD: Mallpaket :min info.txt But What about "System.PrivateProfileString" before the path, i believe that this is Wrong but i have no idea what the rigth is ? Tag: Booklet, back to front, landscape 1/2 page Tag: 52834
  - 23
    - How do i create and modify a chart in a Word doc from VBA? Hello, i've got a word-document with tables in it. Now i want to generate charts automatically based upon the data in these tables. I've been looking around, but haven't really found any documentation or examples that were helpful to me. These are the questions: * how to create a chart in VBA? * how to get it to base it's data upon a table in my word document? * how to change the type of chart (to bars, pie, ...) Any help would be greatly appreciated! Thx in advance, Thomas Tag: Booklet, back to front, landscape 1/2 page Tag: 52831
  - 24
    - RE: thanks Thanks thats a good ides, because the binary numbers comes from a huge database and the speed of the applciation is critical. Thanks! Tag: Booklet, back to front, landscape 1/2 page Tag: 52830
  - 25
    - Working with Tables I have two (probably simple) questions: 1. Why does word append cell values in tables with the strange formatting marks? If I retrieve a cell value by: Debug.Print ThisDocument.Tables(1).Cell(1, 1).Range.Text I get the cell value (e.g., "MyValue") with two extra characters that seem to be a carriage return and a tab line character. I am correcting this by using the following function...but I am thinking maybe there is an easier way (if not, will this function always work?): Debug.Print Left(ThisDocument.Tables(x).Cell(1, 1).Range.Text, _ Len(ThisDocument.Tables(x).Cell(1, 1).Range.Text) - 2) 2. How do you retrieve tables that are in the header/footer area? These don't show up in the Tables collection under ThisDocument --- it only counts the tables in the body region (maybe this has something to do with sections). I am new to the Word object model. Any help is appreciated! Thanks, Seth Tag: Booklet, back to front, landscape 1/2 page Tag: 52829
- Next
  - 1
    - Do While or While & Selection or Range Object? Hi Folks, I've written some code to check the character style in paragraphs and 'do stuff' based of the style found. First question: Is it better to use the 'Do While' clause with this (which I'm thinking it might be). Second Question: Is it better to use range instead of selection, and if so how do I convert this to ranges? I've never used ranges before and don't really know that much about the properties/methods. Any pointers/improvements gratefully accepted. Cheers J Dim x As Integer, y As Integer, s As Integer Dim StyleNow As String Dim test As Variant, test1 As Variant StyleNow = "Persname" SavedMemData = _ ActiveDocument.BuiltInDocumentProperties(wdPropertyParas) For x = 0 To SavedMemData - 1 styletype = Selection.Style For s = 1 To 6 y = 0 Persname: test1 = Selection.Paragraphs.Last test = Selection.Document.Paragraphs.Item(x + 1) If test <> test1 Then GoTo End1 If Selection.Style = StyleNow Then StyleNow = Selection.Style Selection.MoveLeft wdCharacter, 1 Selection.MoveRight Unit:=wdWord, Count:=1, _ Extend:=wdExtend If StyleNow = "Persname" Then GoTo Pers1 If StyleNow = "Perstitle" Then GoTo perstitle1 If StyleNow = "Persinits" Then GoTo persinits1 If StyleNow = "Office" Then GoTo office1 If StyleNow = "Department" Then GoTo department1 If StyleNow = "Email" Then GoTo email1 Pers1: While StyleNow = "Persname" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend perstitle1: While StyleNow = "Perstitle" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend persinits1: While StyleNow = "Persinits" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend office1: While StyleNow = "Office" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend department1: While StyleNow = "Department" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend email1: While StyleNow = "Email" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If y = y + 1 If y = 20 Then Selection.MoveLeft wdCharacter, 2, wdExtend GoTo CheckEntry End If Wend Selection.MoveLeft Unit:=wdCharacter, Count:=1, _ Extend:=wdExtend CheckEntry: If StyleNow = "Persinits" Then txtInits(x) = Selection.Text ElseIf StyleNow = "Perstitle" Then txtTitles(x) = Selection.Text ElseIf StyleNow = "Persname" Then txtpersname(x) = Selection.Text ElseIf StyleNow = "Office" Then txtOffices(x) = Selection.Text ElseIf StyleNow = "Department" Then txtDepartments(x) = Selection.Text ElseIf StyleNow = "Email" Then txtEmails(x) = Selection.Text End If Selection.MoveRight wdCharacter, 3 Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style If test <> test1 Then If Right(Selection.Style, 5) = "Entry" Then ListType(x) = Selection.Style End If End If 'GoTo Persname Else End1: End If If test <> test1 Then s = 6 Next s Next x endnow: Tag: Booklet, back to front, landscape 1/2 page Tag: 52823
  - 2
    - Word Templates Hello I have done Wordtemplates for PC and i now try to change them to also works in MAC. When i start my Wordtemplate i want Word to start with a Form who will fill in som fields from a textfile. Frmfax.txttillavsÃ¤ndare = System.PrivateProfileString("c:\Mallpaket\min info.txt", "Ett", "strNamn") Frmfax is the form and .txttillavsÃ¤ndare is the field. The path is c:\Mallpaket\min info.txt". And thats the problem, can anyone tell me how this path should be written ? Mallpaket is folder and Macintosh HD is the computer and "min info.text" is the textfile Tag: Booklet, back to front, landscape 1/2 page Tag: 52820
  - 3
    - VBA with Word Viewer (relates to MS Access and Word) Hi all, I'm going to start by talking about MS Access, but this is a Word question and relates to the Word VBA library. The situation is I have a MS Access DB that will be running using the Access runtime environment. The application I'm developing is for a developing country, and therefore I cannot assume users will have Access or Word available. Developing the database is not a problem - there is a runtime version of Access and we have the budget to afford unlimited licenses for distribution. However, one of the outputs of the application needs to be a great variety of printed forms (tax returns, appeal applications, tax refund applications, etc) which all exist in Word format. Getting the DB to pull out data and programmatically write it to word documents is not a challenge - as long as the user has Word 2000 on their system. I'm doing it in a module in Access as below: 'get a load of data from the DB dim wordObj as Object Set wordObj = New Word.Application wordObj.Visible = False wordObj.Documents.Open "whateverTaxFormTheUserChooses.dot" 'programmatically search for placeholders in the tax form and replace with data from the DB wordObj.Visible = True 'then print it, save it etc Not a problem - BUT - can I still do this if my user does not have MS Word installed? I've downloaded the Word Viewer, which is free and great so far as all that needs to be done is to open and print a document, but from what I can tell I won't be able to use it to generate documents on the fly like I'm doing above, so I guess my question is: 1) As long as I've got the appropriate libraries enabled in Access, can I still get at the classes I need to programmatically edit Word documents even if Word is not installed? (And then display them with the word viewer). 2) Do I have any other options? Any advice from you knowledgable folks out there would be muchly appreciated. Thanks, Ganeth Tag: Booklet, back to front, landscape 1/2 page Tag: 52818
  - 4
    - Save File Problem: HTML format I've a line as below: ( save file as a HTML format ) ActiveDocument.SaveAs FileName:="f:\homepage\Leave2004.html", FileFormat:=wdFormatHTML, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False While I ran the line the 2nd time ( ie file name exist ), a message up( error: 6048 - file in use, retained, please use a new file name ). Question: How can I force save the file? Johnny Tag: Booklet, back to front, landscape 1/2 page Tag: 52815
  - 5
    - Numeric (\#) field switches Am setting up a form template which will be used in France. They use the following numeric format for dollars: $x xxx xxx,00. Spaces instead of commas and a comma for the decimal place holder. I have 1)changed my "Regional Options" under the Control Panel to France and made the appropriate changes to the comma separator and decimal place holder. 2) Altered my US formula (which works) by substituting the spaces and commas. The calculation does not work! qty cost ea total 1 $5 336 205,00 $ 646 WRONG! My formula is written as: {=x*y\# $# ##0,00;($# ##0,00);} and is inserted into a table cell from "Table-Formula". If I substitute in the commas and decimals of the US the formula works fine. Can someone show me what I'm missing to make it work? Tag: Booklet, back to front, landscape 1/2 page Tag: 52803
  - 6
    - (newbie) add Mail Merge Can anyone assist with a Macro this will add a superscripted (th, st, nd, rd) to a date (field name 'day') in a Mail Merge document. Can someone assist Tag: Booklet, back to front, landscape 1/2 page Tag: 52795
  - 7
    - Column Headers in Catalog Merge? Hello All, I am programatically using the Word 2000 Object Model to execute a mail merge via a Visual Basic program. The main document type is set as Catalog and the output produces a single table with invoice payment line items. The table is created successfully after the merge, however I would like to be able to put column headers on the table as well. If I add column headers to the main document and then merge, I end up with the headers being repeated in every other row of the table. For example: Headers First Payment line item Headers (Repeated) Second Payment line item Headers (Repeated) Third Payment line item etc... I was wondering if there was a way to designate that the column headers should only be displayed once (either programatically via the Word object or in the main document itself). If anybody has any information on how to do this, it would be greatly appreciated. Thanks, Neil Dittmar Software Developer Aurora Information Systems Tag: Booklet, back to front, landscape 1/2 page Tag: 52794
  - 8
    - Save Word doc with current date I have a Word checklist template that I open every day, make my checklist changes and save it as a doc ... I would like a macro that will prompt me to save he document with the date eg checklist_2004-06-23.doc Can anyone assist? Thanks a million Tag: Booklet, back to front, landscape 1/2 page Tag: 52792
  - 9
    - Hi how do i give an integer a binary value? I would use 0x1010101010 in c, but how do I do it in vb? thanks! Tag: Booklet, back to front, landscape 1/2 page Tag: 52789
  - 10
    - How to EMBED a DOC via VB? I need to know the exact syntax of the Fields.Add method, in order to EMBED a Word 2002 doc into another. Thanks! Tag: Booklet, back to front, landscape 1/2 page Tag: 52786
  - 11
    - Word mail merge and files per receiptent I use the Word mail merge functionality to mass produce letters. I have a word template with defined fields and a data source (Excel-file). The mail merge functionality however, merges the data source with the template into one single Word-document containing all letters (multiple receiptents in one file). Is there a way to merge into on document/file per receiptent? Second question: To handle this missing functionality mentioned above, I made a VB snippet to split the big merged document into one file per receiptent. This is how the VB code I wrote performs this: 1. I make a SELECTION in the merged document (with multiple letters), ranging from beginning to end of the letter for ONE person. 2. Copy this content to the clipboard. 3. Open a new blank document. 4. Paste it into the new blank document. 5. Saving to a new file. The problem here however was: How can I specify a SELECTION in a document by page numbers? I had to specify the SELECTION range by number of paragraphs, which is not a precise specification. All help appreciated. -Jørn A. Tag: Booklet, back to front, landscape 1/2 page Tag: 52778
  - 12
    - Weirdness with two docs open based on same template i have a Word VBA template with a lot of code and userforms in it, and everything is working fine. however, i've discovered that, if I create two documents (doc1 and doc2) based on that same template and have both open at once, I get strange behavior. Specifically, whenever i call the .Show method of a userform in doc1, all is fine. But if I call the .Show method of one of my userforms in doc2, then doc1 becomes the ActiveDocument before that userform is displayed. As a result, when the userform inserts text into the document, it always gets inserted into doc1. And doc1 remains the ActiveDocument. I don't understand what I could be doing to change Word's idea of the ActiveDocument, but I must be. Is there something special I need to do in my code to handle having multiple documents open that are referring to code in the same template? any help/pointers appreciated. thanks, garyh Tag: Booklet, back to front, landscape 1/2 page Tag: 52769
  - 13
    - Error - the Range cannot be deleted Hello Everyone, We have a subroutine called "setFooterString" that is supposed to override the left section of the footer in a Word document if parameter "boolOverrideLeftFooterOnly" is set to true. Private Sub setFooterString(ByRef objHeaderFooter As HeaderFooter, ByVal strTextString As String, ByVal boolOverrideLeftFooterOnly As Boolean) On Error GoTo handler_Error_Function With objHeaderFooter.Range .Style = wdStyleFooter .Font.Size = 10 If boolOverrideLeftFooterOnly = True Then 'If we qualify setRange with "objHeaderFooter.Range" it does work in cases where the left section of the footer is a word supported text .SetRange Start:=.Start, End:=getLeftFooterLen(objHeaderFooter) End If .Text = strTextString End With Exit Sub handler_Error_Function: If Err.Number <> 0 And Err.Number <> cdlCancel Then Call GlobalErrorHandler(Err.Number, Err.Description, Err.Source) GoTo handler_Garbage_Collection End If handler_Garbage_Collection: End Sub If the current left section of footer is a user enterred custom text say "abc", the subroutine works fine(overrides left section of footer) . If the current left section of footer is a word supported text such as date, page number etc. the subroutine generates an error saying "the range cannot be deleted" upon reaching the following line in code: .Text = strTextString Shouldn't it behave consistently. Also, strangely above mentioned error does not occur if we replace following line .SetRange Start:=.Start, End:=getLeftFooterLen(objHeaderFooter) with objHeaderFooter.Range.SetRange Start:=.Start, End:=getLeftFooterLen(objHeaderFooter) Can someone please help us understand the problem? Is it a bug in VBA or is it bad coding? Thanks, Karthik Tag: Booklet, back to front, landscape 1/2 page Tag: 52768
  - 14
    - Is there a way to disable or bypass routines that are meant to override Word's builtin Word commands under Tools > Macros? Hello, I am currently experiencing the following problem: Template contains routines meant to override Word's builtin Word commands (i.e. there is an "EditPaste" VBA routine that is meant to fire when the user does Ctrl + V or Edit > Paste). The routine fires on my own 2000 and XP machines but does not fire on the client's machines. Is there some way to disable these customizations or is there some 3rd party tool or virus tool that disables the routines? Thanks & Regards, TC Tag: Booklet, back to front, landscape 1/2 page Tag: 52764
  - 15
    - Word wont start I am running Office '97 on windows '95 and suddenly Word won't start. It gives an error: "This program has performed an illegal operation and will be shut down. If the problem persists..." I have tried reinstalling Office but it hasn't helped. Does anyone know what can cause this problem and how can I get Word to run again. Thanks for any help. Fred Tag: Booklet, back to front, landscape 1/2 page Tag: 52762
  - 16
    - Closing custom toolbar when document closes I have a custom toolbar which appears when a document is created using a template. How do I close this custom toolbar when the document closes as this toolbar is only associated with that template/document. Code for creating/showing toolbar: Sub CreateToolbar() Dim cbar As CommandBar, cbct1 As CommandBarControl 'Create a floating toolbar Set cbar = CommandBars.Add(Name:="Agenda Hyperlink", Position:=msoBarFloating) cbar.Visible = True 'Add a custom button control to execute a macro Set cbct1 = cbar.Controls.Add(Type:=msoControlButton) cbct1.Visible = True cbct1.Style = msoButtonCaption cbct1.Caption = "Add Hyperlink" 'Run the following macro cbct1.OnAction = "Hyperlink" End Sub Sub Hyperlink() Dim fd As FileDialog, displaytext As String 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog (msoFileDialogFilePicker) 'Use a With...End With block to reference the FileDialog object. With fd 'Set the initial path to the Agenda Attachments folder. .InitialFileName = "\\alchemy\data\processes\documents\agenda attachments\" .Title = "Select the File to which you want to create the link" 'Use the Show method to display the File Picker dialog box and return the user's action. 'If the user presses the action button... If .Show = -1 Then displaytext = .SelectedItems(1) While InStr(displaytext, "\") > 0 displaytext = Mid(displaytext, InStr (displaytext, "\") + 1) Wend displaytext = Left(displaytext, Len (displaytext) - 4) ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=.SelectedItems(1), TextToDisplay:=displaytext ' 'If the user presses Cancel... Else End If End With 'Set the object variable to Nothing. Set fd = Nothing End Sub I tried to create a custom toolbar by right-clicking on a toolbar in Word (2002), Customize, Commands, Macros and there should of been an option to create a custom toolbar but there isn't!!! Help anyone... Lee Tag: Booklet, back to front, landscape 1/2 page Tag: 52755
  - 17
    - Drop-down Form Field data source How can I populate a MS Word Drop-down Form Field with data from an MS Access Table? Thank u. Tag: Booklet, back to front, landscape 1/2 page Tag: 52745
  - 18
    - Drop-down Form Field Data Source How can I populate a Drop-down form field with data from an MS Access table? Tag: Booklet, back to front, landscape 1/2 page Tag: 52744
  - 19
    - Print dialog: What to print drop down list Somehow, by screwing around with SendKeys, I managed to corrupt my settings so that when I print a document I ALSO get a listing of the document's properties. Note that the Print menu showed that I was printing the Document, not the document properties. Only way I found to get rid of this was to delete the Data key for Word in the registry. I noticed that the drop down list in the Print menu has items that seem to correspond to all the allowed values for wdPrintOutItem, except for wdPrintComments and wdPrintEnvelope. I ASSuMEd that an entry for comments would be included if I added a comment to the document. Well, after adding the comment, there was no entry for comments in the drop down list, however, when I printed the document, comments were displayed, with no obvious (to me) way to disable the display of comments. Do I need to again delete the Data key? Have I stumbled upon a bug/"feature" or am I missing something? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: Booklet, back to front, landscape 1/2 page Tag: 52738
  - 20
    - Macro overriding Xerox settings Hello all, I've been developing a macro to print out documents to seperate trays of a printer, based upon the contents of each page. I've come up with a solution that works when tested upon my HP LaserJet 4500. However, the people I have been constructing this macro for require it to be used on a Xerox Docuprint machine. The Xerox machine has its own software which specifies how each job is printed based upon the computer from which it is sent. Does anyone know how it would be possible for my macro to override the Xerox's settings? I've included the macro's code. Sub SortPrintTrays() 'Gets page count Dim intPages As Integer intPages = ActiveDocument.BuiltInDocumentProperties (wdPropertyPages) 'Creates placeholder for White characters Dim s As String 'Custom Function, clears any previous search settings Resetsearch 'Creates variable for the entire document Dim oRng As Range Documents("Document1").Activate Set oRng = ActiveDocument.Range 'Sorting FOR Loop, finds each White character and prints page accordingly For Sort = 1 To intPages With oRng.Find .ClearFormatting .Font.Color = wdColorBlack .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False oRng.Find.Execute s = oRng.Text ActiveDocument.Bookmarks("\Page").Select oRng.Collapse direction:=wdCollapseEnd oRng.Select If s = 1 Then Options.DefaultTrayID = 256 ' Tray 1 ActiveDocument.PrintOut Range:=wdPrintCurrentPage Else Options.DefaultTrayID = 258 ' Tray 2 ActiveDocument.PrintOut Range:=wdPrintCurrentPage End If oRng.End = ActiveDocument.Range.End End With Next Sort End Sub Tag: Booklet, back to front, landscape 1/2 page Tag: 52737
  - 21
    - Removing hyperlinks from a paragraph Hello Group, Can one use VBA to to remove a number of hyperlinks in a section ? If I select a group of text in which there are hyperlinks, the normal R click menu leads to a greyed out "Remove Hyperlink" Thanks, Michael Singmin Pretoria Tag: Booklet, back to front, landscape 1/2 page Tag: 52734
  - 22
    - MS-Word events for handling changes in documents Hi, I'm developing a small office addin and I need to trap the events from MS-WORD. I want to know if word fires an event when some one tries to edit an open word document something which would denote the current open document is being modified. I tried the DocumentChange but unfortunately I relaised it is meant for something else - fired when I change between documents on a focus change ,open or close. Thank you. Sincerely, Rajesh Tag: Booklet, back to front, landscape 1/2 page Tag: 52723
  - 23
    - Q: How to suppress a warning dialog when saving through XSLT? I use my own XSLT when saving my XML files in Word 2003. Every time user starts to save a file, he gets an annoying warning about some properties of a document may be lost. How can I switch off this warning? Tag: Booklet, back to front, landscape 1/2 page Tag: 52714
  - 24
    - Suppress "file is in use" message Is there a way in a vb macro to suppress the messagebox that a file is used by another user, i.e always open it as read_only? I tried on error and displayalerts but both don't work Win2K, Word2k Tag: Booklet, back to front, landscape 1/2 page Tag: 52711
  - 25
    - Default Filename This is a macro sitting in a Word template. The template is linked to an extract that is dowloaded from another system. The download is produced over and over again with new data each time. The macro undo the links and therefore I want to avoid that the template by mistake is saved without links. The Macro below works, however I want to display a different filename to the default Word is providing. Please help.......... Sub Browse_Save_and_Undo_Links() Application.ScreenUpdating = False If Dialogs(wdDialogFileSaveAs).Show = 0 Then GoTo A ' If user presses cancel Else Selection.WholeStory Selection.Fields.Update Selection.Fields.Unlink Selection.HomeKey Unit:=wdStory ActiveDocument.Save End If Application.ScreenUpdating = True A: End Sub Tag: Booklet, back to front, landscape 1/2 page Tag: 52710

Dear fellows, I hope someone can help me. I want to publish a club
handbook that is printed on 8 1/2 X 11 folded in half. This
effectively would have the first page printed with the last on the
same sheet. Just like a magazine is printed then stapled together.
The problem is I don't know how many pages will be involved so I just
can't start by typing the first page and the last page on the same
page and printing. The number of pages will change several times a
year. The question then becomes...is there a template or program that
will do this for me? In other words, allow me to type the pages
sequentially and when I'm finished rearrange the pages for proper
printing regardless of how many pages are involved. Years back in
another life I remember a Mac program that allowed me to do exactly
what I want, but I can't seem to find it for Word.
Thanks for any help you can give.

Wolf-==-

Top

Re: Booklet, back to front, landscape 1/2 page by Chad

Chad
Fri Jun 25 14:28:16 CDT 2004

Wolfgang,

This question would have been better to addressed to the pagelayout group,
as this is a Visual Basic for Applications forum, but in any event, you
should refer to the following link:

http://www.word.mvps.org/faqs/formatting/BookletPrinting.htm

Regards,
Chad DeMeyer

"Wolfgang Benninghoven" <wbenning@uhl.uiowa.edu> wrote in message
news:2b38c860.0406250700.4d4cac37@posting.google.com...
> Dear fellows, I hope someone can help me. I want to publish a club
> handbook that is printed on 8 1/2 X 11 folded in half. This
> effectively would have the first page printed with the last on the
> same sheet. Just like a magazine is printed then stapled together.
> The problem is I don't know how many pages will be involved so I just
> can't start by typing the first page and the last page on the same
> page and printing. The number of pages will change several times a
> year. The question then becomes...is there a template or program that
> will do this for me? In other words, allow me to type the pages
> sequentially and when I'm finished rearrange the pages for proper
> printing regardless of how many pages are involved. Years back in
> another life I remember a Mac program that allowed me to do exactly
> what I want, but I can't seem to find it for Word.
> Thanks for any help you can give.
>
> Wolf-==-

Top