Using Multipage in a single form

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 2 docs open i lose focus but one open and works fine. Word 2000 Windows 2000 pro I don't understand what is happening? basic outline click on a control runs through code if this is the only doc open i can click on another control with no problem if more than one doc is open when i click on another control the doc is activated then i have to click the control again to actually change it. I have tried to set focus back to the control or activate the doc but it doesn't seem to work. CODE Option Explicit Dim blnCameFromOpenSub As Boolean Private Sub cbbInterface_Change() If blnCameFromOpenSub = True Then ActiveDocument.cbbInterface.Text = ActiveDocument.CustomDocumentProperties("Source") blnCameFromOpenSub = False Else ActiveDocument.CustomDocumentProperties("Source") = Me.cbbInterface.Text End If blnCameFromOpenSub = False End Sub Private Sub Document_Open() blnCameFromOpenSub = True Call FillComboBox Call cbbInterface_Change End Sub Private Sub Document_close() ActiveDocument.CustomDocumentProperties("Source") = Me.cbbInterface.Text End Sub Private Sub optStep1Pass_Change() Call CountPassFail End Sub Private Sub optStep2Pass_Change() Call CountPassFail End Sub Private Sub optStep3Pass_Change() Call CountPassFail End Sub Private Sub optStep4Pass_Change() Call CountPassFail End Sub Private Sub optStep5Pass_Change() Call CountPassFail End Sub Private Sub optStep6Pass_Change() Call CountPassFail End Sub Private Sub optStep7Pass_Change() Call CountPassFail End Sub Private Sub optStep8Pass_Change() Call CountPassFail End Sub Private Sub optStep9Pass_Change() Call CountPassFail End Sub Private Sub optStep10Pass_Change() Call CountPassFail End Sub Private Sub optStep11Pass_Change() Call CountPassFail End Sub Private Sub optStep12Pass_Change() Call CountPassFail End Sub Private Sub optStep13Pass_Change() Call CountPassFail End Sub Private Sub optStep14Pass_Change() Call CountPassFail End Sub Private Sub optStep15Pass_Change() Call CountPassFail End Sub Private Sub optStep16Pass_Change() Call CountPassFail End Sub Private Sub optStep17Pass_Change() Call CountPassFail End Sub Private Sub optStep18Pass_Change() Call CountPassFail End Sub Private Sub optStep19Pass_Change() Call CountPassFail End Sub Private Sub optStep20Pass_Change() Call CountPassFail End Sub Private Sub optStep21Pass_Change() Call CountPassFail End Sub Private Sub optStep22Pass_Change() Call CountPassFail End Sub Private Sub optStep23Pass_Change() Call CountPassFail End Sub Private Sub optStep24Pass_Change() Call CountPassFail End Sub Private Sub optStep25Pass_Change() Call CountPassFail End Sub Private Sub optStep26Pass_Change() Call CountPassFail End Sub Private Sub optStep27Pass_Change() Call CountPassFail End Sub Private Sub optStep28Pass_Change() Call CountPassFail End Sub Private Sub optStep29Pass_Change() Call CountPassFail End Sub Private Sub optStep30Pass_Change() Call CountPassFail End Sub Public Function CountPassFail() Dim testtype, testnum As Variant Dim ctl As InlineShape Dim dblPass As Double Dim dblFail As Double For Each ctl In ActiveDocument.InlineShapes If ctl.Type = wdInlineShapeOLEControlObject Then If InStr(ctl.OLEFormat.Object.Name, "Pass") > 0 Then dblPass = dblPass + ctl.OLEFormat.Object.Value ElseIf InStr(ctl.OLEFormat.Object.Name, "Fail") > 0 Then dblFail = dblFail + ctl.OLEFormat.Object.Value End If End If Next lblTotalP.Caption = -dblPass lblTotalF.Caption = -dblFail End Function Public Function FillComboBox() Dim cbFill, cbFills cbFills = Array(" ", "Administration", "Calyx 5.7", "Datatrac 7.7", "Datatrac 7.8", _ "Datatrac 8.0", "Datatrac 8.0 Wilmington", "Datatrac 8.1", "MILA", _ "Manual Entry") For Each cbFill In cbFills cbbInterface.AddItem cbFill Next cbbInterface.ListIndex = 0 End Function Tag: Using Multipage in a single form Tag: 89405
  - 2
    - Need help with some VBA on Excel & Word Let me post this again because I don't think I explained this well the first go around: The code below opens up a word doc, looks for the word "Primary Key:" then gives me the corresponding answer. However, I require a tweak since there are times when the word "Primary Key:" is followed by unwanted spaces, no spaces, or tabs. It works great if there is one space, but it doesn't work if there are no spaces after the colon, or there are more than one space. I have marked the problem area with UPPER CASE comments. I have tried tweaking the code myself, but I'm new to this VBA. ' Get Word doc 'strDoc = "C:\MyDocName" strDoc = "C:\Documents and Settings\edward.millis\Desktop\TestDoc.doc" Set docWord = appWord.Documents.Open(strDoc) ' Set Word range Set rngWord = docWord.Content ' Find first term rngWord.Find.Execute _ '******PROBLEM STARTS HERE*********** FindText:="Primary Key:", MatchWildcards:=False, _ Wrap:=wdFindStop, Forward:=True ' Reset range to get number rngWord.Collapse wdCollapseEnd Do rngWord.MoveStart Unit:=wdCharacter, Count:=1 numKey = Trim(rngWord.Text) Loop Until Right(numKey, 1) <> " " rngWord.MoveEnd Unit:=wdWord, Count:=1 ' Put number into variable numKey = Trim(rngWord.Text) Edit/Delete Message Tag: Using Multipage in a single form Tag: 89401
  - 3
    - Can I create a Microsoft Word Print Log? I would like to be able to automatically create a print log that is updated each time a given document is printed. At a minimum the log should include the date and time. It would be great if it also included the computer name that it was printed from and the # of copies printed. Is this feasilble? Thank you. Tag: Using Multipage in a single form Tag: 89400
  - 4
    - CommandBars reference error I hope this is a double post. The forum burped right in the middile of my first attempt and I waited way more than 5 minutes to see if it showed up. Anyway... Here is the problem. I have, for example, Document1 which has Toolbar1. Somewhere down the line it opens Document2 (or 3 or 4 etc) which has Toolbar2. If I make any reference to Toolbar1 I get an invalid procedure call error. This happens whether or not I use Application.CommandBars("Toolbar1") instead of ActiveDocument.CommandBars("Toolbar1"). You would think there would be a difference. I'm hoping that adding all the toolbars to all the documents isn't the only solution. Tag: Using Multipage in a single form Tag: 89399
  - 5
    - Omega symbol needs to be upside-down for project My boss wants an upside-down omega symbol to use in a book about the aurora borealis. I put the right-side-up omega symbol in a text box and cannot get it to rotate using the drawing toolbar, the rotate is unhighlighted. I also tried to change text direction on the formatting toolbar, which will not allow me to turn it upside-down, just sideways. Anyone have any idea on how to make it upside-down, short of scanning the tiny symbol, rotating it, and inserting it as a picture of the symbol? There must be an easier way??? Thank for any help at all. I am on a Mac OSX 10.3.9, using Word, 2004, 11.2. Tag: Using Multipage in a single form Tag: 89397
  - 6
    - Problem changing color of style in VBA Good morning all, I have some code that I want to use to color code text based on the style name. The code runs fine, but font color does not change for one of the styles. Here is the code: For Each st In ActiveDocument.Styles If InStr(st.NameLocal, "Agency") > 0 Then st.Font.Color = wdColorBrightGreen st.Font.Hidden = False ElseIf InStr(st.NameLocal, "PO") > 0 Then st.Font.Color = wdColorBrightGreen st.Font.Hidden = False End If Next The code changes the color of the text with style 'Body Text Agency' to bright green, but does not change the color of the text with style 'Body Text PO'. Both styles are paragragh styles. They are both based on style 'Body Text' When I step through the code, st.Font.Color changes from -16777216 to 65280 for both styles. If I go to Paragraph Styles, 'Body Text PO' shows that it is formatted as bright green. However, while 'Body Text Agency' appears bright green, 'Body Text PO' still appears black on the screen. Am I missing somethign obvious here? Any ideas, references, or resources would be greatly appreciated. Thanks, Kathryn Tag: Using Multipage in a single form Tag: 89376
  - 7
    - convert TIFF. to ms WORD or any other edit applications im try to convert a TIFF file to any other format so that i can edit it, is there any applications out there that can do that conversion that i need? Tag: Using Multipage in a single form Tag: 89375
  - 8
    - Want to get rid of the Word warning dialogue I'm working on a small VB-Word automation program which generates and prints a Word Document. The only problem that I face is that Word fires a warning dialogue stating that the borders of the document are beyond the printable regions. Each time I need to click 'OK' within this window and the printing is done without any problem. Since the warning dialogue pops up with each document this kills my automation. How can I (temporary) get rid of this annoying pop up without changing the Word document by Word VBA coding? Tag: Using Multipage in a single form Tag: 89374
  - 9
    - Capital letter after a number then full stop Can anyone hlep with this unusual query please. I want every time i type a number followed by a full stop then a space for the next letter to be a capital letter i.e. the start of a new sentence. It seems Word is seeing the full stop as a decimal and not capitalising after it like it would do if the numbers were letters. Is there a simple macro that i can run to correct this? Any ideas??? Tag: Using Multipage in a single form Tag: 89365
  - 10
    - Preventing editting of protected text when spell checking form fields In reference to the end of the following page: http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm "Because of the way in which Word's spellcheck dialog works, if any of your formfields are surrounded by (protected) text, some of this text may be displayed in the dialog alongside a spelling error - thus allowing the user to modify protected text 'through the back door'"... the only ways of completely preventing this problem from arising would either be to: a) Have the macro put the result of each formfield, in turn, into a dummy document (or "spellcheck window"), have the user spellcheck it there, and have the macro put the spellchecked text back into the formfield's result. In order for the user to see what they were spellchecking in context, your macro could tile the form document and the "spellcheck window". But this workaround would be clunky. b) Write your own spellcheck dialog (using a UserForm). "Both the above solutions are beyond the scope of this site..." Both solutions are a bit beyond the scope of my VBA coding abilities and I am not able to put all my form fields (of which there are many) into table cells. I was wondering if anyone had possibly implemented these and what success they'd had? Thank you Travis Dent Tag: Using Multipage in a single form Tag: 89364
  - 11
    - add menu item / commandbar at startup Hi there, I have read a lot of posts on this subject so far and have not been able to get quite the answer I am looking for. Basically I am trying to get a menu item to load when word starts up. Now I have created a global template and placed it in my startup folder and have created the relevant code under Document_New to create the menu items / commandbar, which works fine. The problem I have is that when you load up word for the first time the menu item doesn't appear. You have to select new document before the menu item appears. After which point it stays put which is what I am after. Now I know it may sound picky but is there a way to skip this first step, i.e. have the menu item appear when word starts? Thanks in advance for any help. Tag: Using Multipage in a single form Tag: 89359
  - 12
    - Word Automation Paste Issue hi, i have an issue with pasteing an image out of a text box back onto a word document and repositioning it on the document so i can select the picture as a shape for copying into powerpoint. every time i paste the copied image it overwrites the whole document. any help would be appreciated. For iCount = 1 To oDoc.Shapes.Count If oDoc.Shapes(iCount).Type = msoTextBox Then If oDoc.Shapes(iCount).TextFrame.ContainingRange.InlineShapes.Count <> 0 Then Clipboard.Clear oDoc.Shapes(iCount).TextFrame.ContainingRange.InlineShapes(1).Select m_objWord.Selection.Copy iImgLeft = oDoc.Shapes(iCount).Left iImgTop = oDoc.Shapes(iCount).Top oDoc.Shapes(iCount).Delete m_objWord.Selection.Collapse wdCollapseStart oDoc.Content.PasteSpecial placement:=wdFloatOverText 'odoc.Range. m_objWord.Selection.InlineShapes(1).ConvertToShape m_objWord.Selection.ShapeRange(1).Left = iImgLeft m_objWord.Selection.ShapeRange(1).Top = iImgTop End If End If Next cheers, Stu Tag: Using Multipage in a single form Tag: 89355
  - 13
    - Word Automation Question? Hi all, I'm using a Web Browser COM control to display the Word document, however, I'd like to programmatically open the word document and display the active document within a Panel, does anyone know how to do it? Thanks, David Tag: Using Multipage in a single form Tag: 89354
  - 14
    - how can I find ORPHAN files to delete in front page -- gerie Tag: Using Multipage in a single form Tag: 89340
  - 15
    - Unprotecting and Protecting Document via mouse click on active pag I have a two page template in which the first page contains nothing but tables and the second and every page there after contains a repeating header and footer (but not shown on the first page). I have the concept of document protection and have created a bookmark called bmDocNarrative and inserted it on Page 2 where I want the user to start typing. When the template is opened into a document, it is protected and the user fills in the fields based on Form Fields. When the user tabs out of the last form field on Page 1, there is an on exit macro which unprotects the document and goes to the said bookmark so the user can start typing the narrative. My question is if the user arrows or mouse clicks their way back to page one, all of the tables are now â??unlockedâ?? because the document is unprotected. What would some simple code be to force the document back into protection mode while Page 1 is active and to unlock it if the user tries to click back into the text (or page 2 or any other page than page 1)? Or am I making this too complicated? Tag: Using Multipage in a single form Tag: 89337
  - 16
    - Jumping Cursor I created a 12 page protected form with many tables. Each table has text form fields and nested tables. At the top of each page, the employee name, date and location are supposed to be entered. So, I created a table on each page with one row that serves as the header. This â??header tableâ?? has six columns of which 3 contain form fields. The other three just contain labels. This row is on each of the 12 pages. Once the user types in the required information and presses the tab key, the information fills down to each of the remaining 11 pages. To move between the form fields on each page and between pages, the user uses the tab key. However, when the users tabs from one page to the next , the cursor jumps to the header field on page one then returns to the correct field on whatever page he should be. On the same page the tab key works as it should. Even weirder, when I mouse-click on the header table cells on any page other than the first, the cursor jumps to the top of the document and stays there. How can I stop this? I used the following code for the fill downs for the three fill-in fields, I just changed the field name. In the form-field options, I used these as on-exit macros. Sub Autofill_Name1() Dim strInput As String strInput = ActiveDocument.FormFields("Name1").Result ActiveDocument.FormFields("Name2").Result = strInput ActiveDocument.FormFields("Name3").Result = strInput ActiveDocument.FormFields("Name4").Result = strInput ActiveDocument.FormFields("Name5").Result = strInput ActiveDocument.FormFields("Name6").Result = strInput ActiveDocument.FormFields("Name7").Result = strInput ActiveDocument.FormFields("Name8").Result = strInput ActiveDocument.FormFields("Name9").Result = strInput ActiveDocument.FormFields("Name10").Result = strInput ActiveDocument.FormFields("Name11").Result = strInput ActiveDocument.FormFields("Name12").Result = strInput End Sub -- Lynne Tag: Using Multipage in a single form Tag: 89336
  - 17
    - printing and exiting from macro first let me say i know extremely little about programming. i have made a macro in access that launches a mail merge document in word. after running the macro, the output is printed and then word is to close the file and exit back to access. here are my problems. 1. when i run the macro in word (run to printer) the printer dialogue box shows up so i have to pick the printer to print to. 2. if i run the word macro to a new document and print, i get the dialogue box that wants to know if i want to save the new file. 3. i then get an error message telling me that word is still printing and cannot exit (the printing has already ended when i get this message.) needless to say that having to deal with these issues makes automating my process very difficult. if anyone out there know how do deal with these please advise. much apprecaited. Tag: Using Multipage in a single form Tag: 89334
  - 18
    - Updating a TextField from a UserForm How do I set the value of a textfield/bookmark from a UserForm? [Note: This may be a duplicate message - my apologies.] Tag: Using Multipage in a single form Tag: 89328
  - 19
    - Updating text fields from a Userform Pardon this, however its been several weeks since I posted my question and I can't seem to find the original post... How do I take the value from a user field and set the value of a text field/bookmark in a document? Tag: Using Multipage in a single form Tag: 89325
  - 20
    - identifying .wmf image Hi all Relisted as I previously accidently put this in the wrong forum. Is there any way in VBA to scan a document and indentify the various image file types in the doc. I am wanting to do this so that I can carry various tasks on various files types. For instance:- Resize all the .WMF images Move the inlineshape type images Etc etc Anyone reckon this is possible? As basic reply as possible please as I am not strong in programming Many thanks Tag: Using Multipage in a single form Tag: 89322
  - 21
    - Control Toolbox Controls in Documents I am stumgling in the dark trying learn something to help a poster. I have a Word document with some controls entered in the document using the Control Toolbox. Specifically I have some options buttons named Pass1 through Pass4. I can run Sub Test1() to return the caption of Pass1. I can further specifically (and I don't know if it is right or not) declare the variable as a MSForms.OptionsButton and get the result using Sub Test2(). What I can't figure out is how to cycle through each control in the document and determine the caption. It seems that there is no: For each Ct in Me.Controls or Me.MSForms.OptionButtons or Me.Anything that will work. Can anyone help or confirm the quest is hopeless. Thanks. Sub Test1() Dim Ct Set Ct = Me.Pass1 MsgBox Ct.Caption End Sub Sub Test2() Dim Ct As MSForms.OptionButton Set Ct = Me.Pass1 MsgBox Ct.Caption End Sub Sub Test3() Dim Ct As MSForms.OptionButton For Each Ct In Me (what would go here to get name of each OptionButton in the form). MsgBox Ct.Caption Next End Sub Tag: Using Multipage in a single form Tag: 89321
  - 22
    - Install project HI all, I have just spend 2 hours scanning the NG for info on this. A lot of people seem to praise InnoSetup. So I downloaded it and read the FAQ and some script examples. The main problem I see is that these software are designed to install executable files in (normally) the "Program Files" folder and also provide an uninstall mechanism, both of which are unnecessary when installing templates. I cannot figure out how to tell it to install my templates in the current user Workgroup Templates location (read from the registry?) and to make sure that some of the templates stay hidden once they are installed. (One template is used to invoke the other, and another one is not a template but a database, so they need to be hidden.). I need to make a deployment package for some very inept users who cannot be trusted to follow installation instructions. While I could create a Word file with autoexecuting code that would act as an installation mechanism (this would still require distributing 4 documents instead of one single installation package), it thought I might try to use a "real" install tool so as to look more professional. I also looked at VS 2003, it seemed way too complicated for such a simple install. I would really appreciate it if anybody can give some pointers on InnoSetup (Or any other installation software). -- Salut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREMOVE@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org Tag: Using Multipage in a single form Tag: 89317
  - 23
    - Macro to convert Word to PDf and store in certain location I have a user looking to create a macro that would convert a word 2003 document to adobe 7 PDF document, save that document to a specific folder on the server. Plus and this is what I am struggling with, they want it done with out any pop ups for the user to have to answer. Any ideas. Thanks ahead of time Barbara Tag: Using Multipage in a single form Tag: 89316
  - 24
    - Display status bar message from template in startup folder I have created a template in my Word Startup folder that allows me to remap the numpad decimal point to a comma (courtesy of the thread at http://tinyurl.com/ogwsp). I have also created toolbar buttons to assign and unassign on demand rather than on startup. There is a part of the code in this module to put a message on the status bar to notify the user that the numpad decimal has been remapped. This works when I have the template open, but does not seem to work when I have another document open. Also, I'm assuming i do not need the ThisDocument.Saved = True line in there for it to work, but I threw it in anyway since it was there. I'd like to get rid of it if I can. My code, as taken from the above noted thread, is as follows: Option Explicit Sub AssignNumpadPeriodToComma() CustomizationContext = NormalTemplate KeyBindings.Add KeyCategory:=wdKeyCategoryMacro, _ KeyCode:=BuildKeyCode(wdKeyNumericDecimal), _ Command:="TypeAComma" ThisDocument.Saved = True StatusBar = "Custom key assignment loaded by MyKeys.dot " & _ "in the Word Startup folder." End Sub Sub TypeAComma() Selection.TypeText "," End Sub Sub UnassignNumpadPeriodToComma() FindKey(BuildKeyCode(wdKeyNumericDecimal)).Clear End Sub Thanks. Tag: Using Multipage in a single form Tag: 89315
  - 25
    - count the value of Optionbox in a table I have a table with 5 columns Step Action Expected Results Pass Fail in the pass fail columns there are option boxes. I want to count the number of passes and the number of fails to total them with out counted every cell. Hopefully there is a loop i can use. Tag: Using Multipage in a single form Tag: 89312
- Next
  - 1
    - Import data from access into a table Ok i would like to import data from an access database table into a table in a microsoft word file. The table is already created and i would to just insert the data into that table. Here is the tricky part: each record should have a new table. The table created is a template for how all the tables should look. Is there a way to to have it so that a new table is copied from the template and the data is inserted into it. Or will i have to create a table for each record on my own. I was given some sample code to use with it and would like to know if it is correct, and also some tips to go about using it. The source of my code was not sure if the code for the table was correct, and also i would assume that cell(#,#) is (row,column). Sub GetDataFromDataBase() 'allocate memory for the database object as a whole and for the active record Dim myDataBase As Database Dim myActiveRecord As Recordset 'Open a database Set myDataBase = OpenDatabase("C:\DataBaseFolder\Database.mdb") 'Access the first record from a particular table Set myActiveRecord = myDataBase.OpenRecordset("Table_1", dbOpenForwardOnly) 'Loop through all the records in the table until the end-of-file marker is reached Do While Not myActiveRecord.EOF 'If field #1 contains a non-zero value, 'insert the value of field #2 into the document 'after the current cursor or selection location If myActiveRecord.Fields("Field_1") <> 0 Then 'this will put the data after the cursor, you have to set it up so that it goes in the correct field in your table, if you want it in a table, i believe it's selection.tables(#).cell(#,#) selection.tables(#).cell(#,#) myActiveRecord.Fields("Field_2") End If 'access the next record myActiveRecord.MoveNext Loop 'Then close the database myActiveRecord.Close myDataBase.Close End Sub Thank you for any help that you can give. Tag: Using Multipage in a single form Tag: 89311
  - 2
    - How do I enable 'Set' in Tab Leader I would like to set a tab leader but the set option is grayed. Tag: Using Multipage in a single form Tag: 89309
  - 3
    - how can I make a doc. in word with option buttons Does anyone know how I can make option buttons in a word document and make it to where they have to be answered, I believe it may involve macros, but I know nothing about macros. Tag: Using Multipage in a single form Tag: 89300
  - 4
    - Word to PDF without print driver Hello! It's great that new Word 2007 will have "Publish to PDF" add-in, which creates PDF files *without using printer driver*. Currently I use FinePrint pdfFactory to convert .doc files to PDF, but it is implemented as "virtual printer" driver. http://www.fineprint.com/ Similar solution is free PDFCreator http://en.wikipedia.org/wiki/PDFCreator Is there an add-in that enables to save Word files as PDF for older versions of Word (2000/XP/2003), that does not rely on printer driver? BTW, it seems that "Publish to PDF" functionality will be implemented as additional download&install http://msdn2.microsoft.com/en-us/library/ms406051.aspx Also I would like to know, since Open XML support ( and ODF support, that will base on Open XML awareness) will be added to older Word version ), http://www.microsoft.com/office/preview/beta/converter.mspx http://blogs.msdn.com/brian_jones/archive/2006/07/05/657510.aspx [quote] The Open XML formats that are going to be the default in Office 2007 are going to be the most important in my mind. It's the Open XML formats that allow us to build the ODF support (and will open doors to a number of other formats as well). The PDF and XPS functionality would be another example of new formats we're providing this release. [/quote] whether PDF support will be added to Word XP/2003 Thanks, Roman Tag: Using Multipage in a single form Tag: 89291
  - 5
    - Word 2003 - Automating Letter Template I have a letter template, complete with fillin fields for name/address, subject, salutation etc which all works fine. When it comes to completing the body of the letter, I'd prefer NOT to use a fillin field, but to perhaps automatically move the cursor to the correct point once all fillin fields have been completed. Is there another field I could use, perhaps witha bookmark? Any suggestion gratefully accepted. TIA Amanda Tag: Using Multipage in a single form Tag: 89285
  - 6
    - Changing font for unicode characters Hi, I had a problem in MS Word that started off from the Equation Editor. Somehow some of my definitions for font styles seemed to be reset and I (apparently) mistakenly thought that I had set Palatino Linotype as the font for _everything_, but actually I discovered that I only get correct rendering if "Symbol" is set to the Symbol font. Otherwise minus sign (or "en dash"), "identical to" and other characters come out 'wrong'. You can play around with this if you're interested, but it's more by way of background to my actual question. I wondered why the "identical to" character (Unicode 2261 [HEX]) wasn't rendering correctly in Equation Editor with "Symbol" is set to the Palatino Linotype font. I decided to investigate the rendering of the font in the body of the document in a variety of fonts ...in fact, _every_ installed font. Therefore I created and ran the following macro: Sub macro2() For Each afont In FontNames Selection.Font.Name = afont Selection.InsertAfter "2261" Selection.ToggleCharacterCode Selection.InsertAfter " " & afont & vbCr Selection.EndKey Unit:=wdStory Next afont End Sub This should run fine for you provided your security settings are apropriately configured. It is not convenient to reproduce the output, as it spans several pages, but I found that the results were not as expected. For example, for what should have been Palatino Linotype, the "identical to" character was rendered in Arial Unicode MS. As I watched the Selection.Font as the code was stepped through, I noticed that discrepancies arose between Selection.Font.Name Selection.Font.NameAscii Selection.Font.NameBi Selection.Font.NameFarEast and Selection.Font.Name.Other Is this an application 'feature', a known MS bug, an unknown MS bug, or is _my_ code buggy? Thanks for your comments, DIV Versions: Equation Editor: 3.1 Word: 11.8026.8028 SP2 XP: 5.1.2600 SP2 Tag: Using Multipage in a single form Tag: 89275
  - 7
    - transparencia como devo proceder para fazer uma transparencia? e cartao de visitas Tag: Using Multipage in a single form Tag: 89272
  - 8
    - How can I tell if my file has been saved already? I have a template, with fill-in form fields. I have a working macro to 'SaveAs' the document as it exits a particular form field. But I want to execute the SaveAs macro only if it's a new document and has not been saved before. Is there a way to set up an if statement to tell if the file is new or has been saved already? Thanks, Ruth Tag: Using Multipage in a single form Tag: 89269
  - 9
    - How about a Moderator to get rid of the non-computer "junk" posts How about a moderator to get rid of the non-computer related posts (i.e. Dogs in China, A Good Sexy Hotline, etc.)? Brendan ---------------- 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=8a1b9656-8ae0-4855-bb38-1549b3174558&dg=microsoft.public.word.vba.general Tag: Using Multipage in a single form Tag: 89266
  - 10
    - =?Utf-8?Q?How_to_change_security_settings_?= I have to deploy a template to over 30 computers with some of the computers having different users (Running Windows 2000). The problem is that each user has to change their security setting from High to Medium to run the template. Is there a way to simplify this (ie. modify one normal.dot file and deploy it to all the computers via the network so each user does not have to manually change their setting)? Or is this security setting housed somewhere else? Tag: Using Multipage in a single form Tag: 89265
  - 11
    - Approval VBA Macro We have documents that need to go through a formal approval process. Without getting into workflow, etc..., I just need a simple macro that will grab the currently logged on userid along with the date/time stamp. I'm a novice vba user and have done some vba stuff in Excel. Actually, I was able to do this in Excel by creating a control box and when the user clicked either Yes or No, their username and the date/time stamp appeared next to the check box. Oh, in Excel I have two checkboxes, one for yes and one for no. If they change their mind and uncheck the box then their username and date/time disappear. I need this same functionality in Word as well as to have these "approval" fields locked after it is accepted or rejected (for auditing purposes). I have found some Word code but it makes no sense to me because unlike Excel there are no cell, sheet, etc... references. I would appreciate any help I can get on this. Thanks! Randy Tag: Using Multipage in a single form Tag: 89264
  - 12
    - Trying to copy formatted text _without_ Style? I get documents with a mish-mash of styles and formatting applied directly to the text. I am wondering if there is some way I could copy all of the text and any direct formatting over into a new doc based on my own template, but not any styles. I tried FormattedText in VBA, but the style came into the new document with the text - so did Edit>>Paste Special>>RTF. I'm beginning to think I would need to crawl through every word of every paragraph, capture any formatting applied in an array, paste the text over as unformatted, then read the paragraph word by word and apply any formatting in the array. Is there an easier way? Ed Tag: Using Multipage in a single form Tag: 89263
  - 13
    - security - read-only recommended Hello, Through VB and the Word object model is it possible to un-select the tools > options > security > Read-only recommended check box? thanks Tag: Using Multipage in a single form Tag: 89262
  - 14
    - OCX Form Field Collection Form fields inserted into a document from the Forms toolbar can be accessed by ActiveDocument.FormFields("formfieldname"). This does not work for fields inserted into the same document from the Control Toolbox. In a Userform, you can use the Controls collection but I can't figure out how to access the fields inserted from the Controls Toolbox. I want to write a construct like: For each ctl in Controls... Is there a way to do this? Thanks, Peter Tag: Using Multipage in a single form Tag: 89261
  - 15
    - Problem with FormattedText Doing a mailmerge from Excel with Word automation. I am altering a document and then doing SaveAs. This runs in a loop and after doing SaveAs I need the original document to do the same again. Rather than closing and reopening this document I prefer to keep the text + formatting in a range variable and putting that back. Only reason for this is that is quicker. This is the simplified code I have: Dim wd As Object 'need to add Word here as there also is a DAO Document! Dim Doc As Word.Document Dim rngAllText As Word.Range Set wd = CreateObject("Word.Application") Set Doc = wd.Documents.Open(strLetterDoc) Set rngAllText = Doc.Content.FormattedText.Duplicate 'alter the document here 'do SaveAs here Doc.Content.FormattedText = rngAllText At this line line I get error 5937: Cannot copy content between these 2 ranges. Thanks for any advice in this. RBS Tag: Using Multipage in a single form Tag: 89259
  - 16
    - How to write a smart document How to create a Smart Document How to use XML in it How to certify XML file Tag: Using Multipage in a single form Tag: 89258
  - 17
    - *.dot won't run a "Document_Open" Macro when opened from Netwrk Se I have a *.dot file that is setup on our network server for users to access. The document opens fine but I need to force open a User Form (UserForm1) as soon as the template opens. Additionally, if I run the template from my local machine I can get the User Form to open via the below code. Private Sub Document_Open() Application.Run MacroName:="goPCDFiller" End Sub (1) What code to I need to execute to get the template to open the User form when it is deployed on a network server? (2) Also, is there a code available that forces open WORD to view/run the template because many of our users have â??Quick View Plusâ?? installed (which is fine) but it takes over the *.doc and *.dot files when the user tries to open one of them. Tag: Using Multipage in a single form Tag: 89257
  - 18
    - Word 2007: Binding customXML to Content Control Hi I have been trying to get my own XML file working with Content Controls. But I can not find a way to define the x-path binding to my xml. I will be very happy if any of you can give me a hint on how to define the mapping (from within word 2007 - beta 2). Best Regards, Kaj Bromose Tag: Using Multipage in a single form Tag: 89256
  - 19
    - Printing Forms from Macros I have created some protected forms for users but I also have a customized printing menu. This enables the users to print to different paper trays (we have several) easily without having to go CTRl P change the paper type and remember which tray is which each time. My printing menu lists the paper trays by type. How can I get the Printing macros to print the protected forms. If I try at the moment I get Run-time Error 4605. Any help would be greatly appreciated. JayM Tag: Using Multipage in a single form Tag: 89249
  - 20
    - Interacting with oracle DB from VBA without Oracle Client on PC? Hi all, I noticed that their are some solutions for VB.NET to connect to an Oracle Database without having an Oracle client on your PC (for eample Core Lab's OraDirect .Net Dataprovider). Installing and maintainig Oracle clients is considered to be a pain (various Database versions require different clients) and is avoided by using more and more web based applications from Oracle. Only for Word VBA stuff I need an oracle client to be present on all machines. I was wondering if anyone has ever tried this from VBA as I would love to get rid of the Oracle client. Kind regards, rVo Tag: Using Multipage in a single form Tag: 89245
  - 21
    - problems with the word-exel comand Hi, I have a file that first save each one of the words of a document, after that, it paste the words in an excel file and then counts and deletes the repeated words, my problem is in the exl.sort command, the program breaks when it arrives to the sort procedure of excel, I attached the code, please help Sub Macro1() Dim arr1() cntr1 = 0 a = ActiveDocument.Characters.Count For n = 1 To a If ActiveDocument.Characters(n).Text = " " Then cntr1 = cntr1 + 1 ReDim Preserve arr1(cntr1) arr1(cntr1) = word1 letter1 = Empty word1 = Empty Else letter1 = ActiveDocument.Characters(n).Text word1 = word1 + letter1 End If Next Set exl = CreateObject("excel.Application") exl.workbooks.Add exl.Visible = True exl.Cells(1, 1).Select cntr3 = 1 For cntr3 = 1 To UBound(arr1) exl.Cells(cntr3 + 1, 1) = arr1(cntr3) Next exl.Columns("A:A").Select â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??The program breaks here exl.Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??â??The program breaks here For b = 2 To UBound(arr1) cntr12 = 1 For C = 2 To UBound(arr1) If exl.activesheet.Cells(b, 1) = exl.activesheet.Cells(C, 1) And b <> C Then exl.Rows(C).Delete C = C - 1 cntr12 = cntr12 + 1 If exl.Cells(C, 1) = Empty Then GoTo endsub End If End If Next exl.Cells(b, 2) = cntr12 Next exl.Range("A1") = "Word" exl.Range("B1") = "Counter" exl.Columns("A:A").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal endsub: End Sub thanks Tag: Using Multipage in a single form Tag: 89244
  - 22
    - reformating a string... Hello, I have a word document that looks as follows: {"word1 / word1a"}, {"word2 / word2a"}, {"word3 / word3a"}, ..... {"word1000 / word1000a"} What I need to do is remove the '/ wordxa' from the document so it looks like this: {"word1"}, {"word2"}, {"word3"}, ..... {"word1000"} Any help would be appreciated. Thanks, RABMissouri2006 Tag: Using Multipage in a single form Tag: 89239
  - 23
    - Adding watermark to every page Hi all, I have a bit of a panic on the go here and would like to ask for assistance. Can anyone suggest how I could programmatically (using VBA) add a watermark to every page in every section in a 10 to 20 page word doc? I want to add the word "COPY". I thought maybe I could add a specific sized textbox with hidden borders, containing COPY in large pale grey font colour (maybe running vertically in the textbox). Then set the textbox to appear behind the normal text. How on earth I would go about that, I dont have the faintest idea. Anyone prepared to offer help or suggest an alternative method? Unfortunately I dont have enough time to try and fubble around for days on end like I isually do. Any help or suggested code would be greatly appreciated. Many thanks Gem_man Tag: Using Multipage in a single form Tag: 89236
  - 24
    - VBA Reading a Word Document's Form Field into a User Form Text Box How do I grab the value from an Form Field in an active document and then place that value into a User Form that has a corresponding text box. I thought it would be something like this but I canâ??t seem to get it to work. Private Sub UserForm1_Initialize() Me.tbLastFirstMiddle.Value = ActiveDocument.FormFields("docLastFirstMiddle") End Sub Tag: Using Multipage in a single form Tag: 89232
  - 25
    - Header/Footer not protected in form Hello, I have a document template protected for forms. When the user creates a new document based on the template, they can click on the header. This switches them from page layout view to normal view and creates a header pane at the bottom of the document to allow the user to edit the header. This is not what I want. I don't want the users to be able to touch the header in any way. The reason I need a header is that the form fields are in table rows and can expand, causing the document to end up with more pages than the template it was based on. Any help would be appreciated. Thanks! Tag: Using Multipage in a single form Tag: 89225

I am using multipage in a single form. I would like to be able to change the
Focus from one page to another when for example I process page number one at
the end I would like to be able to change the tab and go to next page
automatically. Any suggestion?
--
Jeff B Paarsa

Top

Re: Using Multipage in a single form by Jezebel

Jezebel
Sat Aug 12 01:40:56 CDT 2006

The Value property determines which page is active: Multipage.value =
Multipage.Value + 1 will take you to the next page (provided you're not on
the last one).

Note that the first page is page zero.

"Jeffery B Paarsa" <JeffBPaarsa@Yahoo.com> wrote in message
news:A0B90806-8099-47EF-9CF4-A064C21DBB56@microsoft.com...
>I am using multipage in a single form. I would like to be able to change
>the
> Focus from one page to another when for example I process page number one
> at
> the end I would like to be able to change the tab and go to next page
> automatically. Any suggestion?
> --
> Jeff B Paarsa

Top

Re: Using Multipage in a single form by JeffBPaarsa

JeffBPaarsa
Sun Aug 13 13:44:01 CDT 2006

Thank you it worked... But in VBA I did not see Multipage but it is
Multipage1 that I used and it worked... Thank you again.
--
Jeff B Paarsa

"Jezebel" wrote:

> The Value property determines which page is active: Multipage.value =
> Multipage.Value + 1 will take you to the next page (provided you're not on
> the last one).
>
> Note that the first page is page zero.
>
>
>
>
> "Jeffery B Paarsa" <JeffBPaarsa@Yahoo.com> wrote in message
> news:A0B90806-8099-47EF-9CF4-A064C21DBB56@microsoft.com...
> >I am using multipage in a single form. I would like to be able to change
> >the
> > Focus from one page to another when for example I process page number one
> > at
> > the end I would like to be able to change the tab and go to next page
> > automatically. Any suggestion?
> > --
> > Jeff B Paarsa
>
>
>

Top