Accessing the methods in a global template

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - combo box won't display menu items I'm trying to put a combo box into a word document in VBA. This is my code Private Sub ComboBox1_Change() With ComboBox1 For ComboBox = 1 To 3 .AddItem "Mr" .AddItem "Mrs" .AddItem "Ms" Next ComboBox End With End Sub When I reopen the doccument, the menu items disappear. Would anyone have any suggestions ? Tag: Accessing the methods in a global template Tag: 78002
  - 2
    - How to use nextif function in Word mail merge from Excel? Please help! I am merging the data from Excel to Word document. I would like to use the nextif function to put a group of data record in a word document and another group of data into a new merge document. I had already use the 'next record' to show multipe records in the same document. As the group changed, it didn't go to the new merge document. Tag: Accessing the methods in a global template Tag: 77997
  - 3
    - Headers and footers from newly attached template Normal.dot has no page numbering assigned, and no headers or footers. PageNumber.dot has it all (and it also has some other important text in the headers and footers that I want). I start a document with Normal.dot as the template. I 'change my mind' about headers and footers, and now want to attach PageNumber.dot to the document. I wrote the following code and attached it to a button ActiveDocument.AttachedTemplate = PageNumber.dot Word flashes and obviously has made the connection (and it shows properly in the Addins and Templates screen), but no headers and footers exist. Is there a way to call in the headers and footers of an external template once the document has been started? Thanks. Ed Tag: Accessing the methods in a global template Tag: 77992
  - 4
    - protect toolbar? Probably not understanding something simple, but can you lock a toolbar so that it cannot be resized? I tried the code below but it had no effect. If I changed .Protection to equal msoBarNoMove, it indeed kept me from moving the bar, but I just don't want users to be able to resize it. Thanks! I tried: Sub CustomToolbar() Dim myBar As CommandBar Dim myCtrl1 As CommandBarControl, myCtrl2 As CommandBarControl Set myBar = CommandBars.Add(Name:="My Command Bar", Position:=msoBarTop, Temporary:=True) With myBar Set myCtrl1 = .Controls.Add(Type:=msoControlButton, ID:=CommandBars("Standard").Controls("Print").ID) Set myCtrl2 = .Controls.Add(Type:=msoControlButton, ID:=CommandBars("Standard").Controls("Save").ID) .Visible = True .Protection = msoBarNoChangeVisible + msoBarNoCustomize + msoBarNoResize End With End Sub Tag: Accessing the methods in a global template Tag: 77986
  - 5
    - Automation and tables 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? Tag: Accessing the methods in a global template Tag: 77983
  - 6
    - 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: Accessing the methods in a global template Tag: 77966
  - 7
    - 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: Accessing the methods in a global template Tag: 77956
  - 8
    - 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: Accessing the methods in a global template Tag: 77953
  - 9
    - 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: Accessing the methods in a global template Tag: 77951
  - 10
    - 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: Accessing the methods in a global template Tag: 77950
  - 11
    - 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: Accessing the methods in a global template Tag: 77948
  - 12
    - 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: Accessing the methods in a global template Tag: 77947
  - 13
    - 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: Accessing the methods in a global template Tag: 77946
  - 14
    - 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: Accessing the methods in a global template Tag: 77942
  - 15
    - 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: Accessing the methods in a global template Tag: 77939
  - 16
    - 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: Accessing the methods in a global template Tag: 77933
  - 17
    - 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: Accessing the methods in a global template Tag: 77930
  - 18
    - 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: Accessing the methods in a global template Tag: 77929
  - 19
    - 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: Accessing the methods in a global template Tag: 77924
  - 20
    - Determine if Paragraph is emty-Word 2000 Hi, How would I determine if a paragraph is empty before text is typed? Thanks. jbc Tag: Accessing the methods in a global template Tag: 77921
  - 21
    - 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: Accessing the methods in a global template Tag: 77920
  - 22
    - 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: Accessing the methods in a global template Tag: 77919
  - 23
    - 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: Accessing the methods in a global template Tag: 77914
  - 24
    - 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: Accessing the methods in a global template Tag: 77913
  - 25
    - 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: Accessing the methods in a global template Tag: 77906
- Next
  - 1
    - 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: Accessing the methods in a global template Tag: 77905
  - 2
    - 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: Accessing the methods in a global template Tag: 77904
  - 3
    - 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: Accessing the methods in a global template Tag: 77903
  - 4
    - 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: Accessing the methods in a global template Tag: 77896
  - 5
    - 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: Accessing the methods in a global template Tag: 77895
  - 6
    - 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: Accessing the methods in a global template Tag: 77894
  - 7
    - 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: Accessing the methods in a global template Tag: 77891
  - 8
    - 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: Accessing the methods in a global template Tag: 77887
  - 9
    - 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: Accessing the methods in a global template Tag: 77884
  - 10
    - 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: Accessing the methods in a global template Tag: 77882
  - 11
    - 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: Accessing the methods in a global template Tag: 77881
  - 12
    - 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: Accessing the methods in a global template Tag: 77878
  - 13
    - difference between vb and vb.net what's the difference between vb and vb .net. which one is better Thanks Tag: Accessing the methods in a global template Tag: 77873
  - 14
    - 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: Accessing the methods in a global template Tag: 77871
  - 15
    - 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: Accessing the methods in a global template Tag: 77862
  - 16
    - 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: Accessing the methods in a global template Tag: 77861
  - 17
    - 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: Accessing the methods in a global template Tag: 77859
  - 18
    - what is the better download for microsoft word? I just want the best. thanks Tag: Accessing the methods in a global template Tag: 77846
  - 19
    - 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: Accessing the methods in a global template Tag: 77830
  - 20
    - 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: Accessing the methods in a global template Tag: 77815
  - 21
    - 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: Accessing the methods in a global template Tag: 77805
  - 22
    - 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: Accessing the methods in a global template Tag: 77800
  - 23
    - 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: Accessing the methods in a global template Tag: 77794
  - 24
    - 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: Accessing the methods in a global template Tag: 77782
  - 25
    - 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: Accessing the methods in a global template Tag: 77778

Does anyone know how to access the methods (commands, macros) in a global
addin?

I'm looking for a list analogous to the one you get when you open the Macros
dialog box and select the addin from the "Macros in" list.

Is it in a collection of any kind?

Bear

Top

Re: Accessing the methods in a global template by Jonathan

Jonathan
Wed Dec 14 10:14:20 CST 2005

Hi Bear,

"Bear" <Bear@discussions.microsoft.com> wrote in message
news:2E1540FE-EF5D-47B6-8A8E-5333B1149553@microsoft.com...
> Does anyone know how to access the methods (commands, macros) in a global
> addin?
>
> I'm looking for a list analogous to the one you get when you open the
> Macros
> dialog box and select the addin from the "Macros in" list.
>
> Is it in a collection of any kind?

Unfortunately not. It used to be available back in Word 95, but Microsoft
sort of lost the feature and have never put it back :-(

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Top

Re: Accessing the methods in a global template by Cindy

Cindy
Fri Dec 16 08:00:22 CST 2005

Hi =?Utf-8?B?QmVhcg==?=,

> Does anyone know how to access the methods (commands, macros) in a global
> addin?
>
> I'm looking for a list analogous to the one you get when you open the Macros
> dialog box and select the addin from the "Macros in" list.
>
IF the methods are in the ThisDocument module of the Addin-template you can
pick them up from within another VBA project. As I recall, you do need to set a
reference to that project in order to access them.

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply
in the newsgroup and not by e-mail :-)

Top