Extract links and .asp file names from text

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Extract links and .asp file names from text Tag: 83536
  - 2
    - 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: Extract links and .asp file names from text Tag: 83535
  - 3
    - 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: Extract links and .asp file names from text Tag: 83532
  - 4
    - <%><%><%><%>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: Extract links and .asp file names from text Tag: 83527
  - 5
    - >@>@>@>@>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: Extract links and .asp file names from text Tag: 83526
  - 6
    - 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: Extract links and .asp file names from text Tag: 83525
  - 7
    - 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: Extract links and .asp file names from text Tag: 83523
  - 8
    - 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: Extract links and .asp file names from text Tag: 83522
  - 9
    - 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: Extract links and .asp file names from text Tag: 83519
  - 10
    - 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: Extract links and .asp file names from text Tag: 83505
  - 11
    - 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: Extract links and .asp file names from text Tag: 83503
  - 12
    - 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: Extract links and .asp file names from text Tag: 83501
  - 13
    - 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: Extract links and .asp file names from text Tag: 83500
  - 14
    - 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: Extract links and .asp file names from text Tag: 83493
  - 15
    - 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: Extract links and .asp file names from text Tag: 83492
  - 16
    - 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: Extract links and .asp file names from text Tag: 83490
  - 17
    - 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: Extract links and .asp file names from text Tag: 83483
  - 18
    - 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: Extract links and .asp file names from text Tag: 83482
  - 19
    - 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: Extract links and .asp file names from text Tag: 83479
  - 20
    - 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: Extract links and .asp file names from text Tag: 83466
  - 21
    - 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: Extract links and .asp file names from text Tag: 83465
  - 22
    - 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: Extract links and .asp file names from text Tag: 83462
  - 23
    - 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: Extract links and .asp file names from text Tag: 83461
  - 24
    - 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: Extract links and .asp file names from text Tag: 83450
  - 25
    - 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: Extract links and .asp file names from text Tag: 83443
