Import module to activedocument

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Import module to activedocument Tag: 83479
  - 2
    - 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: Import module to activedocument Tag: 83466
  - 3
    - 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: Import module to activedocument Tag: 83465
  - 4
    - 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: Import module to activedocument Tag: 83462
  - 5
    - 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: Import module to activedocument Tag: 83461
  - 6
    - 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: Import module to activedocument Tag: 83450
  - 7
    - 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: Import module to activedocument Tag: 83443
  - 8
    - 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: Import module to activedocument Tag: 83442
  - 9
    - 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: Import module to activedocument Tag: 83441
  - 10
    - 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: Import module to activedocument Tag: 83433
  - 11
    - 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: Import module to activedocument Tag: 83428
  - 12
    - 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: Import module to activedocument Tag: 83426
  - 13
    - 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: Import module to activedocument Tag: 83422
  - 14
    - 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: Import module to activedocument Tag: 83418
  - 15
    - 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: Import module to activedocument Tag: 83417
  - 16
    - 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: Import module to activedocument Tag: 83416
  - 17
    - is there any software for printing UPCs for free Tag: Import module to activedocument Tag: 83414
  - 18
    - 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: Import module to activedocument Tag: 83413
  - 19
    - 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: Import module to activedocument Tag: 83410
  - 20
    - 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: Import module to activedocument Tag: 83407
  - 21
    - 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: Import module to activedocument Tag: 83406
  - 22
    - 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: Import module to activedocument Tag: 83397
  - 23
    - 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: Import module to activedocument Tag: 83384
  - 24
    - 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: Import module to activedocument Tag: 83382
  - 25
    - 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: Import module to activedocument Tag: 83379
