shortcut

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Getting the REF number from a SEQ field For a cross-reference to a SEQ field (such as the one on a figure caption) a REF field includes a long number, looking like this: { REF_Ref4018934786 \h } But the SEQ field that this points to doesn't display that number. The number must be in the document someplace, but how can I retrieve it? It's the only way I can tie together various things relating to a figure. Thanks. Tag: shortcut Tag: 94589
  - 2
    - Range Oddity I wonder why you can add a formfield to a range set to a table cell range, but you can't add a field to range set to a table cell range. As the code below illustrates, to add a field to a table cell you first have to collapse a range assigned to a table cell range: Sub RangeTest() Dim oRng1 As Word.Range Dim oRng2 As Word.Range Set oRng1 = ActiveDocument.Tables(1).Rows(1).Cells(1).Range Set oRng2 = ActiveDocument.Tables(1).Rows(1).Cells(2).Range ActiveDocument.FormFields.Add oRng1, wdFieldFormTextInput On Error GoTo Err_Handler ActiveDocument.Fields.Add oRng2, wdFieldQuote, "Test" Exit Sub Err_Handler: oRng2.Collapse wdCollapseStart Resume End Sub Tag: shortcut Tag: 94584
  - 3
    - Print multipage doc on "other" printer I have finally gotten my doc to print where and how I need it. Essentially, I needed it to not go to the default printer, save a copy as doc file by unique name, copy to clipboard and a few other things I needed. What I can't get is how to tell it if doc is = or less than 1 page, go to "printer a" else go to "printer b" I was going to paste all the defective code here but it takes up space and doesn't work. Here is the part that does work. Thanks for any help. Jeff 'Sets printer to print this document to the datacenter printer, does not chnage default printer. Dim sCurrentPrinter As String sCurrentPrinter = ActivePrinter ActivePrinter = "\\Stpprntv02\FSA_Claims Holding on NE08" Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, COPIES:=1, Pages:="", PageType:=wdPrintAllPages, _ Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _ PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 ActivePrinter = sCurrentPrinter 'unlocks doc (doc is protected) to copy the whole doc to save in Acorde. If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect End If 'copies whole doc to clipboard Selection.WholeStory Selection.Copy 'locks doc after paste into Acorde If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True End If 'Creates numeric text file called "settings" (on network) to store doc by unique name Order = System.PrivateProfileString("Q:\Shared\Settings.Txt", _ "MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("Q:\Shared\Settings.txt", "MacroSettings", _ "Order") = Order 'Saves file with unique name to network location as backup by time and sequence number. ActiveDocument.SaveAs FileName:="q:\shared\denial2dc\" & Format(Now, "hh-mm-ss") & Format(Order, "-00#") End Sub Tag: shortcut Tag: 94583
  - 4
    - Form question i have a form that includes multiple sections. sections can have checkboxes and/or dropdown fields. i want to allow the user to go thru the sections and check boxes pick from drop downs. once they are done i want them to have a toolbar button that will "hide" any unchecked boxes and any unselected drop down boxes. I don't want to delete the unchecked/unselected boxes since the user will reuse the document in the future. I just need the unchecked boxes and any unselected drop down boxes to be hidden, so, the document can be view/printed/faxed, ect without all the clutter of the unneccesary text. any advice would be appreciated. thanks JB914 Tag: shortcut Tag: 94581
  - 5
    - VBE Auto List Members I just noticed something odd with the VBE Auto List Members feature You can type the line: ActiveDocument.Fields.Add Selection.Range, 'and no list appears of the various wdFieldTypes however, if you type the line: ActiveDocument.FormFields.Add Selection.Range 'then the complete list appears. It is odd that the feature is absent where it would be most handy, and present when selecting over 95% of the items listed would result in a RTE "Subscript out of range." Tag: shortcut Tag: 94566
  - 6
    - Inserting a wdFieldFormTextInput into a word table cell I'm having issues inserting a wdFieldFormTextInput into a word table cell. I create the table with a macro which works perfectly. I then need to insert a wdFieldFormTextInput into the first rows 2nd cell. I can set the text easily enough using .............. [code] MyRange.Table(1).Rows(1).Cells(2).Range.Text = " Testy Text " [/code] I've tried multiple ways of adding the merge field all of which have failed. I'm grateful for any advice! Here is an example of what I've tied to do to accomplish what i'm after! [code] ActiveDocument.Fields.Add Range:=MyRange.Tables(1).Rows(1).Cells(2).Range, Type:=wdFieldFormTextInput, Text:="MERGEFIELD TESTMERGER", PreserveFormatting:=True [/code] I get the generic "Run-time error '4605': This command is not available" error message when trying to run the above. Tag: shortcut Tag: 94559
  - 7
    - How to read UTF-8 chars using VBA Hi, I am currently developing some Word templates (office 2003) + VBA I have a UTF-8 encoded text file...I wanted to read and show the values into a list box... The charactors are getting changed while reading and filling the control...(but in the text file they are perfect) I tried FSO and Open statement with Line input.. I dont know how to Convert into normal chars.. How to resovle.. ? Its bit urgent...give me some useful links Many thanks. MSK. Tag: shortcut Tag: 94558
  - 8
    - Adding Hyperlink Text, then deleting 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 Tag: shortcut Tag: 94554
  - 9
    - 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: shortcut Tag: 94548
  - 10
    - 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: shortcut Tag: 94546
  - 11
    - 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: shortcut Tag: 94540
  - 12
    - 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: shortcut Tag: 94536
  - 13
    - 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: shortcut Tag: 94534
  - 14
    - 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: shortcut Tag: 94528
  - 15
    - 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: shortcut Tag: 94525
  - 16
    - 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: shortcut Tag: 94523
  - 17
    - 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: shortcut Tag: 94522
  - 18
    - 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: shortcut Tag: 94519
  - 19
    - 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: shortcut Tag: 94512
  - 20
    - 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: shortcut Tag: 94509
  - 21
    - 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: shortcut Tag: 94503
  - 22
    - 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: shortcut Tag: 94499
  - 23
    - 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: shortcut Tag: 94497
  - 24
    - 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: shortcut Tag: 94494
  - 25
    - 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: shortcut Tag: 94473