- Next
  - 1
    - 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: Extract links and .asp file names from text Tag: 83442
  - 2
    - 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: Extract links and .asp file names from text Tag: 83441
  - 3
    - 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: Extract links and .asp file names from text Tag: 83433
  - 4
    - 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: Extract links and .asp file names from text Tag: 83428
  - 5
    - 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: Extract links and .asp file names from text Tag: 83426
  - 6
    - 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: Extract links and .asp file names from text Tag: 83422
  - 7
    - 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: Extract links and .asp file names from text Tag: 83418
  - 8
    - 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: Extract links and .asp file names from text Tag: 83417
  - 9
    - 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: Extract links and .asp file names from text Tag: 83416
  - 10
    - is there any software for printing UPCs for free Tag: Extract links and .asp file names from text Tag: 83414
  - 11
    - 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: Extract links and .asp file names from text Tag: 83413
  - 12
    - 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: Extract links and .asp file names from text Tag: 83410
  - 13
    - automatically update word count in textbox Hi, I'd appreciate some help with the following VBA problem. I have a multi-line textbox in a Userform. I would like to update the word count in the text box automatically as the user types text in the box. Does anyone know an easy way to do this? regards, E Tag: Extract links and .asp file names from text Tag: 83407
  - 14
    - macro security error trying to invoke a plug-in Hi, I have written a MS word COM add-in using vb6, which creates a menu item and invokes the add-in when it is clicked. It works on several of our PCs but on one users machine it always gives the following error when he tries to select the menu item: "The macro cannot be found or has been disabled because of your macro security settings" we have tried setting his macro security to low and still to no avail (mine is set to high and the plugin still works fine). he is using NAV but has disabled the office integration (and has also tried disabling the whole of NAV) but again he just gets the same error. All the PCs are using office 2003. I am using an add-in designer and have set the OnAction property of the CommandBarButton to "<!xxx>" where xxx is the progid of the designer. I can't beleive I have done anything wrong with the code because as I say it works on several other PCs. we can invoke the same progid via vbscript so I know everything is registered correctly does anyone have any clues for the next thing to try? Andy Tag: Extract links and .asp file names from text Tag: 83406
  - 15
    - Word cannot attach a document to a protected template There is a problem in word when you want to attach a protected template to a document. Because I found no real solutions in the groups I will post my workaround: 1. Open the Template as an AddIn: AddIns.Add(Filename, true) 2. Open the Template as a Document: Templates(Filename).OpenAsDocument 3. Unprotect this Templatedocument 4. Attach the Template to your Document: AttachedTemplate = Templates(Filename) 5. Close the Templatedocument (without saving it) 6. Delete the Template from the AddIns: AddIns(Filename).Delete Kurt Zimmermann Tag: Extract links and .asp file names from text Tag: 83397
  - 16
    - Report Writing to MS Word Using VB6 I need to write a report in MS Word using VB6 in the below format : Format : Page Heading : "COMPANY NAME" (Page Centre,Font = Bold, Size=14, Underline) Sub Heading#1 : "Something#1" (Page Centre,Font = Bold, Size=12, Underline) Sub Heading#2 : "Something#2" (Page Centre,Font = Bold, Size=11, Underline) Sub Heading#3 : "Something#3" (Page Centre,Font = Bold, Size=10, Underline) Inside a "Do while ... Loop" Data Line # 1 Data Line # 2 Data Line # 3 Data Line # 4 Data Line # 5 Data Line # 6 ... ** Report ends here ** Awaiting to hear from any knowledgeable and helpful soul. Thanks & Rgds Menon. Tag: Extract links and .asp file names from text Tag: 83384
  - 17
    - How to automatically assign standard password to documents Hi, in order to protect certain documents from being read when they accidentally get sent out by email I would like to do the following: - When a document is being saved for the first time being asked whether to assign the standard password (that's right, same password for all docs) - When a document is being opened and is password protected to try the standard password first and if that fails prompt for a password I tried fiddling around with Events and the Application Object (App_DocumentChange) but I'm just not getting anywhere. Suggestions? Cheers, Marc Tag: Extract links and .asp file names from text Tag: 83382
  - 18
    - How do I automatically run macro FileProperties when opening doc I have created a template and need to force the opening of the File Properties dialog when creating a new doc based on the template, or when re-opening the doc. I have tried naming a macro AutoExec and using the command ActiveDocument.Application.Run MacroName:="FileProperties" but it doesn't work. Tag: Extract links and .asp file names from text Tag: 83379
  - 19
    - Trying to banish toolbars - not working! In accordance with several posts here, I'm trying to banish the Web and Reviewing toolbars with an AutoExec macro in the Document object of Normal.dot in Word XP. This is NOT working, though. The Web toolbar has especially been annoying today. Can anyone help with this? Ed Sub AutoExec() With Application.CommandBars("Reviewing") .Enabled = False .Visible = False End With With Application.CommandBars("Web") .Enabled = False .Visible = False End With End Sub Tag: Extract links and .asp file names from text Tag: 83373
  - 20
    - Connect to a mysql database Hello, I have a mySQL DB on my local computer (localhost) and it holds information on many thousands of different products prices etc... I also have a number of word files that I have to manually update with the prices etc... every so often. Therefore, this can lead to discrepancies. Is there a way to connect a mySQL DB to Word 2003 using a macro and put data into certain places within the document. I've never done anything like this with an office document so any help would be great. Thanks David Tag: Extract links and .asp file names from text Tag: 83367
  - 21
    - Printing problem I am trying to print out a selected range of pages with the below code but the print fails to complete. Please can someone assist with a solution. Sub Print_Guidance() Dim i As String Dim s As String Dim t As String Dim u As String Dim v As String Dim w As String Dim x As String Dim PagesToPrint As String Application.ScreenUpdating = False ActiveDocument.Unprotect Password:="" Selection.EndKey Unit:=wdStory Selection.InsertBreak Type:=wdPageBreak Application.DisplayAutoCompleteTips = True ActiveDocument.AttachedTemplate.AutoTextEntries("Guidance"). _ Insert Where:=Selection.Range, RichText:=True ActiveDocument.Repaginate i = ActiveDocument.BuiltInDocumentProperties("Number of Pages") s = CStr(i - 6) t = CStr(i - 5) u = CStr(i - 4) v = CStr(i - 3) w = CStr(i - 2) x = CStr(i - 1) ' i = CStr(i) PagesToPrint = s & "," & t & "," & u & "," & v & "," & w & "," & x & "," & i Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:=PagesToPrint, PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False Selection.MoveUp Unit:=wdLine, Count:=377, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveDocument.Sections(1).ProtectedForForms = True ActiveDocument.Sections(2).ProtectedForForms = True ActiveDocument.Sections(3).ProtectedForForms = True ActiveDocument.Sections(4).ProtectedForForms = True ActiveDocument.Sections(5).ProtectedForForms = True ActiveDocument.Sections(6).ProtectedForForms = False ActiveDocument.Protect Password:="", NoReset:=True, Type:= _ wdAllowOnlyFormFields Application.ScreenUpdating = True End Sub -- Mark Tag: Extract links and .asp file names from text Tag: 83366
  - 22
    - Unspecified Error when trying to access my address book in MS Word I am getting the error message: Login failed. You must logon to Microsoft Exchange to access your address book. Error code: "Unspecified error." when trying to access my address book in Microsoft Word at work. We do not have Exchange and it is a brand new computer. IBM NetVista using Microsoft XP Professional. Any ideas? Jeff Tag: Extract links and .asp file names from text Tag: 83357
  - 23
    - using more than one combo box in the same document Someone at this wonderful community pointed me to an area so I could create a combo box containing more than 25 work locations in my document. I sucessfully did that. Now I want to use another combo box that holds more than 25 job titles in the same document but my coding just keeps getting the new combo box mixed with the first combo box. I tried searching the databases but once again, I am not good with keyword searching. Please help. Thank you. Tag: Extract links and .asp file names from text Tag: 83354
  - 24
    - Autotext doesn't work right in Word 2003... The autotext doesn't work right in Word 2003. We bought another 2003 package, and also did an update from the website, but it won't work consistantly. Sometimes it kicks in, but after a sentence or two, it stops working again. Did not have this problem with 2000 version. Is this a glitch??? Tag: Extract links and .asp file names from text Tag: 83353
  - 25
    - Reproducing Excel table in Word Hi, Does anyone has already reproduce an excel table in word. I'm trying to do that (the programmation is below) but it is very complex. I'm looking for information to help me to progress. What the program do is a mailmerge executed from Excel. The excel file contains a sheet for mail merge data and others sheets (table1.1, table1.2, etc.) for tables used in the mailmerge document. When I execute the macro in excel, the Word Macro is executed and all the tables are formatted in word just before the mailmerge execution. The table formating seems to be very complex because: 1) Text with bold and exponents, italic, size caracter, ... tbl.cell(i,j) = rngExcel.Cells(i, j).Format 'give format of the first character and not of all character. Does anyone know how to paste all cell formatting in word? I don't know if doing a copy and paste is the best solution because, some cells are merged in excel and I have to adjust formatting (borders,horizontal alignment) thereafter. 2) In excel table, some cell contains text that go on the following cells. I have to merge the table cells in Word to take this into account. Also, it is possible that the cells are merge in excel. 3) Want to respect column width, borders, alignment etc. 4) I added a section to take NumberFormat from Excel. etc. Does anyone have already done something similar to this ? Is there a simpler way to have great word table formatting without having to program each things? example: copy paste the table using a pre-determined table formating. After that, adjust borders, column width, some alignments, .. Thanks a lot ! Alex Sub Merge_Word() Dim appWord As Word.Application Dim docWord1 As Word.Document Dim docWord2 As Word.Document Dim appExcel As Excel.Application Dim wbExcel As Excel.Workbook Dim tbl As Word.Table Dim oRow As Row Dim rngExcel As Excel.Range Dim pathExcel, strFormat, strBookMark As String Dim iCol As Integer Set appWord = Word.Application Set docWord1 = appWord.ActiveDocument On Error Resume Next Set appExcel = GetObject(, "Excel.Application") If appExcel Is Nothing Then Set appExcel = CreateObject("Excel.Application") End If On Error GoTo 0 pathExcel = appExcel.ActiveWorkbook.Path & "\" & appExcel.ActiveWorkbook.Name ' PathExcel = ActiveDocument.MailMerge.DataSource.Name fileExcel = LCase(Right(pathExcel, Len(pathExcel) - InStrRev(pathExcel, "\"))) On Error Resume Next Set wbExcel = appExcel.Workbooks(fileExcel) If wbExcel Is Nothing Then Set wbExcel = appExcel.Workbooks.Open(FileName:=pathExcel, UpdateLinks:=True, ReadOnly:=True) ' Set wbExcel = GetObject(PathExcel, "Excel.Workbook") End If On Error GoTo 0 For nbTab = 1 To 3 If nbTab = 1 Then Set rngExcel = wbExcel.Application.sheets("table1.1").Range("table1_1") Set rng = docWord1.Bookmarks("Table1_1").Range ElseIf nbTab = 2 Then Set rngExcel = wbExcel.Application.sheets("table1.2").Range("table1_2") Set rng = docWord1.Bookmarks("Table1_2").Range ElseIf nbTab = 3 Then Set rngExcel = wbExcel.Application.sheets("table1.3").Range("table1_3") Set rng = docWord1.Bookmarks("Table1_3").Range End If Set tbl = rng.Tables(1) '1- Adjust number of rows DerLineExcel = rngExcel.Rows.Count DerLineWord = tbl.Rows.Count j = DerLineExcel - DerLineWord For k = 1 To j tbl.Rows.Add Next k For k = 1 To -j tbl.Cell(5, 1).Select Selection.SelectRow Selection.Rows.Delete Next k '2- Adjust number of columns '3- Adjust column width 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 j = 1 To tbl.Columns.Count For i = 1 To tbl.Rows.Count tbl.Cell(i, j).Width = UsableWidth * rngExcel.Columns(j).ColumnWidth / TableWidth Next i Next j '4- MergeCells For i = 1 To rngExcel.Rows.Count j = 1 Do Until j >= rngExcel.Columns.Count With rngExcel If .Cells(i, j).MergeCells = True Then iCol = .Cells(i, j).MergeArea.Columns.Count tbl.Cell(i, j).Select Selection.MoveRight Unit:=wdCharacter, Count:=iCol - 1, Extend:=wdExtend Selection.Cells.Merge j = j + iCol Else j = j + 1 End If End With Loop 'j Next i '5- Remove all borders With tbl .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone End With '6- Add borders With tbl For i = 1 To tbl.Rows.Count For j = 1 To tbl.Columns.Count With rngExcel.Cells(i, j) With .Borders(xlEdgeTop) If .LineStyle = xlContinuous Then C = wdLineStyleSingle tbl.Cell(i, j).Borders(wdBorderTop).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderTop).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderTop).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderTop).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeBottom) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderBottom).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderBottom).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderBottom).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderBottom).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeLeft) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderLeft).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderLeft).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderLeft).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderLeft).LineStyle = wdLineStyleNone End If End With With .Borders(xlEdgeRight) If .LineStyle = xlContinuous Then tbl.Cell(i, j).Borders(wdBorderRight).LineStyle = wdLineStyleSingle If .Weight = xlThin Then tbl.Cell(i, j).Borders(wdBorderRight).LineWidth = wdLineWidth025pt ElseIf .Weight = xlMedium Then tbl.Cell(i, j).Borders(wdBorderRight).LineWidth = wdLineWidth150pt Else 'MsgBox ("non defined excel border") End If Else tbl.Cell(i, j).Borders(wdBorderRight).LineStyle = wdLineStyleNone End If End With End With 'With Selection.ParagraphFormat ' .LeftIndent = CentimetersToPoints(0) ' .SpaceBeforeAuto = False ' .SpaceAfterAuto = False 'End With '7- Add data with formating strData = rngExcel.Cells(i, j) If IsNumeric(strData) And strData <> "" Then strFormat = rngExcel.Cells(i, j).NumberFormat If strFormat = "#,##0_);(#,##0)" Or strFormat = "# ##0_-;(# ##0)" Or strFormat = "#,##0_-;(#,##0)" Then ' voir ajout de n'importe quel _) strFormat = "#,##0;(#,##0)" End If strData = Format(strData, strFormat) If Right(strData, 1) = ")" Then .Cell(i, j).Select With Selection.ParagraphFormat .RightIndent = CentimetersToPoints(-0.13) .SpaceBeforeAuto = False .SpaceAfterAuto = False End With Else .Cell(i, j).Select With Selection.ParagraphFormat .RightIndent = CentimetersToPoints(0) .SpaceBeforeAuto = False .SpaceAfterAuto = False End With End If ')" End If 'IsNumeric .Cell(i, j).Range.text = strData Next j Next i End With Next nbTab Exit Sub '8- Add text to document strBookMark = wbExcel.Path & "\bookmark1.doc" Set docWord2 = appWord.Documents.Open(strBookMark, ReadOnly:=False) docWord2.Bookmarks(1).Range.Select Selection.Copy docWord1.Bookmarks("Bookmark1").Range.Select Selection.Paste docWord2.Close '9- Mailmerge execution With docWord1.MailMerge ActiveDocument.MailMerge.OpenDataSource Name:= _ pathExcel, ConfirmConversions:=False, ReadOnly:= _ True, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _ "", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _ "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\rap_modele_ameliorations.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine " _ , SQLStatement:="SELECT * FROM `merge$`", SQLStatement1:="", SubType:= _ wdMergeSubTypeAccess .Destination = wdSendToNewDocument With .DataSource .FirstRecord = 1 .LastRecord = 1 End With .Execute Pause:=False End With docWord1.Close (False) ' AppWord.Application.Quit '10- Reset variables Set appWord = Nothing Set docWord1 = Nothing Set appExcel = Nothing Set wbExcel = Nothing Set rngExcel = Nothing Set rng = Nothing Set tbl = Nothing Set docWord2 = Nothing End Sub Sub Mailmerge_execution_from_excel() Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim Chemin, Fichier, Chemin_Fichier, Source As String ChDrive ActiveWorkbook.Path ChDir ActiveWorkbook.Path Chemin_Fichier = Application.GetOpenFilename() Source = ActiveWorkbook.Name PathExcel = ActiveWorkbook.Path & "\" & Source On Error Resume Next Set WordApp = GetObject(, "Word.application") If WordApp Is Nothing Then Set WordApp = CreateObject("Word.Application") End If On Error GoTo 0 Fichier = LCase(Right(Chemin_Fichier, Len(Chemin_Fichier) - InStrRev(Chemin_Fichier, "\"))) Set WordDoc = WordApp.Documents.Open(Filename:=Chemin_Fichier) WordApp.Visible = True WordApp.Documents(Fichier).Activate WordApp.Run "merge_word" With WdDoc Name:=Source, _ LinkToSource:=True, _ Format:=wdOpenFormatAuto, _ SQLStatement:="SELECT * FROM `DonnÃ©es_Mailing$`" End With Set WordDoc = Nothing Set WordApp = Nothing End Sub -- Alex St-Pierre Tag: Extract links and .asp file names from text Tag: 83350

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?

