Adding Hyperlink Text, then deleting

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - List of Available Dialog boxes in Word (VBA) Does anyone happen to have a list of all the built in Dialog Boxes in Word that can be called using VBA? Tag: Adding Hyperlink Text, then deleting Tag: 94548
  - 2
    - dealing with missing references Hi! I have a problem where I reference som dll-files that are available when I work connected to the network, but not when I work off line. Hence when I use Word off line I get an error. Any ideas? Trap it through on error? Something else? Best /e Tag: Adding Hyperlink Text, then deleting Tag: 94546
  - 3
    - Edit Keylog File Hi everyone. A keylogger I have spits out a file that is very difficult to read! My daughter makes a ot of mistakes typing, so there are a lot of backspaces! Unfortunately, the keylogger records a backspace as [Backspace]. Is there a way to write code to start at the beginning of the file and essentially do an edit/replace, deleting [Backspace] AND the character before it? Thanks!! Tag: Adding Hyperlink Text, then deleting Tag: 94540
  - 4
    - XML and validation I have 2 big problems with an XML Validation: First I want to load an XML File, attach a XSL Schema and validate it: Set xmdoc = Documents.Open(filename) 'schema anbinden blnSchemaAttached = False For Each objNS In Application.XMLNamespaces If objNS.URI = uriSchema Then 'objNS.AttachToDocument xmdoc blnSchemaAttached = True Exit For End If Next If blnSchemaAttached = False Then 'xmdoc.XMLSchemaReferences.Add "bbreport.xmlref.sp", "bbreport", pathSchema, True Set objNS = Application.XMLNamespaces.Add(pathSchema, uriSchema, "bbreport", True) End If objNS.AttachToDocument xmdoc xmdoc.XMLSchemaReferences(uriSchema).Reload xmdoc.XMLSchemaReferences.AutomaticValidation = True 'Schemaverletzungen prÃ¼fen xmdoc.XMLSchemaReferences.Validate If xmdoc.XMLSchemaViolations.count > 0 Then ' ValidationStatus <> wdXMLValidationStatusOK Then MsgBox "error" End If But it's not possible to validate, the code doesn't recognize not valid xml Files. The second problem comes creation a new file: I create e new file and want to attach an existing schema. Set formdoc = ActiveDocument 'neues dok und Schema anbinden Set xmdoc = Documents.Add xmdoc.XMLSaveDataOnly = True blnSchemaAttached = False For Each objNS In Application.XMLNamespaces If objNS.URI = uriSchema Then 'objNS.AttachToDocument xmdoc blnSchemaAttached = True Exit For End If Next If blnSchemaAttached = False Then Set objNS = Application.XMLNamespaces.Add(pathSchema, uriSchema, "bbreport", True) 'xmdoc.XMLSchemaReferences.Add "bbreport.xmlref.sp", "bbreport", pathSchema, True 'objNS.AttachToDocument xmdoc End If xmdoc.XMLSchemaReferences(uriSchema).Reload In the last line I get an Error, I dont understand. It seems, like I need another XML Schema beside my own Schema to save the doc. It would be very nice, if someone had any ideas for me Stefan Tag: Adding Hyperlink Text, then deleting Tag: 94536
  - 5
    - formatting table cells with WordArt I'm trying to create a sheet of labels to use on book spines. Each label will contain one letter formatted and colored with WordArt and centered on the label (first letter of author's last name). I've managed to create a sheet of labels containing the one letter centered in each label, but I can't seem to figure out how to automate changing the letters to WordArt, although I can do it manually. I was attempting to loop through each cell (standard Avery label layout), select the text and change to WordArt, and then change the color of the text. I did manage to do it once, but the WordArt all ended up in the middle of the document. Can anyone tell me how to loop through, select the text in each cell and change it to WordArt in the same spot? Recording the macro gives me the middle of the document as anchor points - I can't figure out what the anchor points would be for each label. Any suggestions would be greatly appreciated! Jane Tag: Adding Hyperlink Text, then deleting Tag: 94534
  - 6
    - Vb and MS Word Hi There I seem to be having some problems with my coding and am looking for some help. I am designing an application in VB 2005 use for editing spelling and grammar errors in MS Word documents. The application would check and edits, as well as proof read MS Word documents. The following is a snippet of the code I am working on: 1 Dim wordapp As New Word.Application 2 Dim doc, temp, temp1 As Word.Document\3 3 4 5 6 'Determinig whether Word is running or not 7 While wordapp.Visible = True 8 doc = wordapp.Templates.Application.ActiveDocument 9 10 wordapp.ActiveDocument.Content.Text = RichTextBox2.Text 11 'doc = wordapp.ActiveDocument 12 'wordapp.ActiveDocument.Content.Text = RichTextBox2.Text 13 ToolStripStatusLabel2.Text = doc.Words.Count 14 15 End While 16 17 If wordapp.Visible = False Then 18 wordapp.Visible = True 19 If wordapp.Visible = True Then 20 temp = wordapp.ActiveDocument 21 End If 22 temp = wordapp.Documents.Add() 23 temp = wordapp.ActiveDocument 24 temp.Content.Text = RichTextBox2.Text 25 26 'doc = wordapp.ActiveWindow 27 'wordapp.Selection.TypeText(RichTextBox2.Text) 28 'wordapp.ActiveDocument.Content.Text = RichTextBox2.Text 29 ToolStripStatusLabel2.Text = doc.Words.Count 30 31 ElseIf wordapp.Visible = True Then 32 temp = wordapp.Documents.Add() 33 doc = wordapp.ActiveDocument 34 'temp = doc 35 'doc.Content.Text = RichTextBox2.Text 36 'doc = wordapp.ActiveDocument 'set doc to activedocument 37 wordapp.Selection.TypeText(RichTextBox2.Text) 38 'ActiveDocument.Content.Text = RichTextBox2.Text 39 ToolStripStatusLabel2.Text = doc.Words.Count 40 End If The problem appear in line 17 -24 where I am checking to see whether a MS Word document is open or not. The doccument could be one currently used by the user or one that have been saved or just a new document. My question is as follows: â?¢ In line 17 â?? 21 of my code, I am attempting to see whether or not the MS Word application is running or not. If the application is runninng and a file is use, I want that file assign to ActivateDocument. â?¢ On my form there are two rich text boxes: one is for displaying the paragraph containing the spelling and writing errors. The second, displays the whole document. My problem is whenever I enter text into the text box, instead of that typed text into the activated document it appears in a new MS Word Document. I would be grateful if anyone can advice me how to overcome this problem. Thanks, Immy â?? Tag: Adding Hyperlink Text, then deleting Tag: 94528
  - 7
    - I thought that I had a basic understanding of errors This is a multi-part message in MIME format. ------=_NextPart_000_0026_01C7170E.4D45F5C0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Can someone help me understand why TestA works and TestB and TestC do = not: Sub TestA() On Error Resume Next Err.Raise 6 On Error GoTo SubErr: Err.Raise 13 SubErr: MsgBox "Eureka!!" End Sub Sub TestB() On Error GoTo Err_Handler Err.Raise 6 Err_Handler: On Error GoTo SubErr: Err.Raise 13 SubErr: MsgBox "Eureka!!" End Sub Sub TestC() On Error GoTo Err_Handler Err.Raise 6 Err_Handler: On Error Resume Next Err.Raise 13 MsgBox "Eureka!!" End Sub In TestB and TestC, I have tried about every combination of GoTo, = Resume, Err.Clear, that I can think of. I don't understand why the code = isn't handling the second error. thanks. --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0026_01C7170E.4D45F5C0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.5730.11" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>Can someone help me understand why TestA works and TestB and TestC = do=20 not:</DIV> <DIV> </DIV> <DIV>Sub TestA()<BR>On Error Resume Next<BR>Err.Raise 6<BR>On Error GoTo = SubErr:<BR>Err.Raise 13<BR>SubErr:<BR>MsgBox "Eureka!!"<BR>End = Sub<BR></DIV> <DIV>Sub TestB()<BR>On Error GoTo Err_Handler<BR>Err.Raise=20 6<BR>Err_Handler:<BR>On Error GoTo SubErr:<BR>Err.Raise = 13<BR>SubErr:<BR>MsgBox=20 "Eureka!!"<BR>End Sub<BR></DIV> <DIV>Sub TestC()<BR>On Error GoTo Err_Handler<BR>Err.Raise=20 6<BR>Err_Handler:<BR>On Error Resume Next<BR>Err.Raise 13<BR>MsgBox=20 "Eureka!!"<BR>End Sub<BR></DIV> <DIV>In TestB and TestC, I have tried about every combination of GoTo, = Resume,=20 Err.Clear, that I can think of.  I don't understand why the code = isn't=20 handling the second error.  thanks.<BR>-- <BR>Greg Maxey/Word=20 MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_0026_01C7170E.4D45F5C0-- Tag: Adding Hyperlink Text, then deleting Tag: 94525
  - 8
    - How to keep Microsoft Word from automatically doublespacing???? PLEASE Help!! Hello, A re-occuring problem I've been having w/ Microsoft Word is this- If I put an extra line between one line of text and another, like this... Here is my text Here is the next line ....and if I do this several times, Word automatically starts doing it for me. But when it comes time when I don't want an extra line between lines (i.e. I don't want it double- spaced), I'm unable to do so. In other words, Word automatically double spaces when I push 'Enter'. I have spent hours trying to figure out this problem. I have gone through every possible automatic setting. So if someone could PLEASE tell me how to keep Word from automatically doing this, that would be wonderful!!! Thanks so much everyone for your time and help! Tag: Adding Hyperlink Text, then deleting Tag: 94523
  - 9
    - How to keep Microsoft Word from automatically doublespacing???? PLEASE Help!! Hello, A re-occuring problem I've been having w/ Microsoft Word is this- If I put an extra line between one line of text and another, like this... Here is my text Here is the next line ....and if I do this several times, Word automatically starts doing it for me. But when it comes time when I don't want an extra line between lines (i.e. I don't want it double- spaced), I'm unable to do so. In other words, Word automatically double spaces when I push 'Enter'. I have spent hours trying to figure out this problem. I have gone through every possible automatic setting. So if someone could PLEASE tell me how to keep Word from automatically doing this, that would be wonderful!!! Thanks so much everyone for your time and help! Tag: Adding Hyperlink Text, then deleting Tag: 94522
  - 10
    - Application.version numbers for Word I'm trying to branch some code based on Aplication.Version numbers; I know that 2007 is version 12, and Word 2003 , but I don't know the other version numbers, and haven't been able to find them. Can someone help? Specifically, I need to differentiate Office 2007 versus Office 2000 or 2003, versus earlier versions. I'm guessing I can use this code: Dim versStr as String Select Case CInt(Application.Version) Case >=12: versStr = "Word 2007" Case 11: versStr = "Word 2003" Case 10: versStr = "Word 2000" Case Else: versStr = "Word 97 or earlier" End Select Can anyone verify these numbers for me?? thanks gary Tag: Adding Hyperlink Text, then deleting Tag: 94519
  - 11
    - APA style format template I am trying to make a template for APA style papers . I am all new at this and having a very hard time - HELP! Tag: Adding Hyperlink Text, then deleting Tag: 94512
  - 12
    - specfic file name macro from form fields entries I want a document to automatically have the file name entered when an employee clicks save or the save as. The file name will be a combination of two form fields (Text6 and Text70). Is there a way to get the entries from these two fields and append them into one file name? I also would like to these save at a specific location on a network drive. I have no experience in VB. Word 2003 Any help would be appreciated! Tag: Adding Hyperlink Text, then deleting Tag: 94509
  - 13
    - Height of the text in cell Hi folks. I need to write a macros that reduces size of text in table when it begin to resize in case of long string of text inserted ? Tag: Adding Hyperlink Text, then deleting Tag: 94503
  - 14
    - How do I turn off file conversion. It's affecting all my files All my files have becomeconverted to some strange text. I have no idea what I did or didn't do. The message comes up giving me 3 choices, Window (default) MS dos or other decoding. I've tried all 3 at various times but nothing works. I really need my files. Can someone sugest something? Tag: Adding Hyperlink Text, then deleting Tag: 94499
  - 15
    - Resources to support Word in multiple languages? I have a Word template with added menus, toolbars, forms, etc. Now I am supporting languages other than English. The problems come when I need to refer to Word menu items in my user interface or documentation. For example, I might need to tell users to go to: Menu: Help > SpecialTemplate Help or Menu: Insert > SpecialTemplate Symbols... Needed: "Help" or "Insert" in other languages (Spanish, French, German, etc.). Where can I find a reference that shows the menus and dialog boxes for Word in different languages? Are there other resources available for those of us who need to support Word in multiple languages? Approaches tried or unlikely to work: *************************** "Microsoft Terminology" is not Word-specific and does not cover menus. Examples of things not covered: what to call a "tab" on a MultiPage object, Word menus. www.microsoft.com/globaldev/tools/MILSGlossary.mspx Buying the multi-lingual version of MS Office with all the language packs needed as I need to support Word 97, 2000, 2002, 2003 and soon 2007 (unless this can be done without great expense) Tag: Adding Hyperlink Text, then deleting Tag: 94497
  - 16
    - Search not working as wanted G'day there One & All, I'm currently working on my first Word VB project (well, the first one I've not abandoned and forgotten about) and I've obviously got something wrong. I have some experience with VB for Excel, so most of the concepts ring a bell or two, but the Word object model escapes me and I'm still trying to get my head around it. I have 3 years worth of occurrence logs that I need to search for a specific string. The logs consist of a single table with some consistent entries. Unfortunately this string appears in all logs in one of those entries which I describe as a "heading area". I need to find it in the "narrative" section, not one of the heading areas. The logs are organised in Year Folders, with Month folders inside. The log names are the date for each daily log. I'm trying to perform the following tasks: 1. Use dialog to obtain enclosing folder for all documents - done. 2. Iterate through all subfolders to find log documents - done. 3. Search through each log in turn and search for one of the consistant headings, then commence searching from the next line down for the target word. If found, then store filename in base docuement and ... 4. Stop at end of document, and got to next one - done. Courtesy of the Word MVP pages, and this group's archives, I think I've got 1, 2 & 4 working OK. However 3 is giving me a few problems. I'm getting false hits, and missing occurrences of the target. Ergo, I've got something out of whack. I hope that someone here may be able to point me in the right direction. Here's my searching code: Application.Documents.Open FileName:=strPATH & strFILENAME (Do I need to "open"?) Application.Documents(strFILENAME).Activate With Selection.Find .Text = "Objectives C" ' Heading where search begins from next line .MatchWholeWord = True .Font.Underline = wdUnderlineSingle Do While .Execute Selection.GoTo what:=wdGoToLine, which:=wdGoToNext With Selection.Find .Text = "hotel" .Forward = True .Wrap = wdFindStop .MatchCase = False .MatchWholeWord = True If .Found = True Then strFULLNAME = Mid(strPATH & strFILENAME, 78, Len(strPATH & strFILENAME) - 77) ' Leave just parent folder and filename If Len(objSTOREDOC.Content) = 0 Then _ objSTARTRANGE.InsertAfter strFULLNAME & vbCr Else objSTOREDOC.Content.Select Selection.Collapse direction:=wdCollapseEnd Selection.InsertAfter strFULLNAME & vbCr End If End If End With Loop End With Application.Documents(strFILENAME).Close strFILENAME = Dir (This is repeated in a loop) Hopefully this will make sense and someone can point out a better way to do it. Thanks for listening, -- See ya, Ken McLennan Qld, Australia Tag: Adding Hyperlink Text, then deleting Tag: 94494
  - 17
    - Can't open certain help file pages Office 2003 In Word VBA (as well as Excel VBA), if I type a help term in the "Type a question for help" box, several help file pages shown as hyperlinks generally appear. However, those links with "(Visual Basic for Applications)" at the end of the help-page name do not work when I click on them. (Example: "Character Set (0-127) (Visual Basic for Applications)".) Nothing happens. Other hyperlinks, to Word-, Excel-, or Office-related VBA help pages, work fine in bringing up the relevant help page. In the Office 2003 installer, Office Shared Features > Visual Basic > Visual Basic Help is installed. Any ideas on how to make these help pages appear? Thanks. Tag: Adding Hyperlink Text, then deleting Tag: 94473
  - 18
    - Who has the file open? I have been using the code posted on the MVP site at http://word.mvps.org/FAQs/MacrosVBA/CheckIfFileOpen.htm and I would now like to find out who has the file open if it is open. Is this possible please? Thanks Stephen Tag: Adding Hyperlink Text, then deleting Tag: 94463
  - 19
    - How to install MS Word with out macro language capabilities ... I wonder how you could do something like that. . I don't mean disabling it or not letting certain users use it, but actually not installing this functionality at all . lbrtchx Tag: Adding Hyperlink Text, then deleting Tag: 94456
  - 20
    - Adding Multiple Rows to a Table in a Word Form First off I would like to thank all of the people that post, and all the people that respond. I have lurked for a long time, dependent on the Q&A of others. Today I have spent 12 hours reviewing and steeling snippets from all over the web. I have my table set up to add a row at the end of my table on my protected form, and to add a text form field to 5 of the 7 cells, and also add & populate 2 separate dropdown lists. This works and I could stop here. That being said, my table can be updated with only several rows or up to 5 full pages. I would like to tweak my VBA code to request some sort of input and it would populate that many rows. I am guessing that the best answer would be to loop my current code the number of times the user input. If so, I am guessing it should be fairly easy addition for the loop. Lastly, I am posting because I am sure there are other people that may / will be looking for a similar solution. I am enclosing my code below in case this information is needed to answer my question. I still have to update my comments, sorry. Sub AddRow2() Dim oTbl As Table Set oTbl = Selection.Tables(1) response = MsgBox("Would you like to Add a new row?", vbQuestion + vbYesNo) If response = vbYes Then ActiveDocument.Unprotect ' Disable the AddRow macro that is currently in the last cell ' (since we're creating a new last cell) Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, Selection.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro = "" Selection.InsertRowsBelow 1 Selection.Collapse (wdCollapseStart) myRow = Selection.Information(wdStartOfRangeRowNumber) Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput 'Selection.SelectCell Selection.Bookmarks.Add Name:="a1temp", Range:=Selection.Cells(1) myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text1row" & myRow .Enabled = True End With Selection.Bookmarks.Add Name:="a1temp", Range:=Selection.Range Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text2row" & myRow .Enabled = True End With Selection.MoveRight Unit:=wdCell Set myField3 = Selection.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormDropDown) myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text3row" & myRow .Enabled = True With myField3.DropDown.ListEntries .Add Name:=" " .Add Name:=" Files " .Add Name:=" Object " .Add Name:=" Report " End With End With Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text4row" & myRow .Enabled = True End With Selection.MoveRight Unit:=wdCell Set myField5 = Selection.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormDropDown) myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text5row" & myRow .Enabled = True With myField5.DropDown.ListEntries .Add Name:=" " .Add Name:=" Promote " .Add Name:=" Restore " .Add Name:=" Delete " End With End With Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text6row" & myRow .Enabled = True End With Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text7row" & myRow .Enabled = True ' .ExitMacro = "AddRow2" End With oTbl.Cell(oTbl.Rows.Count, oTbl.Columns.Count).Range.FormFields(1).ExitMacro = "AddRow2" oTbl.Cell(oTbl.Rows.Count, 1).Range.FormFields(1).Select ActiveDocument.Protect NoReset:=True, Type:=wdAllowOnlyFormFields End If End Sub Tag: Adding Hyperlink Text, then deleting Tag: 94452
  - 21
    - Selecting text between 2 found words in Word Hi i want to select some text throughout a document to be deleted. The test will look like this...... 'Christmas : 2 x 5" Fruit & Cone Candle Rings Product: Christmas 2 x 5" Fruit & Cone Candle Rings Custom Label: 213878' I want to select the word 'Product' and everything up to (but NOT including) the word Label and then delete that selection. I want this to loop through the document until there are no more Products to be found Any help is appreciated Tag: Adding Hyperlink Text, then deleting Tag: 94431
  - 22
    - Word 2003 - Fixing Styles in Templates Hi there, Can anyone provide any suggestions on how to fix styles in Word 2003 Template documents? I believe it is possible to code VBA to get the styles to revert back at close/open of the document, if the styles are changed by the user in anyway. Thanks, Nikki UNiTAB Qld Brisbane Tag: Adding Hyperlink Text, then deleting Tag: 94423
  - 23
    - Bind a macro to a keystroke in Word 2007???? First off, I'd like to say that I hate Office 2007. :oP I hate the huge, fluffy GUI that they force you to use (since your only other option is to build an entire set of toolbars, one icon at a time, and just ignore the "ribbon"). I hate that the only features I can find are extremely obvious ones... which means that every average user is gonna think this is the best upgrade ever, and every advanced user is gonna end up pulling their hair out trying to find advanced features that they've been using for years... which brings me to my question. How do I bind a keystroke to a macro in Word 2007? Before, I would just go to Tools > Customize > Keyboard... and bind the keystroke... but now, of course, since there is no such thing as a "menu" any more, that option doesn't exist, and I can't find anything like it on the "ribbon". Anyone figure this out yet? WATYF Tag: Adding Hyperlink Text, then deleting Tag: 94422
  - 24
    - Yes/No checkbox OR drop down I have a word document where there are lots of Yes/No drop down boxes. Is there a way I could make them default to either of the 2 choices on the click of a command button (or some other way) ? Thanks. Tag: Adding Hyperlink Text, then deleting Tag: 94418
  - 25
    - No Class or High Class For the most part, Class modules are still a mystery to me. What little knowledge I have of them was imparted by Jezebel when I was working on a project to list, count and sort spelling errors. Earlier today and OP wanted to simply list all spelling errors contained in a document in a separate document. I thought of my earlier project and passed on the link. I then started thinking about a simpler code to do exactly what the OP requested "and" prevent duplicates. Here is the result of those thoughts: Sub NoClass() Dim DupChk As Object Dim oCol As Collection Dim oSpError As Word.Range Dim i As Long Set oCol = New Collection 'Add to collection For Each oSpError In ActiveDocument.Range.SpellingErrors On Error Resume Next Set DupChk = oCol(oSpError.Text) On Error GoTo 0 If DupChk Is Nothing Then oCol.Add oSpError End If Set DupChk = Nothing Next 'Publish results Documents.Add For i = 1 To oCol.Count ActiveDocument.Range.InsertAfter oCol(i) & vbCr Next i End Sub That seems straightforward and does the job. To do the same thing with a class, I first inserted a class module, named it clsError and pasted in this code: Private mName As String Public Property Get Name() As String Name = mName End Property Public Property Let Name(NewValue As String) mName = NewValue End Property In the project module, I used this code: Sub HighClass() Dim oError As clsError Dim oCol As Collection Dim oSpError As Word.Range Set oCol = New Collection 'Add to collection For Each oSpError In ActiveDocument.Range.SpellingErrors On Error Resume Next Set oError = oCol(oSpError.Text) On Error GoTo 0 If oError Is Nothing Then Set oError = New clsError oError.Name = oSpError.Text oCol.Add oError, oError.Name End If Set oError = Nothing Next 'Publish results Documents.Add With ActiveDocument.Range For Each oError In oCol .InsertAfter oError.Name & vbCr Next End With End Sub This works equally as well. What again is the benefit of using a Class? Is there any benefit in this example? Thanks. Tag: Adding Hyperlink Text, then deleting Tag: 94410
- Next
  - 1
    - Copy all misspelled words Hi All, I have a large document (over 1000 pages) and want to copy all the misspelled words and paste them in new document (1 below the other) how can this be done? I am using Word 2003. Thanks in advance :) Tag: Adding Hyperlink Text, then deleting Tag: 94402
  - 2
    - Document name in titlebar, step by step I want to put the path and document name in Word 2003 in the title bar, and found the following posting from a couple of years back. However, it is a bit too cryptic for me, since i don't use VBA at all. Can someone please take the info below and tell me step by step how i would do this? I would like to set up a macro to do this automatically, so if that could be explained, that would be great. Many thanks "Switch to VBA and in the immediate window type: windows(activedocument.Name).Caption = activedocument.FullName You could set up a macro to do this automatically, but I suggest you try it manually for a while. On most machines these days, the full path is so long that the result will be ugly." Tag: Adding Hyperlink Text, then deleting Tag: 94394
  - 3
    - Where can I get help for VBScript? I have a word macro that I need to convert to VBScript. I've done simple ones in the past but this one is a little more complicated and I'm having difficulties. Does anyone know of a message board like this for VBScript? Thanks Rose G Tag: Adding Hyperlink Text, then deleting Tag: 94390
  - 4
    - Check box group Hi On a Word Template I have created 3 Checkbox "Not Check box Form Fields" and all these three Checkbox have an identical Groupname of Gr. Problem is when I try to create a document out of this template I can check mark all 3 check box at the same time... Isn't this supposed to be exculisve of each other. I mean I should only be able to check mark one of them and by check marking one the other two should be unchecked... What am I doing wrong? -- Jeff B Paarsa Tag: Adding Hyperlink Text, then deleting Tag: 94384
  - 5
    - Copy Paste Table Problems! I have figured out a way to copy paste a table (with fieldforms). I have a macro button in my doc. which when I press copies the table in the doc. and pastes it. The code to do the that is below: Private Sub CommandButton1_Click() Set aDoc = ActiveDocument If aDoc.ProtectionType <> wdNoProtection Then aDoc.Unprotect ActiveDocument.Tables(2).Range.Copy Set myRange = ActiveDocument.Range _ (Start:=ActiveDocument.Content.End - 1, _ End:=ActiveDocument.Content.End - 1) myRange.PasteSpecial aDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End If End Sub Now, when the user fills in data in the table cells and then presses the macro button, the pasted table has the same data in its cells. Is there a way I could make sure that only the table is copy-pasted and not the data inside it? Any help would be great! Thank You Tag: Adding Hyperlink Text, then deleting Tag: 94376
  - 6
    - Help:Using strings to call subroutines Hi All I'm wondering if any body knows how to call a subroutine from a string. For example: Dim TestString as string TestString = "MySubroutine(Data)" '***The question I have would be: How to use TestString to call MySubroutine(Data). Thank You KAB Tag: Adding Hyperlink Text, then deleting Tag: 94369
  - 7
    - word and my scanner how aquire text into word by using a scanner? Tag: Adding Hyperlink Text, then deleting Tag: 94364
  - 8
    - Paste Unformatted Text macro Hi, If someone could just point me in the right direction, i'd be thankful... I wrote a simple macro for Word 2000 that used the F12 button to "paste unformatted text" into my documents. Unfortunately, this macro refuses to work now that i've upgraded to 2003 (even though the documentation says that macros transfer without problem). Any suggestions? Tag: Adding Hyperlink Text, then deleting Tag: 94363
  - 9
    - MI5 Persecution: cost of the operation -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -= MI5: cost of the operation -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Here's what a couple of other people on Usenet (uk.misc) had to say regarding the cost of running such an operation... PO: >Have some sense, grow up and smell reality. What you are talking about PO: >would take loads of planning, tens of thousands of pounds and lots of PO: >people involved in the planning, execution and maintenance of it. You PO: >must have a very high opinion of yourself to think you are worth it. PM: >But why? And why you? Do you realize how much it would cost to keep PM: >one person under continuous surveillance for five years? Think about PM: >all the man/hours. Say they _just_ allocated a two man team and a PM: >supervisor. OK., Supervisor's salary, say, #30,000 a year. Two men, PM: >#20,000 a year each. But they'd need to work in shifts -- so it would PM: >be six men at #20,000 (which with on-costs would work out at more like PM: >#30,000 to the employer.) PM: > PM: >So, we're talking #30,000 x 6. #180,000. plus say, #40,000 for the PM: >supervisor. #220,000. Then you've got the hardware involved. And PM: >any transcription that needs doing. You don't think the 'Big Boss' PM: >would listen to hours and hours of tapes, do you. PM: > PM: >So, all in all, you couldn't actually do the job for much less than PM: >a quarter million a year. Over five years. What are you doing that makes PM: >it worth the while of the state to spend over one and a quarter million PM: >on you? Those are pretty much the sort of calculations that went through my head once I stopped to consider what it must be costing them to run this operation. The partial answer is, there have been periods when the intensity has been greater, and times when little has happened. In fact, for much of 1993 and the first half of 1994, very little happened. Although I don't think that was for reasons of money - if they can tap into the taxpayer they're not going to be short of resources, are they? The more complete answer is in the enormity of what they're doing. Relative to the cost to British pride of seeing their country humiliated for the persecution of their own citizens, isn't is worth the cost of four or five people to try to bring things to a close in the manner they would wish? To the government a million or two is quite honestly nothing - if they can convince themselves of the necessity of what they're doing, resources will not be the limiting factor. 391 -- Posted via a free Usenet account from http://www.teranews.com Tag: Adding Hyperlink Text, then deleting Tag: 94348
  - 10
    - How doc properties created in one file be available in all docs I need to insert fields in a word document. All required doc properties was created in File>Properties>Custom. This was inserted into the document using Insert>Field option. Now i need this set of doc properties to be available in all the files that i edit or create new. I tried creating this in Normal.dot, but still it does not show if a new document is opened. Tag: Adding Hyperlink Text, then deleting Tag: 94345
  - 11
    - error handler Further to problems with getting a form compiled in Word 2003 to behave properly with older versions, how can I stop my form getting closed by the error ? It's only one button on my form that calls the bound routine so another button immediately after with a hyperlink to the file can be a way to open the worksheet and do what's necessary manually. But the error closes the form so the user loses what (s)he's already filled in and doesn't get the chance to carry on. I haven't been able to find anything really helpful on the net and all it needs is some sub-routine that'll say "ignore the problem and carry on". Tag: Adding Hyperlink Text, then deleting Tag: 94342
  - 12
    - Getting round the binding / different versions problem There seem to be quite a few posts about trying to get Word and Excel to work together when the original files have been compiled in Office 2003 and users have an older version. I have the same problem. I'm sending from a Word form to Excel and getting other data back from the same worksheet. If I remove references to the Excel library I get errors (on other PCs) because bits of the code aren't recognised by that version of Excel. I thought a solution could be simply to have the Excel part of the code as a macro in that sheet. All Word has to do is open the sheet and say 'Application.Run "macro"' but that doesn't work either. Is there a way to run an excel macro from Word or am I coming up against the same incompatibility of versions ? Tag: Adding Hyperlink Text, then deleting Tag: 94341
  - 13
    - template find and replace Hello, We have a load of templates that require updating from time to time. Is it possible to perform a batch find and replace across all templates in a folder? -- Thanks, MarkN Tag: Adding Hyperlink Text, then deleting Tag: 94337
  - 14
    - are wombats good? I'm not really sure whether Wombats are any good. The picture on Wikipedia looks like a horrid little Pig. Quite Obscene. Just not English. 391 -- Posted via a free Usenet account from http://www.teranews.com Tag: Adding Hyperlink Text, then deleting Tag: 94332
  - 15
    - Question This is a re-post from 11-22-06. The original question was: A while back, I put a shortcut to a file folder on the menu bar in Word 2003. I can't remember how I did this? Could you maybe explain what I did please? >What exactly happens when you click this shortcut? -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP >See http://www.gmayor.com/customize_the_word_places_bar.htm -- Suzanne S. Barnhill Microsoft MVP (Word) >Hmmm. I took this to mean the main menu bar in Word? -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP >On rereading, I suspected you were right, but since many users don't know the name of the Places Bar, I took a chance. -- Suzanne S. Barnhill Microsoft MVP (Word) >Graham, Yes. I meant the main menu bar. However, continuing my search, I came across an article that dealt with a similar problem and actually fixed the problem. I found an article written by John McGhie on the MVP site, "Restoring Customizations Saved in Normal". I had recently lost the tool bars I created. After reading his article, I followed his instructions and retrieved my tool bars that included the shortcuts I am referring to. ***My original question is unanswered. The shortcuts open the folder in My Documents in Windows Explorer that hold the files and folders I frequently use. Very handy!! I jsut can't remember how I accomplished creating the shortcuts.*** Thank you, MoJR The answer to Grahahm's question is, "The shortcuts open the folder in My Documents in Windows Explorer that hold the files and folders?" I would like to know what exactly I did to make this happen? Thank you, MoJR Tag: Adding Hyperlink Text, then deleting Tag: 94327
  - 16
    - interested in wombats Can someone tell me whether Wombats live only in Australia, or also on other continents? Apart from zoos, of course. 145 -- Posted via a free Usenet account from http://www.teranews.com Tag: Adding Hyperlink Text, then deleting Tag: 94323
  - 17
    - Hard return to activate "dead" hyperlink in Word... Hello. Here's my dilemma. Hope someone out there can help. I'm taking data from one program and pasting into Word (with this other program, there's really no export function, so cutting and pasting is the only way I can do this). The problem is that when I paste the information into Word, all of the hyperlinks are "dead" (that is, when you try to Ctrl+click the link, it does nothing). Of course, I can manually enter a hard return at the end of the hyperlink to activate it, but I have a TON of links and don't really want to spend time doing this. I've tried creating a macro to do this, and it does everything it should need to do to re-activate the hyperlink, but it's not. I'm actually in the VBA window, stepping through the script. I see it locate the letters "http" and move to the end of the link, then I see what looks to me like a Return/Enter, but the link never "activates." Here's the VBA code. Anyone know how I can generate a hard return that will activate a hyperlink? Thanks, Andy ================== Selection.Find.ClearFormatting With Selection.Find .Text = "http" Selection.EndKey Unit:=wdLine Selection.TypeParagraph .Replacement.Text = "" Selection.TypeParagraph .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute End Sub Tag: Adding Hyperlink Text, then deleting Tag: 94317
  - 18
    - wbk managament macro Thanks to assistance in another group, I found the following macro, which saves my wbks to two directories, allowing me to delete the backups in my active directory and still have copies: Sub SaveToTwoLocations() Dim strFileA, strFileB, strFileC ActiveDocument.Save strFileA = ActiveDocument.Name 'Define backup path shown in next line below strFileB = "h:\work\backups\" & strFileA strFileC = ActiveDocument.FullName ActiveDocument.SaveAs FileName:=strFileB ActiveDocument.SaveAs FileName:=strFileC End Sub Now, I want to take it a step further and, once the second .wbk is created in the backups allow the macro to delete the original .wbk in the active directory all as part of the same macro -- in one click of the save in two places button. That way my active directories will contain only the latest version of a document, but the backup directory will contain the previous version of every file. The people in the other groups suggest I cannot do this for some reason, but I don't understand why not. So if anyone has any suggestions for command I can add to the above macro, your help will be appreciated. len Len@LGrossman.com Tag: Adding Hyperlink Text, then deleting Tag: 94316
  - 19
    - Custom Toolbar Drop Down I have a document that is linked to an Excel data file (the data in the Excel file is date specific by year and month). I have a custom toolbar in Word that has buttons to update the Excel data, but I would like to add two drop down boxes (year and month) to my toolbar so that the user can select the date that the data should be refreshed for. I know that I could add a combo box within the document, but I'm trying to avoid that. If this can be done, I'd appreciate the help. Thanks. Tag: Adding Hyperlink Text, then deleting Tag: 94315
  - 20
    - Conditionally Compile for Word 2007? Hi, I've got a template that features in menu in earlier versions of Word, and when it runs in Word 2007, I want it to use a tab on the ribbon instead. I've got the tab working, and I know how to dynamically determine (from Application.Version) if I'm running in Word 2007, so I can make it work. BUT: the module that works with the ribbon includes some declarations (such as iRibbonControl) that are not available in earlier versions of Word. So I don't think this code will work with earlier versions. What's the best way to handle this? Is there a way to conditionally compile the code? I know i can conditionally compile for a Macintosh by including #if Mac Then 'this code only included on mac versions #Else 'this code only include on PC versions #End If but I don't know how to set up a condition like that "Mac" condition that's built into VBA. The only other way i can think to do this is to declare the iRibbonControl parameters in my ribbon callbacks as variants. I assume that would work, tho it makes the code a bit tougher to understand. Any advice appreciated thanks, gary Tag: Adding Hyperlink Text, then deleting Tag: 94312
  - 21
    - File Placement/SharePoint Hiya A few months ago I created a wizard which allows users to generate a sales proposal by picking the required sections (lots of products, lots of services, different T&C's etc.), the code then finds the requested sections and creates a large file containing them all in the chosen order. This works fine. The issue is, all of our documents are soon to be placed on sharepoint, I don't really know a great deal about sharepoint, will I be able to update my code easily enough to look for the docs on sharepoint insted of in network folders? Many thanks for your time Kerry. Tag: Adding Hyperlink Text, then deleting Tag: 94305
  - 22
    - Where can I find the macro spell check I am looking for away to for others to spell check a protected document. Looks like there is a macro somewhere to solve this. Please advise where I can find this. Thanks, Tag: Adding Hyperlink Text, then deleting Tag: 94303
  - 23
    - Please advise on the production of a frontend, to view selected record(s) of a completed worksheet I have created an excel worksheet containing details of building surveys - each survey on a different row. The columns list the locations and provide records which detail whether the site has been visited, the survey checked and provides comments on the non-completion of any construction work. In addition, two of the columns list hyperlinks to a jpeg photograph of the site and to an external survey report (also in excel format). The columns are headed as follows: Location Address City Council Visited by Checked Comments Photo Files Reports I have done some preliminary research and have found various userforms which allow users to input information into worksheets. My database is for viewing information only, as all the data has already been entered. I need a frontend which allows the user to filter to the site (possibly using a cascading combobox to select location then site) and then select okay, to view the results. I would like excel to then display the details of the selected suvey as per the list above, including the photograph and external survey report. Dylan Dawson Scotland Tag: Adding Hyperlink Text, then deleting Tag: 94301
  - 24
    - image getting rotated on some printers I am having a problem with an image in my word document getting rotated 180' when it is printed (on some printers.) Otherwise there seems to be no problem - when I do a preview every thing is in order. I am using word 2003 with all the latest patches, Printing to a HP LaserJet 3200 Series (not color) is OK but to a Color LaserJet 2550L image is rotated. Any one experience this? Thanks in advance. Scott Tag: Adding Hyperlink Text, then deleting Tag: 94299
  - 25
    - Merge to an empty dataset I am using Word 2002 and have a macro with a set of linked merges. In some cases there will be no record that satisfies a query condition. How can I eliminate the error message that appears and keep the macro running when the dataset is empty for this query? Bob Collin Tag: Adding Hyperlink Text, then deleting Tag: 94298

Hello,

So, I have a big macro in Word 2003 that I've been working on that keeps
growing. The end goal is to have a complete script to convert a Word
document into a wiki formatted document (for posting on our internal wiki).
I've got most of it down, but hitting a snag with changing hyperlinks into
wiki formatted text.

First, I need to find the hyperlinks, then I need to add wiki formatting in
front of them and after them, then delete the hyperlink itself.

To add to the issue, a significant number of my hyperlinks are tied to
shapes so when I delete all hyperlinks - it removes them completely, leaving
the shape but no address.

Can you please help?

Thank you,
Alison

Top

Re: Adding Hyperlink Text, then deleting by Jezebel

Jezebel
Mon Dec 04 20:43:53 CST 2006

It would be easier if you posted exactly what you need to end up with,
particularly for the shapes. For the text links, you should be able to use
something like --

With myHyperlink
.Range = "[" & .Address & " " & .TextToDisplay & "]"
End with

"AlieSlavin" <AlieSlavin@discussions.microsoft.com> wrote in message
news:3170ECE9-D451-46BD-A315-F959BD95691C@microsoft.com...
> Hello,
>
> So, I have a big macro in Word 2003 that I've been working on that keeps
> growing. The end goal is to have a complete script to convert a Word
> document into a wiki formatted document (for posting on our internal
> wiki).
> I've got most of it down, but hitting a snag with changing hyperlinks into
> wiki formatted text.
>
> First, I need to find the hyperlinks, then I need to add wiki formatting
> in
> front of them and after them, then delete the hyperlink itself.
>
> To add to the issue, a significant number of my hyperlinks are tied to
> shapes so when I delete all hyperlinks - it removes them completely,
> leaving
> the shape but no address.
>
> Can you please help?
>
> Thank you,
> Alison

Top