How to do this automatically in Words?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Converting Word 2003 template to Mac Word 2004? We currently have a custom template created in Word 2003 that makes extensive use of custom forms, macros, VBA and related. We would like to convert this to a Mac version as well with the same functionality. Having no experience with Word on the Mac, what issues will be involved in such a port? What macro features does the Mac version support and what language does it use for macros? Tag: How to do this automatically in Words? Tag: 83585
  - 2
    - Slash should break words at end of line like hyphen. I'm using Microsoft Word 2003. Sometimes I put words together with the slash, such as writer/producer/director. Web addresses (URLs) also use slashes. When a string of words with slashes nears the end of a line, Word wraps the whole string as if it's all one word. To get around this, I use spaces around the slash, but this should be unnecessary. Sometimes I also use hyphens, such as writer-producer-director, but this does not work for URLs. The slash should be coded like the hyphen. When a hyphen joins words, the string of words will break at the end of a line at the hyphens. The slash should be coded like the hyphen to break words at the end of a line. ---------------- 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=d021e321-db79-4d86-8ea3-862c559deb58&dg=microsoft.public.word.vba.general Tag: How to do this automatically in Words? Tag: 83579
  - 3
    - - How to show AddShape object over Image control? I am having a problem displaying a shape object over/above an image control. What I am trying to do is pretty simple - draw a circle on Image_click over the clicked area (see the code below) The problem is that the newly added shape object appears behind the image (and cannot be seen) even though its ZOrder property is set to msoBringToFront. Ohh, and by the way could someone suggest why the circles get drawn with an offset from the mouse pointer. Am I missing something here? Private Type TPoint X As Long Y As Long End Type Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As TPoint) As Boolean Private Sub Image1_Click() Dim point As TPoint If (GetCursorPos(point)) Then ThisDocument.Shapes.AddShape(msoShapeOval,point.x,point.y,10,10).Select Selection.ShapeRange.ZOrder msoBringToFront Selection.ShapeRange.Fill.Visible = msoFalse Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 2.25 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(255, 0, 0) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) End If End Sub Tag: How to do this automatically in Words? Tag: 83576
  - 4
    - Create Macro Is there a way to record a macro that will paste special as unformatted text any text that I highlight and copy? For example, if I copy from one template to another I can paste the text and it will take on the formatting of the template I paste into. I am using Word 2003 Thanks in advance for any help. Regards, dee Tag: How to do this automatically in Words? Tag: 83569
  - 5
    - Update fields in Header/Footer Is there a way to force the fields inside the header/footer to refresh/update but on for the page the user is currently on? I want to be able to update this without the need to update all sections and pages so that it is much faster when just dealing with one page. Tag: How to do this automatically in Words? Tag: 83565
  - 6
    - Splitting cells in a Word table and then moving to the next cell Hi, I'm creating a Word document using vba in Excel, and populating it with data from the spreadsheets. I have table with 5 columns. In each row, I may need to split the cell in columns 4 & 5 several times. I split the cell in column 4 and populate the new cells as follows (the 'original' cell already has some text in it): For Each varRole In arrRoles intRoles = intRoles + 1 rngWord.Cells.Split 2, 1, False rngWord.Move wdCell, 2 '2seems to be needed to move 1 cell due to the post-split selection by excel rngWord.Text = CStr(varRole) Next My problem is that I then want to move to the next cell in the row, in column 5, then split and populate that. I've tried various ways of moving ('rngWord.Move wdColumn, 1' and 'rngWord.Move wdCell, 1' (or 2), but they don't seem to work from a split cell (so the splits for the next column end up in this one) ('move wdcell, 1' works for a non-split cell). Prefixing the Move with 'rngWord.Collapse wdCollapseEnd' doesn't seem to help either. How do I move on to the next cell along, in the next column, please? Tag: How to do this automatically in Words? Tag: 83564
  - 7
    - <%><%><%><%>HOW TO BE FUNNY!<%><%><%><%> You too can learn to be funny in just 7 days flat: http://www.ExpertHumor.com/HowToBeFunny.htm *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83562
  - 8
    - >@>@>@>@>GET MORE CHICKS............LEARN GUITAR............. Chicks dig guitar players. So get more chicks! Learn how to play guitar! http://www.ExpertHumor.com/LearnGuitar.htm *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83558
  - 9
    - Automation in Office 2007? With Office 2007 looming in the near future, is there any word about the new programming features? Tag: How to do this automatically in Words? Tag: 83556
  - 10
    - <><><><><><><>The Net's #1 Joke e-Book!<><><><><><><><> That's Comedy - Over 460 Pages of Little Snickers, Medium-Sized Chuckles, and Great Big Belly Laughs: http://www.ExpertHumor.com/That'sComedy.htm *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83555
  - 11
    - Framed Paragraph In Word, after setting a table position the be relative to the page, rather then floating with the text. Several of my macros will no longer work. Any line that tries to access the ActiveDocument.PageSetup object will produce the error: "This method or property is not avalible because the object refers to a framed paragraph." Is there a way to work arond this? Thanks Bret Tag: How to do this automatically in Words? Tag: 83552
  - 12
    - Controls Collections for Active Document I am trying to loop thru all the controls in my Word document - text boxes and combo boxes. I am not using form fields. Is there a collection I can use to do this. The controls collection only seems to be available with user forms and not documents. Thanks for your help! Weste Tag: How to do this automatically in Words? Tag: 83547
  - 13
    - Extract links and .asp file names from text I have huge text in a word file I want to extract all the links that starts from http:// and all filenames ending with .asp file extension and keep it at the end of the document. Is this possible in word vba? Tag: How to do this automatically in Words? Tag: 83538
  - 14
    - Open all docs in folder i am using â?¬office 97 upwards. Cansomeone asist me with some code which looks in a particular folder, opens each document one by one and does something then saves it and closes it and open next document. Open each doc in folder 1 by 1 with active doc do something save document close document next document -- Mark Tag: How to do this automatically in Words? Tag: 83536
  - 15
    - paste into text box Hi folks, As per the code below, I'm trying to copy an address from a letter (doc1) and paste it into a text box in doc2. Unfortunately, when I try to paste, I end up with the copied text being pasted into the main body of the document, not into the text box as I had wanted. Any suggestions? ActiveDocument.Shapes("Text Box 2").Select Selection.Paste Thanks in advance for your help Tag: How to do this automatically in Words? Tag: 83535
  - 16
    - Warn of nearing End of Cell I am using Office 97 upwards. Is there a way that a marker can be placed in a cell that when reached by a user who is typing text into that cell, a message is displayed telling them so? -- Mark Tag: How to do this automatically in Words? Tag: 83532
  - 17
    - <%><%><%><%>HOW TO BE FUNNY!<%><%><%><%> You too can learn to be funny in just 7 days flat: http://www.ExpertHumor.com/HowToBeFunny.htm *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83527
  - 18
    - >@>@>@>@>GET MORE CHICKS............LEARN GUITAR............. Chicks dig guitar players. So get more chicks! Learn how to play guitar! http://www.ExpertHumor.com/LearnGuitar.htm *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83526
  - 19
    - Amnesty for illegal immigrants will not happen this time..................... Our politicians lead the league in all talk, no action. Is blowing us some sunshine good enough? Read what The Expert thinks: http://www.ExpertHumor.com/ *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83525
  - 20
    - Will illegal immigrants get deported?.........Of course not..................... Our politicians just wanted to blow us some sunshine. Get the details from The Expert: http://www.ExpertHumor.com/ *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83523
  - 21
    - Illegal Immigration, the Non-Issue of the Week?????????????? The way our politicians rushed to talk about illegal immigration this week, maybe they thought it came with a free lunch. They won't do anything about it, but it will get them some money. The Expert provides the details at: http://www.ExpertHumor.com/ *** Free account sponsored by SecureIX.com *** *** Encrypt your Internet usage with a free VPN account from http://www.SecureIX.com *** Tag: How to do this automatically in Words? Tag: 83522
  - 22
    - Warn about overwriting an existing file? I have been using the following macro to unmerge a long document and create 6 labeled documents in same folder, but it does not warn about overwriting an existing file. I would appreciate advise on how to add that function.Thanks in advance! Sub UnMerge() Dim docNew As Word.Document Dim sctsActive As Word.Sections Dim astrFiles(1 To 6) As String Dim i As Long astrFiles(1) = "Label.doc" astrFiles(2) = "Address.doc" astrFiles(3) = "Data Entry.doc" astrFiles(4) = "Rep.doc" astrFiles(5) = "AppFile.doc" astrFiles(6) = "Application.doc" Set sctsActive = Word.ActiveDocument.Sections For i = 1 To 6 Set docNew = Documents.Add With docNew sctsActive(i).Range.Copy .Range.Paste .SaveAs astrFiles(i) End With Next i End Sub Tag: How to do this automatically in Words? Tag: 83519
  - 23
    - Find text in a mail merge and replace with other text. Dear All, Mail Merge result is being cut and pasted into Word from another prog. I need to find target text, which includes a couple of paras., and replace all instances with a couple of formatted paras. Have tried using AutoText and got it to find single isntances, but the replacement text loses format. Clearly I need some kind of a loop; if it makes life easier, I'd be happy to get by replacement text into Windows memory using Ctrl-C and then fire up the macro? Many thanks in advance Tag: How to do this automatically in Words? Tag: 83505
  - 24
    - Copy table from excel to word make word corruption Hi, I copy a table (which have merged cells) from excel to word and after that, I can't save my word file (even if I remove the table after copying). It's very strange. The copy of the table seems to corrupt the word file. I tried to use programmation to copy the table but same thing happens. rngExcel.Copy Selection.PasteExcelTable False, False, False Any idea ? Thanks! -- Alex St-Pierre Tag: How to do this automatically in Words? Tag: 83503
  - 25
    - calculate number of weekdays between dates in two form fields I have a template project where a user will enter two dates in formfields formatted as dates. I want a third field to calculate the number of weekdays between those two dates. I have started out with this, but it is not working. Public Sub weekdaysbetween() ActiveDocument.FormFields("weekdays").Result = ActiveDocument.FormFields("date2").Result - ActiveDocument.FormFields("date1").Result End Sub I know that this would only calculate the total difference in the number of days (not only weekdays) if it was working, so that is the first problem. The second problem is that is more basic, which is that there is a type mismatch. help please. Tag: How to do this automatically in Words? Tag: 83501