Top

Re: Extract links and .asp file names from text by Jezebel

Jezebel
Fri Mar 31 05:25:52 CST 2006

You don't actually need VBA ---

Method 1: use wildcard searching: http[! ]{1,} and [a-zA-Z]{1,}.asp
respectively. You could use this technique to apply a special format, then
delete everything that doesn't have that format. (You use VBA for this also,
if you're extracting the items and doing something else with them.)

Method 2: convert all whitespace to paragraph marks, to turn the document
into a flat list of words. Copy and paste into Excel. Do a unique sort. All
your http lines will come together. Use the Find() function in the adjacent
column to find cells contain ".asp".

"Maxi" <maheshchindarkar@gmail.com> wrote in message
news:1143802946.520483.321760@z34g2000cwc.googlegroups.com...
>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?
>

Top

Re: Extract links and .asp file names from text by Maxi

Maxi
Fri Mar 31 05:33:52 CST 2006

I like method2, can you tell me how to convert all whitespace to
paragraph marks. Is there any particular symbol that I can replace
using the Find/Replace option?

Top

Re: Extract links and .asp file names from text by Jonathan

Jonathan
Fri Mar 31 06:26:26 CST 2006

"Maxi" <maheshchindarkar@gmail.com> wrote in message
news:1143804830.278856.154740@i39g2000cwa.googlegroups.com...
>I like method2, can you tell me how to convert all whitespace to
> paragraph marks. Is there any particular symbol that I can replace
> using the Find/Replace option?
>