- Next
  - 1
    - 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: shortcut Tag: 94463
  - 2
    - 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: shortcut Tag: 94456
  - 3
    - 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: shortcut Tag: 94452
  - 4
    - 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: shortcut Tag: 94431
  - 5
    - 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: shortcut Tag: 94423
  - 6
    - 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: shortcut Tag: 94422
  - 7
    - 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: shortcut Tag: 94418
  - 8
    - 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: shortcut Tag: 94410
  - 9
    - 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: shortcut Tag: 94402
  - 10
    - 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: shortcut Tag: 94394
  - 11
    - 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: shortcut Tag: 94390
  - 12
    - 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: shortcut Tag: 94384
  - 13
    - 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: shortcut Tag: 94376
  - 14
    - 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: shortcut Tag: 94369
  - 15
    - word and my scanner how aquire text into word by using a scanner? Tag: shortcut Tag: 94364
  - 16
    - 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: shortcut Tag: 94363
  - 17
    - 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: shortcut Tag: 94348
  - 18
    - 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: shortcut Tag: 94345
  - 19
    - 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: shortcut Tag: 94342
  - 20
    - 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: shortcut Tag: 94341
  - 21
    - 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: shortcut Tag: 94337
  - 22
    - 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: shortcut Tag: 94332
  - 23
    - 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: shortcut Tag: 94327
  - 24
    - 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: shortcut Tag: 94323
  - 25
    - 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: shortcut Tag: 94317

Hello,
I have a perplexing problem. First a little background. I created a folder
named 'MoJR Documents'. This folder is located on a secondary drive(D:\MoJR
Documents) apart from Word. I have a folder named 'My Documents' under
C:\Documents and Settings\MoJR\My Documents. I decided to leave this folder
in it's original location figuring I may use it as an extra folder at some
point. Currently, it has one document in it. I created a shortcut to the
'D:\MoJR Documents' folder and placed it on the taksbar. However, when I open
this folder using the shortcut created for it, the address window in Windows
Explorer indicates 'My Documents'. This may not be a problem, I'm not sure.
However, it may be causing a problem when I try to write a script to use a
hotkey combo to open a specific document in the 'D:\MoJR Documents' folder.

Why would there be a discrepancy between the shortcut and the folder listed
in the address window of Win Explorer?

How can I correct this problem?

Thank you,
MoJR

Top

Re: shortcut by Shauna

Shauna
Thu Dec 07 03:59:07 CST 2006

Hi MoJR

I think this question is a Windows issue, and you may be better off posting
your question to a Windows newsgroup.

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

"MoJR" <MoJR@discussions.microsoft.com> wrote in message
news:D01D4CAA-BA51-4E15-AC51-7B44713402D2@microsoft.com...
> Hello,
> I have a perplexing problem. First a little background. I created a folder
> named 'MoJR Documents'. This folder is located on a secondary
> drive(D:\MoJR
> Documents) apart from Word. I have a folder named 'My Documents' under
> C:\Documents and Settings\MoJR\My Documents. I decided to leave this
> folder
> in it's original location figuring I may use it as an extra folder at some
> point. Currently, it has one document in it. I created a shortcut to the
> 'D:\MoJR Documents' folder and placed it on the taksbar. However, when I
> open
> this folder using the shortcut created for it, the address window in
> Windows
> Explorer indicates 'My Documents'. This may not be a problem, I'm not
> sure.
> However, it may be causing a problem when I try to write a script to use a
> hotkey combo to open a specific document in the 'D:\MoJR Documents'
> folder.
>
> Why would there be a discrepancy between the shortcut and the folder
> listed
> in the address window of Win Explorer?
>
> How can I correct this problem?
>
> Thank you,
> MoJR
>

Top