break line based on hyperlinks

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Can I export from a Word form to an Excel spreadsheet? I have a Microsoft Word form and would like to know if I will be able to export the text, check boxes and drop-downs to an excel format. Can you please advise? Thanks Tag: break line based on hyperlinks Tag: 90864
  - 2
    - Macro To Set Image Links I import documents from my Genealogy program that require the image links be reset (Edit>Links dialog). I have tried various ways of recording this dialog to a macro but nothing is recorded. I appears that the dialog window for resetting links may not support macro recording??? If so how could this be done? -- Bob Berg Tag: break line based on hyperlinks Tag: 90859
  - 3
    - Remove forward slash when in first character of first line of docu Hi: Thanks to the help of a number of you on this site, the following code successfully replaces the occurrence of a forward slash that is preceded by one or more spaces with a highlighted space. I would like to create code that would remove the occurrence of a forward slash if it is the first character in the first line of the document. Any ideas? 'Removes / proceeded by a space and replaces with a highlighted space Dim rDcmForwardSlash As Range Set rDcmForwardSlash = ActiveDocument.Range With rDcmForwardSlash.Find .Text = " @/" .Replacement.Highlight = True .Replacement.Text = " " .MatchWildcards = True .Execute Replace:=wdReplaceAll End With Tag: break line based on hyperlinks Tag: 90858
  - 4
    - How to suppress warning dialog? Hello, I have a VBA macro which its last command is .printout. Since the template I am using prints out of the set margin I always get this nonsense dialog box of "The margins of section 1 are set outside then printable area of the page. Do you want to continue?" Yes or No... Off course my response is always Yes and my printout is okay with no problem... Does anybody know how I can suppress this dialog box from being appear with out changing the page setup? -- Jeff B Paarsa Tag: break line based on hyperlinks Tag: 90854
  - 5
    - Event after save I am using Word 2003. I have created a macro that gets the filename beginning with the server/sharename, using the ShareName Property. It stores it in a document variable. I can then put it in the document, eg., the footer. (The built-in filename path returns the mapped drive, eg. I: We want \\ServerName\ShareName ) I have put this macro in the template for these files. I also put a document_open event macro in ThisDocument of the template. That is working fine. So I am set up for the existing documents. But I am having a problem with new documents, or those created with SaveAs. The filename does not exist until after the new file is saved. For SaveAs, the filename before the save is the old one. What is the best way to handle this? If there were an AfterSave event, it would make things much easier. Do I have to create my own macros for FileClose, Filesave, FileSaveAs, and FileSaveAll, and do all that file dialog stuff? I believe (hope) I can put these in the template, also. Looking at the Help for "Using Events with the Application Object", I see I have to Initialize the Declared Object. It looks as if I can run this one time, and it make the required connections so things will work when I create, open, and close documents. Or do I misunderstand this. Tag: break line based on hyperlinks Tag: 90851
  - 6
    - My delete key has stopped working to delete blocks of text. My delete key has stopped working to delete whole words, sentences or blocks of text. I do not know whether I accidentally hit something to program this, or whether my keyboard or something is broken. It works for email, but does not work for Word. Tag: break line based on hyperlinks Tag: 90848
  - 7
    - Table not inserting correctly I am running the following code to insert a table into a document. My problem is that every so often the table inserts strangely and runs off the page. I have chalked it up to a word bug, but it is getting annoying. Has anyone else had this problem when inserting tables using code. Is there anything I can change below that might eliminate this seemly random problem. Is there a line of code that will correct this issue? ------------------------------ Public Sub InsertVotes() If FindVar("&VOTES") Then Selection.Delete unit:=wdCharacter, Count:=1 If (pubYEAS <> "" And pubYEAS <> "00") Or (pubNAYS <> "" And pubNAYS <> "00") Then InsertVoteBox Else ' Do nothing if no vote taken Selection.Delete unit:=wdCharacter, Count:=1 End If End Sub Public Sub InsertVoteBox() Selection.TypeParagraph ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) .PreferredWidthType = wdPreferredWidthPoints .PreferredWidth = InchesToPoints(0.67) .Columns(1).PreferredWidth = InchesToPoints(0.42) .Columns(2).PreferredWidth = InchesToPoints(0.25) .Rows.SetLeftIndent LeftIndent:=InchesToPoints(3), RulerStyle:=wdAdjustNone If .Style <> "Table Grid" Then .Style = "Table Grid" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False ' Added these characteristics: 7/26/06 .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0) .RightPadding = InchesToPoints(0) End With Selection.TypeText Text:="YEAS" Selection.MoveRight unit:=wdCell Selection.TypeText Text:=pubYEAS Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.MoveRight unit:=wdCell Selection.TypeText Text:="NAYS" Selection.MoveRight unit:=wdCell Selection.TypeText Text:=pubNAYS Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.MoveRight unit:=wdCharacter, Count:=2 End Sub Tag: break line based on hyperlinks Tag: 90842
  - 8
    - Can I accept all changes within a Selection range? Is there any way, either in code or by a Reviewing function I don't know about, to select a certain portion of the document and accept or reject all changes in just the selected range? Ed Tag: break line based on hyperlinks Tag: 90836
  - 9
    - Update Fields, VBA, nothing selected I have created a macro that takes over the functionality of the shortcut for Updating fields (F9). If any part of a certain section is selected when they press F9, I want another macro to run, which it does successfully. My problem is getting word to update fields as you would expect it to normally using VBA. You can normally put your cursor in any part or a field/TOC, and it will update that field when you press F9. If I record a macro, I get Selection.Fields.Update. If I use this in VBA, it doesn't think that any fields are selected, so nothing gets updated. Can anyone help me to find out if the cursor is in a field, and to then update the field if it is. Many thanks, KelW Tag: break line based on hyperlinks Tag: 90826
  - 10
    - How to speed up creation of docs without displaying them. Hiya - I am using this vba code below to create in excess of 4000 custom word docs based on a template. The code creates a new doc, fills out lots of tables , saves it to disk and then closes it within a loop. It works just fine but its taking about 3 hours to run, is there any way to speed it up. Im sure I was able to run it in "invisible mode" once before or something but cant figure that out now . Thx in advance. Sub BatchRun () 'On Error Resume Next Dim arrData, intSite, strQual, strOffice, intRow, strData, strSourceDoc, arrName, strName, strSite Dim objConn As Object Dim objRS As Object Dim strSelectList, strSQL, intCol Dim objFSO, objFile, arrLines ' Open the text file and read the contents into an arra Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objFile =3D objFSO.openTextFile("c:/batchrun/export.csv") strData =3D objFile.ReadAll arrLines =3D Split(strData, vbCrLf) ' kill the text file objects Set objFile =3D Nothing Set objFSO =3D Nothing ' open the database ready for selecting details Set objConn =3D CreateObject("ADODB.Connection") openDB objConn ' loop over the text files rows For intRow =3D 0 To UBound(arrLines, 1) strSourceDoc =3D ActiveDocument.FullName Documents.Add strSourceDoc ' Read the qualcode, Site ID and Office Name arrData =3D Split(arrLines(intRow), ",") strQual =3D arrData(0) intSite =3D arrData(1) strOffice =3D arrData(2) strSelectList =3D "SiteName,Add1,Add2,TownCity,PostCode,County,Telephone " strSQL =3D "SELECT " & strSelectList & " FROM vwSites " & _ "WHERE SiteID=3D" & intSite Set objRS =3D objConn.Execute(strSQL) If Not objRS.EOF Then ' Write the centre details ' small sitte id in table 3 With ActiveDocument.Tables(3) .Rows(1).Cells(5).Select Selection.Text =3D "Site ID: " & intSite End With ' other site details in table 1 With ActiveDocument.Tables(1) .Rows(4).Cells(2).Select Selection.Text =3D objRS("SiteName") .Rows(5).Cells(2).Select Selection.Text =3D objRS("Add1") .Rows(6).Cells(2).Select Selection.Text =3D objRS("Add2") .Rows(7).Cells(2).Select Selection.Text =3D objRS("TownCity") & " " & objRS("PostCode") .Rows(8).Cells(2).Select Selection.Text =3D objRS("County") .Rows(9).Cells(2).Select Selection.Text =3D objRS("Telephone") End With End If strSite =3D Replace(Left(objRS("SiteName"), 10), " ", "_") ' write the module details / crosstab bit strSQL =3D "SELECT QualTitle, QualUnitCode,UnitTitle, Office, CourseFee, UnitFee,FullName FROM vwQualUnits " & _ "WHERE QualCode=3D'" & strQual & "' ORDER BY QualUnitCode" Set objRS =3D objConn.Execute(strSQL) If Not objRS.EOF Then ActiveDocument.Tables(1).Rows(3).Cells(2).Select Selection.Text =3D strQual & " " & objRS("QualTitle") ActiveDocument.Tables(1).Rows(1).Cells(5).Select Selection.Text =3D objRS("Office") intCol =3D 8 ' start of the unit columns While Not objRS.EOF ActiveDocument.Tables(2).Rows(1).Cells(intCol).Select Selection.Text =3D objRS("QualUnitCode") & " " & objRS("UnitTitle") intCol =3D intCol + 1 objRS.MoveNext Wend objRS.MoveFirst ActiveDocument.Tables(3).Rows(1).Cells(2).Select Selection.Text =3D "@ =A3" & objRS("CourseFee") ActiveDocument.Tables(3).Rows(2).Cells(2).Select Selection.Text =3D "@ =A3" & objRS("UnitFee") arrName =3D Split(objRS("Fullname"), " ") strName =3D Left(arrName(0), 1) & Left(arrName(1), 1) ' name it qual_site_account manger initials and oput in relevant office folder ActiveDocument.SaveAs ("c:/batchRun/" & strOffice & "/" & strQual & "_" & strCentre & "_" & strName & ".doc") ActiveDocument.Close End If Next ' clean up objRS.Close Set objRS =3D Nothing objConn.Close Set objConn =3D Nothing End Sub Tag: break line based on hyperlinks Tag: 90823
  - 11
    - Temp Files Hi, I have some word templates with VBA code behind that are in a shared location and clients use them by pointing thier Workgroup Templates to them. Every now and then we have to delete a bunch of temp files, sometimes hundereds, there is usually one for each template called ~$<Template Name>.dot and then many more with the names like ~WRLxxxx.tmp. Can anyone explain why this is happening and how to solve it. Thanks. Tag: break line based on hyperlinks Tag: 90819
  - 12
    - line break with different style Hi, I have a table cell which have two lines of text broken by ctrl+enter. I able to read the text and seperate it using line seperator but the thing is first line of the text is a hyperlink. any idea how can i retrieve them as a Paragraph/anything so i can retrieve their style, hyperlinks individually? Tag: break line based on hyperlinks Tag: 90818
  - 13
    - Repeat code on each page Hi, I am new to VB and still getting a handle on things. How do I repeat the below code for each new odd numbered page. If this requires the use of line numbers instead of paragraph numbers to set the range, see the remark in code. Josha Code: Sub Test3() Dim pChar As Variant Set myDoc = ActiveDocument 'The following example creates a Range object beginning at the start 'of the second paragraph and ending after the third paragraph. 'The corresponding line numbers that need to be used are ln10 to ln15. 'The code must be repeated for each odd numbered page. Set myRange = myDoc.Range(Start:=myDoc.Paragraphs(2).Range.Start , _ End:=myDoc.Paragraphs(5).Range.End) For Each pChar In myRange.Characters If pChar Like "[A-Z]" Then pChar.Select Selection.Range.Case = wdTitleWord End If Next End Sub -------------------------------------------------------------------------------- Tag: break line based on hyperlinks Tag: 90813
  - 14
    - Find Replace w negated option I have a procedure that eliminates all extra spaces (i.e., more than 2 in a row) from the document. However, there is one particular style which has a mono type, and spaces are used to line things up. I want my routine to search the document and ignore only the paragraphs formatted in that style. Here is the routine, and a representation of what I want to do (but which doesn't work): Sub DeleteExtraSpaces() ' ' Replaces any instance of 3 or more spaces with 2 spaces only. ' If Not TrackChanges Then With ActiveDocument.Content.Find .ClearFormatting .Replacement.ClearFormatting .Font.Underline = wdUnderlineNone .Style <> "BriefXScript" ' This is what I want to do, but get an error. .Forward = True .Wrap = wdFindContinue .MatchWildcards = True .Execute FindText:=" {3,}", ReplaceWith:=" ", Replace:=wdReplaceAll .ClearFormatting End With End If End Sub Thanks in advance! Tag: break line based on hyperlinks Tag: 90811
  - 15
    - Break OLE links in Word Does anyone know hw to programmatically "Break Links" in Word to an Excel spreadsheet? I have multiple links at different points in a document that is used as a template to produce a final report (as a new file). I want to ensure that once the report is completed (programmatically) that all the links are broken so that when it (the new file) is opened again no further updating will be done. Thx. Tag: break line based on hyperlinks Tag: 90810
  - 16
    - Check if Word is composing an E-Mail Message? Is it possible to determine if the user is in an email message as opposed to a regular Word document? Tag: break line based on hyperlinks Tag: 90806
  - 17
    - lyrics with chords Nowhere on the net have I found a tool for writing the song lyrics AND the cords in anyway other than by using fonts like courier, helvetica, Times etc. where every letter, sign og space have the same size. And then you have to write the lyrics on every other line and the cords on the line above. The problem is that it is very time consuming, it's not very graphically nice to look at, it's time consuming to alter the key (e.g. from C-mayor to D-mayor) and it makes it difficult if not impossible to integrate song lyrics with cords into normal documents, and so on and so forth. It would be a BIG help to all musicians world wide if a way could be found to attach a chord to a single caracter or even to a space between caracters so that no matter where that caracter is moved - it will have the chord written above it. Better still if someone could programme a macro or funktion where the above mentioned chords could be transposed from one key to another. It shouldn't be impossible as chords or notes could be assigned a numeric value and if you e.g. transpose a song from C-mayor to D-major it would mean that all chords would have to transposed accordingly: from C to D = 2 half-notes or 2 steps on a full scale: C - C#(=Db) - D - D#(=Eb) - E - F - F#(=Gb) - G - G#(=Ab) - A - A#(=Bb) - B - C I hope others will support this idea as it would make MicOffice an even more essential tool. ---------------- 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=dfed2c41-8a9d-459b-bb67-401461fe5881&dg=microsoft.public.word.vba.general Tag: break line based on hyperlinks Tag: 90805
  - 18
    - Filter an array Hey! I have a multidimensional array and I wan't to filter this array into an other variable. The array is something like A(Projectnr, SampleNr, Info) and I would like to be able to show just those records that have projectnr = B. Is there an easy way to do this? Hope someone can help me. Thanks. Hege Tag: break line based on hyperlinks Tag: 90803
  - 19
    - table cells I have a document with 1 table composed by2 columns. How can i write to take all the context for example of the tables(1).cell(index,2) ? Tag: break line based on hyperlinks Tag: 90800
  - 20
    - bookmark macro question I have a VBA addin for word that will fill in multiple bookmarks in a document. So, if i have bookmarks in a document bkName, bkName1, bkName2, ect.......throughout the document the program will fill in the name in the right spot. it simply looks for a new My users are novices. i am trying to build them a toolbar to simplify the process. i have the toolbar built which includes a bunch of buttons using code like: Sub bkName() With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="bkName" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub I know the program uses the following code to loop thru filling in the bookmarks Private Sub SetBookmarkText(doc As Document, ByVal Name As String, ByVal Value As String) On Error Resume Next With doc .Bookmarks(Name).Range.Text = Value Dim i As Integer i = 1 Do While .Bookmarks.Exists(Name & CStr(i)) .Bookmarks(Name & CStr(i)).Range.Text = Value i = i + 1 Loop End With End Sub How would i modify the bookmark creation code to check for an existing bookmark and LOOP thru to create them? So, if bkName is already in the document it will insert a bookmark bkName1 and if bkName1 is already in it will do bkName2 any direction would be appreciated. thanks JB Tag: break line based on hyperlinks Tag: 90797
  - 21
    - Cascading/Conditional Dropdowns Hi All I am new to this discussion group - thanks for providing it. I have a situation similar to another user who wanted to programmatically populate a dropdown based on the results of the previous dropdown. The user was provided the following code: Sub PopulateSubCat() Dim oFld As FormFields Set oFld = ActiveDocument.FormFields Select Case oFld("Cat").Result Case Is = "A" With oFld("SubCat").DropDown .ListEntries.Clear .ListEntries.Add "Apples" .ListEntries.Add "Apricots" .Value = 1 End With Case Is = "B" With oFld("SubCat").DropDown .ListEntries.Clear .ListEntries.Add "Blueberries" .ListEntries.Add "Bananas" .Value = 1 End With Case Is = "C" 'Etc. End Select End Sub My situation is somewhat different however in that I need to programmatically populate the first dropdown as well. The first dd I need to populate is for group offices. Word limits the entries in a dropdown (as I am sure you well know) to 25 and there are approx 30 group offices. The second dropdown I want to populate is sales reps and I want to populate the dd based on the selection in the group office dd. I also have a third dd which will be account assistants which I would like populated based on the group office selection as well. For example, if the user selects Atalnta from the (programmatically populated) Group Office dd, I want the Sales Rep dd and Account Assistants dropdowns to populate with sales reps and account assistants in the Atanta Group Office. Also, I have a Cost Center field I would like to have populated with the cost center of the group office selected in the first dropdown). In other words, on selection of the group office I want the sales reps for that group office to display in the Sales Reps dd, account assistants for that group office to display in the Account Assistants dropdown and the cost center for that group to appear in the Cost Center field. Is it going to take a ton of code to accomplish this? Not that mind a little work mind you and I love VBA (although I have never used it in Word) but I am a little intimitated b/c my experience with VBA is in Access and somewhat limited in that I use basically the same code over and over again in different scenarios. Anyway, any help with this woud be greatly appreciated. Oh, sorry for the long post - I just wanted to make sure I was clear on what I want to do. btw: I believe it is Office 2000 I am using at work (I just started 3 weeks ago so I am not 100% sure but I believe it is 2k) Thanks so much Dattagal Tag: break line based on hyperlinks Tag: 90786
  - 22
    - Word 2003 Find/Replace Doesn't Ignore Deleted Text I'm trying to write a macro that finds & replaces several things all in one batch. Track changes needs to be on. The problem is that the "finds" also see and act on deleted text. How can I run a find and replace that ignores the deleted text? I know this was a problem in Word 97 because I found a KB article on it. Surely they fixed it by now? I have tried limiting finds for black text or font style normal...that doesn't work. Tag: break line based on hyperlinks Tag: 90776
  - 23
    - using checkbox to delete a section of text I have a template that has 20 sections that I use daily and need to be able to delete different sections each time. I am not sure what the best way would be to set it up but I think that I would like to have a UserForm come up when the document is opened that would list all of the sections with check boxes by each. Then I could select the check boxes that go with each section that I want to keep and then when I exit the user form all of the unchecked items are deleted. I am open to different suggestions if there is an easier way. thanks alot for the help. Tag: break line based on hyperlinks Tag: 90775
  - 24
    - IF statement with empty text field won't work I'm working on a document and want this to happen: Document asks "Username?" using the ASK field. If something is typed in, i want it to display Username: and then the persons username, but if nothing is typed in the box, i want it not to show anything, not even the "Username:" label. Word is seeming to have trouble with the 'nothing' part of this. Here is what i've tried which hasnt seemed to work: { ASK user "Username:" } { IF user = "" " " "Username:{user}" } Any help will be much apreciated! Tag: break line based on hyperlinks Tag: 90772
  - 25
    - Transferring autotext I need a way to transfer AutoText between two normal.dot templates. I'm guessing this might be possible with VBA. Any suggestions as to how to reference the autotext object? Preferably the solution should also work for older versions of Word. Note this refers to autotext, NOT autocorrect entries. (often a source of confusion!) ------------------------------- An alternative approach to XP network logon - http://mylogon.net Tag: break line based on hyperlinks Tag: 90765
- Next
  - 1
    - Removing specific characters when preceded by one or more spaces Hi: I want to remove the forward slash from a document if and only if it is preceded by one or more spaces. i.e. â??abc/â?? is OK but â?? /â?? or â?? /â?? or â?? /abcâ??â?¦ is not. The following code successfully removes the forward slash character that is preceded by a single space from a document and replaces it with a highlighted space. So if there are 2 or moreâ?¦spaces before the forward slash, I want it to be removed and replaced with a highlighted space. (I am fine with all the spaces being removed and simply replacing the entire string with a single space.) What do I need to do to modify the code to accomplish such? Any help is greatly appreciated. 'Removes / proceeded by a single space and replaces with a highlighted space Dim rDcmForwardSlash As Range Set rDcmForwardSlash = ActiveDocument.Range With rDcmForwardSlash.Find .Text = " /" .Replacement.Highlight = True .Replacement.Text = " " .MatchWildcards = False .Execute Replace:=wdReplaceAll End With Tag: break line based on hyperlinks Tag: 90764
  - 2
    - open a list of check boxes I use the same document on a regular basis but have to select specific paragraphs to delete each time. I have created a macro to delete each paragraph but would like to have a form that pops up when the template is opened that has a check box for the paragraphs that I would like to keep in the final document. Thanks for all of the help. Tag: break line based on hyperlinks Tag: 90759
  - 3
    - test - ignore Just testing my configuration -- Axel [1062029] {RC1 - 5600} Share what you know, Learn what you don't. Tag: break line based on hyperlinks Tag: 90758
  - 4
    - copy menu bar Is there anyone know how to copy menu bar from a template to another word document that's not created by the template? I created a menubar in a word template and would like to copy it to other word doc as well. The only thing that I can do is copying its macro to normal.dot which would be applied to all word docs but it doesn't copy the menubar as well. Thanks in advance! Tag: break line based on hyperlinks Tag: 90751
  - 5
    - Macro in Word: Switching between two documents Word 2003: I want to build a macro using my key board keys. (Alt/z). I want to loop my macro with hitting the "Alt/z" keys once. Taking text from document 1 -- I will tell me macro to look for a particular character in document 1 and placing the text into document 2. I'm looking for the macro to go throught the entire document until it reach the end of the document. Tag: break line based on hyperlinks Tag: 90750
  - 6
    - Find & Replace or Macro - Which is better? Hello, I tried finding a solution by myself, but no-can-do. How can I tell Word to: a) Find the dollar sign ($) and; b) Place it at the end of the amount instead of the beginning, i.e., change $10,000 for 10 000 $. It also has to be preceded by a hard space. Thank you! HÃ©lÃ¨ne Tag: break line based on hyperlinks Tag: 90744
  - 7
    - replace manual page breaks Is it possible to programmatically replace all manual page breaks in a document with Next Page Section Breaks? Thanks. -- tj Tag: break line based on hyperlinks Tag: 90738
  - 8
    - Counting References/paragraphs of a given style?? We currently have a macro to loop through a document and cound "references" which are marked with a specifc style so that we can find them. The issue is that this code seems to be hanging Word and not sure why. Does anyone have any ideas on what the issue is or a better way to handle this? With ActiveDocument.Range.Find .Style = "My Reference" While .Execute l = l + 1 If l > ActiveDocument.Range.Paragraphs.Count Then GoTo endloop End If Wend End With endloop: ActiveDocument.CustomDocumentProperties("RefCount") = l Tag: break line based on hyperlinks Tag: 90730
  - 9
    - wdUserOptionsPath hello, we have special made templates for word 2000 now i want to migrate to word 2003. in word 2000 there was a wduseroptionspath, you can find this option under filelocations in word 2003 this is not a option anymore. Now i have problem because the templates are looking for info but the location isn't there anymore. I don't wont to change the whole code. So does anybody now where i can change the location for wdUserOptionsPath??? Greetingz. Tag: break line based on hyperlinks Tag: 90722
  - 10
    - Low performance when extracting data I have written a macro to extract data from the active document. The macro should be a part of an algorithm to auto detect headings. The problem is that I get very long delays when accessing the DOM. A code-snippet that show this behavior: Dim nCount as Long Dim oSents as Sentences Dim sText as String Set oSents = ActiveDocument.Sentences if not oSent is nothing then nCount = oSents.Count if nCount > 1 then sText = oSent.Item(nCount - 1).Text endif endif For certain documents the Sentences::Count will take approx. 10s to execute. Range::Text takes also approx 10 s to execute. The document is quite simple with a TOC (~300 items), body text and a lot of heading. The document has 123 pages. I a would try to iterate through all sentences in this document it would have taken to long time to be acceptable. However, if I remove the table of content, then the execution time will be below 1 s. Could someone explain why and is there any settings in Word that I could modify to get rid of this problem? I have tried to run Word in safe mode and also protected the document for editing with no performance differences. I am running Word 2003 and Win XP SP 2. My computer does not lack in performance. Jonas Tag: break line based on hyperlinks Tag: 90717
  - 11
    - Button on page to run macro Having transferred a module containing a series of subroutines from 'Normal' to a Word document I want others to be able to run two of the subs from that document since they will not understand how to transfer the module to their Normal file. Question How can I assign a macro to an object on the page which the user can click to run the macro? In XL that's simple but in Word I cannot see how to do it. Francis Hookham Tag: break line based on hyperlinks Tag: 90712
  - 12
    - Automatic printing in background using different printers Hello, i got a serious problem using automatic printing... with several scheduled vbs tasks i start different word - documents, containing vba. Each document prints out on a different printer. Sometimes those documents are started at the same time which results in printer confusion. first document chooses "ActivePrinter= xyz" while the other document chooses an other one. Now the first doc is printed on wrong location or a dialogue states me to put in save as prn file... Is there any way to tell word not to change the printer for the whole windows environment but only for the started application? I tried out a lot, but Application.ActivePrinter= "someprinter" results in changing the standard printer of windows. I do appreciate a lot your help, thanks! Daniel Tag: break line based on hyperlinks Tag: 90711
  - 13
    - MS Word question The residental inspector that I used did his reports in Word and had a feature that would automatically type a sentence based on a few typed keywords. Ex. " good shingle roof" would automatically insert a sentence like "The roof is composition shingle and is in good condition with no visible defects." Can someone tell me how to create this? Thanks. Tag: break line based on hyperlinks Tag: 90707
  - 14
    - Mail merge Datasource Will Not Change Records I am writing a vba app to automate a mail merge document. The doc is connected to an access database. The datasource retrieves the data just fine. Then I set all of the records include flags to false (thus excluding them from the merge). Next I iterate through the list to include ones that meet a criteria that the user has selected from a userform. If the criteria is met, a function is called that sets the activerecord to the first record (wdFirstRecord, I think). Then I use the find method to point the activerecord to the correct record, and finally set the included property to true. The problem is that neither the .activerecord = wdFirstRecord, nor the Find method changes the record position, it remains at 1. Nothing I've tried and nowhere I've looked has said anything about the records not being able to move. Is there something in the connection string that can cause this, or some property I'm not setting correctly? There are more records in the set than just one, so that's not the problem. Any help would be appreciated. Tag: break line based on hyperlinks Tag: 90698
  - 15
    - Converting Word 2002 macros When trying to open a project in the Word VBA screen I get an error that says: Title:Project Locked Message: Project Unviewable. How do I open it? The template was loaded at startup and I can run the macros, but I can not edit them. Thanks. matt R Tag: break line based on hyperlinks Tag: 90695
  - 16
    - Shading/Highlighting I'm interested in having certain pieces of text highlighted or shaded on the screen but not when printed. What's the easiest way to accomplish this? Tag: break line based on hyperlinks Tag: 90687
  - 17
    - get section name I need to find a section number and get its name to store it in a variable. Example: 1.1 Introduction Need to find 1.1 and then store"introduction" into a variable. Anyone know how to do that? Thanks! Tag: break line based on hyperlinks Tag: 90683
  - 18
    - .Activate method not working One of my users recently upgraded to Word 2003, and the Documents(index).Activate method does not seem to be working on their computer. Though it works on other users' computers, those with Word 2003 and Word 2000... When the .Activate method is used on this user's computer, the selected document is brought to the front of the window order, but the ActiveDocument does not change. The ActiveDocument object continues to point to whatever was the active document before the .Activate command was used. Anyone know what could be causing this? Or should I just get to work on eliminating the .Activate command from my code? Thanks Tag: break line based on hyperlinks Tag: 90681
  - 19
    - Simple(?) calculation question I have a EXCEL spreadsheet from one of our clients that I need to convert to a form in Word, but I'm having trouble converting one of their calcluations. In Excel the formula is =O95*(1-P95) That's it. Cell O95 contains a dollar amount ($672) and cell P95 contains a percentage (7.8%) The answer in Excel is $620 No matter how I set this calcuation up in Word in the form field, I can't get the same answer...not even close. The field with the original number ($672) is named ModifiedPremium and I've tried =(ModifiedPremium)*7.8 =(ModifiedPremium)*(1-7.8) =(ModifiedPremium)*(1-(7.8)) Etc... Anyone know how this calculation SHOULD look? Thanks. Tag: break line based on hyperlinks Tag: 90680
  - 20
    - normal.dot in Office 2000 not working in Office 2003 I have been using a normal.dot in Office 2000 that is used on the new users machines when they are set-up. When I tried to use this normal.dot on the new user machines that are running Office 2003 it is not being accepted. This normal.dot has all the macros, set-up and automatic text in it. These new users are not being able to use these items when they open Word. They have the default font and default information without any of the customized information that is included in the normal.dot I have been giving them. I really nead to be able to find out how to use this customized normal.dot. I hope that someone has some information for me. Thanks in advance. Tag: break line based on hyperlinks Tag: 90676
  - 21
    - Markup View in Word 2003 - Need code to turn it off if it's on Hi, Everyone: I'm trying to find a way to turn off View, Markup that I can add to the code that's executed with my templates. I found the following in another message/thread, but I don't think this will work for me. ........ ActiveDocument.TrackRevisions returns a Boolean True if Track Revisions is turned on. You can turn it on using: ActiveDocument.TrackRevisions = True or off with: ActiveDocument.TrackRevisions = False ------- I don't want to make it stop "tracking" changes since the users may need it. I just don't want it EVER to DEFAULT to viewing them (which it has been - OFTEN - it's driving me crazy). When I tried recording a macro while turning off Markup View, all I got was the following line: WordBasic.ViewChanges ..which seems to be telling it to turn Markup View ON instead of OFF (which tells me that it's probably just a toggle switch. Is there a way to check to see if it's already in Markup View before doing the toggle (using an if statement), like this? If (some code to check for Markup View, NOT document tracking) = True then WordBasic.ViewChanges End if Does anyone have any suggestions? Thanks in advance, Peg -- Message posted via http://www.officekb.com Tag: break line based on hyperlinks Tag: 90675
  - 22
    - Select text with macro based on criteria Hi, I am a newbie trying to self teach VB. I am pretty useless so please be gentle. I am trying to write a macro to allow me to select text in MS Word based upon its case. I want to select all the text in the document that is in all caps. Is this possible? Also, is it possible to exclude 34 specific two letter strings of text? The reason for this that specific "class codes" need to appear in in caps. Can anyone help? As i said, i am pretty useless at this stage, so sample code would be awsome. Josha Tag: break line based on hyperlinks Tag: 90655
  - 23
    - All caps to Proper caps Hi I need to create a macro that will start at the begining of a Word document and select all sections of text that are in ALLCAPS. It then must change the instances of all caps to title or proper caps. However there are specific two letter codes that must remain as all caps. Is this possible? Basically, a mail merge that uses a database query as the datasource is importing address and name details in allcaps. To maintain professionalism, it is desired that these items are in proper caps. However, the letter contains two letter 'class codes' that must remain in all caps (eg. BI, FH, LF, NM). I am only just learning VB and can only get the macro the select the whole document and change it to proper caps. Manually selecting the required text is not an option because the merge contains many records. This would take too long. My other thought was to use a macro to select specific line/column reference to select the required text, then change it to proper caps, then repeat for each page. I dont know how to do this either and it is not ideal as the template letter may change, invalidating the references. Any help would be much appreciated. I am *very* new to VB, so sample code would be great. Josha -------------------------------------------------------------------------------- Tag: break line based on hyperlinks Tag: 90654
  - 24
    - Spell check fields from a data base We have a custom data base application that merges with Word 2000 to produce documents. The documents contain fields that are populated from the databse and converted to text when the data and documents are meged together. Once a document is produced, the Word spellcheck will not check any text that has come from the fields in the database. I have set up a macro to run when the documents merge to try and rectify the spellcheck problem, however this only results in the spellcheck checking the first incorrect word and then stating that the spellcheck is complete even though we know there are further mispelled words in the document. The code for the macro is as follows: Selection.WholeStory Selection.LanguageID = wdEnglishAUS Selection.NoProofing = False Application.CheckLanguage = True After the document merges, the macro runs automatically and then we run the spellcheck manually with the result that only the first mispelled word is checked. Any suggestions? thanks, Tag: break line based on hyperlinks Tag: 90653
  - 25
    - This dosn't work with multiple selection Sub ShowSelection() Dim strText As String strText = Selection.Text MsgBox strText End SubThis just shows the latest selected text.What I have to do to get multiple selection? Tag: break line based on hyperlinks Tag: 90651

Hi,
I have multiple line in a table cell, each of them contains hyperlinks
including plain text. is there any way to get them seperately with the
hyperlink address ?

Top

Re: break line based on hyperlinks by Jezebel

Jezebel
Tue Sep 12 01:57:24 CDT 2006

Dim pLink as Word.Hyperlink
For each pLink in [cell].Range.Hyperlinks
... pLink.Address

What you put in place of [cell] depends on how you're getting this reference
in the first place.

<lain.kou@gmail.com> wrote in message
news:1158038974.989253.247730@p79g2000cwp.googlegroups.com...
> Hi,
> I have multiple line in a table cell, each of them contains hyperlinks
> including plain text. is there any way to get them seperately with the
> hyperlink address ?
>

Top