Place ^w in the Find What box and ^p in the Replace With box. Click Replace
All.

In fact you don't even need to copy & paste into Excel. Select the entire
document, go to Table, Sort and sort the paragraphs there. (Yes, the
paragraphs aren't in a table, but they can still be sorted!)

--
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: Extract links and .asp file names from text by Jezebel

Jezebel
Fri Mar 31 16:15:11 CST 2006

Sorting in Excel has the advantage that you can eliminate the duplicates.
Also the .asp lines will be easier to find.

"Jonathan West" <jwest@mvps.org> wrote in message
news:eXBU25LVGHA.4660@tk2msftngp13.phx.gbl...
>
> "Maxi" <maheshchindarkar@gmail.com> wrote in message
> news:1143804830.278856.154740@i39g2000cwa.googlegroups.com...
>>I like method2, can you tell me how to convert all whitespace to
>> paragraph marks. Is there any particular symbol that I can replace
>> using the Find/Replace option?
>>
>
> Place ^w in the Find What box and ^p in the Replace With box. Click
> Replace All.
>
> In fact you don't even need to copy & paste into Excel. Select the entire
> document, go to Table, Sort and sort the paragraphs there. (Yes, the
> paragraphs aren't in a table, but they can still be sorted!)
>
>
> --
> 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