Editing the target or multiple hyperlinks

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Hyperlinks from Word into a PDF? Is there any way to make hyperlinks in a Word.doc that will jump the user seamlessly into a bookmarked section of text within a PDF displayed in Acrobat? Tag: Editing the target or multiple hyperlinks Tag: 106336
  - 2
    - Find and Create Range Problem I'm using Word 2007 on WinXP SP2. I have several document which have instances of things like: [BEGIN BOXED TEXT] (some paragraphs) [END BOXED TEXT] I need a macro to search the document for each such instance, and select it (or create a range) - I can do the rest (probably!). The method I have at the moment is below and has two problems: one, after the first loop, the selected range gets too big, and two, it keeps repeating the first instance of FIND, rather than jumping through them all. Thanks in advance, Darren Sub StyleReset() ' ' StyleReset Macro ' ' CTRL+ALT+` ' (I've snipped out some lines that aren't relevant here FormatChange "[BEGIN BULLETED LIST]" FormatChange "[BEGIN BOXED TEXT]" FormatChange "[BEGIN SIDEBAR]" FormatChange "[BEGIN TABLE]" End Sub Sub FormatChange(FindChar As String, Optional FindStyle As String = "") Dim MyRange As Range, StartRange As Range Selection.GoTo What:=wdGoToBookmark, Name:="TextStart" Selection.Collapse Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = FindChar .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute Select Case FindChar ' I've snipped out the Cases that are working ok - ' it's the next Case I'm having trouble with Case "[BEGIN SIDEBAR]", "[BEGIN TABLE]", "[BEGIN BOXED TEXT]", "[BEGIN BULLETED LIST]" ' need to select the area ' find the first "[END" - set a range within ' Set MyRange = Selection.Range MyRange.SetRange Start:=Selection.MoveStart(wdLine, 1), End:=MyRange.End MyRange.Collapse wdCollapseStart Set StartRange = MyRange.Duplicate With MyRange.Find .Forward = True .Wrap = wdFindStop .Text = "[END" .Replacement.Text = "" .Execute If .Found Then ''Extend the range from the found item back to the start of the original range MyRange.Start = StartRange.Start MyRange.Select Selection.MoveEnd Unit:=wdLine, Count:=-1 Set MyRange = Selection.Range ' do stuff here End If End With Case "<s>" ' this is a small table. Need to find the first paragraph that doesn't contain a tab mark. Case Else End Select Loop End Sub Tag: Editing the target or multiple hyperlinks Tag: 106331
  - 3
    - Help with inline shapes Hello, I am trying to make a DOT file with a number of text boxes set up as inlineshapes. I can get them in the document fine (names in property list of TBox1, Tbox2 etc), and they work with the dblclick event just fine but I can not refer to them outside of the doubleclick event sub as inlineshapes "don't have names". The textbox has a name (like TBox1) and I can refer to it's name, but when I try to pass it to another sub to work on the text, it fails - generally telling me that the (name) method/property isn't valid. I tried to refer to the textbox with the index from the inlineshapes collection, but I can not find out which index number corresponds to the textbox. Any help/directions is appreciated. Jim Tag: Editing the target or multiple hyperlinks Tag: 106327
  - 4
    - Fill One form and auto-populate another form. Hi, I have two forms. One form is for the company to keep and the other is a government agency form which I have to e-mai/fax to governemnt agency. Both are MS Word forms. What I want to do is populate one form (company form) and then auto-populate the second form (government form). Since about half of the data for the company form is the same as the government form i want to be able to pupulate the government form when user enter the information in the company form. Is this possible to do? Tag: Editing the target or multiple hyperlinks Tag: 106325
  - 5
    - adding attachment to form prior to email Is there a way a browse button can be added to a protected form to allow for attachments to be added prior to the form being e-mail (via a command button). Thanks for your help. Tag: Editing the target or multiple hyperlinks Tag: 106313
  - 6
    - Problem with routing slip I have a protected form that I'm having folks fill out and e-mail to me via a command button on the form. One of the field on the form is "current date". If I set the properties to prefill current date, the form errors....if I just have the properties set to date, not current date, it works fine. Am I missing something in the code. The code behind the button is below Private Sub CommandButton1_Click() ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "Updates" .AddRecipient "JLORD@xxxxxxxx.com" .Delivery = wdAllAtOnce End With ActiveDocument.Route End Sub Tag: Editing the target or multiple hyperlinks Tag: 106310
  - 7
    - Mail Merge office 2003 from SQL 2000 Database I am working for a client on SQL Server 2000. They have an urgent requirement regarding Mail Merge and I simply do not have the knowledge to help. Here is the problem as sent to me, can anyone assist (apparently it worked fine from ASP with Office 2000) : I am looking for someone to solve the problem described under 'Requirement' below: Database: SQL 2000 Contains 2 tables with data: TableA: contains all the data TableB: contains 2 fields: Field1: Unique Identifier to line in TableA Field2: Staff Number Staff select records to be mail merged using a search and select process through our Intranet. Their selection list is recorded in TableB. This Table is then joined to TableA for the merge (ie in a View) Requirement: To mail merge the selection list against their staff number into Word 2003 using a selected template (we could end up with several different template layouts). Several staff could be using the system at the same time. I need this to be as automated as possible. Staff using the system should not have to go through the mail merge system currently offered in Word 2003. Ideally they should be able to select a template, click on it, type in their staff number and then the mail merge should be automatic from that point to delivering the result in Word. The mail-merge also needs to deal with a couple of conditional if statements, based on a confidential indicator (values 0 â?? 4), two fields can either be shown or not dependant of the Indicator value. Pointers of assistance greatly appreciated. TIA Trev Tag: Editing the target or multiple hyperlinks Tag: 106307
  - 8
    - what is word processing? What is word processing? Tag: Editing the target or multiple hyperlinks Tag: 106302
  - 9
    - Splitting doc by header style Hello, Ive got a word doc that is basically in this format with no page breaks Page Title(Heading 2) Page Data(Table) Page Title(Heading 2) Page Data(Table) Page Title(Heading 2) Page Data(Table) etc... Im using .net to loop through the doc by Paragraph and Table and Im able to get to the plain text of the objects via a paragraph loop but i cant seem to narrow down the data formatted as Heading 2 and just get the next table as html or similar so that I can create some pages based on them. Id like to do something similar to this although it's obviously not right ( i have 40 items marked with heading 2 but the headers loop only runs 3 times.) For Each h As Word.HeaderFooter In s.Headers '?PageTitle=h.range.Text '?BodyText = '?Table and Text Next Ive seen this type of functionalty in tools like robohelp(split document into web pages based on defined formatting) before but im not sure what the proper logic would be do get to these pieces of data I appreciate any insight you have and would be glad to clarify further. Thanks in Advance DrewG Tag: Editing the target or multiple hyperlinks Tag: 106289
  - 10
    - macro to intersperse numbered lists Hi, I need a macro to move numbered answers from a long list to immediately follow the test question with the same number. Here is how the document looks (see below). This is a shortened version. Most of the tests have about 33 questions total, so there would be more matching, true/false, and multiple choice questions, numbered from 1-33. There are tabs before and after each number. The matching section is a little different from the rest of the test. The matching answers are not to be interspersed with the questions. They are just to follow the questions in a list. This is difficult to explain, so also included below is what the final document needs to look like. Perhaps if someone can help get me started, I can modify the macro as needed. Thanks for your help. Also, these files are .txt files and do not contain any auto-numbering. Chapter Title Name Date Period Score Chapter 3 Test Matching: Match the following terms and identifying phrases. 1. People who buy and use finished products. 2. The process of finding or creating a profitable market for specific goods or services. 3. Intangible activities or benefits that are performed and have value. A. business cycle B. competition C. consumers True/False: Circle T if the statement is true or F if the statement is false. T F 4. Fashion-related businesses are crucial to the U.S. economy through the materials and services they buy, produce, and sell, and the wages and taxes they pay. T F 5. Goods are either products or services. T F 6. In a free-market system, companies with products to sell can charge any price and sell to anyone willing to pay that price. Multiple Choice: Choose the best response. Write the letter in the space provided. 7. Retailers are companies that _____. A. make goods B. sell merchandise in small quantities to consumers C. offer products for sale to industrial businesses D. sell goods in bulk to limited numbers of customers 8. In a free-market system, _____. A. the government and individuals make key economic decisions equally B. people freely choose what to buy in the marketplace C. there is heavy government control of what is bought and sold D. None of the above. 9. When there is more competition, _____. A. the profits per item sold are lower for the businesses involved B. products tend to be of a higher quality and more innovative C. prices for similar products are lower for customers D. All of the above. Essay Questions: Provide complete responses to the following questions or statements. 10. Describe the market structures of pure competition and monopoly. 11. List at least three advantages and three disadvantages of the corporate form of business ownership. 12. Briefly explain the four main elements of a marketing mix. Chapter 3 Test 1. C 2. E 3. I 4. T 5. F 6. T 7. B 8. B 9. D 10. Pure competition is a market structure in which no company in an industry is extremely large or powerful enough to influence or control prices. Monopoly is a market structure in which there are no direct competitors in an industry; one company controls it. 11. (See 3-11 in the text under â??Corporation.â??) 12. product: bringing the goods and/or services that are in demand into existence and to the market; price: pricing the products at the level that maximizes overall profits; place: how and where products are offered to customers; the distribution of selling and delivery into the hands of customers; promotion: nonpersonal activity to a large audience that furthers the sale of goods or services This is what the final test needs to look like. The numbers before each answer needs to be replaced with ANS:, except the matching section is a little different. Chapter Title Name Date Period Score Chapter 3 Test Matching: Match the following terms and identifying phrases. A. business cycle B. competition C. consumers 1. People who buy and use finished products. 2. The process of finding or creating a profitable market for specific goods or services. 3. Intangible activities or benefits that are performed and have value. 1. ANS: C 2. ANS: E 3. ANS: I True/False: Circle T if the statement is true or F if the statement is false. 4. Fashion-related businesses are crucial to the U.S. economy through the materials and services they buy, produce, and sell, and the wages and taxes they pay. ANS: T 5. Goods are either products or services. ANS: F 6. In a free-market system, companies with products to sell can charge any price and sell to anyone willing to pay that price. ANS: T Multiple Choice: Choose the best response. Write the letter in the space provided. 7. Retailers are companies that _____. A. make goods B. sell merchandise in small quantities to consumers C. offer products for sale to industrial businesses D. sell goods in bulk to limited numbers of customers ANS: B 8. In a free-market system, _____. A. the government and individuals make key economic decisions equally B. people freely choose what to buy in the marketplace C. there is heavy government control of what is bought and sold D. None of the above. ANS: B 9. When there is more competition, _____. A. the profits per item sold are lower for the businesses involved B. products tend to be of a higher quality and more innovative C. prices for similar products are lower for customers D. All of the above. ANS: D Essay Questions: Provide complete responses to the following questions or statements. 10. Describe the market structures of pure competition and monopoly. ANS: Pure competition is a market structure in which no company in an industry is extremely large or powerful enough to influence or control prices. Monopoly is a market structure in which there are no direct competitors in an industry; one company controls it. 11. List at least three advantages and three disadvantages of the corporate form of business ownership. ANS: (See 3-11 in the text under â??Corporation.â??) 12. Briefly explain the four main elements of a marketing mix. ANS: product: bringing the goods and/or services that are in demand into existence and to the market; price: pricing the products at the level that maximizes overall profits; place: how and where products are offered to customers; the distribution of selling and delivery into the hands of customers; promotion: nonpersonal activity to a large audience that furthers the sale of goods or services Tag: Editing the target or multiple hyperlinks Tag: 106277
  - 11
    - Macro to automatically bold or italicize specific text I'm working with a 3rd party document generation system that only stores plain text. Rather than having to manually go through the document and bold/italicize certain phrases every time I'd like to automate the process. How would I write a macro to do it? I'd like to use HTML style tags to indicate the formatting but am flexible in that regard. before the macro is run: This sentence contains <b>bold</b> and <i>italic</i> text. After the macro was run the text would look like this but with the words bold and italic bolded and italicized respectively: This sentence contains bold and italic text. Tag: Editing the target or multiple hyperlinks Tag: 106271
  - 12
    - Embed styles in Word template or create them on the fly - pros and cons? Hi All Shauna Genius has provided me with some great code to get round my background colours issue in my VB6 to MS Word table using VBA, but involves creating some bespoke styles. My question is, would I benefit from pre-creating the styles in my Word doc template file or would it make no difference if I created these styles via VBA at runtime? I'm going to need about 20 different styles at any one time, so I'm waying up the odds which is best option. Thanks Tag: Editing the target or multiple hyperlinks Tag: 106269
  - 13
    - Skipping in a loop Does anyone know a way to loop through all instances in a collection, but *skip* doing something to unqualified members? I know I could go For Each objPara in Selection.Paragraphs If [Disqualifier] = False Then Do the stuff for qualified members Endif Next objPara But I'm looking for something more like For Each objPara in Selection.Paragraphs If [Disqualifier] = True Then GoTo Skip Endif Do the stuff for qualified members Skip: Next objPara Bear -- Windows XP, Word 2000 Tag: Editing the target or multiple hyperlinks Tag: 106267
  - 14
    - how add many strings and vbcrlf in the same string Hello!. I have a word 2003 and sp3 My userform fill 3 strings with data, and then create one string with these three. The result is send to textbox str1="aaaaa" str2="bbbb" str3="cccc" str_last= str1 + vbCrLf + str2 + vbCrLf + str3 desired result: aaaa bbbb cccc real result: aaaabbbbcccc what is the correct procedure to obtain the desired result???? Thanks!!!!! sam Tag: Editing the target or multiple hyperlinks Tag: 106265
  - 15
    - 5904 - Cannot Edit Range Hi All I'm looping an array of text into a number of cells in 1 x MS Word table via my VB6 app. To make sure each text value is on a new line of the table cell I put a carriage return/paragraph marker after it. To start with I used oDoc.Range.Text = oDoc.Range.Text & vbCrLf, but for some reason this always creates an extra return/blank line. So not to be out-done by this I thought I would use the oDoc.Range.InsertParagraph or oDoc.Range.InsertParagraphAfter commands, but for some reason even though the loop works fine for all of the other values the last text value to be put into the table always causes this 5904 error. Any ideas? Tag: Editing the target or multiple hyperlinks Tag: 106263
  - 16
    - XML Conversion to HTML in Word 2007 I am converting an application we use to edit text and write it back to an MS SQL DB through a com object. The current environment is in Office/Word 2000 using VBA and we are moving this to VS2005 to VSTO2005SE Office/WORD 2007 One of my requirements is to write back HTML to the SQL DB and I was able to do so using this command in VBA. MyStr = ActiveDocument.HTMLProject.HTMLProjectItems(1).Text Does anyone have a suggestion on how to perform the same operation with .NET -- Jeff Lawrence McClatchy Washington Tag: Editing the target or multiple hyperlinks Tag: 106262
  - 17
    - How can I just change the text background colour using VBA? Hi All Developing a VB6 app that writes text and a bit of formatting to a table in a MS Word template doc via VBA. I can change the text colour, bold, italic and underline params fine on my text, but I can't get the background colour of my text to change. Formatting the bg colour for a whole cell in a table is no good to me and I've just found that the paragraph format is also no good, as I need to format the bg colour of text on a line by line basis. For example cell 1 might look like the following: Fred Bloggs < bg colour needs to be blue Bilbo Bloggs <bg colour needs to be untouched, ie white Barry Bloggs <bg colour needs to be red etc Move onto next cell. The code that I am currently using is: oNewDoc.Tables(1).Cell(intRow, intCol).Range.Paragraphs(intLine).Range.ParagraphFormat.Shading.BackgroundPatternColor = wdColorRed Which doesn't really work because if cell 1 has 2 names in it then cell 4 with one name has 2 lines of the same colour. I need 1 line of colour that covers just the name. I've noticed that the highlight option might do it, but you appear to be limited to 15 or so colours (with most being too dark). Am I wrong? I'd prefer some form of TextFormat.Shading etc format as it opens the colours up for me, but there doesn't seem to be an option. Note I have to work with Office 2000/2003 users. Thanks Tag: Editing the target or multiple hyperlinks Tag: 106249
  - 18
    - Finding out if a paragraph is in a table I have some long documents (400+ pages) in which most of the text is in tables. There are around 80,000 paragraphs including those in tables I am only interested in the paragraphs that are not in tables. Does anyone know of a way to efficiently either form such a collection or to test if a paragraph is within a table. Something like For Each myPara In ParagraphsNotInTables ....... Next or If myPara IsInTable Then 'ignore Else .... many thanks in advance Rod Tag: Editing the target or multiple hyperlinks Tag: 106247
  - 19
    - checkbox status Hi! I am working with VBA in word 2003 and sp3. the values for any checkbox are: 0 / false -> unselected 1 / true -> selected 2 / -> selected AND greyed Exists any value to set the checkbox unselected and greyed? And any property to deny allow change? I like to view the checkbox without the option to access it for change his value Thanks!!!!! Sam Tag: Editing the target or multiple hyperlinks Tag: 106246
  - 20
    - how do i connect to the endnote program using word 2007? in word 2003 i pressed alt F1 and got connected to the endnote program. for some reson i can't connect directly when i am using word 2007... what do i do??? thanks a lot for any help Tag: Editing the target or multiple hyperlinks Tag: 106243
  - 21
    - Deleting Shapes in Document Header Last night I stumbled on what I consider odd behaviour while using VBA to delete shapes in a document header. I had a multi-section document with headers unlinked and first page, odd/even headers. All together there aret 15 shapes in the various headers. It appears to me that the following code should only process and delete shapes that are in the primary header of section 3. What I consider odd is that it processes all shapes in all sections and all header types (i.e., it deletes all 15 shapes) Sub Test() Dim oShp As Shape For Each oShp In ActiveDocument.Sections(3).Headers(3).Shapes oShp.Delete Next End Sub The same thing happens if I change the Section and Headers index to "1." I ran this code: Sub Scratchmacro() MsgBox ActiveDocument.Sections(2).Headers(1).Shapes.Count End Sub I expected a return of 2 which is how many shapes are in fact in Section 2 firstpage header but the result I got was 15!! I scratched up this code which does process only the designated header, but I don't understand what is happenning in the code above. Thanks for any explanation you may provide. Sub Test2() Dim oRng As Word.Range Dim oShp As Shape Set oRng = ActiveDocument.Sections(3).Headers(3).Range For Each oShp In oRng.ShapeRange oShp.Delete Next End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Editing the target or multiple hyperlinks Tag: 106242
  - 22
    - Word 2003 I have automated a print maco using code: ActiveDocument.print This always worked in Word XP but now I have migrated the code (well re-written actually but code is the same) in Word 2003 - when we print - any borders in the document around text do not print. The print drawing objects tick is on in print options - any ideas please? Thanks GwenP Tag: Editing the target or multiple hyperlinks Tag: 106240
  - 23
    - MYSTERY: Saving template deletes bookmark G'day! Has anyone encountered this before? I insert a bookmark in the main story of my template. As far as I can tell there's nothing special about the template or the bookmark - altho I can't say for certain; I inherited the template from a long-departed source. Every time I save the template the bookmark gets deleted automagically. Bit of a buggar that 'cuz I really need that bookmark to be there in the final document. BTW, it's only the bookmark in the main story of the template that gets deleted. I have 6 or 7 more in the header and footer and those don't get touched. Any Sherlocks out there that can solve this mystery? -- Cheers! The Kiwi Koder In Deep Mourning for the ABs :( Tag: Editing the target or multiple hyperlinks Tag: 106234
  - 24
    - Problem runnig macros I have created a template on my home computer that has macros in it (I use word 2002). I am trying to save that template on my office computer and also share it with my friends. I save the template in the TEMPLATES forlder however when I try to run the macro it says runtime error 5891 could not open macro storage. When I try to debug the macro it says error in loading DLL. I have set my office macro security to medium. What can I do? Please Note: This question was initially posted in the general questions section. I have reposted it here. Please only reply to this posting. Tag: Editing the target or multiple hyperlinks Tag: 106228
  - 25
    - Cross References FYI: VBA knowledge - low novice Any way of designating the format of a Cross Reference For example: 1) I'd like to be able to have my cross references come in underlined. Someone suggested to me to underline the R in REF in the field code and that does indeed work for that field code, however, every successive one comes in without underlining. I've thought of searching for a field code (^d), selecting highlight all items found in the Find and then hitting Ctrl U and underline them all in one sweep however, I don't know how to single out cross reference field codes only - I don't want my TOC field codes to be underlined as well. I had a document with at least 100 cross refererences which I had to manually underline - pain in the neck. 2) I'd like to be able to keep my prefixes of my cross refererences (i.e., Section 1.01) together when they come to the end of a line rather than have Section on one line and 1.01 going to the next. I've been doing a search of Section and a space and replacing these with Section and a hard space and that works, but every time you update the fields the hard space gets wiped out and you have to remember to do the search and replace all over again. 3) I've used the edit field button to select upper case for a cross reference and the designation is visible in the field code, however, it seems to be ignored even when deselecting the preserve formatting box. Don't know what goes on with that???? Overall, rather than doing these patch jobs, just wondering if there is any way to format a cross reference similar to the way one can format a style. Any ideas, suggestions would be appreciated. Tag: Editing the target or multiple hyperlinks Tag: 106227
