Copy current page + next two pages

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - WORD VARIABLES NOT CLEARING I have a huge vba project in word. I previously had a variable called "ELet_Heading" in my .dot document. I renamed this to "ELet_RE" and added a few more variables. When I run the macro its seems to remember what the previous variables were called and do not count through all variables although I use the following in VBA: For Each avar In ActiveDocument.Variables If avar.Name = "ELet_RE" Then num = avar.Index Next avar If num = 0 Then ActiveDocument.Variables.Add Name:="ELet_RE", Value:=TextBox2.value Else ActiveDocument.Variables(num).Value = Textbox2.value End If I do this for each and every variable but when I do the test counting the variables it only has 10 variables instead of for instance 15 variables and looking at the avar.Name I see that it doesn't run through all the variable names. Is there a way of clearing / deleting / removing the variables attached to that template so that it can see the new variables as well. Tag: Copy current page + next two pages Tag: 74293
  - 2
    - Importing Excel data into Word i'd like some suggestions on how to proceed. i have an automation task i'd like to accomplish. instead of cutting and pasting data from excel to word, Iid like to dynamically generate a set of report paragraphs from each row in an excel spreadsheet. i have a report format in a word table. the excel spreadsheet has the report data and each column heading corresponds to a data field type within the word table. each row in the spreadsheet would be a different set of data and would need to be on a separate page. so, i'd like to programmatically ... fill in the word table with the first row of data, then insert a page break and generate a similarly formatted table with row 2 data, and so on until all of the rows with information have been imported into the word tables. some of the key things to consider are that I will not have a static set of excel rows for each report, so the code has to figure out how much data i have and make the appropriate number of pages in word. what is the best approach here? is it to use fields? thanks for any feedback, suggestions, or pointers to examples. NBA Tag: Copy current page + next two pages Tag: 74291
  - 3
    - Add Blank Lines Prior to Table - Word2002 Hello, I have a two-column Word table which is triggered in MS Access. It properly opens Word, sets the Access data into the respective columns, obediently autoformats the Word table, saves the formatted document into a folder as .doc file on the server and opens the "Envelope Visible" feature for emailing. However, not being yet savvy in the Word-side of the programming spectrum, I have one final need and am asking if someone could please help me out with the proper method of inserting a couple of vbCrLf's prior to the insertion of the table? I've searched many sites as well as the Word vb help files and have probably seen the answer many times over but am not properly assimilating into the block of ice between my shoulder blades, sometimes known as my head. Also, does anyone know if the table autoformatting process forces the table to the top of the document anyway, where it could potentially override my needed vbCrLf (or best procedure) coding? Thank you. Tag: Copy current page + next two pages Tag: 74290
  - 4
    - Page Ref Field Hi everybody I know how to use the Page Ref Field in a document but I need to use it in one document while the bookmark is located in an other one, eg. a study book (document 1) where it is said: "after reading this lesson, go to the workbook (document 2) and do the excercise "two" page Y. How to do that? Any idea. Could not find any clues anywhere... Thanks in advance Alain Kadlec Ottawa Tag: Copy current page + next two pages Tag: 74288
  - 5
    - Hyperlinks Collection Incomplete Hi, My cover page is an ordinary Word 2000 doc which has many hyperlinks (often 50 or more). Then, there is a Word macro which is coded to follow all hyperlinks and print each document. I have noticed two problems: Problem #1: The Hyperlinks collection will sometimes return the hyperlinks in the wrong sequence (not in the order they appear on the page). Problem #2: The Hyperlinks collection will miss many hyperlinks in the current document. Both problems happen more often when the hyperlinks "wrap" from one line to the next. (Yes, that's a long link, but they are indented too by several levels). In that case, the second line of the hyperlink is blue and underlined, but the first line is not. Tried these fixes: 1) Install SR-1, SR-2, and SR-3. These work for a while (about a week), then problem #1 comes back 2) Put a sequence number into the text of the hyperlink, then wrote code to print based on the value of the sequence number. Unfortunately, I discovered Problem #2. My macro prints a few documents, then it stops. All it does in my loop is to put the Address into an array. (It doesn't delete any hyperlinks ever). Sometimes, in Problem #2, the Hyperlinks collection is totally empty. Then, the macro obviously prints nothing. Yet, the hyperlinks are clearly visible on the cover page. What can I do? Thank you VictorReinhart Tag: Copy current page + next two pages Tag: 74286
  - 6
    - Conditional even-page macro: bad VBA to good VBA? I wrote a macro that adds a section break with a blank page before it (blank other than saying "Blank Page" in the middle). This page appears only if it is an even-numbered page. The macro works fine, but it's made from recording within Word. I've tried to understand how to do this with better VBA but can't find a good explanation of creating and manipulating fields with VBA. (O'Reilly's "Word Macros" gives a glimpse but not enough to go on.) I'll put my code here. What I'm hoping is that someone can show how good VBA would do this. (I learned about this field from John McGhie's page at http://word.mvps.org/FAQs/TblsFldsFms/InsEvnPgEndChap.htm.) If you try my macro as written, your document or template needs paragraph styles called "Body Text" and "BlankPage" (mine is centered, italic, 250pt before). When your document has the conditional field in it, it must be updated to work; this usually happens automatically at appropriate times. Public AddSectBrkAndCondPage() ' ' Adds a section break and a conditional blank page saying ' "Blank page", which appears only if the preceding section ' ended on an odd-numbered page. ' Macro recorded 9/26/2005 by Christopher Brewster ' ' Conditional field will be in the following form. Spaces ' are important, and {} characters are not from those keys ' on the keyboard, but are generated by Ctrl-F9. ' { IF { =MOD( { PAGE },2) } = 0 " " " ' ----------------Page Break-------------- ' Para ' Blank page" } ' ======Section Break (Next Page)========= ' Add section break ' Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.InsertBreak Type:=wdSectionBreakNextPage Selection.MoveLeft Unit:=wdCharacter, Count:=1 ' Create three nested fields Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False ' Add var. to be tested within the innermost field Selection.TypeText Text:="PAGE" ' Go to beginning of the line and add code details Selection.HomeKey Unit:=wdLine Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="IF " Selection.MoveRight Unit:=wdCharacter, Count:=2 Selection.TypeText Text:="=MOD( " Selection.MoveRight Unit:=wdCharacter, Count:=8 Selection.TypeText Text:=",2) " Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=" = 0 "" "" """ ' Paragraph mark must appear on blank page, not on last page ' of the section... ' Add page break, which also creates a paragraph mark Selection.InsertBreak Type:=wdPageBreak ' Go back and delete paragraph mark Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.Delete Unit:=wdCharacter, Count:=1 ' Go forward and add paragraph mark Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeParagraph ' Add label to display on the blank page Selection.TypeText Text:="Blank page""" ' Go back and set correct paragraph styles ' The "Blank page" line has no para mark. The BlankPage ' style applies to the label and the section break Selection.Style = ActiveDocument.Styles("BlankPage") ' Set the para mark and page break as Body Text Selection.HomeKey Unit:=wdLine Selection.MoveUp Unit:=wdLine, Count:=1 Selection.Style = ActiveDocument.Styles("Body Text") ' Put the field into effect Selection.Fields.Update ActiveWindow.View.ShowFieldCodes = False End sub -- Message posted via http://www.officekb.com Tag: Copy current page + next two pages Tag: 74284
  - 7
    - VBA coding to delete styles I want to delete all styles from the active document and copy new styles from another(xyz.dot) template. What will be the coding? Thanks Tag: Copy current page + next two pages Tag: 74283
  - 8
    - Carry a variable content to a new document I generate a variable, named "MyVariable", using the Public statement. When the variable is set, I want to use the contents in another document, using the same name, within the new documents macro. Example MyVariable = "55555" ChangeFileOpenDirectory _ "C:\MyDocuments\" Documents.Open "Filename.doc" Application.Run MacroName:="Look4Me" In "Look4Me", I set a variable equal to MyVariable, but MyVariable is always empty. The original document which identified MyVariable is still open and running. How can I keep the variable contents? Tanks Tag: Copy current page + next two pages Tag: 74281
  - 9
    - Extracting Field Data Using VBA Once a document is open in VBA, is it possible to get the data associated with named reference fields: For example the document has the following field: { REF DocNum \h \* MERGEFORMAT } How can I retrieve the value (i.e. 2005-West-11 in this case) using VBA? Thanks! Don Tag: Copy current page + next two pages Tag: 74280
  - 10
    - Inserting a macro into a macro I am trying to put a macro in a form through a hyperlink that when the hyperlink is used, it automatically sends the form to my email. Is there any way to do that? Tag: Copy current page + next two pages Tag: 74277
  - 11
    - Setting the value for CustomDocumentProperties I am trying to create a version feature in Word VBA. I've got most of it to work properly, but for some reason, I am unable to set this value. I have created both a bookmark and a Word.Variable named "Version" to handle this processing. I have correctly linked the source of the bookmark, Version, to the variable. The bookmark source correctly updates, but the bookmark value does not update correctly, and shows a broken link when I view it in the File-->Properties window. So everything is working properly, except for the updating of the Value of the Version property. Below is the code that is crashing, specifically, the line that reads, CustomDocumentProperties("Version").Value = lnkSrc. This keeps saying that the Value method of DocumentProperty has failed. Value is not a method, but a property in this instance, how can I fix this? The following code is run when the user clicks on a button to update the version number: For Each prop In ThisDocument.CustomDocumentProperties If prop.Name = "Version" Then Dim lnkSrc lnkSrc = ThisDocument.Variables(1).Value CustomDocumentProperties("Version").LinkSource = lnkSrc CustomDocumentProperties("Version").Value = lnkSrc End If Next Tag: Copy current page + next two pages Tag: 74276
  - 12
    - Are there smart tags available for chemical names? How do I get around the differences between common English and the rules used for complex chemical nomenclature? Tag: Copy current page + next two pages Tag: 74274
  - 13
    - Copy multiple paragraphs from multiple documents into one document I need to copy addresses from 1000 documents and put them into one document. I need a macro that will copy from all documents under one Folder and Paste them into another document, preferably a Table. I can work with the formatting later. I located a "How to Find & ReplaceAll on a batch of documents in the same folder", but I am not good enough to modify it to Select the correct area and Copy and Paste instead. Tag: Copy current page + next two pages Tag: 74272
  - 14
    - Opening File Dialog throws odd memory error Hi all, I have a line of VBA code that displays a file open dialog using the Application.FileDialog(msoFileDialogOpen) object. However, sometimes when I execute the .Show method I get a message box saying "There is not enough memory or disk spec to complete the operation". I don't believe it really a hardware related issue as I'm not shot of either RAM or HD space, but more curiously if I change the object to be of type msoFileDialogPicker then it will display the dialog. In fact the problem seems to be interchangeable between the two file dialog types, i.e. they will both cause the problem at some point. So does anyone know either a) what might cause the problem in the first place? b) something I could do in my code prior to calling Show to sort out the memory? I can't catch the error either to dynamically switch object types because it seems to be raised by Word and not the VBA runtime. TIA Craig Tag: Copy current page + next two pages Tag: 74271
  - 15
    - How to (Task Pane) Is it possible to create task pane in word 2003 without using smart document? Bcoz I dont need any xml or xsd files. Please help. Tag: Copy current page + next two pages Tag: 74264
  - 16
    - DsoFramer ActiveX Control Problem I am having a problem with the BeforeDocumentSaved event for the DsoFramer: http://support.microsoft.com/default.aspx?scid=kb;en-us;311765 Here is the sig: BeforeDocumentSaved(ByVal Document As Object, ByVal Location As String, Cancel As Boolean) I *can* get the save to be cancelled in VB6: e.g. Private Sub oFramer_BeforeDocumentSaved(ByVal Document As Object, ByVal Location As String, Cancel As Boolean) MsgBox "not going to save :p" Cancel = True End Sub But I *can't* get this to cancel in VBScript or JScript... JScript: <script language="JScript" for="oframe" event="BeforeDocumentSaved(Document, Location, Cancel)"> BeforeDocumentSaved(Document, Location, Cancel) </script> function BeforeDocumentSaved(Document, Location, Cancel){ alert("will still save :("); Cancel=true; } VBScript: Sub oframe_BeforeDocumentSaved(Document, Location, Cancel) MsgBox "saving" Cancel = True End Sub Can someone offer some ideas on how to get this to cancel the save. My thoughts are that somehow this is passing the Cancel parameter by value rather than reference. Thanks, Owen. Tag: Copy current page + next two pages Tag: 74263
  - 17
    - This one's tough: Finding Character Styles from VBA I need to determine whether character styles are in use for any sub-portion of a Range. If you've worked with Range properties, you know that MOST properties (e.g. .Bold) return a special undefined value (such as 9999999) when the property value is not uniform over the range. However, Word uses the Range.Style property for BOTH Paragraph Styles and Character Styles. If you query the .Style property for a Range which is ENTIRELY in one Character Style, the value will be the name of the Character Style. The moment that the Range overlaps by a single character, into a run with either another Character Style or no Character Style, then the return value will be the name of the Paragraph Style for the Range. (If the Range overlaps two paragraphs with different Styles, then Range.Style will be Nothing) One solution is to check every single character in the range. That's effective, but extremely slow. Word-by-word checks would be faster, but not 100% reliable. A second solution is to examine all of the character styles in defined for the document (I'm really only interested in the ones which Word has created on its own from Paragraph styles, such as "Heading 1 Char"), map out everywhere they are in use in the document (including Footnotes, etc.), and then see whether any of those ranges overlap the areas of the document that are of interest to me. That is faster than solution 1, but requires 1-200 lines of VBA code, and is still a kludge. Does anyone have a direct and elegant way of accomplishing this? A direct cc: to me, in addition to a reply-to-group, would be appreciated. -- Fletcher James President Levit & James, Inc. (703)771-1549 MailTo:fjames@levitjames.com http://www.levitjames.com Tag: Copy current page + next two pages Tag: 74258
  - 18
    - Macro inconsistently refuses to let me size columns I have a macro that builds a table, populates it, and sizes the columns. Sometimes, expecially when I am debugging, the system throws an error that says that I can't access table columns because the table contains cells of different sizes. Then, other times the system sizes the columns correctly. This is driving me crazy! -- Nancy Tag: Copy current page + next two pages Tag: 74256
  - 19
    - I want to create macros within custom toolbars I would like to create macros with customized toolbars and THEN put them in a drop down list available to users Tag: Copy current page + next two pages Tag: 74255
  - 20
    - How do I prevent users from using the "Enter" button on my form? I made a form for work, however when someone uses the "Enter" button, it ruins the formatting of the form. Could someone illistrate to me how I can disable the Enter button in my form when I protect it. Tag: Copy current page + next two pages Tag: 74254
  - 21
    - Word automation questions (Using from VB6) I'd like to create a new Ms Word document from my VB6 application using a template. I'am new using automation, so i have some questions. 1) I set a reference to my project "Microsoft Word 11.0 Object Library". Is this backwards compatible with older versions of Microsoft Word ? Is it possible to load it dynamic (depending on a users version of Microsoft Word) 2) Is it possible to check if Microsoft Word is installed ? 3) Whats the best way to create an instance of Microsoft Word and create a new document from my template ? (Must work with and without an existing running instance of Microsoft Word) Dim wdApp As Word.Application Dim docNew As Word.Document Set wdApp = New Word.Application Set docNew = wdApp.Documents Add(App.Path & "\report.dot") -Or - Dim wdApp As Word.Application Dim docNew As Word.Document Set wdApp = GetObject(, "Word.Application") If wdApp Is Nothing Then Set WordApp = CreateObject("Word.Application") End If Set docNew = wdApp.Documents.Add(App.Path & "\report.dot") -Or Better solution Thanks in advance, Robertico Tag: Copy current page + next two pages Tag: 74248
  - 22
    - Can I launch MSO Document Imaging from a Word macro? I need to be able to display a *.tif file programmatically from a Microsoft Word Visual Basic macro. I'm running Microsoft Office Professional 2003 in Windows XP. I've created a reference to the Microsoft Office Document Imaging 11.0 Type Library and added the MODI Viewer control to my toolbox, but when I try to add the control to a form or document I get a message saying "Library not registered." What do I need to do to be able to use this control, or even just to launch the *.tif file in Microsoft Office Document Imaging from a Word macro? Tag: Copy current page + next two pages Tag: 74246
  - 23
    - Smart Document Deployment Issue I am using Code Signing certificate from Thawte for signing the Manifest.XML and C# DLLs. If I deploy this pack on my development machine everything works fine. But when I try to deploy it on QA machine I get a Security Warning dialog stating "An error occurred while verifying signature. Do not trust these credentials." and "Always trust macros from this publisher" checkbox is disabled. If I use XMLSign tool to verify it on QA machine, the Security Warning dialog displays as "Publisher authenticity verified by Thawte Code Signing CA". Can anybody please help me to resolve this issue? Any help will be really appreciated, Thanks is advance, Milind Kadam Tag: Copy current page + next two pages Tag: 74245
  - 24
    - Repeat Header problem Hi I encounter the following problem: After inserting a table to the document I add the following lines: obTable.Rows.HeadingFormat = True obTable.Rows.AllowBreakAcrossPages = False and the table heading is not repeated, however when I record this design to a macro the come seems identical but that table does repeat the heading Thank you, Shmuel Shulman Tag: Copy current page + next two pages Tag: 74243
  - 25
    - Save As Macro Guys, I am trying to create a Word 2002 macro that when ran it'll pop up the save as box which will be a specific network folder. Can anyone help. Many Thanks kevin Tag: Copy current page + next two pages Tag: 74236