- Next
  - 1
    - Write text to and retrieve from Add-In? With a macro contained in an Add-In template, can I reference the Add-In itself, write text onto the template document and retrieve the text? Ed Tag: How to do this automatically in Words? Tag: 83500
  - 2
    - Disappearing Toolbar Button Everyone, I have placed a custom toolbar button on an existing toolbar. I indicated that the button should be saved in my template file. Problem: When I open the template file or when I generate a new document based on the template file, the custom button is not visible. I then right-click on the toolbar, click on 'customize', and before I go any further, the custom button is visible on the toolbar. Any ideas why this is happening? My goal is to have users open a new document based on the template, and run the macro associated with the custom button. Thanks for your help. Gerry Tag: How to do this automatically in Words? Tag: 83493
  - 3
    - Positioning an inline shape I want to insert an inline shape into a table cell and then add text below the shape. In Word 2003 I'm using the following code (which works fine): .Move Unit:=wdCell, Count:=1 .Expand wdCell .InlineShapes.AddPicture FileName:=<path> & "Picture.bmp" .InsertAfter vbCrLf .InsertAfter "Text" However, when using the same code in Word 2000, it does not give the desired result. The shape then seems to choose its own position within the cell! Please, tell me what to do. /BosseH Tag: How to do this automatically in Words? Tag: 83492
  - 4
    - data from Excel cell into Word bookmark Hello all, I am looking to find a method to do the following: I have an Excel spreadsheet. In this spreadsheet I have a number of cells that contain, calculated, information. In order to publish this information in a convenient way, I would like to do this with a Word document, rather than formatting a document in Excel. All I need to have is to find the code to import the contents of a cell to a bookmark in Word. I can't find this info anywhere. -- Imexgra vzw Borzestraat 29 B-2000 Antwerpen Tel.: +32 (0)3 233 43 93 Fax: +32 (0)3 233 34 60 http://www.imexgra.org Tag: How to do this automatically in Words? Tag: 83490
  - 5
    - Word Macro Search Next Hello all My main question is : What is the syntax for searching for one prespecified term in a Word (2000) doc, stopping to edit it, then progressing to the next occurrence, etc to the end of the doc, then searching for a different prespecified term, and going through the same process. I want to search my docs for a series of errors that frequently occur. Can some kind soul please write it out for me ? My second (not so important) question is : I'm pretty literate in Word but completely at sea with the Macro language. As Word has progressed from version to version I've always asked wherever possible to have my macros transferred and under Tools-Macros they appear all to be listed. Some, however, have the word MAIN written after them - and these do not respond when I assign them a keyboard shortcut. Can anyone explain ? Best regards from Ray Tag: How to do this automatically in Words? Tag: 83483
  - 6
    - Import module to activedocument I am using WORD 97. I have a global template in the startup folder, and I want some code to run when any other document runs that imports a text file from the C:\test.txt (which consists of a routine Private Sub Document_Open() ..... do something End Sub into the ThisDocument of the ActiveDocument (not the global thisdocument) Canit be done, and if so would someone be kind enough to tell me how? -- Mark Tag: How to do this automatically in Words? Tag: 83482
  - 7
    - Normal.dot question When word creates a new blank document this is created from the normal.dot is there a way that this can be changed to be created from a specified template. The reason for this is i need all new documents to have certain styles and headers and footers included even on the most basic of documents, which also have a audit trail. I can alter the Normal.dot to have these but it has massive implications, it also means that if the formatting is stored in the normal template if you delete the normal word will creat its own new blank one so this is not an option. is there anyway that the new document template can be specified other than by default ? If so how. Thanks in anticipation Fred Tag: How to do this automatically in Words? Tag: 83479
  - 8
    - Adjust column width in table Hi, I have a table (which contain some merged cells) and I would like to adjust column width. For the first two rows, all works good but when I resized the third row (which contains different column size), all the first 2 rows are resized with the same value as row #3. What can I do ? I tried to use SplitTable but is this the only way to adjust the column width of each row ? Sub resize_table_row() Dim rngExcel As Excel.Range Dim tbl As Word.Table Dim docWord1 As Word.Document Set docWord1 = appWord.ActiveDocument Set rngExcel = wbExcel.Application.sheets("table1.1").Range("table1_1") Set rng = docWord1.Bookmarks("Table1_1").Range Set tbl = rng.Tables(1) With tbl.Rows .LeftIndent = 0 End With UsableWidth = 432 TableWidth = 0 For CellNo = 1 To rngExcel.Rows(1).Cells.Count TableWidth = TableWidth + rngExcel.Columns(CellNo).ColumnWidth Next CellNo For i = 1 To tbl.Rows.Count If i < tbl.Rows.Count Then tbl.Rows(i + 1).Select Selection.SplitTable End If For j = 1 To tbl.Rows(i).Cells.Count tbl.Cell(i, j).Width = UsableWidth * rngExcel.Columns(j).ColumnWidth / TableWidth Next j If i < tbl.Rows.Count Then tbl.cell(i,j).select Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 End If Next i-- End Sub Thx! Alex St-Pierre Tag: How to do this automatically in Words? Tag: 83466
  - 9
    - Is Welfare Part of Capitalism? This article is dedicated to: A man I met, with most of his body heavily burned, simply because he was a Chinese during the 1998 May Riot in Indonesia. Lots of capitalists that are slaughtered during the cultural evolution. Ten thousands of peaceful smugglers that are massacred in Banda island by the Dutch for conducting peaceful spice trade and all that are similar to them. All minority groups and individuals that face discrimination, even genocide, for economically contributing too much for their society. All customers that have to pay higher products due to protection of tariff and trades. Productive people that are fined with income tax for the victimless crime of making honest money. Smart students that are slowed down so not to move too fast. Industries that do not get subsidy, or even banned to protect unproductive industry and laborers that earn much less due to such restrictions. Poor starving people that could have been rich had their countries choose to embrace free market. Women and males that are trapped in unhappy marriage which they have a hard time getting out. Women and children that have lots of their best choices taken under the pretext of protection. Immigrants and refuges. Is welfare part of capitalism? In short, no. In consensually, punishing the productive through income tax to reward parasitic behavior is the biggest affront against the principle of free market. In fact, from many governments intervention in economy, the one that proponents of free market often oppose the most is welfare. However, when we look further, capitalism and welfare is not really total opposites. Most importantly, properly done, a straight forward welfare program can cause less market distortion, and hence an efficient replacement to buy votes from losers, than farm subsidies, public schools, minimum wage, trades restrictions, tariffs, and sex laws. If it's done by taxing wealth, rather than income, the amount of market distortion can be minimized further. Welfare is also cheap. It'll cost $5000/year to a welfare recipient in USA, for example. However, we need to remember that the recipients' lifestyle worth only $500. The other $4500 goes to implicit welfare due to higher living costs. That implicit welfare includes minimum wage, immigrations laws, and food subsidy, or protections. If somehow a straight forward explicit welfare program can replace all relatively more evil governments' interventions, then capitalists are probably better of not opposing welfare so much. Even Milton Friedman supports schemes called guaranteed minimum income, which is like welfare but with much less market distortion. That's not where the similarity ends. One of the main creeds of capitalism is that consent and competition should be preferred over force. Without that consent, anyone can simply make us choose to make our self worst of under the pretext that it is for our own good. In fact, most laws against consensual acts can be traced down to protection of some disgruntled competitors often done under the pretext of the consenting parties' own good. Anti prostitution and anti polygamy laws, for example, is there to ration females to poor dumb males under the pretext of protecting the consenting women. Of course, all natural resources tend to be rationed somewhat proportional to ones' voting power. And that does explain why democracy and anti polygamy laws go hand in hand too. One man one vote soon leads to one man one wife. Well, at least Matt Ridley agrees with me and he's a well known mainstream scientific researchers. I guess that's also why so many uncompetitive people want to ensure that evolution theory is not taught in school. You can also read a famous psikiatrist book, "The road less traveled," you'll see that life long monogamous marriage is just a trap to prevent highly desirable people from being available to those who they want more, and romance is just the lure to that trap. On the women side, anti pornography laws is really meant to prevent highly desirable women from advertising her assets and hence protecting less pretty women from the higher industry standard a public display of superior desirability might cause. Countries that embrace porn tend to have prettier women. Where did all the unsexy ones go? They're all shifting out of the gene pool, and hence are doing their best to oppose porn preaching religious doctrines that men should judge women based on any features but beauty, which they can't offer. Another issue is consent. Welfare program is not consensual; however, it's relatively more consensual then civil war. In ancient time, when we have different ideological opinions, we end up killing each other to proof who are "right." The Catholic would kill the Gnostic, the Sunni would kill the Shiah. One King would kill the other. A younger prince will argue that the older prince is demon. Might makes right. Such differences of opinions are of course solved with war, which is a very cost inefficient way to know who're "right." However it does work in some subjective practical sense. If we look in the past and try to figure out whether the Gnostic or the Catholic is the one that's heretical or "right" respectively, we need only to see who won. The Gnostics are slaughtered, so they must be the heretic, or do they? At least I bet there are way more people in the world that think that way than the other way around, excluding me actually. It doesn't matter how many books many institutionalized religions burned, how much restrictions of freedom of speech and irrationality they embraced, how many witnesses they snuffed outs and all other techniques that would not have stand the scrutiny of a peer reviewed scientific journal, or even a reasonable jury in the court of law. Too many people don't believe who are right and reasonable, they believe who are mighty. Right or wrong, the win will always become right anyway. Now, under democratic context, we don't kill those who oppose us, rather we try to persuade enough people to join our cause. How do we persuade them? By money of course. Welfare program is then a reasonably cost efficient method to buy votes. When too many people are on a side, we will sort of know that going to war will hurt the other side; hence we comply anyway with the whim of majority avoiding the costly alternatives. While not ideal, this is indeed how right and wrong is really decided, proper assessments of each sides' bargaining position and mutually cherished compromised line of war, plus a bunch of lies covering what's going on to safe each sides' face. No matter how noble the purpose, lies and prejudices lead to misunderstanding, that leads to more war. Hence, the best contribution is simply to unmask all lies. All in all, peaceful democracy is indeed a more cost efficient ways to measure ones' bargaining position. While democracy often lead to decisions opposites of freedom, like popularly supported victimless crime, income tax, and welfare, it's indeed relatively more cost efficient than civil war. That's not when the coherency end. Various natural laws restrict various possible political outcomes. We can't expect a stone will fly to the sky when we drop it as much as we cannot expect a human to be generally unselfish. If we want to kill our enemies, we'll do well dropping a big stone on top of our enemies head rather than dropping the stone on top of our own head expecting the stone to somewhat magically fly to the enemies head. The same way, we can't demand market distortion and expect that the best and brightest among us to still magically be a nice tax payer rather than dictators and corruptors. In a country where selling porn or building a good franchise chain is more difficult and less lucrative than becoming a dictator, guess what the smart would end up doing? Ask Saddam. If we want rich and prosperous countries, we must know that it will and only will happen when we properly align individuals' interests with productivity. Such coherency tends to make certain things come in package with another. We can expect that moving electric field will induce magnetic field. The same way, in life, we observe similar things. Communism and socialism, for example, always come in package with dictatorship and corruptions when smart people realize that being dictators pay more than building a business empire. To the opposite capitalistic countries comes in package with softer deals for losers, such as, guess what, welfare. We know from our economic classes that free market capitalism brings prosperity within market mechanism. However, it turns out that the prosperity that free market brings also profit the less successful beyond market mechanism. Capitalism and the prosperity that come with it tend to facilitate ideological changes in ways that benefit the less successful. One such ideological change is the popular support for losers' benefits. One such benefit is, guess what, welfare. The most obvious samples of such ideological shifts the free market bring are the elimination of slavery in US. What happened? As usual, the northern part of America is an industrial country. At that time, steel industries are relatively more modern than the farming industry. Higher tech industry increase labors' productivity. When labor's productivity goes up, entrepreneurs will want to hire as many workers as possible. Hence, labors' salary will go up. This will kill of industries with less labor's productivity. At the end, the marginal productivity of labors in the least productive industry will go up. That value is labors' salary. Under competitive equilibrium, the more productive and efficient a person is, the more he benefits everyone in the chain of productivity except those similar to him. Hence, an entrepreneurs coming up with ways to improve labors' productivity would benefit everyone, including workers and consumers, at the expense of other entrepreneurs and capitalists. Read that Karl Marx! Then what? When labors' salary goes up, obviously labors will move to the employers that pay them higher. Hence, farm labors in the south want to move to the north. They can't do so legally though because they were slaves. Hence, the northern capitalists in US want to free slaves so they can hire more workers. And then the southern capitalists in US want to keep slavery. This then results in war. The bigger the labors' productivity, the more intensive capitalists have to free slaves. The more supporters there will be on a cause the more likely the cause won. Hence, slaves were freed. Unfortunately, people still want to help losers and buy votes from those who are too expensive and too stubborn to switch. That explains why the farms in US gets subsidy. If losing means not as successful as the other, then there will always be losers. However, we see how free market shifts the worlds' system in ways that benefits the losers too. Unlike the commies' propaganda, capitalism does not cause or even enlarge disparity of wealth. Capitalism only changes the way such disparity are earned to the benefits of all. At the end of the warring states period in China, the king of Chin, Shih Huang Ti, and his prime minister, Li Si were the winner. Within one generation they have all their family slaughtered. If that's what winning means, what did losing means in pre-capitalistic countries? In ancient time, losing meant having all the males slaughtered, enslaved, or castrated and all the females raped and winning means risking your whole family slaughtered by rebels. In socialists countries the rich are corruptors and dictators that slice each other throats while the poor are starving. Now, thanks to the prosperity only free market can bring, losing means they can leave on welfare, with plenty of chance to climb back and proof their worth, like J. K. Rowling. Now, slaves are so free and highly paid thanks to increase in labors' productivity. In fact, when slave jobs are moving to China under globalization, slaves in US refused to be emancipated and want to keep their slave jobs in US rather than evolving into entrepreneurs. So, much for the land of the free and the place of the brave. Some people don't mind dying for what they believe in but are too scared to start a business. Evolutions will fix that I guess. Free market gives abundances to everyone. The benefits the free market brings benefit those less capable from being successful not only within the system but also through non market mechanism, like the ending of slavery and the start of reverse slavery we call welfare. But how do those really work? Is there a general principle? Each of us is greedy and selfish that we want as many as possible for us. Humans' greed and selfishness is an undisputable scientific facts, as sure as the sun rise in the east, as sure as a stone will fall to the ground pulled by gravity. We're not just greedy and selfish. Greed and selfishness doesn't explain all the war, suffering, and poverty we face. In fact, greed is good. Properly aligned, under free market, the greatest among us shall be the one productively providing the best service to the most customers. Blessed be the productive because they'll be rich. This will encourage higher and higher standard of living that we are currently enjoying. Free market allows those who serve more to grow richer. To those who have more profit, to those more capital are given. Even kingdom of heaven don't mind using this nice positive feedback effect. Who needs new deals to break up companies? Also, women prefer the rich. The next time you watch soap opera, make sure it's made in some country with the highest IQ in the world, like Hong Kong. Free sex means richer males will consensually attract and mate with more women producing more kids. That's the whole point of getting rich by the way. Duh? In fact, that's what being a living human male is all about: 1. Gain control ship of as much money or power as possible. 2. Attract or in anyway acquire as many females as possible. 3. Make kids. 4. Use that kids as tools to make grand children. You bet it's right because it's science. Of course, they don't teach this important fact in biology class because government interfere in education. Hence, when we're free, without genocide, without war, even with humanitarians aids given to appease enemies, the meek will indeed inherit the earth. More than greedy and selfish, some humans are simply not humans because they embrace the root of all evil, envy. That explains why we have so many laws against mutually beneficial consensual acts and governments regulations to protect us from our own choices. The truth is, all those laws and restrictions are more often not there to protect stupid people from making mistakes. All such laws are there to prevent the smart from making the right choices. That's why, for example, every body has to move equally slowly in school, to prevent the smart from moving faster. That's why various reproductive techniques are politically incorrect proportional to the expected quality of genetic material that will be duplicated. In particular, life long monogamous marriage, free sex, prostitution, polygamy, and cloning are sequences that both have increasingly expected value of genetic quality outcome and politically incorrectness. In Europe and China, the smart monks are encouraged not to get married. When some minority groups don't buy the bullshit and hence greatly improving their productively earned wealth and genetic quality, such minority groups somehow become victims of genocide. Life is like a real time strategy games. That means when we're not at war, we're in a race. That's simply how we evolve. Morality, religions, and ideologies, are stuffs created by really smart people to persuade us to run backward. Peace means we're in a race. Freedom means we are in a competition. Some people just don't want to compete. Hence, they craft lies and prejudices against those who are in front preventing progress to prosperity. I'll tell you the scientific truth. It's from the fruit we knows the tree. Anyone opposing free trades and globalization is more evil than Hitler or Nazi. If only Japan and German could have acquired natural resources through consensual peaceful trade, Nazism wouldn't have been popular there and Hitler wouldn't have risen to power. With his mass hypnotic skills, he may have ended up as seminar speaker I guess. If only those who had wanted to incite the Second World War see all the miracles and prosperity the free market brings, they would have repented and embrace free market. Yet, after all the prosperity and wealth the free market is bringing to all of us, still many people choose to oppose competition, and hence, miss-properly align our interests from productivity. That is the cause of all evil in the world. All causes opposing free market can be negotiated and appeased. However, if the very thing that a group of people want to prevent is the success of the others, then the situation is pretty much kill or be killed zero sum game. How does such situation usually end up? What would be our optimum solutions for such situation? Under normal circumstances, an optimum solution of any business decisions is a solution where the marginal revenue equals to the marginal costs. Hence, in a zero sum game, each party will try to maximize its benefit to that point. Sometimes, the marginal costs have a spike. There is a certain point where increasing a resources allocation beyond a certain point will create adverse costs. For example, increasing the number of labors will increase revenue. After a certain point, increasing one additional labor will mean buying a new machine or building a new factory. We may end up choosing to do it, we may not. In either case, discretions are the better part of the valor when it comes to that line. The same way, in most countries, each of us can increase our profits using property we own or consensually rent. When we maximize our profit that way, the public will, ideally and some times truly, not interfere, and defend us from being prevented to enjoy our "rights" by others. However, when we start using others' property to maximize our gain, say by stealing, public opinions may shift from protecting us to against us. Hence, the choice whether we should steal or not depends on the extra costs of crossing the politically correctness line of war. If a person sees that the potential gain justifies the increase costs of public support shifts, he'll still steal and make a great career out of it. Otherwise he'll stop stealing while coming up with a pretext to justify his cowardly decisions, such as morality. But what do the people choose their reaction to a specific act like stealing? They do so based on their sense of fairness, justice, and right-wrong discernment. How do people get that sense? From ideology. The ideology, religions, or whatever, then decides the line of war where the rest of us should consider before crossing. But how does the line gets drawn? By estimates of bargaining position. Let's examine an example. Is the King (or Queen?) of England the King of France? Don't know. How do we know? In the beginning, a ruling class from France went to England and become king of England. Then they lost control of France. Hence, king of England wanted to take back the controls they have lost. Well, such conflicts are solved by war. In this particular case, the war lasted 100 years. The British attacked France and successfully route knights with long bows. Then, the Frances stroke back driving the British back to their isolated islands. However, the France cannot move further and go all the way to attack British because of the Strait of Dover separating the two nations. Finally both sides realized that the straits somehow became the sacred line of war. It's not auspicious to cross the line of war for either side. The France, having more army and larger population would beat up the British on land, and the British being stronger at sea can always repulsed France sea invasion. Hence, we got peace. Such natural separators like straits and mountains explain why Europeans are divided into many different countries. The Chinese, not having that natural line of war, end up getting united all the time. Now, let's get back to the question whether welfare is part of capitalism. If all of us have just enough food, and some people don't work, what would we end up doing to those who are not productive? Humans' basic instincts and preferences lead to gene pool survival. When food is scarce, such as when the people demand centralized planning, it would serve ones' gene pool survival to slaughter the parasites rather than sharing food to them. That's because sharing food to those who do not earn it means starving ones own self. In fact, humans will kill each other to literally eat each other when food is scarce. Such is what happened in China and Rusia when centralized planning, governments' intervention in economy, and prejudices against successful capitalists became the norm. However, when food and money are abundance, such as when the people embrace free market, fighting the parasites might cause more gene pool survival lost than feeding them. On the other hand, simply giving and yielding toward threaten will motivate people to keep pushing us around. Moreover, giving in to those who can use force against us will motivate countries to build arms rather than say, better video games. Hence, one possible strategy to minimize open war while still properly aligning ones interest with other individuals around them is to give to those who ask nicely and ask less. As free market brings a lot of abundance, those who are needy can be appeased much more cheaply than those who are envy, and hence, we got welfare program. To be frank, I'd rather see the unproductive people have bigger TV rather than letting them make more kids. It's more humane, and cheaper. Guess what? Most people that know they're not very capable either would rather have that too. Back to the France vs British. If only both sides have realized the true bargaining positions of each, they wouldn't have to resort to such expensive 100 years war right? The thing is, the 100 years war are the most credible and accurate ways to measure ones' bargaining position. War shows which one is stronger, and hence leads to a mutual understanding of where the line of war might be. If only we can wave our gun and scare the enemies, it'll be great. However, the only threats that are credible are those actually done. How do we know a cause's bargaining position? Democracy might give some light by counting the number of those who are in favor or against what we consider lesser evil. However, number counting can be deceiving. We hold this truth with plenty of evidences, that humans are inherently different. We have difference capability and preferences, and hence different choices and outcome. It's useless to lay net in front of anything with wings. Those who are genetically predestined to be successful will get rich anyway whether through honest capitalistic means or through dictatorship. Those who are small in numbers can hence be quite strong. Preventing the smart from making money honestly will then turn them into corruptors and dictators. When the Chileans demand to prosecute their entrepreneurs, they end up getting a dictator, the way any country that demand slavery over freedom deserves. Fortunately, Pinochet are relatively benign compared to others dictator and embrace free market giving the miraculous prosperity that the Chilean now enjoy. Now, US government arrested his daughter for a crime of tax evasion. An act that wouldn't have been a crime if making honest money is free. The miracle of Chili becomes the model of China's moving to free market. It also helps to end communism all over the world peacefully. If capitalists fail to show thanks to Pinochet family, I don't know what would happen to all of us. So, beyond number counting, the more accurate ways are then through skirmishes. When people cross the public's opinion line of war and we don't strike back, the line of war will shift against the coward by precedence. By fighting back, we'll then have a more accurate knowledge of which one the public would agree with. Hence, it's very important to retaliate to what others do to us, either good or bad. It's a pleasure to serve my friends, it's also a pleasure to wipe out envy enemies that are on our ways, should my friends wish or don't mind. When a fraudster tricks my brother over $3,900, my main concern is not to get my money back. My main concern is to get the fraudster to jail even if that will costs far more money than the $3,900. When a thief steals my money on 2001, my concern is also not to get my property back. What's just is to encourage the whole world to post any thieves conviction records on the net to prevent further larcenies. It makes me wonder though. Why people consider it cruel to damage a thief or a fraudster' reputation? The mere acts of making honest money are punishable by income tax. When Everett O. Lasher makes an argument in court, the case leads to $5000 fine, and understandably, a suicide. The mere acts of successfully fending of ones' home from thieves lead to a life long jail term for Tony Martin. Thousands would march against WTO demanding harsh laws to punish those exercising consensual trades. In Iran, the mere acts of switching religions can lead to death penalty. In Indonesia, new laws are being drafted giving years in prison for kissing in public. Of course, public rape during May riot are still far from being punished. This while murderers of Vincent Chin went free without jail term. Thousands would march to end death penalty against murderers. In Indonesia, religious fundamentalists can come to a house and destroy properties from houses providing consensual entertainment with polices watching. Those people often get away or lightly punish. If consensual productive acts are punished while damaging inconsensual forces are not, soon, all highly productive people would end up in gas chamber after the next Cultural Revolution, or what ever. Those who are left are those smart enough to be dictators enslaving the rest of us. Prejudices reminds me of an envy old hag that's so determined to ruin my reputation for being friendly to her and her friends, after her own friendly communication. I never intended to fraud anyone or steal her money yet I got my reputation ruined. I am very disappointed to see that there are people in the world that want to bring me down more than they want to bring down a thief. I have tried to resolve the issue privately by suggesting to that thing that she's really not important enough for anyone to pretend to be her friend. Moreover, I didn't need her as a friend. All this was just a damage-less misunderstanding caused by her own friendly communication which I could simply publicly straighten out. At least, it used to be. However, that vermin really wished to get the issue public telling lies that she never communicated with me, possibly to boost that things' feeling of importance her genes deny her. Well, if she got so mad over a few friendly introductions, I can only wonder what that thing would do when it finds out that her true envy natures are revealed to 55000 newsgroups several times. It'll happen again and again whenever I feel like. Hence, just look for "envy vermin" on the net to find out what's really going on including what she said privatedly. Let the public decide who are more honest, rational, scientific, and straightforward. Let the market decides which one are worthy and who are worthless. It's a great mistake to ever consider such thing as a friend, a mistake no body should do. It's her kind that turns people of from making money productively. Hopefully we can undermine public opinions against all form of envy motivated lies and prejudices. At the end, we'll greatly weaken laws against victimless crime and easily out compete all envy people out of the gene pool. That'll ensure that the free fair market competition would reign over war when all lies and prejudices against those more successful are gone. Now that being said, I want to move all jobs that can be done online to Asia, especially, copy writers. Take advantage of the value difference and leverage like hell is how we all make money in any system. Who's with me? Free market is all merciful and all compassionate. At the end, even those that oppose free market will benefits from free trades. Tag: How to do this automatically in Words? Tag: 83465
  - 10
    - Form protection Hi I have a form in Word that populates with information from a financial processing application You set up the .dot file by placing for instance [fname] where you would want the particular customers first name to appear. There are only a limited number of fields to pre-populate as well as other areas of the form that the user can either fill out on screen or by hand. I'd like to be able to allow users to click in a form field and enter the unavailable data; however, when I set up all the form fields and protect the document as form the pre populated data stops pre-populating and only shows the [fname] instead of the actual customers name. I have tried sectioning the document...same result. Is there a way to open the form, pre-populate the data and then protect as form???? Any other suggestions? -- Thanks Neil Tag: How to do this automatically in Words? Tag: 83462
  - 11
    - Zorder fails in Word 2000 Whwn adding pictures to a document with text objects I use ZOrder msoSendBehindText to insert a background and ZOrder msoBringInFrontOfText to add a actual picture to the document. This works fine in Word 2003, but not in Word 2000. Any explanations? /BosseH Tag: How to do this automatically in Words? Tag: 83461
  - 12
    - Goto Option_Button; Calculations; Auto-update; Even Colors! I've got what is probably not a terribly hard bit here, but I'm still very new to VBA in Word and I'm stumped. Here's what I would like to be able to do: I have a Word 2000 form that has several rows of rating criteria; the ratings are from 1-4. Managers have eight (8) criteria to be rated, while non-managers have five (5). I have put in a userform with two option buttons and the question "Is this a manager review?" I am trying to figure out how to: > Have the Yes/No option button selection in the Userform go to a slider bar (scrollbar1) if the user selects "Yes," or go to a different bookmark on the next page (scrollbar4) if the answer is "No." This part has been stumping me, but the next part is even dodgier -- after the user is done selecting the eight or five ratings, I need the form to auto-calculate the overall rating...which would be divided by 8 for a manager, or 5 for a non-manager. I could knock this out in Excel, but scripting formulas and fields in Word is a whole 'nuther ball of wax for me so far. These are my big barriers right now. Thanks! _________________________________________________ P.S.: Since i'm new at this and this is a spectacular forum, I've got two other small bits I haven't cracked yet -- I'm currently browsing the usergroups for: 1. How to have form fields calculate automatically even if fill-in is disabled (e.g., the Manager's rating subtotal, criteria 1-3); and, much more extravagantly... 2. How I could have the value of a slider bar change the color in a corresponding cell (not even sure if this is possible, but the way the criteria are set up, the slider bar is what chooses the rating of 1, 2, 3, or 4. As the user slides the bar over, I would love if the corresponding table cell above the slider -- which is basically just a text field with "1.0" "2,0" etc. in it -- would highlight to easily display what value is currently selected. Cheers, TMan Tag: How to do this automatically in Words? Tag: 83450
  - 13
    - Odd Behaviour with a range object I was trying to apply a style to the first sentence of each paragraph in a document. For example: This is paragraph 1 sentence 1. This is paragraph 1 sentence 2. Etc. This is paragraph 2 sentence 1. This is paragraph 2 sentence 2. Etc. Using this code you will see the message box accurately reports the first sentence text, but the .style is applied to the entire paragraph. Sub Scratchmacro1() Dim oPar As Paragraph Dim oRng As Word.Range For Each oPar In ActiveDocument.Range.Paragraphs MsgBox oPar.Range.Sentences(1) oPar.Range.Sentences(1).Style = "First Sentence" Next oPar End Sub However, if I first select the defined range then apply the style all is well: Sub Scratchmacro2() Dim oPar As Paragraph Dim oRng As Word.Range For Each oPar In ActiveDocument.Range.Paragraphs oPar.Range.Sentences(1).Select Selection.Style = "First Sentence" Next oPar End Sub Can anyone explain this behaviour? Thanks. Tag: How to do this automatically in Words? Tag: 83443
  - 14
    - Userform on top of document In Word 2000 I have problem with keeping a userform on top of a specific document. I know this has been discussed before, but I cannot find the threads. BosseH Tag: How to do this automatically in Words? Tag: 83442
  - 15
    - starting status of word i would like to test within the autoexec-macro if word has been opened as an application or by double-clicking a document. yours dieter Tag: How to do this automatically in Words? Tag: 83441
  - 16
    - How can I highlight text between cursor and find target? I am very familiar with Basic (VBA) and am learning the ins and outs of the Basic used with Word. I assume that one defines a variable in some way related to a highlighted item.; I wish to highlight text between the cursor and the target of a find. Tag: How to do this automatically in Words? Tag: 83433
  - 17
    - Insert text based on checkbox Is it possible to have a field which displays an informatin based on what checkbox is selected on a form? Lets say I have an address field. If the user clicks on checkbox 1 address 1 is displayed. If the user clicks on checkbox 2 address 2 is displayed. Etc. Thanks. Tag: How to do this automatically in Words? Tag: 83428
  - 18
    - Don't save normal.dot We have an application that reads a text file with bookmark names and values which is merged into a Word document automatically by a VB.NET custom program which then prints the merged document. Everything works except that when Word is closing it pops up a message stating that Normal.dot can't be saved because it is already open elsewhere. It also appears to be saving it in Document and Settings someplace. The VB app runs on an unattended server and each time a document is merged and printed another message pops up and I can't have all these messages hanging around. My question is; is there a way to prevent Word from trying to save Normal.dot? Thank you. Tag: How to do this automatically in Words? Tag: 83426
  - 19
    - Emailing document automatically I am using Office XP and Lotus Notes. I am trying to email a document automatically. I have found the following code: ________________________________________________________________ ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "Test" .AddRecipient "someone@somewhere.com" .AddRecipient "someone@somewhere.com" .Delivery = wdAllAtOnce End With ActiveDocument.Route ________________________________________________________________ But when run it debugs with the following message: "Your mail system does not support certain services needed for document routing" Does anyone know a work around or alternative how this can be achieved, please? -- Mark Tag: How to do this automatically in Words? Tag: 83422
  - 20
    - A button in Word 2002 to go to a web site. I have the HTML code for a button that I wish to place into a Word 2002 document. The button is for a reader to click on and go to a web site, PayPal, on which they can place money into my account. I do not understand how to make the button. Thank you. Tag: How to do this automatically in Words? Tag: 83418
  - 21
    - Finding a bookmark with a macro I need to find a way to locate a bookmark's index number via a macro. Currently I use, Dialogs(wdDialogInsertBookmark).Show to allow the user to select the desired bookmark, then they have to click the Goto button. I can then get the index. The problem is with Dialogs(wdDialogInsertBookmark).Show, I can not disable the Delete button, if the user clicks Delete rather than Goto the macro errors out. Is there a way to display a dialog box, or something else, that will allow the user to select a bookmark from a list, and then I be able to read the index for that bookmark? Tag: How to do this automatically in Words? Tag: 83417
  - 22
    - Run code after mail merge I am using WORD 97. I am in the process of producing mail merge letters via microsoft query. On one of these fields in the original document it has been bookmarked When the data has been merged I need to run some code which then cross references this bookmark and inserts various extras dependant on what has been merged into this particular field. Please can someone tell me how this can be done so that the following code is called: _______________________________________________________________ Sub DocPopulate() Dim strDivId, Signature As String 'Divisional Identifier taken from Crime Number strDivId = Left(ActiveDocument.Bookmarks("State").Range.Text, 2) 'File path for signatures so that Ian can update them! Signature = "U:\WT Business Services\Force Forms\Signatures\" & strDivId & ".gif" If strDivId = "Â«R" Then Exit Sub ActiveDocument.Bookmarks("Ref").Range.Text = strDivId Select Case strDivId Case "AA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "BA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "CA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "DA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "EA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "FA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "GA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "HA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "IA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "JA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case "KA" ActiveDocument.Shapes(1).Select With Selection .Text = "put something here" End With ActiveDocument.Shapes(2).Select With Selection .InlineShapes.AddPicture FileName:= _ Signature, LinkToFile:=False, SaveWithDocument:=True End With Case Else End Select End Sub _________________________________________________________________ Thanks in anticipation. Mark Tag: How to do this automatically in Words? Tag: 83416
  - 23
    - is there any software for printing UPCs for free Tag: How to do this automatically in Words? Tag: 83414
  - 24
    - Opening embedded Excel object with VBA Hi All, I need to programmatically manipulate embedded excel objects in PPT. I've put a macro together, but I am not able to get the macro to open the embedded excel object (excel comes up blank). Con someone please tell me what's wrong? Thanks in advance, JS ======================================= Sub a_Open_EmbeddedExcel() Dim Shp As Shape Dim Sld As Slide Dim xlApp As Excel.Application Dim oWorkbook As Excel.Workbook Dim oWorksheet As Excel.Worksheet Set xlApp = New Excel.Application For Each Sld In Application.ActivePresentation.Slides For Each Shp In Sld.Shapes If Shp.Type = msoEmbeddedOLEObject Then If Shp.OLEFormat.ProgID = "Excel.Sheet.8" Then Set oWorkbook = Shp.OLEFormat.Object Set oWorksheet = oWorkbook.ActiveSheet With xlApp .Visible = True oWorksheet.Activate MsgBox "Did it open the embedded excel object?" MsgBox "There are " & xlApp.Windows(1).VisibleRange.Cells.Count & " cells visible" ' if yes, ' MsgBox xlApp.ActiveWindow.VisibleRange.Address ' more excel macro commands here End With oWorkbook.Close (True) Set oWorkbook = Nothing Set oWorksheet = Nothing End If 'Shp.Type End If 'Shp.OLEFormat.ProgID Next Shp Next Sld xlApp.Quit End Sub Tag: How to do this automatically in Words? Tag: 83413
  - 25
    - How to execute macro when starting Word? Hi, I want to execute some code when starting Word. In a template this can be done with AutNew() macro. But an AutoNew() macro in Normal.dot doesn't fire. I've created a sub Document_New() in the ThisDocument module of Normal.dot and this fires when I start a new blank document via File | New. But when I start Word via Start button or toolbar it doesn't work. What to do in the last situation? Thanks for help Regards, Henk Tag: How to do this automatically in Words? Tag: 83410

Dear all,

I would like to do something like a word template, whenever a user opens any
text file in Word 2000, then Word will automatically change the font size on
the content and set the page to landscape, .., etc. How can I do this?
Can anyone advise?? Thanks a lot!

Ivan

Top

Re: How to do this automatically in Words? by Jezebel

Jezebel
Fri Mar 31 21:52:24 CST 2006

Create an AutoOpen macro that --

1. Checks if the file opened is a text file, and if so --

2. Change the font size

3. Set the page to landscape

4. Etc

Seems kind of obvious. What have you tried so far and where did you come
unstuck?

"Ivan" <Ivan@discussions.microsoft.com> wrote in message
news:49B40FF3-D0BA-4316-96BB-EFB67B40F491@microsoft.com...
> Dear all,
>
> I would like to do something like a word template, whenever a user opens
> any
> text file in Word 2000, then Word will automatically change the font size
> on
> the content and set the page to landscape, .., etc. How can I do this?
> Can anyone advise?? Thanks a lot!
>
> Ivan

Top