- Next
  - 1
    - Copying a field made with Crtl + F9 I use Ctrl + F9 to enter a bracketed field into a document template. I want it merely as a location-marker. I will use F11 to jump from one to the next field entered in this manner. That way I can move quickly through a document entering custom information at various points without too much work. Here's my problem: it helps to have the field contain something colorful, so that it draws my eye and I don't miss making a necessary entry. So I've figured out how to use Autotext to creat a highlighted underlined space. So far so good. It would be easiest of all to do a "copy" of the Crtl F9 field once I've set it up to my specs. The problem is that when I try to paste my brackedted field, I get nothing: no field, no colored underline. (In contrast, if I highlight the bracketed field, then drag-and-drop it, it copies perfectly). Am I doing something incorrectly? Is there a solution so that I can copy and paste a bracketed field wtih some text within it (I notice that when I copy whole paragraphs with a bracketed-field built into them, the same thing happens--the field seems to vanish. Thanks for any guidance you can give me. ddc Tag: Editing the target or multiple hyperlinks Tag: 106225
  - 2
    - Java to Word Interface All, Is it possible to write a Java to Word interface? If so, what additional software is necessary to facilitate this interface? I have been getting conflicting suggestions and figured this forum would definitively tell me what is required. Also, I would prefer not to use Java (yuk!!) but that is a absolute requirement. Thanks in advance! Eric Weller Tag: Editing the target or multiple hyperlinks Tag: 106223
  - 3
    - Mailmerge from ASP? What I am really trying to accomplish is use an existing word doc (mail merge) along with existing access data to produce the existing results for my use (i.e. to display for printing or emailing). The existing components work great except that they require manual processing by me. I would like to be able to let users of my site generate their own form via asp pages that I supply. Tag: Editing the target or multiple hyperlinks Tag: 106222
  - 4
    - Mail Merge, Data Source, and UserForm with ControlButton Mail Merge, Data Source, and UserForm with ControlButton In my office, we use Mail Merge to â??importâ?? data from an Excel file. This works fine, using the mail Merge technique, but we are trying to modify the process so that a user is able to run a macro, search through a list of items (viewable through a TextBox embedded in a UserForm), and then click a ControlButton to import all the appropriate information to each MergeField (I think it would be a standard Mail Merge). It is easy to run through the items using the standard Mail Merge toolbar, but we are trying to get this to work through the process described above. It would be so much easier to get certain ID numbers to show in the TextBox, select the ID that is of interest, and import all data that pertains to this ID number directly into each appropriate MergeField. I am trying to modify some code that Doug Robbins gave me over the summer: I have the following in the textbox: ***notice, one of the main problems is that I am no longer using a bookmark named â??Addresseeâ?? instead, I am trying to use about 30 different MergeFields. This seems to be the obvious way to go with this, as they seem to be more intuitive, and give more control over what is imported, at least in terms of formatting, etc. Iâ??ve named the Excel file â??Source Dataâ?? and Iâ??ve named the range of data, and assigned the name â??Listâ?? to that range. My main question is how do I import all of this data, after identifying the appropriate from the TextBox? Private Sub CommandButton1_Click() Dim i As Integer, Addressee As String Addressee = "" For i = 1 To ListBox1.ColumnCount ListBox1.BoundColumn = i Addressee = Addressee & ListBox1.Value & vbCr Next i ActiveDocument.Bookmarks("Addressee").Range.InsertAfter Addressee UserForm1.Hide End Sub Sub UserForm_Initialize() Dim i As Integer, Addressee As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim NoOfRecords As Long ' Open the database Set db = OpenDatabase("C:\Word\Source Data.xls", False, False, "Excel 8.0") ' Retrieve the recordset Set rs = db.OpenRecordset("SELECT * FROM `List`") ' Determine the number of retrieved records With rs .MoveLast NoOfRecords = .RecordCount .MoveFirst End With ' Set the number of Columns = number of Fields in recordset ListBox1.ColumnCount = rs.Fields.Count ' Load the ListBox with the retrieved records ListBox1.Column = rs.GetRows(NoOfRecords) 'ListBox1.List = rs.GetRows(NoOfRecords) 'Transposed List ' Cleanup rs.Close db.Close 'AddressBlock = db Set rs = Nothing Set db = Nothing End Sub Sub Macro2() ActiveDocument.MailMerge.MainDocumentType = wdFormLetters ActiveDocument.MailMerge.OpenDataSource Name:= _ "C:\Word\ Source Data.xls", ConfirmConversions:=False, ReadOnly _ :=False, 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:\Word\Source Data.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engin" _ , SQLStatement:="SELECT * FROM `Source Data`", SQLStatement1:="", SubType:= _ wdMergeSubTypeAccess ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle End Sub Sub UserFormInitialize() UserForm1.Show End Sub Regards, Ryan--- Oh, maybe I should mention this, some of the MergeFields are as follows: Â«MERGEFIELD "Proj_Name"Â» Â«MERGEFIELD "Product"Â» Reference Number: Â«MERGEFIELD "ID_Number"Â» ***this ID number is the one of interest. I want to get this to load into the TextBox, select it, click the ControlButton, and have all data related to this ID number load into the word document. Any help would be SINCERELY appreciated. -- RyGuy Tag: Editing the target or multiple hyperlinks Tag: 106220
  - 5
    - Find a document and clsoe it Hello everybody I am a novice VBA programmer and started what seemed like a simple bit of programming but it has proven to be harder than I thought. Basically I have a form template (TemplateA) which is stored centrally and accessed by many users. I need to replace this with a newer version (TemplateB) donâ??t wish to remove the old version in case there are documents still in use with references back to TemplateA I created an AutoNew Macro in TemplateA which pops up a message box to say you are using an old version and will be redirected to the new template (TemplateB) That works fine except I want to close the document created by the user double clicking on TemplateA . How do I find the document and close it leaving TemplateB open and active. Templates were created in Word 2000 and are used in either Word 2000 or Word 2002. Thanks in advance for any help you can offer. Tag: Editing the target or multiple hyperlinks Tag: 106219
  - 6
    - Creating a macro to update dates in a word doc I am wondering if there is a way to create a macro that will chance the "Week Ending" date and dates of the week when I open the document every Friday to update the attendance. Thank you for your assistance. DEPARTMENT: WEEK ENDING 10/12/07 10/08 10/09 10/10 10/11 10/12 10/13 10/14 EMPLOYEE EMP # MON TUES WED THURS FRI SAT SUN Tag: Editing the target or multiple hyperlinks Tag: 106218
  - 7
    - User form Can anyone guide me on how to automatically move the cursor to the next field available in the form after running a macro? FYI, I've a macro which ensure that the correct selection list is prompted for each of the field based on the Country code that the user has selected.i found that word will bring me back to the 1st page after the user form is prompted. Is there any way to make the user form prompted in the same page with the text field?Please advice. Tag: Editing the target or multiple hyperlinks Tag: 106215
  - 8
    - VB6 to Word Bookmarks nightmare! Hi All I could really do with your help as I'm completely stuck. To explain, I have 1 word doc with 1 table, which consists of about 22 cols and 10 rows. Basically I throw pupil names at this table (via VBA) so that the pupils go into the relevant cells. I had this working perfectly without any form of formatting, eg I just did a few array loops to check which cell they needed to go in, concated them up and then 'blobbed' each concated string into the relevant cell. Perfect, but then I moved onto the task that I really wanted, which was to format the text colour, text bg colour, bold, italic and underline styles for each name and this is where I've got major stuck. Because each name can have diff colours and styles and because I don't know how many people will go into each cell, I need to do one at a time pass throughs, so out go my arrays!! The problem is that I can't get my text to style-ise at all and I think it is because of the way my bookmarks are setup. Basically I have an empty bookmark in each cell, got to have this as a lot of the cells might be empty so text markers would look crap, and when I do the old: oNewDoc.Bookmarks(intTableCell).Range.Text = arrPupilData(0, intCurrentRec) & vbCrLf I think this text just gets lobbed onto the end of the bookmark so I can't reference it to format it, because my bookmark doesn't contain any text - is this right? Does anybody know how I can get round this bearing in mind that I need to format each name separately? Thanks Tag: Editing the target or multiple hyperlinks Tag: 106202
  - 9
    - Reg Ex Challenge I am stumped at how I can extract a subset of data enclosed with parenthesis, but also that also has data within in it enclosed with parenthesis. For example, the paragraph below: Now is the time for all to aid their country. (Note: This passage has been quoted for years in the United States (US), but it has never been more true than it is today, the (21st century). We should do all we can to make it a reality.) Objective: I would like to extract all data inside of the outer parenthesis to including any data within the subset parens, ie: (US). I use the expression below, but it only gets from (Note:...(US) It does not pick up the rest my expression used is: mySearch = \(*\) Any help would be most appreciated. -- Thank you DJ Tag: Editing the target or multiple hyperlinks Tag: 106167
  - 10
    - =?Utf-8?B?0JrQsNC6INGB0L7QtdC00LjQvdC40YLRjCDQv9GA0L7QvdGD0LzQtdGA0L7Qsg==?= Ð¯ Ñ?Ð°Ð·Ð´ÐµÐ»Ð¸Ð»Ð° Ð¸ Ð¿Ñ?Ð¾Ð½Ñ?Ð¼ÐµÑ?Ð¾Ð²Ð°Ð»Ð° Ð»Ð¸Ñ?Ñ?Ñ?, Ñ?ÐµÐ¿ÐµÑ?Ñ? Ð¼Ð½Ðµ Ð½Ð°Ð´Ð¾ Ð·Ð°Ð½Ð¾Ð²Ð¾ Ð²Ð¸Ð´ÐµÑ?Ñ? Ñ?Ð°Ð±Ð¾Ñ?Ñ? Ð½Ð° Ñ?Ð¿Ð»Ð¾Ñ?Ð½Ð¾Ð¼ Ð»Ð¸Ñ?Ñ?Ðµ. Tag: Editing the target or multiple hyperlinks Tag: 106164
  - 11
    - Need help Bookmarking 252 pages Hi all, I have a 252 page document - I'd like to create some sort of Table of Content or Jump to type page on Page 1. Currently each section I need to bookmark starts like this: -------------------------------------------------------------------------------- Some text here -------------------------------------------------------------------------------- 1. How can I get the text string between "------ & Line return & blank line" and "Line return & Blank line & ------" 2. How do I create a bookmark for the string found above? Is this the right approach or is there a better solution? Thanks Steve Tag: Editing the target or multiple hyperlinks Tag: 106162
  - 12
    - Macro Security Warning after Adding Standard ActiveX (Control Tool Hi, I have added a standard ActiveX control (e.g. CommandButton) from the Word's Control Toolbox and saved the document. The next time I open the document, I see the macro security warning (my security level is set to medium). 1) Is this by design, even though the ActiveX is supplied by Microsoft, present in ALL copies of Word and therefore should be trusted? Should additional action be taken to trust even these controls? 2) I used to think that as soon as an ActiveX control had been installed on a machine, it means that the user had trusted it and the security warning should no longer appear. It should appear only for ActiveX controls DEFINED inside the VBA project of the document being opened. Am I wrong? What is the reasoning? 3) How do I workaround to avoid my users from seeing this warning? Consider the following scenario: I have developed a VSTO customization based on a Word DOT template. The .NET code creates a standard CommandBar ActiveX control inside the document at run time, with no VBA code attached to it. Then the document is saved and then reopened by the same/other user. What should I do to prevent the macro security warning? Thanks Tag: Editing the target or multiple hyperlinks Tag: 106161
  - 13
    - Cannot use [Shift] or [Ctrl] & arrow to select > 1 shape. Tag: Editing the target or multiple hyperlinks Tag: 106143
  - 14
    - Protected Documents With a protected document if some one tries to edit it, the Protect Document Pane comes up. Is there a way to have an information box come up telling then to use the toolbar buttons to edit this document instead of the Protect Document Pane coming up? LEU Tag: Editing the target or multiple hyperlinks Tag: 106140
  - 15
    - How to make a macro for FindNext in Word 2007? How do I make a macro for FindNext in Word 2007? I'd like it to work with the function key F3, and remember the search term from one document to another until there's a differenet search or Word is closed. Thanks! -- Lost in Office 2007? Find yourself at http://www.freedownloadscenter.com/Business/Misc__Applications/Classic_Menu_for_Office_2007.html Tag: Editing the target or multiple hyperlinks Tag: 106135
  - 16
    - File Permission Error Runtime 5487 - Splitting Mail Merge Document Hi, I've got this code and I'm getting the above error when I run it: Sub splitter() ' ' Splitter Macro ' ' Dim Letters As Integer, Counter As Integer Letters = ActiveDocument.Sections.Count Selection.HomeKey Unit:=wdStory Counter = 1 While Counter < Letters ActiveDocument.Sections.First.Range.Cut Documents.Add Selection.Paste Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Copy Docname = Trim(Selection.Text) ActiveDocument.Sections(2).PageSetup.SectionStart = wdSectionContinuous ActiveDocument.SaveAs FileName:="D:\" & Docname ActiveWindow.Close Counter = Counter + 1 Wend End Sub The error occurs when trying to save each individual file - if I execute the save manually with the clipboard contents at the point of breaking, the file saves okay. Why would it not work in this macro context? Any clues? I've got a 200 page document that needs splitting by tomorrow. Thanks guys Woo Tag: Editing the target or multiple hyperlinks Tag: 106130
  - 17
    - Can macro highlight & pause on each word in document? Want to assist ADHD grandson focus on reading tasks. Would like to create macro that "reads" word document one word at a time, pausing on each word. Would like to see font size increase and/or highlighting to emphasize that word within the sentence. Ideally, macro would then pause until triggered to proceed either manually (eg.; touch spacebar) and/or timeout (adjustable). The latter feature intended to move him along after having become acquainted with sentence content. Tag: Editing the target or multiple hyperlinks Tag: 106113
  - 18
    - ThisDocument Macros I have the following macros in the ThisDocument of a Word Document that I am having problems with. We have a third party program that we use to open Word documents. When I open a document with these macros in it, it wonâ??t work. But if I have the original template opened and minimized it will work. Is there a different way to do this without putting it in the ThisDocument? Option Explicit 'reserve memory for an application variable Private WithEvents wdApp As Word.Application Private Sub Document_New() 'assign Word to the application variable If wdApp Is Nothing Then Set wdApp = ThisDocument.Application End If End Sub Private Sub Document_Open() 'assign Word to the application variable If wdApp Is Nothing Then Set wdApp = ThisDocument.Application End If End Sub Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection) Dim Group As Bookmark 'quit if active doc isn't attached to this template If ActiveDocument.AttachedTemplate <> ThisDocument Then Exit Sub 'get out of the header if we're in it Select Case Sel.StoryType Case wdMainTextStory If Sel.Range.InRange(ActiveDocument.Bookmarks("PL").Range) Then ActiveDocument.Bookmarks("P1").Select frmplan.Show Set frmplan = Nothing ElseIf Sel.Range.InRange(ActiveDocument.Bookmarks("CC").Range) Then ActiveDocument.Bookmarks("C1").Select frmCorc.Show Set frmCorc = Nothing ElseIf Sel.Range.InRange(ActiveDocument.Bookmarks("WC").Range) Then ActiveDocument.Bookmarks("W1").Select frmWC.Show Set frmWC = Nothing ElseIf Sel.Range.InRange(ActiveDocument.Bookmarks("AL").Range) Then ActiveDocument.Bookmarks("A1").Select frmRP.Show Set frmRP = Nothing End If Exit Sub End Select End Sub Tag: Editing the target or multiple hyperlinks Tag: 106110
  - 19
    - Zooming the document map, Word 2007 In Word 2007, I can zoom the document map by pressing SHIFT-F6 and then using the zoom bar at the bottom of the Word window. However, the macro recorder will not record this action. How can the action be done programmatically, i.e. in VBA ? Tag: Editing the target or multiple hyperlinks Tag: 106103
  - 20
    - unable to search for style Hi All, I'm having a problem with the following code failing to find something which is in the document. I know it's there because I can type similar code into the immediate window and have it work (also below). Fails: DIM objRange as Word.Range SET objRange = ActiveDocument.range WITH objRange.Find .ClearFormatting .Text = "Issue" .Style = ActiveDocument.Styles("Issue Heading") END WITH IF objRange.Find.execute() then ... and it fails. If I type this into the immediate window, using the selection object like so: selection.find.ClearFormatting selection.find.Text = "Issue" selection.find.Style = ActiveDocument.Styles("Issue Heading") ? selection.find.execute() and that works! :( ? I don't want to use the selection object in my macro for other reasons, and this is a paired-down example so maybe I left something key out, but I don't see any essential difference. If I don't use style, but I use attributes such as bold and underlining, then the first search example works ok, it's only when searching for text in a specific style that it fails. Any ideas? Thanks. Chip Tag: Editing the target or multiple hyperlinks Tag: 106100
  - 21
    - Add a shape text box Hello and help I need code to add a shape text box to my document and position it on the left margin on the next line down from the cursor. Any ideas Thanks Tag: Editing the target or multiple hyperlinks Tag: 106091
  - 22
    - Word linking to excel Hello and help Word 2007, I need to copy a named range from a closed Excel file, then paste special it as a Paste Link - Microsoft Office Excel Worksheet Object in to the active Word document. So far I have the following code which copies the whole Excel sheet , Dim FileName As String FileName = "c:\\Test.688.xls" FileName = "LINK Excel.Sheet.12 """ & FileName & """ \a " Selection.TypeText FileName Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ FileName, _ PreserveFormatting:=True But I need to restrict this to a named range. Any ideas or pointers Thanks Tag: Editing the target or multiple hyperlinks Tag: 106087
  - 23
    - save/restore current outline view (collapsed/expanded branches) Hello, is there a way (macro?) to save/restore the current outline view of a word document. thanks in advance, Henk Koning Tag: Editing the target or multiple hyperlinks Tag: 106085
  - 24
    - Creating Macro for Adding Custom Table Hi, I've created a custom button that runs a macro that adds a table into my document and formats it using a specific style. Works great. Only issue is if I select an existing table and run the macro it breaks (I get run time error 6028 the range cannot be deleted). I'm pretty new to this so I'm not sure how to fix the code so that if someone tries to run it on an existing table they have selected it won't crash and instead just applies the style BodyTable. The code as it stands is: Sub TableInsert() ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) If .Style <> "BodyTable" Then .Style = "BodyTable" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True End With Selection.Style = ActiveDocument.Styles("BodyTable") End Sub Any suggests would be greatly appreciated Thanks Lisa Tag: Editing the target or multiple hyperlinks Tag: 106084
  - 25
    - Add Arabic langue to translation options in Word program Tag: Editing the target or multiple hyperlinks Tag: 106079

I have a large group of files that will all exist in a single folder. I want
to open each document. Go through and change every hyperlink by deleting the
first portion of the link. Then save the document, close the document and
move on to the next one in the folder.

What this is doing is changing the hyperlinks from fully qualified to
relative. Let me give this as an example. Every hyperlink in every doc is
the same and looks like this.

http://servername/applicationname/appname.exe/open/docID#

I want them to all go to

/applicationname/appname.exe/open/docid#

Each Document ID number is unique. The portion to remove is acutally 33
characters. This will allow for users on different servers to view the
documents without authenticating to another server.

Thanks for all of your help.
LWhite

Top

Re: Editing the target or multiple hyperlinks by Jonathan

Jonathan
Thu Oct 11 08:06:51 PDT 2007

"LWhite" <LWhite@discussions.microsoft.com> wrote in message
news:A80A6BF3-2DF4-4C62-A515-D192368308DC@microsoft.com...
>I have a large group of files that will all exist in a single folder. I
>want
> to open each document. Go through and change every hyperlink by deleting
> the
> first portion of the link. Then save the document, close the document and
> move on to the next one in the folder.
>
> What this is doing is changing the hyperlinks from fully qualified to
> relative. Let me give this as an example. Every hyperlink in every doc is
> the same and looks like this.
>
> http://servername/applicationname/appname.exe/open/docID#
>
> I want them to all go to
>
> /applicationname/appname.exe/open/docid#
>
> Each Document ID number is unique. The portion to remove is acutally 33
> characters. This will allow for users on different servers to view the
> documents without authenticating to another server.
>

A document has a Hyperlinks collection, of all the Hyperlink objects in the
document. A Hyperlink object has an Address property and a Subaddress
property. The Address is the portion to the left of the # and the Subaddress
is the portion to the right. A link to another location in the same document
will have a blank Address. A link to the start of another document will have
a blank Subaddress.

You can both read and write the Address property of a Hyperlink object. So
what you need to do is cycle through the Hyperlinks using a For Each-Next
loop, read the address, change it as necessary and write it back. Write some
code that does that on a single document. Then put the code into the inner
loop of the macro shown in article below in order to make a batch process of
it, replacing the find/replace code that is already there.

Find & ReplaceAll on a batch of documents in the same folder
http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Top