- Next
  - 1
    - macros that runs when move to another document of change focus Is there a way to run a macro when you chnage focus to another word document? ie. got two documents open and you switch between them without closing them? MervB :-) Tag: Copy current page + next two pages Tag: 74231
  - 2
    - Smart Document Problem We have developed a smart document program which adds document action pane in word 2003. As we are suppose to delevering this to endusers they do not see the XML tags as we are hidding it programmatically. We want to show the action pane globally for a document I said globally because the XML tags are not important to us we are storing the changes made in active pane as a custom property of that document. But now the problem is that I want to place the XML tag like one at start of document and one is at end of document. Please guide me, I am new to smart document SDK. Am I going on the right track? Is it the proper way of using smart document? and also we want to deploy this on only office 2003 machines. Lots of thanks in advance. Tag: Copy current page + next two pages Tag: 74230
  - 3
    - I need to attach a toolbar in a .doc so that it travels with the . I have created the custom toolbar, but need to attach is so that when the template is emailed the toolbar will appear - even if it's not previously set up on their computer. I have the template as a .doc as I understand it is not possible to attach custom toolbars to .dot that will work in the way I wish Does anyone know how to attach the toolbar? Many thanks Tag: Copy current page + next two pages Tag: 74227
  - 4
    - Insert text into certain position in word Hello: I want to export some data from Ms project and insert these text into special position ( Line and column ) . But i don't know how to navigate in word. i mean i have no idea about how to mark the position where i want to add new text. please give me some good ideas on how to do it. Thanks for your attention ! Tag: Copy current page + next two pages Tag: 74223
  - 5
    - Objects disconnected from clients In Word 2000, I created a template with a toolbar button that runs a macro that inserts 4 returns and an AutoText entry. The AutoText entry is a "Verify No Defects" symbol that I drew in Word. It consists of a 4 grouped objects: a circle, a diagonal line, the word "Defects", and a checkmark. This AutoText inserts consistently without a problem when the toolbar button is clicked. However, I have another toolbar button that does exactly the same thing except that the AutoText entry that it inserts has 5 grouped objects: the same 4 described above and an additional check mark. This macro works fine on some occasions but on others gives this Run-time error: '-2147417848 (80010108)' Automation error. The object invoked has disconnected from its clients. Can anyone explain this error message to me and tell me how to fix the problem? I have come up with one solution but I don't like it. I copied the grouped items and pasted them into Microsoft Picture. They then became one "inline with text" object instead of a "floating" object and the macro works fine. However, I really want the floating grouped object. TIA, Vivian Carroll Tag: Copy current page + next two pages Tag: 74220
  - 6
    - Shapes OLEObject FileName change How do you cnange the FileName of an existing shapes? Tag: Copy current page + next two pages Tag: 74219
  - 7
    - EMail from Word2003 hi i ask this as no one replied to my earlier query. i want to send a word document as an attachment without using Outlook. is there a .dll file that comes with WinXP or something (something high level, not socket level :) ) that can be used to send email using VBA? i'd rather not use a third party library/dll as i want to maximise the chances of a user being able to send the email at one go. thanx again riyaz Tag: Copy current page + next two pages Tag: 74214
  - 8
    - Print Mailmerge - Access Password Protected Hi, I use VB6 for mailmerge a Word2000 document connect with access2000 database. My customer throw my program set a access database password. I'd like to do a word's print from my program without change doc's files. I'd tried with this code.... x = WrdApp.Application.Documents.Open( myDocument ) !!!!!!! Here Word Ask me database's Password With WrdApp.ActiveDocument.MailMerge .DataSource.ConnectString = (IMPOSSIBLE Is ReadOnly) .Destination = wdSendToPrinter .Execute End With Can i solve this problem without change word's document ?? Sorry for my bad english !!!!! Thank's Daniele Pinai (Italy) Tag: Copy current page + next two pages Tag: 74212
  - 9
    - Macro from WORD to FRONT PAGE Hallo everybody. I have a really big problem: I made many macro in WORD, EXCEL an ACCESS (I made quite 100 macros, in OFFICE 2000). Now, to make my work simpler, I want to prepare a web site with the links I need to work, and some commands in the pages. So: I need to prepare a button that, on click, run my macro. What can I do to obtain this? Please help me!!! Guido Tag: Copy current page + next two pages Tag: 74210
  - 10
    - Populating word 2002 forms with ODBC data Is there a way to access ODBC databases easily from within Word 2002? I have a template that starts with a user form, in that user form, the end user is asked to enter a client number. I want to be able to retrieve the client data based on that number. The data is in Foxpro 6 Any direction here would be great as I'm not having much luck finding a "yes you can/no you can't" type answer Tag: Copy current page + next two pages Tag: 74205
  - 11
    - Need help with a looping macro I need help with writing a "Do Until" macro. I am inserting a text file (that changes daily) and need to insert spaces at fixed lengths in each line. I want to start on the first line and stop the macro at the end of the file. The macro is: Sub Insert_Spaces() ' ' Insert_Spaces Macro ' Macro recorded 9/7/2005 by keenpar ' Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeText Text:=" " Selection.MoveRight Unit:=wdCharacter, Count:=7 Selection.TypeText Text:=" " Selection.MoveRight Unit:=wdCharacter, Count:=16 Selection.TypeText Text:=" " Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine End Sub Any help will be most appreciated. Thanks -- Jerry Keenan Tag: Copy current page + next two pages Tag: 74202
  - 12
    - EMail ing in word hi using Word2003. read thru postings but didn't find what i'm looking for. :) i've got a word document that needs to be sent as an email attachment. i know how to access fields and all, but have not been able to find an EMail object that allows me to send the word doc as an attachment to the address(es) that is/are required i'd rather use a library or object (such as ADO for data access, without opening Access or Excel) but not use the Outlook application to do it. typical setup is WinXP with Office2003 is this possible? thanx and please help riyaz Tag: Copy current page + next two pages Tag: 74201
  - 13
    - How to trap ClosePreview, when user clicks the X inupper right corner. I open a Word template from with in Outlook. The template that has a Public Sub named ClosePreview, I use this macro to close the Word application by calling Quit wddonotsavechanges, this works fine when user clicks the built-in Close button. If user clicks the X in upper right side my macro will not execute. Can some one please advise how to trap the event associated with clicking the "X", my goal is to close and quit Word with out saving any changes. Thank you Tag: Copy current page + next two pages Tag: 74200
  - 14
    - Text Box -- put IP at top I have a text box on a user form which receives multiple lines of text (more than a 'screenful' -- this particular text box can display only about 10 lines of text, and I have scroll bars visible). When the user clicks inside the textbox, the insertion point is always on the last line. The user has to scroll up to see the beginning of the text. I want the cursor to start at the head of the text. I have tried the CurX and CurLineX features, but cannot get them to work for me. What else can I do? Thanks, Ed Tag: Copy current page + next two pages Tag: 74199
  - 15
    - INCLUDEPICTURE prob When I place the merge field within the INCLUDEPICTURE it appears ok as { MERGEFIELD myfield}. However when I do a Save it instantly changes to the actual data, i.e., "MyFileName.jpg". I have a routine in the document open event that calls a routine in the dot file that reupdates all the fields. However, it never updates the picture. I have a feeling that once it gets changed in the Save as the actual data, it never changes again. What do I do to cause the picture to change from record to record? Tag: Copy current page + next two pages Tag: 74191
  - 16
    - merge doc opening message When I open a document that is merged from Access, I get a message that begins: Opening this document will run the following SQL command. Select * form 'queryname'.... Is there any way to prevent this message from appearing? Tag: Copy current page + next two pages Tag: 74190
  - 17
    - Menus en Word Tengo dos .dot a.dot y b.dot. El A.dot se encarga de administrar los men=FAs, de tal manera que b o cualquier otro .dot pueda agregar sub-men=FAs bajo el mismo men=FA de la barra de menues. Cada vez que un .dot se levanta, en el AutoExec agrega los men=FAs que le son particulares. Es decir que b.dot agrega sus men=FAs cuando se carga mediante la macro AutoExec, llamando a una funci=F3n en a.dot Es l=F3gico que cuando se descarga el complemento saque los men=FAs que agreg=F3, para esto en la macro AutoExit de cada complemento se borran los men=FAs que cada uno de ellos puso. Es decir que b.dot borra sus men=FAs en la macro AutoExit, llamndo a una funci=F3n en a.dot El problema que todo esto funciona maravillosamente cuando estoy editando y corro las macros a mano mediante F5. Cuando quiero poner todo esto en producci=F3n, copio los .dot al directorio STARTUP de Word. Hecho esto y levantado el Word, no funciona. He puesto trazas, por lo que se que se ejecuta, pero no logro borrar los menues. Para pero de males, luego saco los .dot del directorio de STARTUP de Word, o sea que no hay nadie que me pueda cargar los menues, pero sin embargo aparecen. Cualquier ayuda o sugerencia ser=E1 bien venida, no duden en preguntar si hay algo que no entienden de la exposici=F3n Suerte Gustavo Tag: Copy current page + next two pages Tag: 74189
  - 18
    - How to Copy-n-Paste into textbox how do you copy text from Outlook and paste it into a textbox of a Word form Seems like a simple operation. Right-clicking does not bring up a context menu. ALT - Edit - Paste pastes the text into the adjacent table cell. Any thoughts? Tag: Copy current page + next two pages Tag: 74188
  - 19
    - Transposing word doc into Excel doc If I have a word doc that my employees need to fill out and then I need the information they put in to be able to be transposed into an Excel doc, is this possible and if so how do I do it? Thanks, Tag: Copy current page + next two pages Tag: 74185
  - 20
    - align 2 paragraph styles with no line break (appear as 1 line) I need to have 2 styles look as follows: (style 1) 62340 Description line (style 2) The number would be bold, the description line would not. Description line can be very long, wrapping quite a few times. Is there an option to have no line break and choose to align 2nd paragraph with 1st? I have used Ventura for years but have been asked to try & setup in MS Word, which I don't think is going to work. Tag: Copy current page + next two pages Tag: 74181
  - 21
    - The list openend document On the right site when opening word than have you a list from the opening files what you haven don. When you opend the file than is the next time not the first one. The old program (word 2000) that was oke. The ask is that chance that when i for de second time opend the file that also in word2000 the second one is. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=0d0f81f0-5560-4db6-81e9-2fc3bbab7040&dg=microsoft.public.word.vba.general Tag: Copy current page + next two pages Tag: 74180
  - 22
    - Unicode question I seem to have a strange unicode problem. Let me descibe what I am doing: Part of my VBA tool involves reading from a unicode saved text file which is in the format: findwordSPLITreplaceword The VBA code then processes the sequence of lines and keeps replacing "findword" with "replaceword". The sample text file is attached and its contents are: ?SPLIT&agr; ?SPLIT&bgr; ?SPLIT&khgr; Whenever I try to get the "findword" using a command like: SPL=split(EachLine,"SPLIT") msgbox strconv(SPL(0),vbfromunicode) ' Shows me gibberish for alpha and gamma BUT works for beta! The problems happen only for some unicode symbol fonts and work for all other normal fonts and most symbol fonts. My question is, if I need to have a file that may contain unicode characters and is saved in unicode format and I need to be able to do find and replaces the way mentioned above, what would be the best method? I have no idea why this doesn't work for alpha and gamma and works for many others! Thanks for your thoughts on this. Vince begin 666 test2.txt M__ZQ`U,`4 !,`$D`5 `F`&$`9P!R`#L`#0`*`+(#4P!0`$P`20!4`"8`8@!G E`'(`.P`-``H`QP-3`% `3 !)`%0`)@!K`&@`9P!R`#L`#0`*```` ` end Tag: Copy current page + next two pages Tag: 74179
  - 23
    - Running two instances of Word at the same time Can this be done? I've got some VBA scripts to run on about 800+ MIF files, and I want to run the simple ones in one instance, and the complex one in another instance (it has to be babied). Tag: Copy current page + next two pages Tag: 74178
  - 24
    - saving autotext to normal.dot I have a large autotext list with addresses etc. This has been saved to an alternated file named normal2.dot. Now when I add a new auto text or change an existing one it does not save it except in the current session of word. next time it is turned on it will be gone. It says normal.dot is read only but when I look at properties it says it isn't. It doesn't appear to be saving to the alternate file either. Also, the auto text doesn't appear automatically (although it used to). Everytime the machine is rebooted I have to go to templates and add-ins and select the extra file. Is there a way of making this a default. A Any ideas please Thank you Tag: Copy current page + next two pages Tag: 74175
  - 25
    - Greetings, problems with setting a bookmarked textbox value...it's protected? Hi all, I've been writing code in various environments, in varying application, for a wide range of customers, for about 35 years now and I'm still learning new stuff. ;) This week I'm helping a friend create a Word document template (Word 97) that stores a bunch of answers to questions in the registry (Using SaveSetting and GetSetting). In this document, as a part of the startup processing (AutoNew), I want to load the stored values back into the bookmarked places where they belong. The problem is I'm getting a error saying the location is protected. From what I understand of this, yes it is! I've protected the document so the body cannot be modified...but I want to be able to enter text/values into those places where I've defined fields (such as Textboxes, Checkboxes...et al) Here's the code I have so far, the error comes from this line: BkMrkRng.Text = RegVal <code> Option Explicit Private BkMrk As Bookmark, BkMrkRng As Range Sub AutoNew() Dim sBMName As String, S1 As String, S2 As String, RegVal As String For Each BkMrk In ActiveDocument.Bookmarks sBMName = BkMrk.Name S1 = Mid(sBMName, 1, Len(sBMName) - 1) S2 = Mid(sBMName, Len(sBMName)) RegVal = GetSetting("MBD", S1, S2, vbNullString) If RegVal <> vbNullString Then Set BkMrkRng = ActiveDocument.Bookmarks(sBMName).Range BkMrkRng.Text = RegVal ActiveDocument.Bookmarks.Add sBMName, BkMrkRng End If Next BkMrk End Sub </code> Hints: I've used the bookmark name, split into 2 strings, to name the Section and Key for the SaveSetting function so I can easily retrieve the values. I've learned that by setting the text value of a bookmark it clears the bookmark itself, therefore making it necessary to Add the bookmark back in after setting the text value. Thanks for any help, Shell (Yes, this is my real name) Tag: Copy current page + next two pages Tag: 74166

Hi,

I'm wanting to select and copy the current page + next 2 pages to a new
document.

I use the following code to copy a page, but can "\page" be modified to
"\page +2"????

Code is....

Sub CopyPage()

'Select and copy the text to the clipboard

ActiveDocument.Bookmarks("\page").Range.Copy

' Open new document to paste the content of the clipboard into

Documents.Add

Selection.Paste

End Sub

Thanks

Simon

Top

Re: Copy current page + next two pages by Helmut

Helmut
Wed Sep 28 07:35:30 CDT 2005

Hi Simon,

like this:

Dim p1 As Long
Dim p2 As Long
p1 = Selection.Bookmarks("\page").Range.Start
Selection.GoTo what:=wdGoToPage, which:=wdGoToNext, Count:=2
p2 = Selection.Bookmarks("\page").Range.End
Selection.SetRange Start:=p1, End:=p2
' copy or whatever

--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Top