copying each page of a dcument

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Insert pics from folder I am trying to create a template to automate the creation of a word document. I already have the template prompting the user for name, date, etc. It also prompts the user for a filename for this particular case. I am now trying to prompt the user for a folder containing bitmap images for that case. The document consists of two columns containing bitmap images. The problem is one case my have 4 images and the next may have 20 images. I was going to use bookmarks but because I don't know the number of images from one case to the next I'm not sure that is the best way to handle it. I would like the user to be prompted to select a directory and then the code would determine the number of *.BMP files in that directory and insert 4 images in each column with a blank line between each image. In order to fit within the column each images needs to be sized to 2.75" in width. When it gets to the bottom of column two insert a new page and continue on. Your suggestions are greatly welcome and appreciated. Mainer Tag: copying each page of a dcument Tag: 115586
  - 2
    - Problem with highlighting words Hi, I have a word document containing the following sentence. All people in the city =96 big and small had arrived to watch the marathon from start to finish I am running the macro below (adapted from a post in this group) to highlight the words in the vFindText array. Sub HighlightWords() Dim vFindText As Variant Dim sReplText As String Dim sHighlight As String Dim i As Long sHighlight =3D Options.DefaultHighlightColorIndex Options.DefaultHighlightColorIndex =3D wdBrightGreen vFindText =3D Array("big", "small", "start", "finish") sReplText =3D "" With Selection.Find .Forward =3D True .Wrap =3D wdFindContinue .MatchWholeWord =3D True .MatchWildcards =3D False .MatchSoundsLike =3D False .MatchAllWordForms =3D False .Format =3D True .MatchCase =3D False For i =3D LBound(vFindText) To UBound(vFindText) .Text =3D vFindText(i) .Replacement.Text =3D sReplText .Replacement.Highlight =3D True .Execute Replace:=3DwdReplaceAll Next i End With Options.DefaultHighlightColorIndex =3D sHighlight End Sub The problem: Only the words "big" and "finish" are getting highlighted in green. The words "small" and "start" are not. What could be problem? Thanks in advance for the help. Regards, Raj Tag: copying each page of a dcument Tag: 115576
  - 3
    - http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.DAMENKLEIDUNG-KAUFEN-24.INFO + http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO http://WWW.UEBERGROESSEN-KAUFEN-24.INFO http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INFO +++ MAENNERKLEIDUNG KAUFEN +++ MAENNERKLEIDUNG ONLINE BESTELLEN ++ http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF +++ DAMENKLEIDUNG KAUFEN +++ DAMENKLEIDUNG ONLINE BESTELLEN ++ http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF +++ UEBERGROESSEN KAUFEN +++ UEBERGROESSEN ONLINE BESTELLEN ++ http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://www.back-link.net http://ibm-news.for-um.de/showthread.php?t=1175 http://ibm-news.for-um.de/showthread.php?t=1177 http://ibm-news.for-um.de/showthread.php?t=1177 http://www.back-link.net http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF +++ MAENNERKLEIDUNG KAUFEN +++ MAENNERKLEIDUNG ONLINE BESTELLEN ++ http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF +++ MAENNERKLEIDUNG KAUFEN +++ MAENNERKLEIDUNG ONLINE BESTELLEN ++ http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF http://WWW.MAENNERKLEIDUNG-KAUFEN-24.INF http://WWW.DAMENKLEIDUNG-KAUFEN-24.INF http://WWW.UEBERGROESSEN-KAUFEN-24.INF + Tag: copying each page of a dcument Tag: 115569
  - 4
    - Question about memory allocation Hi, I defined A as an array in this way: Dim A() as string It is an array with unspecified array size. Somewhere in the programme, I define the array size like this: ReDim A(10) When I redim, does it mean some memory is immediately allocated for this array or does memory is allocated for this array ONLY when I define the elements as well, like, for example, ReDim A(10) A(1)="apple" A(2)="orange" .... ? Thanks. Mike Tag: copying each page of a dcument Tag: 115560
  - 5
    - Word 2003/2007 Prompting to Save Document Hello All. I posted this question last week. Got some suggestions from Doug the MVP (Gracias for you efforts), but was unable to solve the problem. No one else chimed in. Here's the deal. We have an application that creates Word documents by automating Word with VBA and mail merge. All is good, application works as it should, creates the documents just fine and all. Problem is, when the user opens the file with Word 2003 or 2007 and prints the document (they are protected, so they can't change them), the document still prompts the user if they want to save the document. Behaviour does not occur if the file is created with Word 2000 or Word XP, nor does it occur with documents not created in this manner. Behavior continues with file indefinitely, where it will always prompt the user to save the document upon close if the user prints the document. I've posted an example of the document on our website: http://www.databasewhiz.com/tmp/NAS/8000009_Demand Letter.doc Clearly Word thinks something is changing when the user prints the file, but what? I've included part of the Sub that generates the file: Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open FileName:=strDoc, AddToRecentFiles:=False, Visible:=True With wrdApp.Documents(strDoc).MailMerge .DataSource.FirstRecord = 1 .DataSource.LastRecord = 1 .Destination = wdSendToNewDocument .Execute End With wrdApp.Documents.Item(1).Activate wrdApp.Documents.Item(1).Protect wdAllowOnlyComments wrdApp.Documents.Item(1).SaveAs "C:\access\NAS\" & intHmnrID & "_" & strDocName wrdApp.Documents.Item(1).Close wrdApp.Documents(strDoc).Close SaveChanges:=wdDoNotSaveChanges wrdApp.Quit Set wrdApp = Nothing Nightmare prompt is starting to cost us lots of time & money. If anybody has a clue as to why this would occur and how to fix it, would really really appreciate it. Thanks In Advance, RJ Database Whiz Consulting Tag: copying each page of a dcument Tag: 115555
  - 6
    - Create macro to replace logo My company has a new logo and I need to replace it in hundreds of templates. It currently resides in the same place in all templates in the footer within a text box. I have recorded a macro, but I get an error when running it on subsequent templates. I am using Word 2003. Thanks for any assistance. Tag: copying each page of a dcument Tag: 115554
  - 7
    - Automating search/replace within a block Hi, At the end of a macro automating the search/replace within a block, how do I answer no to the dialog box asking if I want to search the remainder of the document? Recorder does not record my answer. Sorry, it must be basic, but cannot find the answer. thanks -- John Doue Tag: copying each page of a dcument Tag: 115547
  - 8
    - Formfield wdDateText Hi, I'm having a problem adding a formfield in Word 2000. I'm adding a textbox and want it to be formatted with the DateText setting. I want the formatting to spell out the month day, year when the user enters the date. I've been playing with the TextInput property, but must be missing something. This is the code w/o TextInput property. Set ffield = ActiveDocument.FormFields _ .Add(Range:=Selection.Range, Type:=wdFieldFormTextInput) With ffield .OwnStatus = True .StatusText = "Type Prior Application Filing Date, xx/xx/xx" End With Thank you. jbc Tag: copying each page of a dcument Tag: 115545
  - 9
    - Visual Studio VSTO Projects wants Office 2003?? I just installed Visual Studio 2005 and VSTO. When I try to create a Word Document project it complains that I don't have Office 2003 installed. I do have Office 2007 installed. What's up with that? Tag: copying each page of a dcument Tag: 115541
  - 10
    - Repopulate UserForm from Document I have created a 2003 Word Template [2007 Compatibility Mode] that uses 2 userforms. (The 2 userforms are identical, except for the Name and some of the VBA coding.) The first userform loads when the template opens as a document to which the user enters information in each field and upon clicking OK, the new document populates with the entered information. The second userform was created to appear with the help of a keyboard shortcut macro to appear so that the user has the option of changing the previously entered information. My problem is that I want the second userform to populate with the information that was previously entered. Here is a sampling of my code for the second userform: Private Sub DisplayEditForm1() With ActiveDocument txtProjectDescription = ActiveDocument.Variables("ProjectDescription").Value etcâ?¦.. End With End Sub I have tried some of the other posted suggestions, but I'm still having problems. Does anyone have any suggestions? Thanks bunches!! Tag: copying each page of a dcument Tag: 115539
  - 11
    - Using KeepTogether for paragraph formatting Hi everyone, Here is my scenario: I'm creating a MS Word document using the Interop/Word API. My document consists of multiple "blocks" and I need to ensure that each block does not overflow a page. I have found multiple references to the KeepTogether property but have not been successful at getting it to work. Currently I am treating a document as a collection of paragraphs. In my code, whenever I encounter a new "block", I am creating a new paragraph. I then pull the range from the paragraph object and write out to the document until I detect the end of the block. // New block... Range.InsertAfter("some text"); Range.Collapse(ref end); Range.InsertAfter("most text"); // say I detect end of block here Range.InsertParagraphAfter(); // repeat from top If I try to set the KeepTogether property of a given paragraph, I get a "invalid value for range exception"... I'm setting the property like so: doc.Paragraph[1].KeepTogether = 1; I can't figure out what it is I'm doing wrong here... Thanks for any help! Tag: copying each page of a dcument Tag: 115537
  - 12
    - Error! No document variable supplied. Hi to all I have developed a system in Delphi and want to print into Word some information. I have created the field in Delphi that will print in word (DOCVARIABLE varname, IF{DOCVARIABLE varname}=" " "" ) but I keep having the message "Error! No document variable supplied." when no data is in Delphi database field. It works when there is data. Can any one out there help me in building the intructions to avoid the message mentioned above when the field is blank? Thanks for your valuable help. -- CP Tag: copying each page of a dcument Tag: 115522
  - 13
    - Header usage Hi, I`m not new to code but not an expert with office..is there a way to produce a header only on certain pages?.What I am tring to do is insert our company Logo into some batch processed documents. We do not want to use letterhead so the best would be to insert the logo within the Doc itself. Trying to use headers really isnt an option because every page will have the header and we really dont want that.. I have thought of using a text box and embeedding the image which makes sense but being that I need to do this in batches its hard to do beacuse of the section breaks and so forth.. Would anyone have any ideas on how I could go about insert the logo once per document, keeping in mind that the batch merges can draft many letters onto 1 doucment. Hope that explains it enough.. thanks R Tag: copying each page of a dcument Tag: 115521
  - 14
    - Application.screenupdating = false?? What's going on? Hi, I have the following code: Private Sub RadBtnCI_Click() Dim otable As Table For Each otable In ActiveDocument.Sections(4).Range.Tables Application.ScreenUpdating = False Call HideTableRows_fromRadioButtons(otable) Application.ScreenUpdating = True Next RadBtnCI.Select End Sub The "HideTableRows_fromRadioButtons" subroutine unhides plenty of rows in many tables and calls other subroutines. It takes 15-20 seconds to complete. During this time, despite of the Application.ScreenUpdating = False, the left side of the screen gets filled up with black horizontal lines. Application.ScreenUpdating = False DOES prevent the screen from showing how each table expands and collapses gradually, but I'd like to know whether it's possible to get rid of these annoying black lines that might confuse the user and led him to think that the computer is going to crash. The black lines do dissappear when the subroutine is complete, but 20 seconds of black lines filling up the screen is annoying, unprofessional and makes you think the program is crashing. Any help is appreciated, Thank you Tag: copying each page of a dcument Tag: 115510
  - 15
    - Progress bar that tracks actual progress?? I just finished implementing and testing my first progress bar. I got the code from this link: word.mvps.org/faqs/Userforms/CreateAProgressBar.htm I was dissappointed though!! As far as I understand how the progress bar works and based on my timing results, the progress bar does not track actual progress, it simply fills up a bar independently of the actual progress of a subroutine. In the end, you get a slower program that does nothing to keep the user informed of the actual progress. Is there a way to code a real progress bar, one that actually tracks the actual progress of a subroutine? Even if it does it with an error margin? Thank you, Juan Tag: copying each page of a dcument Tag: 115508
  - 16
    - Use Saveas to convert document to PDF without prompting? Is it possible to use Saveas to convert a Word document to PDF without prompting? I'm using Word 2007 (and Vista), and I have the line: newDoc.SaveAs FileName:=sNewFileName, FileFormat:=wdExportFormatPDF It worked, but I had to answer two promts for each PDF file saved. Is there a way to accomplish this without prompting? Steven Craig Miller Tag: copying each page of a dcument Tag: 115506
  - 17
    - Forming a sentence from a checkbox list Hiya - first post alert! I'm try to get word to form a sentence from user selected checkboxes, for example a user selects the items that they want and then word forms a sentence such as "i want X, Y and Z" So that it inserts commas and the word "and" in the correct place. i tried having a count, for the items and then when the count is > 1 getting word to type ", " but this code never called. any help please? Tag: copying each page of a dcument Tag: 115497
  - 18
    - Re: How to get to email from Word Hi, I am referring to the thread "How to get to email from Word" dated 4/20/2008. Virtually you have made the formatting worked. I'm using Word 2003/Outlook 2003. I copied the whole sub from Gramham's final version dated 04/22/2008, but I am stuck with error 91 - object variable or With block not set) on the statement objDoc.Range.Paste. What do I need to do get around with the this error? Many thanks, Tag: copying each page of a dcument Tag: 115491
  - 19
    - Convert Document object to byte array without using hard drive I'd like to use MS Word as a text editor and store the data as a byte[] within a name in Excel. I'd like to embed a Word document in an Excel file so the user can create rich 'how-to' documentation which gets transported with the workbook. Document's SaveAs and Open methods require a filename to be passed in, and a Document object is not serializable. To save the file, I could save the Document as a temporary file as an intermediary, and then open up that file as a FileStream which I could then convert to a byte array. However, creating the FileStream doesn't work if the Document is still open in Word as it is being used by another process. Outlook seems to be able to use Word as a text editor for composing email messages, I'd like to do something similar. Any ideas? I'm using C# in VS 2008 Professional, and Office 2003. Thanks. Tag: copying each page of a dcument Tag: 115485
  - 20
    - HELP PLEASE My boss is very picky about how he wants this project manual done. Here are his requests that I need assistance with: 1.) He wants the page #s to be on the right side on the front pages and the page #s on the left side on the back of the same paper. How do I do this? 2.) He has each chapter broken up into separate word documents but he wants the page numbers to change in all other chapters if he adds or subtracts pages in other documents. Can this even be done? If so, how? 3.) How do you import all information from Adobe Acrobat to Word? I am in a bind and he is expecting me to be some kind of expert. Please help me. -- LL Tag: copying each page of a dcument Tag: 115480
  - 21
    - Insert sentence only if text field is not null My searching is coming up empty, because I don't know what my intended result is called. Can someone tell me the name of what I'm trying to do, and direct me to the right reading? I want to insert some text if a certain field is not null. I also want to insert the contents of that field in the conditional text, i.e.: ...renew extensions of credit to the BKBORROWER[ and BKBORROWER2, each singly or collectively]. Thanks in advance. Sandi Tag: copying each page of a dcument Tag: 115473
  - 22
    - Find and Replace all occurrences except the first I have a find and replace vba script that can replace what I want, but it does it to all occurrences, and the requirements are to replace all of the occurrences except the very first one in the document. The code is: Sub FindAndReplacewithAcronym() Selection.Find.ClearFormatting With ThisDocument.Application.Selection.Find .Text = "Full name of the item" .Replacement.Text = "Acronym of the item" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ThisDocument.Application.Selection.Find.Execute Replace:=wdReplaceAll End Sub How can I modify it to do this? Do I have to count the occurrences and then do something while the count is greater than 1? Tag: copying each page of a dcument Tag: 115470
  - 23
    - VBA scripting in Word 2003 I created a form using the web tools (I plan to add to company website). I am having problems validating required user input. On a regular word form, I validate the fields using ActiveDocument.FormField(FieldName). How would I do this same thing on a form created with the web tools? Tag: copying each page of a dcument Tag: 115465
  - 24
    - Code to recover passwords Hi, I am looking for a code to recover the password protection I put on a word document, I can't remember the password and I need to alter the document, can anyone help me please. i know you can run a vba in excel to recover the passwords but dont know about word. Regards Tag: copying each page of a dcument Tag: 115457
  - 25
    - Templates - choosing a header/footer I have created numerous templates all based upon 1 letterhead with the company logo on top and address info in the footer. I populate form fields from our host systems, select drop downs, check boxes, etc upon doc new. Recently our company started marketing new poducts within a new company. All correspondece for this company uses a different header/footer, although eveything else is the same (body of letter, form fields, etc). Rather than creating templates for each company, I was thinking of having a userform where the person could select which company. Based upon that info it could load the appropriate header/footer. I'll use Comp A and Comp B for example. Thinking I could leave templates with Comp A header/footer. Upon doc (new) a userform would ask which company. If Comp A selected then no change. If Comp B selected then would need to delete header/footer and insert new header/footer. By delteting and inserting header/footer, would that affect the body text, form fields,etc? Or is it easier to start with a blank doc and then show userform and then insert the header/footer based upon choice? Is this possible to do either of these and if so please offer suggestions on how to go about this. Or am I reaching and the best practice would be to use different templates and just copy the letter body and macros? Thanks, Bryan Tag: copying each page of a dcument Tag: 115454
- Next
  - 1
    - copy document to other document Hi, I have searched a few day's for the next problem. I have several document in a directory. With a simple form I would make one big document. The form part is working, but I can't merge the documents together. With the code below, I get only the result of the last document. Public Sub copy_selection_from_file_2() Dim docBron As Word.Document Dim docOut As Word.Document Dim rngIn As Word.Range Dim rngOut As Word.Range ' Set docBron = Documents.Open("D:\Data Offline\Word \copy_test_bron") Set rngIn = docBron.Content Set docOut = Documents.Open("D:\Data Offline\Word\copy_test_doel") Set rngOut = docOut.Content rngOut.FormattedText = rngIn.FormattedText docBron.Close (wdSaveChanges) docOut.Close (wdSaveChanges) Set docBron = Documents.Open("D:\Data Offline\Word \copy_test_bron_1") Set rngIn = docBron.Content Set docOut = Documents.Open("D:\Data Offline\Word\copy_test_doel") Set rngOut = docOut.Content rngOut.FormattedText = rngIn.FormattedText docBron.Close (wdSaveChanges) docOut.Close (wdSaveChanges) Set docBron = Documents.Open("D:\Data Offline\Word \copy_test_bron_2") Set rngIn = docBron.Content Set docOut = Documents.Open("D:\Data Offline\Word\copy_test_doel") Set rngOut = docOut.Content rngOut.FormattedText = rngIn.FormattedText docBron.Close (wdSaveChanges) docOut.Close (wdSaveChanges) End Sub somebody a hint how it could work?? Tag: copying each page of a dcument Tag: 115452
  - 2
    - Word Macros and Merging Hi I've written a very simple find and replace macro, however when I merge a document into the template, the macro runs BEFORE the merging (I tested this with a msgbox that shows the macro has run beforehand). I am using "autonew" for the macro at the moment but I really want it to wait until after the merging to run. Any ideas? Thanks. Matthew Tag: copying each page of a dcument Tag: 115449
  - 3
    - Determining Font Colour G'day! I'm working on a little tool that presents key information about the styles in a document in a more user-friendly format. One of the data points I want to provide is the font colour. I've read heaps about changing the colour of various things - bits of text, graphs, even fonts - but I haven't seen anything about determining what the colour of a font is currently. If I use the value of the .Color property of the Font object, it gives me _really_ useful things like: -16777216 for Automatic; 255 for Red; 16711680 for Blue; etc. Unfortunately, I don't think too many of my users are going to understand this. <g> Is there an easy way to "translate" the .Color values into something that a wetware-based system can make sense of? I'd be happy with just the wdColor constants and show anything else as "Custom". -- Cheers! Gordon Uninvited email contact will be marked as SPAM and ignored. Please post all follow-ups to the newsgroup. Tag: copying each page of a dcument Tag: 115442
  - 4
    - Extract form field data to Access I have used Greg Maxey's "Extract Formfield Data" macro fairly extensively and I think I almost have is just perfect. I am trying to use an (If, Then, Else,). If the formfield has data than write it, if not, than go to the next formfield and check it for data etc. I have many many form fields so the code would be reputitious. The macro hangs if there is not data in the field identified or if the field does not exist. I need it to skip if no data ....... or ........ if that field doen't exist. Here is a snap shot of the reputitious portion of the macro and where it hangs. What do I need to complete the If, Else etc. If .FormFields("ReviewTitle").Result <> "" Then _ vRecordSet("ReviewTitle") = .FormFields("ReviewTitle").Result If .FormFields("FHWAUnitOffice").Result <> "" Then _ vRecordSet("FHWAUnitOffice") = .FormFields("FHWAUnitOffice").Result If .FormFields("ReviewTeamLeader").Result <> "" Then _ vRecordSet("ReviewTeamLeader") = .FormFields("ReviewTeamLeader").Result If .FormFields("ProgramCategory").Result <> "" Then _ vRecordSet("ProgramCategory") = .FormFields("ProgramCategory").Result Thanks for your helpful comments in advance. -- Eric the Rookie Tag: copying each page of a dcument Tag: 115439
  - 5
    - VBA scripting for Web Tools I have created a form in Word using the web tools (want to make it a web form). When I try to validate in the required user input, I do not know how to call the required fields. In a regular word form, I have been using ActiveDocument.FieldForm(FieldName). Any ideas on what how to do that in a web form? Tag: copying each page of a dcument Tag: 115437
  - 6
    - Word 2007 Use buildingblocks from other templates L.s, I have a .dotm file with macro's, buidingblocks, changes in the UI, etc. I placed this in the startup folder from word. When i start word all is availible and works fine. I placed it not in Normal.dotm fot each user, this is a read-only file wich all users use so its easy to maintain. I recorded a macro to place a buidingblock in the header. It says: activedocument.atachedtemplate.buildingblocks("name").... But when I run the macro from the UI I get a error. I could replace atachedtemplate with something like temlates("name"). But I like to keep the macro simple and without fixed filenames. Is there a way to let the macro look in all the open templates (like it works when I look for a buildingblock "by hand"), without programming all sorts of loops. Something like "all-templates", "open-templates", "active-templates" Thanks Peter Tag: copying each page of a dcument Tag: 115436
  - 7
    - Autotext drop-down list I need to create a document with drop-down lists but not use a form. I thought I could create an "autotext" field but I am having trouble following the Word Help or any of the tips here. I want the default field label to be "List of Ratings" and then give the user a choice of five different performance ratings to select from. Can anyone give me instructions or a link to a site where someone has already documented it? TIA Tag: copying each page of a dcument Tag: 115434
  - 8
    - Help with excel tables in Word Hello, I have to work with word (2003) documents in which are embedded (I believe that is the right term) a number of excel tables. I need to be able to extract info from each of the tables, with the information in the excel tables, in named ranges ( 1 cell each name) to use in the Word document. If possible, I would probably like to be able to edit the text within the cells as well, or even add/delete rows and columns with vba programs that I have already for the current version of the report which uses word tables in a word document. Why they decided to change is beyond me. How do I programatically identify, access and perhaps alter the excel tables from word. As far as I can tell, the tables are not identifed by names/bookmarks, and they are not liked to any actice excel files either as I am working on a different computer than that which makes the files initially (not on a network etc). I am ok at VBA but can't find out how to accomplish this by using the help files. Thank you . Jim joconnor@aspsm.net Tag: copying each page of a dcument Tag: 115428
  - 9
    - Apply RGB color into a MSGraph Hi, I use the following code but the line ".Border.ColorIndex = RGB(225, 76, 38)" doesn't give the right color. It returns a standard windows color that is similar but not the same. I have add the color into the windows custom color (MSGraph/Tools/Options [Color] at Cells(6,1) = right custom color but I can't access this color using the 56 standards ColorIndex. Even if there's 7 rows X 8 colors per row = 56. Any idea? Thank you! Alex With oChart2.SeriesCollection(i) .Border.LineStyle = xlContinuous .Border.Weight = xlMedium .Border.Color = RGB(225, 76, 38) 'doesn't work .Interior.Color = RGB(225, 76, 38) 'doesn't work .HasDataLabels = False End With -- Alex St-Pierre Tag: copying each page of a dcument Tag: 115425
  - 10
    - Setting what #'s can be typed into a text form field I am putting together an evaluation form in which each category can be scored from 1-5. I would like to set it so that only 1,2,3,4 or 5 can be typed into that field. Is this possible? How? Any help is appreciated. Tag: copying each page of a dcument Tag: 115421
  - 11
    - Macro for Saving to Two Locations I have run the Macro for Saving to Two Locations successfully..however, everytime I exit out of Word and go back in, the Macro addition to the toolbar is gone...the macro is still there, but I have to to go into Customize, and then pull the Macro up to the toolbar. Is there a way to get that to permanently remain there whenever I start Word? Tag: copying each page of a dcument Tag: 115418
  - 12
    - SaveAs problem with Word 2007 docx format My web site hosts an add-in created by fellow MVP Doug Robbins to split a merge into individual files. This worked fine, but occasionally there was an issue when the original document template on which the merge was based was not available and the resulting merge, then based on the normal template, produced some odd formatting. To overcome that issue I added the following piece of code which saves the document with a new name (so as to leave the original merge document intact). The copy document is then stripped of content and saved as a template and closed, The copied merge document is then reopened and the template so created attached ready to merge.. Sub CreateMergeTemplate() Dim sTempPath As String Dim sQuery As String Dim sRestore As String Dim sATemp As String Dim oSection As Section Dim oStory As Range Dim oMergeDoc As Document If Documents.Count = 0 Then MsgBox "No document present!" & vbCr & _ "Open the merge document and run this macro again", _ vbCritical, "Merge Template Creator" Exit Sub End If Set oMergeDoc = ActiveDocument If InStr(1, oMergeDoc, ".dot") Then MsgBox "Active document is a template!" & vbCr & _ "Open the merge document and run this macro again", _ vbCritical, "Merge Template Creator" Exit Sub End If If ActiveDocument.MailMerge.MainDocumentType <> wdFormLetters Then MsgBox "Active document is not a letter merge document!" & vbCr & _ "Open the merge document and run this macro again", _ vbCritical, "Merge Template Creator" Exit Sub End If sTempPath = Options.DefaultFilePath(Path:=wdUserTemplatesPath) & Chr(92) With oMergeDoc If Application.Version = 12 Then .SaveAs FileName:="SplitMerge.docx", _ FileFormat:=wdFormatDocument Else .SaveAs FileName:="SplitMerge.doc", _ FileFormat:=wdFormatDocument End If sRestore = .FullName For Each oSection In .Sections oSection.Range.Delete Next oSection For Each oStory In .StoryRanges oStory.Delete If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Delete Wend End If Next oStory Set oStory = Nothing With .PageSetup .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False End With If Application.Version = 12 Then .SaveAs FileName:=sTempPath & "SplitMerge.dotx", _ FileFormat:=wdFormatTemplate Else .SaveAs FileName:=sTempPath & "SplitMerge.dot", _ FileFormat:=wdFormatTemplate End If sATemp = .FullName .Close SaveChanges:=wdDoNotSaveChanges End With Documents.Open sRestore With ActiveDocument .AttachedTemplate = sATemp .Save End With End Sub This produces an error message when run on Word 2007 docx format merge document from the SaveAs function and is unable to attach the template, but it works fine on Word 2003 As a temporary workaround I have changed the sections below to work in compatibility mode thus: If Application.Version = 12 Then .SaveAs FileName:="SplitMerge.doc", _ FileFormat:=wdFormatDocument97 and If Application.Version = 12 Then .SaveAs FileName:=sTempPath & "SplitMerge.dot", _ FileFormat:=wdFormatTemplate97 which does work without error, but I would prefer to work with docx and dotx formats in case the merge document contains features introduced by Word 2007. Does anyone have any insights into what this needs to force it to work in Word 2007's native formats? Thanks -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Tag: copying each page of a dcument Tag: 115415
  - 13
    - If this date then do this Hello, I want to add a conditional statement a Sub I have to do something like this: Psuedo Code: ______________________________________________ If (today = first weekday of the month) Then MsgBox "Today is the first weekday of the month" End If ______________________________________________ I was thinking maybe using Datediff, or a Select Case. But you guys are the experts, open to suggestions. Tag: copying each page of a dcument Tag: 115408
  - 14
    - Format Email in body Hello, I am using this code below to put the contents of the document into the body of an Outlook email. Almost everything works perfect except for three Excel Graphs that are links from Excel into the Word doc. When they show up in the body of the email (before and after it is sent) they are blow up about 3x's the size they are in the Word document. Why would this happen? I have try .formattedtext etc.. and nothing seems to fix it. Also there is a picture in the Word doc (.GIF) that is copy/pasted into the doc, and when it is displayed in the message body it has the red "x" and it says, "The image cannot be displayed. Your computer may not have enough memory to open the image, or the image may have been corrupted. (etc....)". If I delete it and copy/paste it directly into the message body it displays correctly, just not when I use the code. Any info would be much appreciated!! _____________________________________________________ Sub SendDocumentInMail() 'Send document in body of email Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") 'Outlook wasn't running? Start it from code. If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for the new email .To = "Email@mail.com" 'Set the recipient for a copy .CC = "Email@mail.com" 'Set the subject .Subject = "Daily Report" 'The content of the document is used as the body for the email 'ActiveDocument.Range.FormattedText 'Selection.Copy ActiveDocument.Range.Copy .GetInspector.WordEditor.Range.Paste End With If bStarted Then 'If started Outlook from code, then close it oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub _______________________________________________________ Tag: copying each page of a dcument Tag: 115407
  - 15
    - changing footers I have a document that I am working on that has an index. The index needs to be numbered with roman numerals and then the numbering of the actual document needs to contain the standard numbers. Is there a way to do this using the autonumber feature of word or do I have to manually type in each page number? Tag: copying each page of a dcument Tag: 115403
  - 16
    - Add Paste Unformatted Text to the right click menu Another listserve pointed me to the following code that adds Paste Special to the right-click menu. Can anybody help me so one step further...instead of having to select a format and click OK in the Paste Special window, can I give the user Paste Unformatted Text right there on the right-click window? (ABOVE regular Paste if possible?) Thanks in advance! Sandi Sub AutoExec() Call AddPasteSpecial End Sub Sub AddPasteSpecial() Dim cb As CommandBar Dim c As CommandBarButton Set cb = Application.CommandBars("Text") Set c = cb.FindControl(, , "VBAxPasteSpec") If c Is Nothing Then Set c = cb.Controls.Add(msoControlButton, 755, , 4, True) With c .Caption = "Paste &Special..." .Style = msoButtonCaption .TooltipText = "Paste Special" .Tag = "VBAxPasteSpec" End With End If End Sub Tag: copying each page of a dcument Tag: 115397
  - 17
    - A macro to extract any para that starts a specific word into another I'm looking for a Word macro that would search a list of documents (all *.doc in a specific folder) for a specific word and extracts any para that starts with that word into another document. Any tips will be greatly appreciated, Thanks, Tag: copying each page of a dcument Tag: 115395
  - 18
    - Problem on inserting RTF file. I have the following RTF file {\rtf1\ansi\ansicpg1252\uc1\htmautsp\deff2{\fonttbl{\f0\fcharset0 Times New Roman;}{\f2\fcharset0 Microsoft Sans Serif;}}{\colortbl \red0\green0\blue0;\red255\green255\blue255;}\loch\hich\dbch\pard\plain \ltrpar\itap0{\lang1033\fs16\f2\cf0 \cf0\ql{\fs24\f2 {\ltrch This is test}\li0\ri0\sa0\sb0\fi0\ql\par}}} That basically has a string with font size 12. When I open the RTF file, the font size is set at 12 correctly. However when I tried to insert it to a Word document, the 12 font size will magically become 10. All other formatting (font family, font weight, or any font size other than 12) is intact. Tag: copying each page of a dcument Tag: 115393
  - 19
    - Insert Logo via code in a macro. Hey all, I am trying to have a logo,which resides on a server here, inserted via code into either (hopefully)a header for the document or perhaps a text box. I only need to do this on certain merge letters ( data from access). I was hoping I can insert into a header which I think will not skew the tables that are within the documents. If not I will need to insert into a text box. This project is needed since we cannot have letterhead paper for all documents.. Can any one shed some light on this . TIA Ron Tag: copying each page of a dcument Tag: 115386
  - 20
    - Find/Replace bug? Hi there! I have a routine that looks for highlighted text and then copies each instance of such found text in a new document. The main part of the main sub goes like this: Dim rgeDoc As Range Dim lngWordCount As Long Dim i As Long Dim docNew As Document Dim docCurrent As Document Set rgeDoc = ActiveDocument.Range lngWordCount = 0 Set docCurrent = ActiveDocument Set docNew = Documents.Add 'wdMainTextStory = 1 and wdTextFrameStory = 5 CheckRange rgeDoc, docNew, docCurrent i = 1 With docCurrent.Shapes If .Count > 0 Then For i = 1 To .Count If .Item(i).Type = msoTextBox Or .Item(i).Type = msoAutoShape Then If .Item(i).TextFrame.HasText Then Set rgeDoc = .Item(i).TextFrame.TextRange CheckRange rgeDoc, docNew, docCurrent End If End If Next End If End With I have to search each shape separately because the built-in Find ignores them. This sub calls the following function: Function CheckRange(ByVal rgeFind As Range, _ ByVal docCopy As Document, ByRef docFrom As Document) Dim rgeKeep As Range Dim rgeCopy As Range Set rgeKeep = rgeFind.Duplicate If rgeFind.StoryType = 1 Then With rgeFind.Find .Highlight = True .Format = True .Wrap = wdFindStop Do While .Execute With .Parent Set rgeCopy = docCopy.Range rgeCopy.Collapse wdCollapseEnd rgeCopy.FormattedText = .FormattedText rgeCopy.Collapse wdCollapseEnd rgeCopy.InsertParagraphAfter .Collapse wdCollapseEnd If .End = docFrom.Range.End Then Exit Do If Asc(.Characters(1)) = 13 Then .MoveStart wdCharacter, 1 End If Set rgeFind = docFrom.Range(.Start, docFrom.Range.End) End With Loop End With Else With rgeFind.Find .Highlight = True .Format = True .Wrap = wdFindStop Do While .Execute With .Parent Set rgeCopy = docCopy.Range rgeCopy.Collapse wdCollapseEnd rgeCopy.FormattedText = .FormattedText rgeCopy.Collapse wdCollapseEnd rgeCopy.InsertParagraphAfter .Collapse wdCollapseEnd If .End = rgeKeep.End Then Exit Do If Asc(.Characters(1)) = 13 Then .MoveStart wdCharacter, 1 End If rgeFind.SetRange .Start, rgeKeep.End End With Loop End With End If End Function I needed to have two "With rgeFind.Find" because the ranges are handled differently if they are in the main story or part of a text frame. Here is the context: I have a document that has Figures made up of many textboxes connected by lines. They were created by converting embeded Visio drawings into enhanced meta files, and then edited by right clicking on them. The Figures were cleaned up so that they consit only of lines and textboxes containing textframes. All useless shapes that the Edit command created have been removed. (This complicated process was used because it would have been too long to recreate the complex Figures from scratch within Word. It was overall faster to convert these complex English Figures into editable ones so that people who do not have Visio installed can easily translate them.) Those figures are held within a 1x1 table. Here is the bug: All highlighted text in the main story is picked up. Many of the shapes within the figures have highlighted text in them. Only about 5% of the highlighted text is being picked up by the function. I debugged the code and I know that the second ""With rgeFind.Find" above is being executed, but the corresponding "Do While .Execute" fails, as if the range from the textframes did not contained highlighted text when in fact it does... Â¿QuÃ© este pasa? Tag: copying each page of a dcument Tag: 115383
  - 21
    - Automatically updating fields I'm trying to design a "smart" form -- based on a pull down choice of "yes" or "no" to automatically fill in some text in a different part of a form. I'm knocking myself out due to lack of documentataion. I can use Bookmarks and an "If" Field -- but then how do you update the IF field automatically after changing the Pull-down Field? Help! Tag: copying each page of a dcument Tag: 115382
  - 22
    - Convert currency to text If a user enters 34,106.25 in a numeric field, is it possible to convert that to Thirty Four Thousand, One Hundred Six Dollars and Twenty Five Cents, place it in another field for editing if necessary and then pass to a bookmark in the document? My VBA level is still beginner -- if you have the answer please be specific. Thanks in advance! Sandi Tag: copying each page of a dcument Tag: 115379
  - 23
    - test test Tag: copying each page of a dcument Tag: 115377
  - 24
    - Table formating Can you please suggest a way to color the borders and add shades in many tables in one go? I am using Word 2007 and need to color my tables with the same shade. My document has more than 250 tables and i need to color them similarly. Can i set a default table shading in the heading row and in the table rows? I dont want add macros. Is there and way that i can save the default table style in the styles list? Tag: copying each page of a dcument Tag: 115374
  - 25
    - disable macro on a document Hi, I wonder if i could get some help here. What happens is that we have some word documents that sometimes may have some macros in it. And what i was trying to do is to disable them (if any) before saving the document and have it sent to our clients (who are not able to open them if there are macros). My question is that what might be the best way of accomplishing this task. Initially, i was thinking of saving it as .RTF file. But when i open it, it still has the macro in it. Then, i found some codes to disable the macro. This will disable the macro completely. What worries me now is that when the document is returned back from the client, i have to manually enable the macro through the code so that i can use it (this require someone who knows the code well - what about normal users?). Is there a better way of getting around this issue? Your help would be greatly appreciated. Thank you in advance Tag: copying each page of a dcument Tag: 115369

Hello all,

Is there any way to copy each page of a document separately from the
header and footer?

In my code when I use:

Selection.Bookmarks("\page").Range.FormattedText

it selects both the text in the page and its header and footer. I want
to store the formatted text of a page and its header and footer in
separete files.

thanks
mona

Top

Re: copying each page of a dcument by Doug

Doug
Mon Jul 14 17:13:08 PDT 2008

That does not happen here.

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

"Mona" <monireh.moha@gmail.com> wrote in message
news:777f9e63-ffc3-4040-afbf-ba6470807aba@d77g2000hsb.googlegroups.com...
> Hello all,
>
> Is there any way to copy each page of a document separately from the
> header and footer?
>
> In my code when I use:
>
> Selection.Bookmarks("\page").Range.FormattedText
>
> it selects both the text in the page and its header and footer. I want
> to store the formatted text of a page and its header and footer in
> separete files.
>
> thanks
> mona

Top