- Next
  - 1
    - 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: Import module to activedocument Tag: 83373
  - 2
    - 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: Import module to activedocument Tag: 83367
  - 3
    - 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: Import module to activedocument Tag: 83366
  - 4
    - 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: Import module to activedocument Tag: 83357
  - 5
    - 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: Import module to activedocument Tag: 83354
  - 6
    - 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: Import module to activedocument Tag: 83353
  - 7
    - 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: Import module to activedocument Tag: 83350
  - 8
    - Can I use a switch to truncate/substring a field? I am programming a document where I am inserting a character field (length=25) and I only want the last 4 characters inserted. I am trying to insert this field into a table and am limited on space. Word 2003 Tag: Import module to activedocument Tag: 83347
  - 9
    - Turn off formatting balloons only I would like to turn off formatting balloons, but keep the ability to read comments balloons. I know that you can turn off formatting balloons from the "Show..." drop down on the Reviewing toolbar, but anytime you turn off Track Changes and then turn it back on, it defaults back to showing the formatting balloons. Is there a macro or vb script to do this? Thanks. Tag: Import module to activedocument Tag: 83346
  - 10
    - No page numbers in table of contents for non-sequential levels Is there a way to remove the page numbers in the TOC for non sequential levels? \n 2-3 will take care of the first grouping but I also need TOC 5 without numbers. ABSTRACT................................................ iii TOC1 CHAPTER TOC2 I. INTRODUCTION TOC3 "{Sub-Topic}"....................... 2 TOC4 "{Sub-Topic}"....................... 2 TOC4 II. REVIEW OF LITERATURE TOC3 "{Sub-Topic}"....................... 3 TOC4 "{Sub-Topic}"....................... 3 TOC4 III. DESIGN AND METHODOLOGY and so on "{Sub Topic}" ...................... 4 "{Sub Topic}" ...................... 4 IV. ANALYSIS OF RESULTS "{Sub-Topic}"....................... 5 "{Sub-Topic}"....................... 5 V. CONCLUSIONS AND RECOMMENDATIONS "{Sub-Topic}"....................... 6 "{Sub-Topic}"....................... 6 APPENDICES 7 TOC 5 (shouldn't have number) "{Appendix Title}"................. 7 "{Appendix Title}"................. 8 REFERENCES 9 VITA AUCTORIS 10 Tag: Import module to activedocument Tag: 83345
  - 11
    - macro to import excel data into word text Ok, I would greatly appreciate any help with my situation. I have an excel spreadsheet containing data for many electrical devices. The first column in the spreadsheet contains the name of the device with the following columns containing data for that respective device. So, each row in the spreadsheet pertains to one electrical device. Now, in Word I have to create a report using this excel spreadsheet data. Because the devices are similar, I have created a paragraph in Word with bookmarks at the locations where I want to import the excel data for each device. Each paragraph in the report will pertain to only one electrical device in the spreadsheet (therefore, each paragraph will access one row of data in excel). I would like to create a macro that I can run in Word, that will prompt me for the name of the device and based on the input, it will generate the paragraph template with that device's respective data. Some bookmarks I have created have names like, devicename, amps, voltage, growthrate, transformer. Has anyone done something similar before or know how to do this? Again, any help would be great. Thanks, Kenneth Tag: Import module to activedocument Tag: 83344
  - 12
    - WindowSelectionChange event failing to fire We are seeing a problem at our customer sites, where the WindowSelectionChange event fails to fire, which is interfering with the proper functioning of one of our applications. In order to trace this, we have written a macro which simply declares an object as WithEvents Word.Application, and pops up a message box, when the event fires (see below). Testing at various sites, we have found that the macro fails at a small percentatge of client sites. We know that at least one site is running Word 2003, but we're not sure about the others. The problem always goes away (i.e. the event is always raised) if we keep any custom .DOT's from loading. In one case, we isolated a single .DOT from another vendor, and that vendor was able to figure out that the problem was due to code in the following form: On Error Resume Next Application.Run "macroname" On Error GoTo 0 where "macroname" was invalid, and where the code was excuted through an AutoOpen. That vendor removed the line of code, and the site is now up & running. However, we have found two other sites where the event fails to occur, and where we could isolate a single .DOT which controlled it. In these cases there were two different .DOTs triggering the problem, both of which include AutoOpen processing. However, as far as we can tell (one of those being from another product of ours) neither .DOT contains code in the above format. If you have any idea why this might happen, I would very much appreciate it if you could cc: any reply directly to me, as well as to the group. The test macro is as follows: ---- .bas module ------ Attribute VB_Name = "Test" Option Explicit Private moTest As CTest Sub TestWSC() If moTest Is Nothing Then MsgBox "Starting Test WSC" Set moTest = New CTest Else MsgBox "Stopping Test WSC" Set moTest = Nothing End If End Sub ---- .cls module -------- VERSION 1.0 CLASS BEGIN MultiUse = -1 'True END Attribute VB_Name = "CTest" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Option Explicit Private WithEvents moWordApp As Word.Application Attribute moWordApp.VB_VarHelpID = -1 Private Sub Class_Initialize() Set moWordApp = Application End Sub Private Sub moWordApp_WindowSelectionChange(ByVal Sel As Selection) MsgBox "In WindowSelectionChange: Select text: " & vbCr & Sel.Text End Sub Public Property Get WordApp() As Word.Application Set WordApp = moWordApp End Property -- Fletcher James President Levit & James, Inc. (703)771-1549 MailTo:fjames@levitjames.com http://www.levitjames.com Tag: Import module to activedocument Tag: 83343
  - 13
    - How would I search for a word using regular expressions? I need to search for all whole words and whole words words that also contain hyphens. For example: B1-B2 This is what I have so far.. <([A-Za-z0-9][A-Za-z0-9]*)> Tag: Import module to activedocument Tag: 83342
  - 14
    - Find/Replace Error I have code to find and replace strings of text within a document. However, I get a run-time error "5560" stating the Find What text contains a Pattern Match expression which is not valid. This is the code: FindAndReplace: Dim pFind As String Dim pReplace As String Dim pIndex As Long For pIndex = 1 To 14 pFind = Choose(pIndex, "{Name1}", "{Name2}", "{ClinicAddress}", "{Date}", "{DOI}", _ "M*.", "*male/female", "*his/her", "*he/she", "*He/She", "*man/woman", "*gentleman/woman", "*him/her", "*lady/gentleman") pReplace = Choose(pIndex, PatientFirstName, PatientLastName, ClinicAddress, ReportDate, DOI, _ Sex1, Sex2, Sex3, Sex4, Sex5, Sex6, Sex7, Sex8, Sex9) With Selection.Find .Text = pFind .Replacement.Text = pReplace .Forward = True .Wrap = wdFindContinue .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll On Error Resume Next Next Can anyone tell me what is wrong with this code or possibly another way to do it? Thanks. -- singeredel (Julie) Tag: Import module to activedocument Tag: 83332
  - 15
    - Is there a way to remove macros from normal.dot? I am using Word 2000 in a networked environment. I am creating a template for others to use; however, when I put in the macros for the template, I started getting error messages when opening other word documents not associated with the template. The macros are an AutoOpen, AutoClose, EnterKeyMacro. I am creating an online schedule form for our IT department and need the template to be available to everyone else in the department. But, I don't need the error messages when other documents are opened up. The template will have to be stored on a network drive everyone can access so that any changes can be done on the one template. Any help in this matter would be greatly appreciated. Thank you for your time. -- Mark Tyler Tag: Import module to activedocument Tag: 83321
  - 16
    - Word mutti-session handling within VBA I have my VBA code fires up a word doc at run time, which does some search and text gathering and populates into an Access table, then it QUIT (by oWord.QUIT method). At this stage if the user opens another word doc, play around and exit, the "automated" word doc is prompted for "save/cancel" (I'm sure at this satge the "text gathering and populates into an Access table" hasn't completed yet). It ends up the populated info into the Access table is totally unexpected! In VBA, how to manage multi-sessions of MS Words (let's say some fire up by VBA, some fire up by user interactively)? Thanks Tag: Import module to activedocument Tag: 83319
  - 17
    - Identify Tables Hi, I am dealing with a document which contains 4 different types of tables. Since each type of table triggers a different set of actions, is there a way to test tables with a unique identifier, which would categorize them ? Thanks in advance for your comments Cheers Carim Tag: Import module to activedocument Tag: 83318
  - 18
    - Problem with DIR ChangeFileOpenDirectory _ "C:\Documents and Settings\Smith\My Documents\TXT\" Dir (activedirectory & "*.doc") fname = Dir If in that directory (TXT) exists only one file, fname is empty. If there are two or more files, then fname is the first filename it founds. What's the problem with this? Tag: Import module to activedocument Tag: 83316
  - 19
    - fields, cross-references How can I cross-reference to field text so that the cross reference is updated when the field is updated? John Tag: Import module to activedocument Tag: 83310
  - 20
    - Accessing Excel worksheets in a Word document (VB Word macro). Hello, would you please assist me in solving this problem: I have an Excel object (Excel.Sheet.1) in MS Word document. I'm trying to write a Visual Basic macro for MS Word to change the data in cell A1 of this table. How can I access the cell? I'll try to describe the table I have to work with: It's not a Word table. It's rather an Excel object present in my Word document. When it's activated a real Excel table with 3 sheets appears.. and if it's not activated, I just see a simple table which doesn't differ from a regular Word table. I would say it's an Excel OLE placed in the Word document I have to deal with. I was adviced to open Excel by using a filename but I don't have a separate Excel document which I open by using its name... I've applied the next to find out the name of my object: MsgBox ActiveDocument.Fields(1).OLEFormat.ProgID The result is: Excel.Sheet.1 What I've surely succeeded to do is activating the object. And it seems there are various ways of obtaining that, for example: ActiveDocument.Fields(1).DoClick ActiveDocument.Fields(1).OLEFormat.Edit ActiveDocument.Fields(1).OLEFormat.Activate ... and no way known to me to edit the object's contents... I suppose I have to apply DDE to the object in order to open Excel, edit it and then close Excel... I don't know how to do it yet... I hope that it's an easy task some one has already an idea of.. Thank you! Tag: Import module to activedocument Tag: 83309
  - 21
    - AutoRecovery Save Hi, Is it possible to directly do an AutoRecovery save in VBA? It seems that the temporary file Word uses for changes becomes full before the autorecovery save time interval as occued. I use Word 2000. Thanks in advance! BAnders Tag: Import module to activedocument Tag: 83307
  - 22
    - A simple question How would I modify this code to check first to see that there is indeed Phrases(0), Phrases(1), and Phrases(2) so I won't get an error if strSentence does not have 2 tabs in the sentence? thanks, ck Phrases = Split(strSentence, vbTab) str1 = Phrases(0) ' so you can see what they are str2 = Phrases(1) str3 = Phrases(2) Tag: Import module to activedocument Tag: 83301
  - 23
    - can I use the Office 2003 dictionary in C#? Hi. I'm using C# (and the .net framework 2). can I use the Office 2003 dictionary? I want to search for translation of a word in the office dictionary and print the result. Is there a code sample anywhere? I couldn't find it. thank you. Tag: Import module to activedocument Tag: 83298
  - 24
    - Keep Lines Together Could someone please tell the code to use Keep Lines Together on a selected paragraph? -- Thank you for your help! ilene Tag: Import module to activedocument Tag: 83283
  - 25
    - Word printing I would like to see Word keep all print settings for each individual document, as Publisher keeps individual print settings for each document. I am using HP Officejet 7310 All-in-one printer. Changing paper trays, paper type, etc., requires changing half a dozen settings each time I print. This is very time consuming and frustrating. ---------------- 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=7879c181-6e22-4ad9-af0f-100da7d6ec33&dg=microsoft.public.word.vba.general Tag: Import module to activedocument Tag: 83281

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

Top

Re: Import module to activedocument by Cindy

Cindy
Tue Apr 11 03:26:05 CDT 2006

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

Best you could probably do would be to intercept an event like DocumentChange.
Keep a list (array) of opened documents and, when the event is fired, check
whether ActiveDocument is one of these. If not, a new document was created or
an existing opened.

Note, though, that Word97 supports only a very limited number of events. I'm
not sure whether DocumentChange is one of them.

> 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?
>

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

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

Top