Automation and tables

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Compare data strings? I have a series of data strings I need to compare. I am looking for the one string that has a character found in no other string. What is the best way to approach this? Ed Tag: Automation and tables Tag: 77966
  - 2
    - Help Text on button I am using word 97 onwards, I have created a small button on a document, the button has a picture on it so there no space for any text. Is it possible when the button is hovered over some alternate text is displayed adjacent to the button? I have seen on some occasions that there is a help text in the properties window but this is not the case in this instance! -- Mark Tag: Automation and tables Tag: 77956
  - 3
    - Project Unviewable -word 2000 Hi, I'm having a problem with a template that contains coding that I created. When I use VBE, I'm getting a dialog box that says Project locked, and unviewable. I can't access the coding. Is there a workaround to this? jbc Tag: Automation and tables Tag: 77953
  - 4
    - Inserting a tick (check) in front of selective text Hi, Please could i ask some advise on a small project that temporarily has me stumped. My intention is provide a a userform that is filled with labelled checkboxes. The label captions match words already present in a word doc arranged in two columns. I wish to use vba code to allow the user to check the required checkboxes on the userform and on hitting the command button, a tick(check) or some other symbol be placed infront of the coresponding word in the document BUT with the text not moving to the right to make way for the tick symbol. Although the words in the doc are arranged in columns they are tabbed in place. I would prefer not to use columns in the doc for various reasons but if needs must........ Any suggestions as to how I should proceed.? I just seem to be getting more and more complicated solutions (that dont work) to what is probably a simple problem. Many thanks Gem_man Tag: Automation and tables Tag: 77951
  - 5
    - Template Frustrations I'm trying to get the check-boxes to work in a custom template. I've tried saving as one of the included templates and can get it to work fine except: 1. The template size blows out to 13mb 2. I can't get the top and bottom margins to 'stick' (even though when I 'open' the template for editing it appears correct, but when I start a new one it reverts back to the normal standard). I have another template that has exactly the same formatting that appears just as I want it, but I can't get the check buttons to work, even when I import the same module. It gives me an error: "Requested member of the collection does not exist". Any ideas? Tag: Automation and tables Tag: 77950
  - 6
    - User Form/Page Layout question I have established a template/form for a title page of a proposal. The user of the template/form would enter the information: title, date, address, etc...and that would be inserted in to the Title Page (via bookmarks) formatted appropriately. The length of the title could vary significantly. However, there are three items at the bottom of the page that I would like to stay at the bottom of the page. The first of the three is a text box anchored to the one-row table (with the other 2 items) I have set up (and I don't want it be a footer) at the bottom of the page. How can I make it where the items at the bottom of the page stay where they are regardless of the length of the title and other info that could affect page placement (there are paragraphs markers (I know, they're awful!) to get the items in the appropriate place. Please assist me with: 1. Getting rid of the naked paragraph markers 2. Making sure the info at the bottom of the page stays there without regard for the length of the title 15 rows above. I can provide a copy of the template if you need to see it. I apologize in advance if my description of the problem is unclear. Laura Tag: Automation and tables Tag: 77948
  - 7
    - Using CancelDefault with a CommandBarButton Hello, I'm using "Dim WithEvents btnEmail As CommandBarButton" to drop the click event of the Mail Recipient (with attachment) in Word. I can catch the event and fire other actions, but the default action will not cancel. Any suggestions? Thanks Private Sub btnEmail_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) CancelDefault = True 'Do something else instead End sub Tag: Automation and tables Tag: 77947
  - 8
    - VB Macro to delete text at the end of each of the files in a folde Please help. I was shocked to discover that all of the files I am working with have corrupt text at the end. I have 500 .txt text files in folder c:\rules\. Each file is about 40MB. I wanted to manually delete the corrupt text, however it takes too long to open each file in Notepad [because those files are so large]. The first line of each file contains text "Rule=1" The number following text "Rule=" that is found throughout the files is incremented by 1 each time this text appears in the file. May I please ask you to help me by writing a macro that will do the following: 1. Open folder c:\rules\ 2. Open the first file in that folder. 3. The macro has to find the second to last line that contains the text "Rule=". Let us refer to this line as 2toLast 4. The macro should delete all text below the 2toLast line. The macro has to also delete the 2toLast line. 5. The macro should save the changes made to the file. 6. The macro should go to the next file in the folder c:\rules\, and repeat steps 3-5 7. Repeat step 6 until run out of files in folder c:\rules\. Example The first file in c:\rules\ is called acred2sub1.txt It begins with text "Id=23859, Rule=1, Gen=0, training = 11.5444689897386>0.0000>100670.4175{1.9803 1.0000}, selection = 11.6146812264607>0.0000>100688.0767{1.9983 1.0000}, testing = 11.5258096838284>0.0000>101230.9377{-2.3595 1.0000}, trial=0, birth = 0, time = 1051111.04:43:32 (parents: 0 and 0) 0 Probability GT [1488 0.000000 0.986820]" This file ends with the text ****************************************************** ****************************************************** ****************************************************** *********************************************** *********************************************** *********************************************** "Id=2428985, Rule=2291, Gen=48, training = 11.5627062540301>0.0000>100670.4175{2.2533 1.0000}, selection = 11.5616177181233>98280.6602>98280.6602{1.8662 0.9000}, testing = 11.5258096838284>0.0000>101230.9377{-2.3595 1.0000}, trial=0, birth = 48, time = 1051112.05:31:48 (parents: 2383210 and 2383552) 0 Probability if-thenProb [1488 0.000000 1.000000] 1 Boolean if-then-else [1488 0 1] 2 Boolean if-then-else [1488 0 1] 3 Boolean and [1488 0 1] 4 Boolean any_boolean True [1488 1 1] 5 Boolean < [1488 0 1] 6 Real data [1488 29.125000 143.250000] 7 Variable 8 Real lag [1488 31.107955 139.937500] 9 Real ln [1488 3.371597 4.964591] 10 Real data [1488 29.125000 143.250000] 11 Variable 12 Real mov [1488 31.107955 139.937500] 13 Variable 14 Real days-remaining [1488 1.000000 62.000000] 15 Boolean < [635 0 1] 16 Real power [635 0.000000 3297966952784501300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 17 Real abs [635 17777125493.869579 947106196758301.370000] 18 Real power [635 17777125493.869579 947106196758301.370000] 19 Real data [635 29.125000 137.875000] 20 Variable 21 Real any_real 7.000000 0x0000000000001c40 [635 7.000000 7.000000] 22 Real data [635 29.125000 137.875000] 23 Variable 24 Real power [635 0.000000 92510233423514822000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 25 Real abs [635 1.000000 3521614606208.000000] 26 Real power [635 1.000000 3521614606208.000000] 27 Real days-remaining [635 1.000000 62.000000] 28 Real any_real 7.000000 0x0000000000001c40 [635 7.000000 7.000000] 29 Real data [635 29.125000 137.875000] 30 Variable 31 Boolean < [853 0 1] 32 Real data [853 33.250000 143.250000] 33 Variable 34 Real days-remaining [853 1.000000 62.000000] 35 Boolean < [78 0 1] 36 Real data [78 29.500000 73.000000] 37 Variable 38 Real power [78 0.000000 3297966952784501300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 39 Real abs [78 19442589725.148437 11047398519097.000000] 40 Real power [78 19442589725.148437 11047398519097.000000] 41 Real data [78 29.500000 73.000000] 42 Variable 43 Real any_real 7.000000 0x0000000000001c40 [78 7.000000 7.000000] 44 Real data [78 29.500000 73.000000] 45 Variable 46 Boolean any_boolean False [1410 0 0] 47 Probability ANY_PROB 1.000000 0x000000000000f03f [40 1.000000 1.000000] Id=2402972, Rule=2292, Gen=48, training = 11.5417736815012>0.0000>100085.4204{1.8968 1.0000}, selection = 11.5609984677956>91748.2451>91748.2451{1.4932 0.9000}, testing = 11.5258096838284>0.0000>101230.9377{-2.3595 1.0000}, trial=0, birth = 48, time = 1051112.05:07:44 (parents: 2363747 and 2384852) 0 Probability if-thenProb [1488 0.000000 1.000000] 1 Boolean if-then-else [1488 0 1] 2 Boolean and [1488 0 1] 3 Boolean any_boolean True [1488 1 1] 4 Boolean < [1488 0 1] 5 Real data [1488 29.125000 143.250000] 6 Variable 7 Real lag [1488 31.107955 139.937500] 8 Real ln [1488 3.467114 4.843345] 9 Real mov [1488 32.044118 126.893145] 10 Variable 11 Real mov [1488 29.125000 143.250000] 12 Variable 13 Real any_real 0.309681 0xc0520aa2d1d1d33f [1488 0.309681 0.309681] 14 Real mov [1488 31.107955 139.937500] 15 Variable 16 Real days-remaining [1488 1.000000 62.000000] 17 Boolean < [636 0 1] 18 Real data [636 29.125000 137.875000] 19 Variable 20 Real power [636 0.000000 3297966952784501300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 21 Real abs [636 17777125493.869579 947106196758301.370000] 22 Real power [636 17777125493.869579 947106196758301.370000] 23 Real data [636 29.125000 137.875000] 24 Variable 25 Real any_real 7.000000 0x0000000000001c40 [636 7.000000 7.000000] 26 Real data [636 29.125000 137.875000] 27 Variable 28 Boolean < [852 0 1] 29 Real + [852 10.625000 257.000000] 30 Real data [852 33.250000 143.250000] 31 Variable 32 Real lag [852 -26.500000 115.750000] 33 Real data [852 33.250000 143.250000] 34 Variable 35 Real - [852 -26.500000 115.750000] 36 Real maximum [852 34.250000 116.750000] 37 Variable 38 Real maximum [852 31.000000 116.750000] 39 Variable 40 Real any_real 7.000000 0x0000000000001c40 [852 7.000000 7.000000] 41 Real days-remaining [852 1.000000 62.000000] 42 Real minimum [852 33.250000 143.250000] 43 Variable 44 Real * [852 1377493611034874400000000000000000000000000000.000000 19946234872205364000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 45 Real + [852 34.250000 144.250000] 46 Real any_real 1.000000 0x000000000000f03f [852 1.000000 1.000000] 47 Real maximum [852 33.250000 143.250000] 48 Variable 49 Real days-remaining [852 1.000000 62.000000] 50 Real lag [852 35548222220254824000000000000000000000000000.000000 138275458386172380000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 51 Real data [852 33.250000 143.250000] 52 Variable 53 Real * [852 35548222220254824000000000000000000000000000.000000 138275458386172380000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 54 Real / [852 1205024482042536400000000000000000000000000.000000 1184372234571069500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 55 Real power [852 22895465158808191000000000000000000000000000.000000 22503072456850322000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 56 Real data [852 29.500000 116.750000] 57 Variable 58 Real data [852 29.500000 116.750000] 59 Variable 60 Real any_real 19.000000 0x0000000000003340 [852 19.000000 19.000000] 61 Real data [852 29.500000 116.750000] 62 Variable 63 Probability GT [635 0.000000 1.000000] 64 Real mov [635 32.050000 126.873904] 65 Variable 66 Real minimum [635 29.125000 113.750000] 67 Variable 68 Real + [635 34.283784 179.740079] 69 Real abs [635 32.156250 126.388542] 70 Real mov [635 32.156250 126.388542] 71 Variable 72 Real data [635 29.125000 137.875000] 73 Variable 74 Real days-remaining [635 1.000000 62.000000] 75 Real abs [635 29.125000 137.875000] 76 Real data [635 29.125000 137.875000] 77 Variable 78 Real abs [635 1.000000 62.000000] 79 Real days-remaining [635 1.000000 62.000000] Id=2426880, Rule=2293, Gen=48, training = 11.5420824603975>0.0000>100670.4175{2.0713 1.0000}, selection = 11.5609196233777>91443.0849>91443.0849{1.4792 0.9000}, testing = 11.5258096838284>0.0000>101230.9377{-2.3595 1.0000}, trial=0, birth = 48, time = 1051112.05:31:23 (parents: 2386050 and 2356912) 0 Probability if-thenProb [1488 0.000000 1.000000] 1 Boolean if-then-else [1488 0 1] 2 Boolean and [1488 0 1] 3 Boolean any_boolean True [1488 1 1] 4 Boolean > [1488 0 1] 5 Real any_real 76.000000 0x0000000000005340 [1488 76.000000 76.000000] 6 Real data [1488 29.125000 143.250000] 7 Variable 8 Boolean < [743 0 1] 9 Real data [743 29.125000 75.875000] 10 Variable 11 Real power [743 0.000000 3297966952784501300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 12 Real abs [743 17777125493.869579 14477411826665.816000] 13 Real power [743 17777125493.869579 14477411826665.816000] 14 Real data [743 29.125000 75.875000] 15 Variable 16 Real any_real 7.000000 0x0000000000001c40 [743 7.000000 7.000000] 17 Real data [743 29.125000 75.875000] 18 Variable 19 Boolean any_boolean False [745 0 0] 20 Probability BOOLEAN [653 0.000000 1.000000] 21 Boolean or [653 0 1] 22 Boolean any_boolean False [653 0 0] 23 Boolean if-then-else [653 0 1] 24 Boolean any_boolean False [653 0 0] 25 Boolean any_boolean False [unused] 26 Boolean < [653 0 1] 27 Real mov [653 32.044118 82.789474] 28 Variable 29 Real data [653 29.125000 75.875000] 30 Variable 31 Real days-remaining [653 1.000000 62.000000]" *********************************************** *********************************************** *********************************************** *********************************************** *********************************************** *********************************************** The text "Rule=" appears 2293 times in this file. Thus the macro should find the line containing text "rule=2292" and delete this line and all of the text below this line. When this is done, file acred2sub1.txt will end with text *********************************************** *********************************************** *********************************************** *********************************************** *********************************************** *********************************************** "Id=2428985, Rule=2291, Gen=48, training = 11.5627062540301>0.0000>100670.4175{2.2533 1.0000}, selection = 11.5616177181233>98280.6602>98280.6602{1.8662 0.9000}, testing = 11.5258096838284>0.0000>101230.9377{-2.3595 1.0000}, trial=0, birth = 48, time = 1051112.05:31:48 (parents: 2383210 and 2383552) 0 Probability if-thenProb [1488 0.000000 1.000000] 1 Boolean if-then-else [1488 0 1] 2 Boolean if-then-else [1488 0 1] 3 Boolean and [1488 0 1] 4 Boolean any_boolean True [1488 1 1] 5 Boolean < [1488 0 1] 6 Real data [1488 29.125000 143.250000] 7 Variable 8 Real lag [1488 31.107955 139.937500] 9 Real ln [1488 3.371597 4.964591] 10 Real data [1488 29.125000 143.250000] 11 Variable 12 Real mov [1488 31.107955 139.937500] 13 Variable 14 Real days-remaining [1488 1.000000 62.000000] 15 Boolean < [635 0 1] 16 Real power [635 0.000000 3297966952784501300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 17 Real abs [635 17777125493.869579 947106196758301.370000] 18 Real power [635 17777125493.869579 947106196758301.370000] 19 Real data [635 29.125000 137.875000] 20 Variable 21 Real any_real 7.000000 0x0000000000001c40 [635 7.000000 7.000000] 22 Real data [635 29.125000 137.875000] 23 Variable 24 Real power [635 0.000000 92510233423514822000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 25 Real abs [635 1.000000 3521614606208.000000] 26 Real power [635 1.000000 3521614606208.000000] 27 Real days-remaining [635 1.000000 62.000000] 28 Real any_real 7.000000 0x0000000000001c40 [635 7.000000 7.000000] 29 Real data [635 29.125000 137.875000] 30 Variable 31 Boolean < [853 0 1] 32 Real data [853 33.250000 143.250000] 33 Variable 34 Real days-remaining [853 1.000000 62.000000] 35 Boolean < [78 0 1] 36 Real data [78 29.500000 73.000000] 37 Variable 38 Real power [78 0.000000 3297966952784501300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000.000000] 39 Real abs [78 19442589725.148437 11047398519097.000000] 40 Real power [78 19442589725.148437 11047398519097.000000] 41 Real data [78 29.500000 73.000000] 42 Variable 43 Real any_real 7.000000 0x0000000000001c40 [78 7.000000 7.000000] 44 Real data [78 29.500000 73.000000] 45 Variable 46 Boolean any_boolean False [1410 0 0] 47 Probability ANY_PROB 1.000000 0x000000000000f03f [40 1.000000 1.000000]" Thank you for your kind help! Tag: Automation and tables Tag: 77946
  - 9
    - Delete all comments after cursor position I need to position the cursor in a document and run a macro to delete all comments below the cursor (in the rest of the document). Thanks. Tag: Automation and tables Tag: 77942
  - 10
    - How do I scroll a document without scrolling the controls? I'm trying to create an application where the majority of the screen contains a loaded Word document. I want the user to be able to scroll through that document and then add customized comments (textboxes, actually) at specific locations via a series of controls I have created. This is working fine. I need the controls to always be present, even as the user scrolls through the document. I tried placing the controls (buttons, etc.) in one cell of a table and the document in another, larger cell, but I cannot get the document cell to scroll. Can anyone help with guidance on the best approach to do this? Thanks very much Tag: Automation and tables Tag: 77939
  - 11
    - wingdings error from 9/11 Can someone please fix the Microsoft Word Wingding error where when you type in the 9/11 flight number in wingdings, it becomes something irrational? I would figure that Microsoft can fix these types of co-incidents/problems with Microsoft. I would really appreciate it if you can do that for me. ---------------- 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=f15275a1-8b9d-4949-898a-cea0aae516d4&dg=microsoft.public.word.vba.general Tag: Automation and tables Tag: 77933
  - 12
    - VBA used to create automatically increment invoice number I used the Macro on the web site (Article ID : 212686) to create an Insertion order form, each of which must have a unique number. The macro worked great but the next step is to enter the number in our corporate system. The number must be a 5-digit number. I've never used Visual Basic before and am trying to understand how I can change the number format in the form or in the macro to start at 00001. Everything I've tried so far does not take. We go through insertion orders like potato chips. If I could figure out how to format to 5-digits through the macro named above, I would be raised on a pedestal by my boss. Tag: Automation and tables Tag: 77930
  - 13
    - Un-tripping security settings in Word I've just added a new sub-procedure to our word template (we use large macros extensively), but I can't get the macro to enable. It's a macro I wrote from scratch and added to the toolbar. The security settings disable the macro even though my security is set to low and I have trust all add-ins and templates selected, and trust access to VB project selected. I've tried re-starting a couple of times and nothing is working. I went to microsoft.com and couldn't find any information other than "set your security lower". I've had this happen before, and it's really hampering our abilities to write macros. Has anyone else run into this? Any help would be most appreciated. Tag: Automation and tables Tag: 77929
  - 14
    - Pulling Middle Initial and Suffix from Address Book I have looked everywhere for an answer to this, but I can't seem to come up with anything. I have a macro that will pull the mailing address of a person over into a blank TextBox on a UserForm. The problem being I dont know what command to use to get the Middle Initial and Suffix... Ex. strAddress = Application.GetAddress(strName, "<PR_DISPLAY_NAME_PREFIX> <PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_TITLE>" & vbCr & "<PR_COMPANY_NAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>, <PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>", , 2) Result: Mr. John Doe <-- Should be Mr. John E. Doe, Sr. President JD Enterprises 111 SW Somewhere Nowheresville, MI 98765 Tag: Automation and tables Tag: 77924
  - 15
    - Determine if Paragraph is emty-Word 2000 Hi, How would I determine if a paragraph is empty before text is typed? Thanks. jbc Tag: Automation and tables Tag: 77921
  - 16
    - Which range contains this table cell? I have a large table with several named ranges. How can I find which named range a particular cell is a part of? Ed Tag: Automation and tables Tag: 77920
  - 17
    - ChangeFileOpenDirectory doesn't always work We use the following macro code to open our directories: Sub Open1() ' ChangeFileOpenDirectory "W:\1\" Dialogs(wdDialogFileOpen).Show End Sub We have a macro just like the above for each folder, i.e. w:\2\, w:\3\, etc. The problem is running the macro only works if the user does not open a document. If s/he does open a document, the next time the macro is run, it simply opens up My Documents. Is there any way that the code can be modified so that the macros always work, regardless of whether a document was opened? Claudia Carvalho Tag: Automation and tables Tag: 77919
  - 18
    - Runtime Error 509 I have a protected document created from a template, our programmers are trying to use a shellexecute print command to print the document, however the TmpDDE command that is created errors with Runtime error 509 because it is trying to do a "WordBasic.SetDocumentDirty t" The same thing happens if you right click and do print from the Windows XP explorer. This only seems to be a problem in Office 2003. Does anyone know if there is a way supress the dirty flag or this error? Thanks Tag: Automation and tables Tag: 77914
  - 19
    - Headers should not appear in the first section. I'm trying to create a macro that sets the headers for a document in the following way: - Odd & even pages have different headers (no problem here); - The first 2 pages of the document should not contain any headers (these pages make up section 1 of the document) (problem here); - Page numbering should start from 1 on the third page (which is the first page of section 2) (no problem here); - The remaining pages of the document are in various sections. The problem so far is that I can't get this to work in any way (not even manually). I always end up with a header on page 2 (but not on page 1, although I mentioned that the first page should not be threated special.) I'd be very happy with code advice or anything that enables me to create a correct situation manually first. Kind regards, rVo Tag: Automation and tables Tag: 77913
  - 20
    - Programmatically setting margins not working Hello Everyone, I posted this message back in May but was then pulled off of the project and onto something new and didn't have time to revisit it. I am still having this exact error. The program is actually sitting on a network drive on a windows 2000 box and when the user open from there the margins are set the same as the normal template and have not changed to what i set them too, they do not experience any error messages or anything out of the ordinary. Any ideas would help greatly!! I have a macro that produces a word document when all is said and done. I have some code that goes and sets the margins programmatically, the code is as follows: Set myRange = ActiveDocument.Range With myRange .PageSetup.TopMargin = CentimetersToPoints(1) .PageSetup.BottomMargin = CentimetersToPoints(1) .PageSetup.LeftMargin = CentimetersToPoints(0.9) .PageSetup.RightMargin = CentimetersToPoints(0.9) .Font.Size = 11 .Font.Name = "Times New Roman" End With this works perfectly when i run it on my own machine but when it's run on other people's machines it doesn't work at all. I should also note that the font setting works on any computer and that the page margins and font are different in Normal.dot on my computer and the others i have tested on. Am i doing something wrong?? Thanks, Erin Tag: Automation and tables Tag: 77906
  - 21
    - how to digitally sign XML documents step by step Hi I would like to digitally sign the XML documents I am producing from word . Has anyone of you relevant knowledge to guide me step by step ? Any help mostly appreciated Regards Tag: Automation and tables Tag: 77905
  - 22
    - Toolbars, Add-ins, etc. Hi all, I've been tasked with writing a transcription program. I have to use Word. I have some questions about programming in Word. I've done a bit of automation in the past. The basics are that the application will be a fat client residing on the users machine. The app starts with a login screen. The user types in a user name/password and clicks a button. The username and password are submitted to a webserver for authentication and profile retrieval. Upon successful logon, the app will start an instance of Word. There will be a custom toolbar with all the buttons the user will need to request new jobs, etc. All data needs to be transferred back and forth through an SSL connection to the web server. Will be utilizing Word 2003. I apologize in advance for my lack of knowledge in Word terminology. Anyhoo... Toolbars. Can I create a custom toolbar (with my own custom actions that will be performed upon clicking) that will only be available (visible?) under certain circumstances. Say, perhaps, when a certain template was loaded? I understand I can put the toolbars in a template document ( .dot file). Is this correct? I don't particularly want to do that. There will be a "generic" template but there will also be at least 4 different templates for each client. The templates can not be stored on the local drive either (they must be "fed" to the application upon user request). I was thinking an Add-in here. But, I don't want the toolbar to load if say, the user starts Word the "normal" way to type a letter to grandma, etc. How can I load a document template from a url? I need to do this without "prompting" the user at all. The template, I suppose, could be saved temporarily on the users hard-drive and then loaded from the hard-drive. I would like to load it from the url and not have to save it to the hard-drive first. How can I save a document back to a web server? I cannot save it back to a drive letter:\path because there won't be any mapped network shares. I cannot allow the user to save the document on their local hard-drive either. I do not want to "prompt" the user. The document templates will have "fields" or "tags". For example, lets say there are 5 tags: tag1, tag2, ...tag5. Let's say the cursor is in between tag2 and tag3. Is there anyway I can capture the "tab" key such that when the user presses it, it tabs between tags? For instance, say the cursor is in the above mentioned place, the user presses the tab key and the cursor moves to the "start" of the next tag (tag3). If the user presses "shift + tab" the cursor moves back to the previous tag (tag1). That's all I have for now. I'm sure I'll be back. Thanks a bunch for any suggestions, hints. David Tag: Automation and tables Tag: 77904
  - 23
    - Disable Fieldcode 'Fillin' In a doc the fieldcode 'Fillin' is used. When using this document in a vb script (in this case printing) a window wil open and show the contens of the Fillin code. I like to disable the filin code during printing; ======================================================== FileName="D:\KLANTEN\Stork\TESTENV\vb\jim.doc" PrinterName = "STORKH08815" Dim WordObj ' On Error Resume Next Set WordObj = CreateObject("Word.Application") ' This doenst work :-) WordObj.Wdfieldtype.wdfieldfillin = False WordObj.Documents.Open FileName WordObj.ActivePrinter = PrinterName WordObj.PrintOut WordObj.Quit =============================== Thnx -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200512/1 Tag: Automation and tables Tag: 77903
  - 24
    - Replacing Styles I have two questions concerning using a macro to find styles and replace them with other styes. First I am using this code to find and replace a styles ' ' Finds Style "Heading 4" and Replaces it with Style "Heading 3" ' Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting On Error Resume Next Selection.Find.Style = ActiveDocument.Styles("Heading 4") Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 3") With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = True .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll I have many styles that are currently in a word document that I want the macro to find and replace with the style body for instance. Is there a better way to code this so that maybe five or more different styles can be replaced with the style body. My second question is if there is a way to code a find replace to replace an inline style (maybe wrong terminology) with a defined style. For example, replacing "body + bold" with "emphasis" Thanks for any help, -- Michael Tag: Automation and tables Tag: 77896
  - 25
    - How to Add field codes to table in footer? In using VBA I need to add a 1 row, 2 column int the footer. In the left column I need to display the current date and in the right column display page of pages. I can create the table, display the current date, but I cannot seem to add the page of pages to the right column. The error message I receive is: This command is not available. What I am trying to do is grab the cell as a range, then use that range to get the field result. I have used the activedocument.fields.add method, but it displays the the results right on document and not where I need it. Does anyone have any suggestions? Here is my code: Dim myRange As Range Dim strPageFld As String, strTotPageFld As String With ActiveDocument Set myRange = .Sections(1).Footers(wdHeaderFooterPrimary).Range .Tables.Add Range:=myRange, NumRows:=1, NumColumns:=2 myRange.Tables(1).Cell(1, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft myRange.Tables(1).Cell(1, 1).Range.Text = Format(Date, "MMMM dd, yyyy") Set myRange = myRange.Tables(1).Cell(1, 2).Range myRange.ParagraphFormat.Alignment = wdAlignParagraphRight strPageFld = myRange.Fields.Add(myRange, wdFieldPage).Result strTotPageFld = myRange.Fields.Add(myRange, wdFieldNumPages).Result myRange.Text = strPageFld & " of " & strTotPageFld End With Tag: Automation and tables Tag: 77895
- Next
  - 1
    - Removing all formfields from Doc What's the deal with this code? It errs when X = 6, although there are 9 FF's in the document. Sub deleteFFs() Dim X As Integer, tTotal As Integer tTotal = ActiveDocument.FormFields.Count For X = 1 To tTotal ActiveDocument.FormFields(X).Delete Next End Sub I tried writing something using "For each FF in ActiveDocument", but I don't know how to loop without using names or indices. It must be tooooo simple.... TIA Tag: Automation and tables Tag: 77894
  - 2
    - In WORD, Interactive FORMS? Can a FORM set up in Microsoft Word be designed such that, via the use of a MACRO, the form will prompt a user for specific field(s) information, and then have the MACRO test selected field(s) for the presence of data? Ex. A FORM asks for name, address, phone no. etc. information...the individual field(s), or name, address, phone no., are validated via a MACRO...Thanks for your assistance. Tag: Automation and tables Tag: 77891
  - 3
    - How do I write code to preserve variables values for future use. Is there anyway to write a code to pereserve the value of a variable for the next use. In other words, I would like to retain the last value I obtain by an input box for the next time I run the code. Can the value be saved within the code? Tag: Automation and tables Tag: 77887
  - 4
    - Is there a way to set the number of printing copies variably? I need to change the number of copies printed in Word from a field in my data. Is there a way to do this? Or else a way to repeat a record in Excel based on a number in a field? Tag: Automation and tables Tag: 77884
  - 5
    - Find and replace in Excel X for Mac Using Excel X for Mac, I'd like to find all commas in a column and replace them with hard returns/carriage returns (not soft returns). Since Excel doesn't recognize the Cntrl-Option-Return combo when I use the Replace function, I'm guessing I'll have to use a formula or a macro. I've seen several great suggestions for PC users, but none for Mac users. Thanks. Tag: Automation and tables Tag: 77882
  - 6
    - Is is possible to load 2 versions of Word (i.e.-2003 and 2000)? I have ACT! 2000 and Office 2003. I need to use Word as the default word processor. ACT! 2000 does not work with Word 2003, but it will work with Word 95 and 2000. Is it possible to have 2 versions of Word on a computer? Tag: Automation and tables Tag: 77881
  - 7
    - Need to add code to an existing document Hi all, We have an application that allows to make documents using Word. Some of ours clients have more than 10000 documents created. Now, one of them asked us if is it possilbe to avoid than end users close the document clicking on X. I found some code to do it but I need to add this code to any document. The idea is add the code every time an existing document is open or every time a new document is created. Is there any way to do this? How? Thanks in advance and excuse me for my english. Regards, Mauricio Nicastro Barcelona, Espa=F1a. Tag: Automation and tables Tag: 77878
  - 8
    - difference between vb and vb.net what's the difference between vb and vb .net. which one is better Thanks Tag: Automation and tables Tag: 77873
  - 9
    - Read word document text page-by-page Hi Is there any method by which I can read a word file from my VB application page-by-page? Currently, I can open the file and save the text as a text file, but what I need is a way to know the page numbers, so I though instead of saving the text as a text file, I might be able to read the text from the word file page-by-page and add the page numbers then save the text to a text file. Any ideas? Dana Tag: Automation and tables Tag: 77871
  - 10
    - what command line arguments are available for word I have found that argument 1 is the name of the document to open, and that there are various command line switches ( /mmacro) will execute a specific macro for instance. Is there any document that describes these features in detail ? Tag: Automation and tables Tag: 77862
  - 11
    - Chechbox problem I have designed a survey with checkboxes from control tool. I exit from the "Design Mode" and then save the document as word document (office 2002). When I open the document, it opens in "design mode" so people who are supposed to put a check mark in the boxes, are not able to do so unless they exit from the design mode first and then everything works fine. Not every one can recognize this problem, so how can I save the document so that when it is opened, it does not open in design mode? Thanks for your help. Dori Tag: Automation and tables Tag: 77861
  - 12
    - Having problem with the AddPicture method Trying the sample in Help results in an error message saying thet indata parameters are not within the interval! Whats wrong ? /Bosseh Tag: Automation and tables Tag: 77859
  - 13
    - what is the better download for microsoft word? I just want the best. thanks Tag: Automation and tables Tag: 77846
  - 14
    - Macro to turn squarebracket content into footnote I have a plain text file with hundreds of footnotes in square brackets that I want to turn into MS Word footnotes I'm kinda running out of time (measured in hours) Whilei I've used BASIC form PDP Dartmouth to GW, I haven't a clue about VB. Tag: Automation and tables Tag: 77830
  - 15
    - Need help with border removal in a cell Hi, I've been trying for hours to remove the bottom border of a cell in a Word table. I must be missing something obvious, so I hope someone can help me: The code I am using (from MS Access VBA) is the following: With doc.Tables.Item(1) ' removing stuff that works With .Cell(tbl.Rows.Count - 2, 4).Range .Text = "Here !" .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Enable = True End With ' removing other stuff that works as well End With For that particular cell, I would like to have no bottom border drawn. I am sure I am referencing the right cell because I am putting the "Here !" text and it appears as expected. I also checked that other contiguous cells formatting do not interfere with this one (e.g. activating the top border of the cell located under the one for which I want to remove the bootom border). Any help would be appreciated. Xavier Tag: Automation and tables Tag: 77815
  - 16
    - Set Format Picture | Layout using VBA I use the following code to insert a picture into Word 2000 from Access 2000: Dim db As DAO.Database Dim rst As DAO.Recordset Dim oShp As InlineShape Dim shp As Shape Set db = CurrentDb() Set rst = db.OpenRecordset("select * from tblData") Dim objWord As Word.Application ' Launch Word and load the invoice template Set objWord = New Word.Application objWord.Documents.Add "C:\CoverPage.dot" objWord.Visible = True ' Add header information using predefined bookmarks With objWord.ActiveDocument.Bookmarks .Item("PreparedFor").Range.Text = rst!PreparedFor .Item("PreparedForAddress").Range.Text = rst!PreparedForAddress Set oShp = .Item("GraphicFile").Range.InlineShapes.AddPicture("C:\210.jpg", False, True) End With With oShp .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 0.75 .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoFalse .LockAspectRatio = msoFalse .Height = 291.1 .Width = 387.5 .PictureFormat.Brightness = 0.5 .PictureFormat.Contrast = 0.5 .PictureFormat.ColorType = msoPictureAutomatic .PictureFormat.CropLeft = 0# .PictureFormat.CropRight = 0# .PictureFormat.CropTop = 0# .PictureFormat.CropBottom = 0# Set shp = .ConvertToShape With shp .ZOrder msoSendBehindText .WrapFormat.Type = wdWrapTight End With End With Set oShp = Nothing Set shp = Nothing The above code inserts the picture and re-sizes it. However I am having problems with formating the picture. I need to set the following: Format Picture | Layout Wrapping Style = Infront of text Horizontal Position = Center I have tried to set this suing the code below Set shp = .ConvertToShape but with no luck. What is the correct syntax? Tag: Automation and tables Tag: 77805
  - 17
    - UserForm Is A Class I just finished reading a skull splitting discussion about "Magic Forms" and UserForms being Classes, etc, etc. One of the arguments put forth is that UserForms are classes and should be used as such. Quote: "Take the situation where you need to know in the code that loads the form whether the user pressed Cancel or OK." The author proposed that the solution was to extend the form by creating a read only property called "Cancel." He went on to provide about half the code necessary to do this and I can't figure out the rest. I have tried to construct a workable code from samples I have of created of another property in a class module. It simply isn't working. My question is how do you do what the author above (Peter Hewett) proposed. I have the code I attempted with an asterisk to the right of the lines Peter listed in his article. I get a compile error on the line: If myFrm.Cancel Then * "Method or DataMemeber not found" Thanks The code Public Sub MagicFormDiscussion() * Dim myFrm As oFrm6 * Set myFrm = New oFrm6 * Load myFrm myFrm.Cancel = False myFrm.Show * If myFrm.Cancel Then * MsgBox "Form was canceled" * Else * MsgBox "Form exited normally" * End If * MsgBox "Form complete" * Unload myFrm * Set myFrm = Nothing * End Sub * The UserForm (Simple form with two command buttons) Option Explicit Public mboolCancel As Boolean * Private Sub CmdCancel_Click() * mboolCancel = True * Me.Hide End Sub * Private Sub CmdOK_Click() * mboolCancel = False * Me.Hide End Sub * Private Property Get Cancel() As Boolean * Cancel = mboolCancel * End Property * Public Property Let Cancel(NewValue As Boolean) mboolCancel = NewValue End Property * -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Automation and tables Tag: 77800
  - 18
    - changes in multiple templates I have about 200 templates and some text/paragraphs in these templates are similar. I am trying to create a file where I make changes in one and it changes in all files. Is it possible to do this with VBA or I should use MS Word option by creating master document... Thanks for the help.. Tag: Automation and tables Tag: 77794
  - 19
    - Setting Autotext "Look In" field Is there a way using Word VBA to set the "Look In" field in the AutoText dialog box to "All Active Templates?" I have macros that depend on this being set this way and I cannot figure out any way to insure that it is set to "All Active Templates" prior to running. We're using Word 2003. Any help would be greatly appreciated. - David Tag: Automation and tables Tag: 77782
  - 20
    - Need to know how to un-select a textbox and return to top of page Hello, I have a document with several textboxes near the top. I'm using a macro to insert text into them. After I have added my text to the last one, I need to un-select the textbox and return the cursor back to the top left (home?) of the document so I can move down the page to start inserting more text (NOT in another textbox, just on the page). I can't figure out how to do this with VBA code. Normally I can just click the mouse cursor back at the top of the doc after typing in the last textbox, but obviously this can't be done while recording the macro. Can anyone help? Thanks. (Using Word 2002) Tag: Automation and tables Tag: 77778
  - 21
    - insert DATABASE within mailmerge essentially I have a mail merge that produces headings and parameters for a DATABASE query, so for every mailmerge heading there is a new query that produces a table under that mailmerge heading. Problem is that I want to use me.path in order to fill the path to the database in the query vs. hard coding it. Below are some scratchy comments about what I have tried so far. when you do an insert -> DATABASE and use a mailmerge field inside of the text that you use for the DATABASE connection. I need to use the me.path in that as well but don't know how to replace that text. I know I can access that DATABASE text via: ActiveDocument.Fields(2).Code For example if I make a button and in the click event put a msgbox(ActiveDocument.Fields(2).Code) it will show me what is being used in the DATABASE query. But when I try to fill a string var with the correct code and stick that string into the ActiveDocument.Fields(2).Code object via: ActiveDocument.Fields(2).Code = tempstr it errors. maybe because I am running it inside the document.open() func. if not here then where do I run it? I can't do it manually via buttons etc. this is all suppose to be an automated process. Tag: Automation and tables Tag: 77771
  - 22
    - How to test if a user button is on a menu I have added a button to the Tools menu. CommandBars("Menu Bar").Controls("Tools").Controls("AutoFooter is On") How can I test if the user has removed it? I use Word 2003 and Win2000. Regards, Jan Nordgreen Tag: Automation and tables Tag: 77768
  - 23
    - How to refer to a menu button not using its caption. I have code that puts a button on the Tools menu: CustomizationContext = ActiveDocument.AttachedTemplate With CommandBars("Menu Bar").Controls("Tools").Controls Set mybutton = .Add(Type:=msoControlButton) 'mybutton.BeginGroup = True ' gives a separator above the button mybutton.FaceId = 990 ' 2174 ' 7391 mybutton.Caption = "AutoFooter is On" mybutton.OnAction = "MacroOn" mybutton.Visible = True End With To display the caption I can use: CommandBars("Menu Bar").Controls("Tools").Controls("AutoFooter is On").Caption But, if I want the user to be able to toggle the caption to "AutoFooter is Off", how can I then test which caption it has? I use Word 2003 and Win2000. Regards, Jan Nordgreen Tag: Automation and tables Tag: 77767
  - 24
    - USING THE ENTER KEY..... i am almost done with our employment application. Sent it off to have co-workers test it and give feedback. One issue that came back was if there is a way applicants can use the ENTER key to go from field to field instead of using the TAB key. I would like to know this as well. Just a coupe notes: 1. I have never used a macro--not even familiar with them. The form has none. 2. I'm using Word 2000, if a person with any version of Word of than what i have, will they experience problems when filling in the form? Tag: Automation and tables Tag: 77764
  - 25
    - Toolbar Icon I need a toolbar button which indicates an on/off condition and also to be able to read it's current state any assistance greatly appreciated. Regards -- >>=== GWizz ===<< Tag: Automation and tables Tag: 77756

My app is using automation and all is well. Next request involves
'bulletizing' a portion of a cells text. I can programmatically determine
the start and end range of the text inside the cell that we want to
bulletize. Can't seem to get the syntax correct to set the range. I'm using
VFP.

Any ideas?

Top

Re: Automation and tables by Perry

Perry
Wed Dec 14 16:56:11 CST 2005

FoxPro ?
This is an MS Word newsgroup
I could be wrong interpreting your question but if you'd still need
expertise from this group can you rephrase your question?
-------------------------------------
Krgrds,
Perry

"howard" <howard@discussions.microsoft.com> wrote in message
news:CCD2FD03-6EA6-4AFE-A046-294A2F7A6DAF@microsoft.com...
> My app is using automation and all is well. Next request involves
> 'bulletizing' a portion of a cells text. I can programmatically determine
> the start and end range of the text inside the cell that we want to
> bulletize. Can't seem to get the syntax correct to set the range. I'm
> using
> VFP.
>
> Any ideas?

Top

Re: Automation and tables by howard

howard
Wed Dec 14 19:15:02 CST 2005

Thought Word and developer would cover automation - guess not. In any case,
I found the answer - thanks

"Perry" wrote:

> FoxPro ?
> This is an MS Word newsgroup
> I could be wrong interpreting your question but if you'd still need
> expertise from this group can you rephrase your question?
> -------------------------------------
> Krgrds,
> Perry
>
> "howard" <howard@discussions.microsoft.com> wrote in message
> news:CCD2FD03-6EA6-4AFE-A046-294A2F7A6DAF@microsoft.com...
> > My app is using automation and all is well. Next request involves
> > 'bulletizing' a portion of a cells text. I can programmatically determine
> > the start and end range of the text inside the cell that we want to
> > bulletize. Can't seem to get the syntax correct to set the range. I'm
> > using
> > VFP.
> >
> > Any ideas?
>
>
>

Top