Delete to end-of-file?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - how do I make 8 frames into a single document? I have created an 8 frame web quest, you know, 8 web pages. How do I insert a button or icon directing users to start at a page on then go to frame or page two? What navigational tools are available to users of the word program? -- Yolanda Johnson-Hines Tag: Delete to end-of-file? Tag: 75438
  - 2
    - Word bug editing field text in text-wrapped table The code below should create a new document field and remove its code text. However, in Word 2000 and XP, if the range of the new field happens to occur inside a table which has its "Text Wrapping" property set to "Around", the text "T " is always left behind in the field. In fact, any assignment to the field code's "Text" property appends "T " to the end of the text assigned. Has anyone seen this apparent bug before? Does anyone have a solid workaround? The only workaround I've found is to call "Delete" on the field's code before assigning a value to its "Text" property. Thanks. Tag: Delete to end-of-file? Tag: 75430
  - 3
    - Close Document Failure in Word 2002 Does anyone know why this would fail Application.DisplayAlerts = wdAlertsNone ActiveDocument.Close Application.DisplayAlerts = wdAlertsAll Most of my experience is in Excel VBA, but it seems like this should work. What I get is a Save As... dialog and an error that says "Run-time error '4198': Command failed" when I click the Cancel button. I'm trying to avoid the dialog box with the dispalyalerts = none, but it keeps popping up anyway. When I choose Debug from the error dialog it appears to be hung up on the .close line. Is there an alternate way to close a document without being prompted to save? Thanks Tag: Delete to end-of-file? Tag: 75424
  - 4
    - Reset PrintToFile to FALSE without printing? I have a macro that prints the current page to a dummy file. But I find that the Print To File box stays selected the next time I want to print anything. How do I programmatically reset the PrintToFile value to FALSE without having to print anything? -- Thanks! JoAnn Tag: Delete to end-of-file? Tag: 75423
  - 5
    - Points returned by Information(wdHorizontalPosition...) In a macro, the value returned by "Selection.Information(wdHorizontalPosition..." and "Selection.Information(wdVerticalPosition...)" is in points, even though the help says the value is in twips. I assume that the function is accurate. Should the returned value be rounded or truncated or used exactly as returned? For example, if a paragraph is indented 0.5 inches, the returned value is 36.0 points which computes to an actual indent of 0.5 inches. However, if the paragraph is indented 0.25 inches, the returned value is 18.45 points which computes to exactly 0.25625 inches. Can Word actually do its metrics in fractions of points and, for that matter, in fractions of twips? When returned values are converted to twips, occassionally the answer is in fractions of twips. I have double- and triple-checked the calculations and for multiples of 1/2 inch (0.0, 0.5, 1.0, etc.), the results are always perfect. Thanks for your help. Tag: Delete to end-of-file? Tag: 75421
  - 6
    - how to sign programmatically some vbproject macros added by a .do Dear all, I would like to sign programmatically some macros added to a vbproject(document) created by mean of a template say " mytemplate.dot" Have any of you an idea if this is possible and if so how to proceed ? (Code snippet is a must) Looking forward to hear from you I remain Thank you much in advance Best regards Tag: Delete to end-of-file? Tag: 75420
  - 7
    - add programmatically a module class from a file in a VB project Hi all I would like that my template.dot which creates a new document within a vbproj(document1) can add a module class within the new document programmatically from file "c:\theclass.cls" I cannot figure out the appropriate code , can someone help me ? 'Sub AddModuleClassinMyproject( classname,path) Dim v As Integer v= activedocument.VBProject.VBE.ActiveVBProject.VBE.CodePanes.item.VBE.CodePanes.count activedocument.VBProject.VBE.ActiveVBProject.VBE.CodePanes.item(v). .CodeModule.AddFromFile path+className' activedocument.VBProject.VBComponents("EventClassmodule").CodeModule.AddFromFile path+className ' 'End Sub Tag: Delete to end-of-file? Tag: 75419
  - 8
    - Word Macro to Add Attachments to Email I have a macro in Word 97 that saves a doc to Outlook Express email. Is there a way to add the same five attachments to an email by setting that text in the document? TIA for any guidance. PS: While I'm here, I have to manually change the email format from 'Plain Text' to 'Rich Text'. Wondering if there's something I can add to the doc to do this for me. Tag: Delete to end-of-file? Tag: 75415
  - 9
    - Stop recording macro while dialogue box is open I asked this question a week or sso ago but did not make it clear exacctly what I needed to do. Someone called Doug offered some suggestions but I cannot find the original post - so here is my question: I want to automate a repetitive sequence by creating a macro to run the following actions, (once Record New Macro has been started): Click on Insert Click on Field In Categories, click on Mailmerge In Fieldnames, click on MergeField Place the cursor into the field where you can type in the name or description of the mailmerge field. Now, STOP recording. (Because the details of the mergefield will be different every time that this is used, on the many hundreeds of mergefields that we need to create) Trouble is, with this dialogue box open, you cannot click on the macro toolbar to stop the recording. Is there a keystroke/combination that does this? Or any tother solution? Doug xxxx did try to help me before but I didn't describe the requirement quite correctly and also I cannot find that previous post... Many thanks CW Tag: Delete to end-of-file? Tag: 75407
  - 10
    - how to link two fiie and subjects how do you link two seperate files and show subject reference in one file and connect it with a similiar subjet in another file, and maintain that refernce even if subject matter is moved to another section but in the same file. Winsor Tag: Delete to end-of-file? Tag: 75403
  - 11
    - can I generate bookmarks in Word using VBA? I have existing documents that I want to process using VBA to insert bookmarks. How do I mark my insertions so that they function as books? Tag: Delete to end-of-file? Tag: 75400
  - 12
    - Copy from Excel to Word I have a program (see bellow) that I canâ??t make it work. Basically, the program copy excel cells, open specific word file, however, it not paste it the cells into the word document. Could you please help me with this matter? Thanks in advance. Maperalia. Option Explicit Public Sub CopyExcelToWord() CopyCellsFromExcel OpenAWordFile PasteIntoWord End Sub Sub CopyCellsFromExcel() '***********COPY CELLS IN EXCEL**************************** Range("A1:I66").Select Selection.Copy Application.CutCopyMode = False Range("A1:I1").Select '********************************************************** End Sub Sub OpenAWordFile() Dim wordApp As Object Dim fNameAndPath As String '***********OPEN THE MICROSOFT WORD FILE**************************** fNameAndPath = "C:\Test\Sample.doc" Set wordApp = CreateObject("Word.Application") wordApp.Documents.Open (fNameAndPath) wordApp.Visible = True '********************************************************** End Sub Sub PasteIntoWord() Dim wdPasteOLEObject As String Dim wdInLine As String '***********PASTE THE EXCEL CELLS INTO WORD FILE**************************** Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:=wdInLine, DisplayAsIcon:=False '********************************************************** End Sub Tag: Delete to end-of-file? Tag: 75387
  - 13
    - Fill imagebox in userform with a specified picture from a document Hello, I have the following problem. I have inserted a total of 6 pictures into specified cells of a table in word. To achieve this, I use the code below and this is running OK : 'row = 6 'column = 2 Set rgDest = Selection.Tables(1).Cell(row, column).Range Set shpShape = ActiveDocument.Shapes.AddPicture _ (FileName:=StrFile, LinkToFile:=True, _ SaveWithDocument:=False, Anchor:=rgDest) With shpShape .Name = "photo1" .LockAnchor = True .LockAspectRatio = msoTrue .Height = CentimetersToPoints(6.65) .Left = CentimetersToPoints(-0.2) End With The problem now is : I want to select each of these pictures and place it in one of the 6 imageboxes of a userform. This is possible by the code : set userform1.photo1.picture = loadpicture(strfile), but for some reasons I want to fill the imageboxes based on the name (for instance "photo1" in my example) or another identifier of the shape in my document. I only need to be sure to pick the photo in my document and place it in the correct imagebox of my userform. Can anybody help me with this? Thanks, Vicenflor Tag: Delete to end-of-file? Tag: 75384
  - 14
    - listnum field and start at value - why? how do these work? why use start at value? Tag: Delete to end-of-file? Tag: 75378
  - 15
    - Compressing graphics Hi, Word has a command that is shown when a graphic is selected. Select Layout and the last command: Compress?? graphic. A dialog is displayed in which I can select 'Compress all graphics' and 'Screen or printer resolution'. How can I perform this file size reduction macrowise? A recorded macro looks like this: Selection.InlineShapes(1).Fill.Visible = msoFalse Selection.InlineShapes(1).Fill.Solid Selection.InlineShapes(1).Fill.Transparency = 0# Selection.InlineShapes(1).Line.Weight = 0.75 Selection.InlineShapes(1).Line.Transparency = 0# Selection.InlineShapes(1).Line.Visible = msoFalse Selection.InlineShapes(1).LockAspectRatio = msoTrue Selection.InlineShapes(1).Height = 682# Selection.InlineShapes(1).Width = 453.85 Selection.InlineShapes(1).PictureFormat.Brightness = 0.5 Selection.InlineShapes(1).PictureFormat.Contrast = 0.5 Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic Selection.InlineShapes(1).PictureFormat.CropLeft = 0# Selection.InlineShapes(1).PictureFormat.CropRight = 0# Selection.InlineShapes(1).PictureFormat.CropTop = 0# Selection.InlineShapes(1).PictureFormat.CropBottom = 0# And I guess this is not what I need. Thanks! Tag: Delete to end-of-file? Tag: 75376
  - 16
    - Remove empty lines from address retrieved from Outlook This should be easy, but I can't figure it out. I am using Outlook 2003 and Word 2003. I have tried everything I can think of (and everything I have found through a Google search and I have also been to Slipstick.com) to set the AddressLayout so that it skips blank fields, but to no avail. If the Outlook contact has no company name or title, I get two empty lines in my address. If there is either a company or a title but not the other, I get one empty line in my address. I am at my wit's end on how to do this through Word and Outlook. I thought of searching the string for double or triple carriage returns and removing the extras, however, the user can click the To button repeatedly to add another address to the text box (which means that each time a new address is selected, there will be two carriage returns after the previous address in the list. This is how the AddressLayout is stored in AutoText in my letter template: {{<PR_DISPLAY_NAME>}} {{<PR_TITLE>}} {{<PR_COMPANY_NAME>}} {{<PR_POSTAL_ADDRESS>}} I am using the following code to allow the user to retrieve an address and insert it into the text box. In addition, there are several functions that are called which enable me to pull the First field (which is the PR_DISPLAY_NAME) add to another string which is used in the second page header in the letter. Dim strAddress As String Dim strToHeader As String Dim astrToHeader() As String If txtTo = "" Then strAddress = Application.GetAddress(, , True, 1, , _ , True, True) txtTo.Text = strAddress StringToArray strAddress, astrToHeader(), vbCr strToHeader = astrToHeader(0) If ActiveDocument.Bookmarks.Exists("To") Then Application.ScreenUpdating = False Set BmRange = ActiveDocument.Bookmarks("To").Range BmRange.Text = strToHeader ActiveDocument.Bookmarks.Add Name:="To", Range:=BmRange End If Else strAddress = Application.GetAddress(, , _ True, 1, , , True, True) txtTo.Text = txtTo.Text & vbCr & vbCr & strAddress StringToArray strAddress, astrToHeader(), vbCr If ActiveDocument.Bookmarks.Exists("To") Then Application.ScreenUpdating = False Set BmRange = ActiveDocument.Bookmarks("To").Range End If strToHeader = BmRange & Chr(11) & astrToHeader(0) End If Public BmRange As Range Public Function CountDelimitedWords( _ pstrIn As String, _ pstrChrDelimit As String) _ As Long Dim lngWordCount As Long Dim lngPos As Long On Error GoTo PROC_ERR lngWordCount = 1 ' Find the first occurence lngPos = InStr(pstrIn, pstrChrDelimit) Do While lngPos > 0 ' Increment the hit counter lngWordCount = lngWordCount + 1 ' Loop until no more occurrences lngPos = InStr(lngPos + 1, pstrIn, pstrChrDelimit) Loop ' Return the value CountDelimitedWords = lngWordCount PROC_EXIT: Exit Function PROC_ERR: MsgBox "Error: " & Err.Number & ". " & Err.Description, , _ "CountDelimitedWords" Resume PROC_EXIT End Function Public Function GetDelimitedWord( _ pstrIn As String, _ ByVal plngIndex As Long, _ pstrChrDelimit As String) _ As String Dim lngCounter As Long Dim lngStartPos As Long Dim lngEndPos As Long Dim strDelimit As String On Error GoTo PROC_ERR ' Set initial values lngCounter = 1 lngStartPos = 1 strDelimit = Left$(pstrChrDelimit, 1) ' Count to the specified index For lngCounter = 2 To plngIndex ' Get the new starting position lngStartPos = InStr(lngStartPos, pstrIn, strDelimit) + 1 Next lngCounter ' Determine the ending position lngEndPos = InStr(lngStartPos, pstrIn, strDelimit) - 1 ' Ending position can't be less than 1 If lngEndPos <= 0 Then lngEndPos = Len(pstrIn) End If ' Pull the word out and return it GetDelimitedWord = Mid$(pstrIn, lngStartPos, lngEndPos - lngStartPos + 1) PROC_EXIT: Exit Function PROC_ERR: MsgBox "Error: " & Err.Number & ". " & Err.Description, , _ "GetDelimitedWord" Resume PROC_EXIT End Function Public Function ReplaceChars( _ pstrIn As String, _ pstrFind As String, _ pstrReplace As String) _ As String Dim lngCounter As Long Dim strTmp As String Dim strChrTmp As String * 1 On Error GoTo PROC_ERR ' Loop through the string For lngCounter = 1 To Len(pstrIn) ' Get the current character strChrTmp = Mid$(pstrIn, lngCounter) If strChrTmp <> pstrFind Then ' Its not a match, do nothing strTmp = strTmp & strChrTmp Else ' Its a match, so use the replacement character strTmp = strTmp & pstrReplace End If Next lngCounter ' Return the value ReplaceChars = strTmp PROC_EXIT: Exit Function PROC_ERR: MsgBox "Error: " & Err.Number & ". " & Err.Description, , _ "ReplaceChars" Resume PROC_EXIT End Function Public Function StringToArray( _ pstrIn As String, _ pastrIn() As String, _ pstrChrDelimit As String) _ As Long Dim lngCounter As Long Dim lngWordCount As Long On Error GoTo PROC_ERR ' Count the words lngWordCount = CountDelimitedWords(pstrIn, pstrChrDelimit) ' Resize the array accordingly ReDim pastrIn(0 To lngWordCount - 1) ' Walk through the words For lngCounter = 0 To lngWordCount - 1 ' Add the words to the array pastrIn(lngCounter) = GetDelimitedWord(pstrIn, lngCounter + 1, pstrChrDelimit) Next lngCounter ' Return the count StringToArray = lngWordCount PROC_EXIT: Exit Function PROC_ERR: MsgBox "Error: " & Err.Number & ". " & Err.Description, , _ "StringToArray" Resume PROC_EXIT End Function Any ideas on how I can get the AddressLayout to remove those extra lines, or how I can modify the code to have them removed? Thanks, Anne P. Tag: Delete to end-of-file? Tag: 75375
  - 17
    - Highlighting as a Reading Aid in Word When I need to read long word documents closely, it would be a great help if I could automatically have the line I'm reading highlighted, with the ability to unhighlight that line and move the highlighting down to the next line as I read by moving my cursor with my mouse, or by using the down arrow key, etc. Does anyone know of a way of doing this with word? -- Bill Tag: Delete to end-of-file? Tag: 75372
  - 18
    - Faster Page Numbering? I am doing extensive searches in long documents and creating a list of the finds along with the page number each is on. The problem is, .Information(---PageNumber) is very slow. Subsequent finds take even longer since it is deeper in the document and the Word has to repaginate up to the new point. Using the page numbers in the footer is not always accurate, off by as much as four pages. How can this process be sped up or the page numbers made more accurate? Tag: Delete to end-of-file? Tag: 75368
  - 19
    - removing text from a string how would i go about removing anything from a string that isn't a number, including spaces, punctuation, etc etc? thanks in advance Tag: Delete to end-of-file? Tag: 75366
  - 20
    - Overtype rather than inserting I am trying to make a fixed length file record to import into an investment system. The basic data is stored in an excel database and the problem I have is where the field I am putting into the record is not the same length as the field in the fixed length record. Example The field pfolio has a maximum length of 6 characters if the field pfolio is ABC in the spreadsheet then it needs to be ABCbbb in the fixed length record My first thought was to create a record of the appropriate size populated with blanks then to import the fields from the spreadsheet. If the document is in overtype mode and I am manually type in ABC then is fine as the 3 blank charaters are still in place but I do not know how to do this using VBA The ABC is always inserted at the front of the blank charaters e.g Record = bbbbbbbbbbbbbbb if the pfolio field offset is at 5 and I want to import ABC then I want to see "bbbABCbbbbbbbbb" instead I end up with "bbbABCbbbbbbbbbbbb" The command Options.Overtype = True does not seem to help. If you have any suggestions I would be most grateful. Regards Gavin P.S. I am using Word 97 Tag: Delete to end-of-file? Tag: 75345
  - 21
    - frequency of occurrence of words in a document Hello -- I want to create a word frequency distribution for a document. The results will be: word count of occurrences in doc ------ ---------------------------------- Does anyone know if a macro has been published somewhere? or, can someone suggest a way to do it? Thanks for any help. Larry Mehl Tag: Delete to end-of-file? Tag: 75344
  - 22
    - Bookmark Listing Greetings, What im looking for is a bit of code so that once a selection is made (user selects text) a macro can be run that displays all the bookmarks in the current document. The user selects the appropirate bookmark for the selected text and then that selection gets applied to the selected text as a hyperlink. ie #bookmark. Sub Macro1() ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", SubAddress:=" ", End Sub Tag: Delete to end-of-file? Tag: 75338
  - 23
    - Printing Envelopes Each time that I save an envelope address to a document Word adds a blank page to the document. When you want to print the envelope you have to put two envelopes in the printer because the first one comes out blank and Word prints the second one. Any Help would be appreciated. Mike Tag: Delete to end-of-file? Tag: 75336
  - 24
    - Change Hyphenated Words To Uppercase As a software developer, I get to contend with Technical Specifications that often contain many hyphenated terms that are not words. I have "Ignore words in UPPERCASE" checked on the Spelling and Grammar dialog box, but not all the jargon words are in all uppercase. I created these Macros to prompt me and optionally convert hyphenated words to uppercase. I am not a Word VBA guru, so my solution may be a little ham-fisted. As such, I invite suggestions to improve this. Ken Grubb Bellevue, WA, USA Public Sub UppercaseHyphenatedWords() Call GenericUppercase("<[a-zA-Z0-9]{1,}-[a-zA-Z0-9-]{1,}>") End Sub Public Sub UppercaseUnderscoredWords() Call GenericUppercase("<[a-zA-Z0-9]{1,}_[a-zA-Z0-9_]{1,}>") End Sub Private Sub GenericUppercase(sInput As String) Dim bContinue As Boolean Dim bSkip As Boolean Dim Response Dim sArray() As String Dim iArray As Integer Dim i As Integer iArray = 0 bContinue = True Selection.HomeKey Unit:=wdStory Do While bContinue bSkip = False With Selection.Find .ClearFormatting .Text = sInput .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With If Selection.Find.Execute Then If Selection.Text = UCase$(Selection.Text) Then ' Skip hyphenated words already in UPPERCASE Else If iArray > 0 Then For i = 1 To iArray If sArray(i) = LCase$(Selection.Text) Then ' Skip words previously skipped bSkip = True End If Next i End If If Not bSkip Then Response = MsgBox("Change all occurrences of " & LCase$(Selection.Text) & " to " & UCase$(Selection.Text) & "?", vbYesNoCancel) Select Case Response Case vbYes Call GlobalReplace(LCase$(Selection.Text), UCase$(Selection.Text)) Case vbNo ' User skipped this word iArray = iArray + 1 ReDim Preserve sArray(iArray) sArray(iArray) = LCase$(Selection.Text) Case vbCancel MsgBox "Done!" bContinue = False End Select End If End If Else MsgBox "Done!" bContinue = False End If Loop End Sub Private Sub GlobalReplace(sFromText As String, sToText As String) With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = sFromText .Replacement.Text = sToText .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With End Sub Tag: Delete to end-of-file? Tag: 75334
  - 25
    - Macro to modify font in header My client is a medical office that uses a master document for each patient to keep xray and MRI reports. They begin each new report with a macro that inserts a section break to a new page and draws in a blank report with a "letterhead" up in the document header. The Xray reports and the MRI reports require different letter heads because they are generated by different departments, so I added a user form so the operator can select which blank document to insert for the next report. However, for one of inserted documents there is a problem that the Tahoma font in the header changes to Times Roman. I don't know how to fix that but thought I could add code to find the text and change the font back to Tahoma. This works except that it leaves the Times Roman formatted text up there alongside the new Tahoma formatted text. Example "This is my textThis is my text" My questions are: 1) Is there a better way to approach my problem; 2) what's missing from my code (as shown): ' ' test12 Macro ' Macro recorded 10/20/2005 and modified by RichardB ' If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With Selection .Text = "This is the Header" .Font.Name = "Tahoma" .Font.Size = 14 .Font.Bold = wdToggle End With ActiveDocument.Save ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Thank you... Tag: Delete to end-of-file? Tag: 75328
- Next
  - 1
    - How to subclass the Signature dialog box to select programmatical Hi I would like to subclass the word Dialog box which displays the certificates from "mystore" to choose from to apply a digital signature on any word document. For recall the dialog box pops up with following code: dim sig as signature set sig = activedocument.signatures.add I would like to select the appropriate certificate in the listbox programmatically with filters on the signer.name the certificate.issuer and the certificate expiration date. Then I would like to click on the correct selection programmatically. Who is good enough with subclassing and send messages ? to help me achieving this code snippet ? Any help very much appreciated Regards Tag: Delete to end-of-file? Tag: 75323
  - 2
    - Macro for paste special I've recorded a marco to do a 'Edit/Paste Special.../Unformatted Text" and assigned it to a keyboard shortcut. However it simply does a normal paste instead. This is the recorded VBA: Sub pastespecial() ' ' pastespecial Macro ' Macro recorded 20/10/2005 ' Selection.PasteAndFormat (wdPasteDefault) End Sub Can anyone help please? Tag: Delete to end-of-file? Tag: 75320
  - 3
    - Silly "enter-value" macro question! (Does anybody know?) Hi Does anyone know how to make this macro? You'll be a 'life-saver' for me if you do! (NOTE: I do not have any experience using the macro "editor" -- I've only used the 'record macro' function so far. So if you want me to enter some code, would you please just write it in a way I can "cut-n-paste" into the editor?) STEPS: (a) Click on toolbar macro icon (b) This should bring up an "enter value" dialog box on the screen (c) I will then type-in: 1 (i.e. I just type the number one) (d) I click "ok" (or whatever the dialog box wants) (e) Then Word opens this specific document on my hard drive: c:\MS Word Docs\1.doc (I have about 30 documents . . . so, depending on what # is entered in the dialog box, the corresponding document will open . . . i.e. 1.doc, 2.doc, 3.doc . . .) Thanks so much! I know this is probably pretty simple for you macro pros, but I don't know how to do it. Gratefully . . . Tag: Delete to end-of-file? Tag: 75315
  - 4
    - How to copy format of last paragraph instead of first I am copying a selection of text that includes multiple formats, the last n being a numbered list. When I copy and paste it into a table, I need to delete the last paragraph, but when I do that I lose the number on the last paragraph. If I use CopyFormat and PasteFormat it copies the format of the first paragraph instead of the last paragraph, so if it is a list then it saves my last number, but if it is not a list then it loses the last number. Is there a way to copy the format of the last paragraph in the selection? -- Nancy Tag: Delete to end-of-file? Tag: 75313
  - 5
    - Record a macro that ends with a dialogue box open? Using Word 2002, I want to set up a macro that involves several repetitive keystrokes and clicks and includes opening a dialogue box, and should end with the cursor in a field within that box. From that point, the user would enter whatever was appropriate. Trouble is, I cannot get at the Stop button on the macro toolbar whilst the dialogue box is open, so I am not able to stop recording and save the macro. How can I do this??!! Tag: Delete to end-of-file? Tag: 75305
  - 6
    - Where has the assistant gone? Hi everybody, from the help: Sub test66666() If MsgBox("Enable Office Assistant?", _ vbYesNo, "Assistant is Off") = vbYes Then Assistant.On = True Assistant.Visible = True Assistant.Animation = msoAnimationGetAttentionMajor End If End Sub results in an runtime-error. Method 'On' of object 'Assistant' failed. -- Greetings from Bavaria, Germany Helmut Weber, MVP WordVBA Win XP, Office 2003 "red.sys" & Chr$(64) & "t-online.de" Tag: Delete to end-of-file? Tag: 75299
  - 7
    - Embed autoexec routine in a Project(document) derived from a templ Hi all, I would like to know if it is possible that a template.dot can write while creating a document in the Thisdocument object of the project(Document) some routines. If yes How to proceed ? such as : Sub document_open "look if a particular DLL is available" end sub Or in a custom module added programmatically to the document... (Is the VBIDE able to do so ?).. as Create object instruction ? or the like ... any code snippet is very welcome Regards Tag: Delete to end-of-file? Tag: 75297
  - 8
    - How to change the delimiter? Hi, I am using Word.Application.Document.Sentences to get all sentences in a word document. By default, the VBA would return sentences delimited by full stop. How could I change it to look for other delimiters, such as a comma, or even custom define it? For example, these are 2 sentences in a paragraph: {##1##}The brown fox jumps over the lazy dog. {/##1##}{##2##}The brown fox jumps over the lazy dog. {/##2##} If I use Word.Application.Document.Sentences in a loop, it would return me 3 lines: line 1: {##1##}The brown fox jumps over the lazy dog. line 2: {/##1##}{##2##}The brown fox jumps over the lazy dog. line 3: {/##2##} What I need is to have only these 2 sentences: line 1:{##1##}The brown fox jumps over the lazy dog. {/##1##} line 2:{##2##}The brown fox jumps over the lazy dog. {/##2##} Please help. Thank you in advance. Tag: Delete to end-of-file? Tag: 75288
  - 9
    - SEQ number field?? Hello, I'm having a problem, how to create a sequencial number field. this document is an tempate, and i open i want the number to be sequencial. for example, if i enter in the template three times th sequencial, number have to be 1, 2 and 3. 1 for the first template opened, 2 for th two template opened and so on on ........ Any sugestion??? Thanks Tag: Delete to end-of-file? Tag: 75286
  - 10
    - Can I set up a single TOC for ref. from multiple word documents ? I have 5 or 6 word documents each with a table of contents.Can I create a single seperate document/file showing all 5 or 6 table of contents in one TOC(for ref), without having to merge the documents. Will it have the ability to be updated each time I update the contents of an individual document? Tag: Delete to end-of-file? Tag: 75285
  - 11
    - i have problem with iserting pictures ,i have blank box when inserting a picture ,it appears as white box. i have office 2003 Tag: Delete to end-of-file? Tag: 75283
  - 12
    - Calculation from Tokens Hi, I have a document which uses tokens from our system we have 3 tokens "charge", "tax1" , "tax2" i need to be able do a calculation of charge - tax1 -tax2 and put the result on the document. There is no token available to do this in our system so word will have to do the calc. Tag: Delete to end-of-file? Tag: 75282
  - 13
    - Text Runs in VBA? Hi! Can someone please tell me how can I get the text runs of the word doc through VBA code or whether or not they are possible at all. I think they should be accessible since they appear in the XML genrated from word Thanks Abhishek Tag: Delete to end-of-file? Tag: 75281
  - 14
    - Help with Prompts = Code attached Simple if statement? hello, What im wanting to try is for this code to cycle through the document and once you have imputted your criteria: sFnd = Enter the word you wish to replace with a hyperlink sHpl = Enter File Name sDsp = Enter the HyperLink display name it will prompt you once it finds the word you wish to replace. At that point you can choose either yes (to replace it) or no to ignore it. Im thinking this must be a simple if statement but for the life of me i cant find where it should go. I have a partial piece "MsgBox "Replace selection", vbYesNo, "Testing" but cant figure out the rest. Please help. i would like to try and sleep tonight. Thanks cm Sub FindAndReplaceWithHypertext() Dim rDoc As Range ' range replace Dim sFnd As String ' string to be found Dim sHpl As String ' hyperlink Dim sDsp As String ' hyperlink display sFnd = InputBox("Enter the word you wish to replace with a hyperlink:") sHpl = InputBox("Enter File Name:") sDsp = InputBox("Enter the HyperLink display name") Set rDoc = ActiveDocument.Range ResetSearch With rDoc.Find .Text = sFnd .Wrap = wdFindStop MsgBox "Replace selection", vbYesNo, "Testing" Do While .Execute ActiveDocument.Hyperlinks.Add _ rDoc, sHpl, TextToDisplay:=sDsp rDoc.End = rDoc.End + Len(sDsp) rDoc.Collapse wdCollapseEnd Loop End With End Sub Tag: Delete to end-of-file? Tag: 75279
  - 15
    - TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW - "paypal.rtf" 12.4 KBytes yEnc It Will Work? If you do as I have done! Just Do It! follow the 4 steps? $6.00 to $15,000.00 in 30 days! Steps: Follow the Logic, Just Do it and It will work? $$$ in 4 easy steps? 1. Set Up a Free Paypal Account. 2. Send $1.00 to six Email Accounts from your Paypal Account 3. Delete email address #1 and add your email address as #6. Move all others #2-#6 up one number 4. Copy and Post this entire Letter to Newsgroups, Messages Boards etc? Copy this exactly for you guidance to completing steps 1-4. You are in Business for yourself and you are Creating an E-mail List Company TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW! PAYPAL VERIFIES THAT THIS $6 INVESTMENT SCHEME IS 100% LEGAL AND IS A BIG HIT THIS YEAR SEE THEIR NOTE BELOW OR ASK THEM DIRECTLY... THIS SCHEME MIGHT TAKE 15-30 MINUTES AND JUST $6, BUT IT IS 100% WORTH IT TO MAKE THOUSANDS SO QUICKLY. THIS IS NOT ANOTHER SCAM THAT TAKES LOTS OF YOUR HARD EARNED MONEY; THIS IS A NO RISK INVESTMENT THAT WILL MAKE YOU THOUSANDS OF DOLLARS VERY EASILY AND QUICKLY. >From PayPal: "Dear Member, it has come to our attention that there is a paypal scheme floating around at the moment you may have heard or seen the $6 scheme. You may have even taken part in it well we have been asked a lot of questions about this scheme the answer is yes it does work and yes it is safe to use providing you follow the rules it is legal and has made a big hit on the internet this year. If you would like to take part in this scheme or would like a bit more information then please see the attached file that was kindly donated to us. Thank you for using PayPal!" TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW! This is a Money Scheme and Not, I repeat? This is Not a Scam!!! You have most likely seen or heard about this project on TV programs such as 20/20 and Oprah, or you may have read about it in the Wall Street Journal. If not, here it is below - revealed to you in step-by-step detail. This program is by no means new. It has been in existence in many forms for at least a decade. But in the early days, it required a lot more time and effort, as well as an investment of a few hundred dollars. However thanks to PayPal and the Internet, the investment is now virtually ZERO! And what's more, the entire process is FASTER, EASIER, and MORE LUCRATIVE than it has EVER been! Below is the email sent to me: How to Turn $6 into $15,000 in 30 Days with PayPal I WAS SHOCKED WHEN I SAW HOW MUCH MONEY CAME FLOODING INTO MY PAYPAL ACCOUNT I turned $6 into $14,706 within the first 30 days of operating the business plan that I am about to reveal to you free of charge. If you decide to take action on the following instructions, I will GUARANTEE that you will enjoy a similar return! STILL NEED PROOF? Here are just 3 testimonials from the countless individuals who decided to invest nothing more than $6 and half an hour of their time to participate in this program: "What an amazing plan! I followed your instructions just 3 weeks ago, and although I haven't made 15 grand yet, I'm already up to $9,135. I'm absolutely gob smacked." -Pam Whittemore , Ohio "Well, what can I say?... THANK YOU SO MUCH! I sent 40 e-mail's out like you said and then I just forgot about the whole thing. To be honest, I didn't really think anything would come of it. But when I checked my paypal account a week later, there was over $5,000 in After 30 days I now have over $11,000 to spend! I can't thank you enough!"-Juan Tovar, NY,NY "I was shocked when I saw how much money came flooding into my paypal account. Within 3 weeks my account balance has ballooned to $12,449. At first I thought there had been some sort of error with my account!" -Richard Barrie , Boulder,CO The only things you will need are: An email address. A Business PayPal account with at least $6 deposited in it, and just 15 to 30 minutes of your time. This program takes just half an hour to set up. After that, there is absolutely no work whatsoever to do on your part. You have absolutely NOTHING to lose, and there is NO LIMIT to the amount of income you can generate from this one single business program. Let's get started, just follow the instructions exactly as set out below and then prepare yourself for a HUGE influx of cash over the next 30 days! Here's what you need to do. . . REQUIREMENTS #1) an email address #2) a Premier or Business PayPal account (It's simple and free to get a Premier or Business account, if you need help doing it just email me.) Now follow the steps: 1-4 ________________________________________ Follow these easy steps EXACTLY and just watch what happens STEP #1 - Setting up your FREE PayPal Account It's extremely safe and very easy to set up a FREE PayPal account! Copy and paste this to the address bar https://www.paypal.com (notice the secure "https" within the link) Be sure to sign up for a free PREMIER or BUSINESS account (and not just a PERSONAL account) otherwise you won't be able to receive credit card payments from other people. STEP #2 - Sending PayPal money "It is an undeniable law of the universe that we must first give in order to receive." Now all you have to do is send $1.00 by way of PayPal to each of the six email addresses listed below. After setting up your free paypal account and confirming or verifying YOUR ACCOUNT AND putting (six Dollars) $6.00 into your Paypal Account use the Account tab on Paypal to send $1.00 to each of the Names on the List then move the top one and place yours in the #6 spot on the list of names #1-#6. Remember your name becomes #6. Make sure the subject of the payment says... *PLEASE PUT ME ON YOUR EMAIL LIST* (this keeps the program 100% legal.. so please don't forget!) Note: (If you do not see the full email address for the 6 members, just hit reply to this email and they will show up.) (Just in case you still haven't opened your PayPal account yet, use this link to open one in your name), https://www.paypal.com #1) faithmichelle_mo@yahoo.com #2) reesefork@yahoo.com #3) artofficial@grics.net #4) msw27@cox.net #5) fredwdjr@yahoo.com #6) maintenanceman69@aol.com Remember, all of this is ABSOLUTELY LEGAL! You are creating a service! A Business? An Email List Service Business If you have any doubts, please refer to Title 18 Sec. 1302 & 1241 of the United States Postal laws. STEP #3 - Adding Your Email Address After you send your six $1.00 payments, it's your turn to add your email address to the list! Take the #1) email off the list that you see above, move the other addresses up one (6 becomes 5 & 5 becomes 4, 4 becomes 3, 3 becomes 2, 2 becomes 1, your email becomes #6) put YOUR email address (the one used in your PayPal account) as #6) on the list. **MAKE SURE THE EMAIL YOU SUPPLY IS EXACTLY AS IT APPEARS IN YOUR PAYPAL ACCOUNT.** STEP #4 - Copy Message to 200 Newgroups, message boards,etc?? The Pure Joy of Receiving PayPal Money! ________________________________________ You are now ready to post your copy of this message, to at least 200 newsgroups, message boards, etc. (I think there are close to 32,000 groups) All you need is 200, but remember, the more you post, the more money you make - as well as everyone else on the list! In this situation your job is to let as many people see this letter as possible. So they will make you and me rich!!!! You can even start posting the moment your email is confirmed. Payments will still appear in your PayPal account even while your bank account is being confirmed. HOW TO POST TO NEWSGROUPS & MESSAGE BOARDS Step #1) You do not need to re-type this entire letter to do your own posting. Simply put your CURSOR at the beginning of this letter and drag your CURSOR to the bottom of this document, and select 'copy' from the edit menu. This will copy the entire letter into your computer's temporary memory. Step #2) Open a blank 'Notepad' file and place your cursor at the top of the blank page. From the 'Edit' menu select 'Paste'. This will paste a copy of the letter into notepad so that you can add your email to the list. Or copy to a Word Document. and Place in the email upon completion. Step #3) Save your new Notepad file as a .txt file. If you want to do your postings in different sittings, you'll always have this file to go back to. Step #4) Use Netscape or Internet Explorer and try searching for various newsgroups, on-line forums, message boards, bulletin boards, chat sites, discussions, discussion groups, online communities, etc. EXAMPLE: go to any search engine like yahoo.com, google.com, altavista.com, excite.com - then search with subjects like? millionaire message board? or money making message board? or opportunity message board? or money making discussions? or business bulletin board? or money making forum? etc. You will find thousands & thousands of message boards. Click them one by one then you will find the option to post a new message. Step #5) Visit these message boards and post this article as a new message by highlighting the text of this letter and selecting 'Paste' from the 'Edit' menu. Fill in the Subject, this will be the header that everyone sees as they scroll thru the list of postings in a particular group, click the post message button. You're done with your first one! Congratulations! THAT'S IT!! All you have to do is jump to different newsgroups and post away. After you get the hang of it, it will take about 30 seconds for each newsgroup! REMEMBER, THE MORE NEWSGROUPS AND/OR MESSAGE BOARDS YOU POST IN, THE MORE MONEY YOU WILL MAKE!! BUT YOU HAVE TO POST A MINIMUM OF 200** That's it! You will begin receiving money within days! **JUST MAKE SURE THE EMAIL YOU SUPPLY IS EXACTLY AS IT APPEARS ON PAYPAL.** Explanation of why it works so well: $$$$$ NOW THE WHY PART: Out of 200 postings, say I receive only 5 replies (a very low example). So then I Made $5.00 with my email at #6 on the letter. Now, each of the 5 persons who just sent me $1.00 make the MINIMUM 200 postings, each with my email at #5 and only 5 persons respond to each of the original 5, that is another $25.00 for me, now those 25 each make 200 MINIMUM posts with my email at #4 and only 5 replies each, I will bring in an additional $125.00! Now, those 125 persons turn around and post the MINIMUM 200 with my email at #3 and only receive 5 replies each, I will make an additional $625.00! OK, now here is the fun part, each of those 625 persons post a MINIMUM 200 letters with my email at #2 and they only receive 5 replies that just made me $3,125.00!!! Those 3,125 persons will all deliver this message to 200 newsgroups with my email at #1 and if still 5 persons per 200 newsgroups react I will receive $15,625.00! With an original investment of only $6.00! AMAZING!! When your email is no longer on the list, you just take latest posting in the newsgroups, and send out another $6.00 to emails on the list, putting your email at number 6 again. And start posting again. The thing to remember is, thousands of people all over the world are joining the internet and reading these articles everyday, JUST LIKE YOU are now!! So can you afford $6?? And see if it really works?? I think so? People have said, what if the plan is played out and no one sends you the money? So what are the chances of that happening when there are tons of new honest users and new honest people who are joining the internet and newsgroups everyday and are willing to give it a try? Estimates are at 20,000 to 50,000 new users everyday, with thousands of those joining the actual Internet. Remember, play FAIRLY and HONESTLY and this will work. This really isn't another one of those crazy scams! As long as people follow through with sending out $6.00, it works! With warm wishes, bless you and your loved ones, https://www.paypal.com =ybegin line=128 size=12350 name=paypal.rtf ¥????[?????????????[\_\?????Z????????[Z]]¥????????¥??Z????????????????ZJ~????Jx?¡J|????e§¥??[???¡????????????ZJk????e§§74¥?T???? ??????Jw???????J_X^[X[_X[_Zae§? ??¡????^???[????????[ZZ???[ZZ??Z???\^Js?J????J?????Qb_Js?J£??J??J??JsJ?? ?J????KJt???Jn?Js?KJ??? ??¡J???J^J??????Qb_JN`XZZJ??JN[_VZZZXZZJ??J]ZJ??£?KJ????74}????dJp????¡J???Jv????VJt???Jn?J??J???Js?J¡???J¡????Qb_JNNNJ??J^J???£ J??????Qb_J????74[XJ}??J?J?Jp???Jz?£???Jk??????XJ\XJ}???JN[XZZJ??J??¢Jo????Jk???????J????J£???Jz?£???Jk??????J]XJn?????J?????J? ??????JM[J???J???J£???J?????J???????J??JM`XJw? ?J???J??????JM\WM`J??J???J??????J^XJm??£J???Jz???J????J??????Jv?????J??Jx?¡?????? ?VJw???????Jl?????J????Qb_J????74m??£J????J?¢????£J???J£??J????????J??J??????????J?????J[W^XJ???J???J??Jl???????J???J£???????J?? ?J£??J???Jm???????J??JoW????Jv???Jm?????£J~|xJN`Jsx~yJN[_VZZZJsxJyxv?J]ZJnk?}XXXro|o}Jry?KJ????74zk?zkvJ?o|spso}J~rk~J~rs}JN`Js x?o}~wox~J}mrowoJs}J[ZZOJvoqkvJkxnJs}JkJlsqJrs~J~rs}J?ok|J}ooJ~ros|Jxy~oJlovy?Jy|Jk}uJ~rowJns|om~v?XXXJ~rs}J}mrowoJwsqr~J~kuoJ[_ W]ZJwsx~o}JkxnJt}~JN`VJl~Js~Js}J[ZZOJ?y|~rJs~J~yJwkuoJ~ry}kxn}J}yJ{smuv?XJ~rs}Js}Jxy~Jkxy~ro|J}mkwJ~rk~J~kuo}Jvy~}JypJ?y|J rk|nJok|xonJwyxo?eJ~rs}Js}JkJxyJ|s}uJsx?o}~wox~J~rk~J?svvJwkuoJ?yJ~ry}kxn}JypJnyvvk|}J?o|?Jok}sv?JkxnJ{smuv?XJ????74hp???Jz?£ z??dJ????74Ln???Jw?????VJ??J???J????J??J???J?????????J????J?????J??J?J??£???J??????J????????J??????J??J???J??????J£??J??£J?? ?J? ????J??J????J???JN`J??????XJ???J??£J?? ?J? ??J?????J????J??J??J¡???J¡?J?? ?J????J?????J?J???J??J?????????J?????J????J??????J???J ???¡??J??J£??J??J????J¡???J???J£??J??J??J????J??J???J??? ?????J£??J?????¡J???J?????J??J??J?????J???J???J????J?J???J???J??J???J?? ??????J????J£???XJs?J£??J¡????J????J??J????J????J??J????J??????J??J¡????J????J?J???J????J???????????J????J??????J???J???J??????? ?J????J????J¡??J?????£J???????J??J??XJ~????J£??J???J?????Jz?£z??KLJ????74~|xJN`Jsx~yJN[_VZZZJsxJyxv?J]ZJnk?}XXXro|o}Jry?KJ~???J ??J?Jw???£J}?????J???Jx??VJsJ???????Qb_J~???J??Jx??J?J}???KKKJ????74???J?? ?J????J?????£J????J??J?????J?????J????J???????J??J~?J ????????J????J??J\ZY\ZJ???Jy????VJ??J£??J??£J?? ?J????J?????J??J??J???J????J}?????Jt??????XJs?J???VJ????J??J??J????¡JWJ?? ?????J ??J£??J??J????W?£W????J??????XJ~???J???????J??J?£J??J?????J??¡XJs?J???J????J??J?¢???????J??J???£J?????J???J??J?????J?J??????XJl? ?J??J???J????£J??£?VJ??J????????J?J???J????J????J???J??????VJ??J¡???J??J??J?? ???????J??J?J??¡J???????J???????XJr?¡? ??J??????J? ?Jz?£z??J???J???Js???????VJ???J?? ???????J??J??¡J ???????£J?o|yKJk??J¡???Q?J????VJ???J??????J???????J??Jpk}~o|VJok}so|VJ???Jwy|o Jvm|k~s?oJ????J??J???Jo?o|J????KJl???¡J??J???J?????J????J??J??dJ????74r?¡J??J~???JN`J????JN[_VZZZJ??J]ZJn?£?J¡???Jz?£z??JsJ?k}J }rymuonJ?roxJsJ}k?Jry?JwmrJwyxo?JmkwoJpvyynsxqJsx~yJw?Jzk?zkvJkmmyx~JsJ??????JN`J????JN[^VaZ`J¡?????J???J?????J]ZJ??£?J??J???? ?????J???J????????J????J????JsJ??J?????J??J?? ???J??J£??J????J??J??????XJs?J£??J??????J??J????J??????J??J???J?????¡???J????????? ???VJsJ¡???Jqk|kx~ooJ????J£??J¡???J????£J?J???????J??????KJ}~svvJxoonJz|yypiJr???J???J????J]J????????????J????J???J?????????J?? ?? ??????J¡??J???????J??J?? ???J???????J????J????JN`J???J????J??J????J??J?????J????J??J???????????J??J????J???????dJ????74L????J ??J???¤???J????KJsJ?????¡??J£???J????????????J????J]J¡????J???VJ???J????????JsJ?? ??Q?J????J[_J?????J£??VJsQ?J??????£J??J??JNcV[ ]_XJsQ?J?????????£J???J???????XLJWz??J??????????JVJy???J????74L????VJ¡???J???JsJ??£iXXXJ~rkxuJ?yJ}yJwmrKJsJ????J^ZJ?W????Q?J?? ?J????J£??J????J???J????JsJ????J??????J?????J???J¡????J?????XJ~?J??J??????VJsJ????Q?J?????£J?????J??£?????J¡????J????J??J??XJl?? J¡???JsJ???????J?£J??£???J???????J?J¡???J?????VJ?????J¡??J? ??JN_VZZZJ??Jk????J]ZJ??£?JsJ??¡J?? ?J? ??JN[[VZZZJ??J?????KJsJ???Q? J?????J£??J??????KLWt???J~? ??VJx?Vx?J????74LsJ¡??J???????J¡???JsJ??¡J??¡J????J????£J????J????????J????J?£J??£???J???????XJ????? ?J]J¡????J?£J???????J???????J???J?????????J??JN[\V^^cXJk?J?????JsJ???????J?????J???J????J????J????J??J?????J¡???J?£J???????KLJW| ??????Jl?????JVJl??????VmyJ????74~??J???£J??????J£??J¡???J????J???dJk?J?????J???????XJkJl???????Jz?£z??J???????J¡???J??J?????JN` J?????????J??J??VJ???J????J[_J??J]ZJ???????J??J£???J????XJ~???J???????J?????J????J????J??J????J??J???J??XJk????J????VJ?????J??J? ????????£J??J¡???J¡?????? ??J??J??J??J£???J????XJ???J?? ?J?????????£Jxy~rsxqJ??J????VJ???J?????J??JxyJvsws~J??J???J??????J??J??? ???J£??J???J????????J????J????J???J??????J????????J???????XJ????74v??Q?J???J???????VJ????J?????¡J???J????????????J?¢????£J??J??? J???J????¡J???J????J???????J£???????J???J?JrqoJ?????¢J??J????J? ??J???J??¢?J]ZJ??£?KJr???Q?J¡???J£??J????J??J??XJXJXJ????74|o{ s|owox~}J????74M[SJ??J?????J???????JM\SJ?Jz??????J??Jl???????Jz?£z??J???????J?????JRs?Q?J??????J???J????J??J???J?Jz??????J??Jl?? ?????J???????VJ??J£??J????J????J?????J??J????J?????J??XSJ????74x?¡J?????¡J???J?????dJ[W^J?????J????????????????????????????????? ???????J????74p????¡J?????J???£J?????Jo?km~v?J???J????J¡????J¡???J???????J?????J}~ozJM[JWJ}??????J??J£???Jp|ooJz?£z??Jk??????J?? ??74s?Q?J?¢??????£J????J???J ??£J???£J??J???J??J?Jp|ooJz?£z??J???????KJm??£J???J?????J????J??J???J???????J???J?????dYY¡¡¡X??£??? X???JR??????J???J??????JL?????LJ¡?????J???J????SJ????74l?J????J??J????J??J???J?J????Jz|owso|J??Jl}sxo}}J???????JR???J???J????J? Jzo|}yxkvJ???????SJ?????¡???J£??J¡??Q?J??J????J??J????? ?J??????J????J??£?????J????J?????J??????XJ????74}~ozJM\JWJ}??????Jz?£z?? J????£JLs?J??J??J??????????J??¡J??J???J??? ????J????J¡?J????J?????J?? ?J??J?????J??J????? ?XLJ????74x?¡J???J£??J?? ?J??J??J??J?? ??JN[XZZJ?£J¡?£J??Jz?£z??J??J????J??J???J??¢J?????J?????????J??????J????¡XJk????J???????J??J£???J????J??£???J???????J???J??????? ???J??J ????£???J?y|Jkmmyx~JkxnJ???????JR??¢Jn??????SJN`XZZJ????J£???Jz?£???Jk??????J???J???Jk??????J???J??Jz?£???J??J????JN[X ZZJ??J????J??J???Jx????J??J???Jv???J????J?? ?J???J???J???J???J?????J£????J??J???JM`J????J??J???J????J??J?????JM[WM`XJ|???????J£? ??J????J???????JM`XJ????74w???J????J???J???????J??J???J??£????J??£?XXXJTzvok}oJz~JwoJyxJ?y|JowksvJvs}~TJR????J?????J???J?????? ?J[ZZOJ?????XXJ??J??????J???Q?J??????KSJ????74x???dJRs?J£??J??J???J???J???J????J?????J???????J???J???J`J???????VJ????J???J????£J ??J????J?????J???J???£J¡???J???¡J??XSJ????74Rt???J??J????J£??J?????J?? ??Q?J??????J£???Jz?£z??J???????J£??VJ???J????J????J??J??? ?J???J??J£???J????SVJ?????dYY¡¡¡X??£???X???J????74M[SJ????????????????j£????X???J?????JM\SJ?????????j£????X???J?????JM]SJ??????? ????j?????X???J?????JM^SJ??¡\aj??¢X???J?????JM_SJ????¡???j£????X???J?????JM`SJ??????????????`cj???X???????74|???????VJ???J??J??? ?J??Jkl}yv~ov?JvoqkvKJ???J???J????????J?J??? ???KJkJl????????Qb_Jk?Jo????Jv???J}?? ???Jl???????J????74s?J£??J?? ?J??£J??????VJ? ?????J?????J??J~????J[bJ}??XJ[]Z\JPJ[\^[J??J???J?????J}?????Jz?????J??¡?XJ????74}~ozJM]JWJk?????J????Jo????Jk??????J????74k???? J£??J????J£???J??¢JN[XZZJ??£?????VJ??Q?J£???J????J??J???J£???J?????J???????J??J???J????KJ????74~???J???JM[SJ?????J???J???J????J? ???J£??J???J??? ?VJ?? ?J???J?????J?????????J??J???JR`J???????J_JPJ_J???????J^VJ^J???????J]VJ]J???????J\VJ\J???????J[VJ£???J????? J???????JM`SJ???J?y|J?????J???????JR???J???J????J??J£???Jz?£z??J???????SJ??JM`SJ??J???J????XJ????74TTwkuoJ}|oJ~roJowksvJ?yJ} zzv?Js}Jo?km~v?Jk}Js~Jkzzok|}JsxJ?y|Jzk?zkvJkmmyx~XTTJ????74}~ozJM^J???????JJm??£Jw??????J??J\ZZJx?¡??????VJ???????J??????V??? ?Qb_?Qb_J~??Jz???Jt?£J??J|???? ???Jz?£z??Jw???£KJ?????J????????????????????????????????????????J?????J???J???J??¡J????£J??J????J £???J???£J??J????J???????VJ??J??J?????J\ZZJ??¡???????VJ???????J??????VJ???XJRsJ?????J?????J???J?????J??J]\VZZZJ??????SJ????74k?? J£??J????J??J\ZZVJ???J????????VJ???J????J£??J????VJ???J????J????£J£??J????JWJ??J¡???J??J? ??£???J????J??J???J????KJs?J????J????? ????J£???J???J??J??J???J??J???£J??????J???J????J??????J??J????????XJ}?J???£J¡???J????J£??J???J??J????KKKKJ???J???J? ??J?????J??? ????J???J??????J£???J?????J??J?????????XJz?£?????J¡???J?????J??????J??J£???Jz?£z??J???????J? ??J¡????J£???J????J???????J??J????? J?????????XJ????74ry?J~yJzy}~J~yJxo?}q|yz}JPJwo}}kqoJlyk|n}J????74}???JM[SJ???J??J???J????J??J??W?£??J????J??????J??????J??J??J £???J?¡?J???????XJ}????£J???J£???Jm|}y|J??J???J?????????J??J????J??????J???J????J£???Jm|}y|J??J???J??????J??J????J????????VJ?? ?J??????JQ???£QJ????J???J????J????XJ~???J¡???J???£J???J??????J??????J????J£???J????????Q?J????????£J?????£XJ????74}???JM\SJy???J ?J?????JQx??????QJ????J???J?????J£???J??????J??J???J???J??J???J?????J????XJp???J???JQo???QJ????J??????JQz????QXJ~???J¡???J?????J ?J???£J??J???J??????J????J???????J??J????J£??J???J???J£???J?????J??J???J????XJy?J???£J??J?J????Jn???????XJ???Jz????J??J???J????? J????J??????????XJ????74}???JM]SJ}? ?J£???J??¡Jx??????J????J??J?JX?¢?J????XJs?J£??J¡???J??J??J£???J????????J??J?????????J??????? ?VJ£??Q??J??¡?£?J?? ?J????J????J??J??J????J??XJ????74}???JM^SJ??Jx???????J??Js???????Jo¢??????J???J??£J?????????J???J ??????J?? ¡???????VJ??W????J??????VJ???????J??????VJ????????J??????VJ????J?????VJ???????????VJ??????????J??????VJ??????J???????????VJ???XJ o?kwzvodJ??J??J??£J??????J??????J????J£????X???VJ??????X???VJ???? ????X???VJ?¢????X???JWJ????J??????J¡???J????????J????iJ??????? ????J???????J?????iJ??J????£J??????J???????J?????iJ??J??????????£J???????J?????iJ??J????£J??????J???????????iJ??J????????J?????? ??J?????iJ??J????£J??????J?????iJ???XJ???J¡???J????J?????????JPJ?????????J??J???????J??????XJm????J????J???J?£J???J????J£??J¡??? J????J???J??????J??J????J?J??¡J???????XJ????74}???JM_SJ?????J?????J???????J??????J???J????J????J???????J??J?J??¡J???????J?£J???? ????????J???J??¢?J??J????J??????J???J?????????JQz????QJ????J???JQo???QJ????XJp???J??J???J}??????VJ????J¡???J??J???J??????J????J? ??£???J????J??J???£J??????J????J???J????J??J????????J??J?J??????????J?????VJ?????J???J????J???????J??????XJ???Q??J????J¡???J£?? ?J?????J???KJ????74m??????????????KJ~rk~Q}Js~KKJk??J£??J?? ?J??J??J??J????J??J?????????J??¡???????J???J????J?¡?£XJk????J£??J???J ???J????J??J??VJ??J¡???J????J?????J]ZJ???????J???J????J??¡??????KJ????74|owowlo|VJ~roJwy|oJxo?}q|yz}JkxnYy|Jwo}}kqoJlyk|n}J?yJ zy}~JsxVJ~roJwy|oJwyxo?J?yJ?svvJwkuoKKJl~J?yJrk?oJ~yJzy}~JkJwsxswwJypJ\ZZTTJ????74~???Q?J??KJ???J¡???J?????J????? ???J????£J ¡?????J??£?KJ????74TTt}~JwkuoJ}|oJ~roJowksvJ?yJ}zzv?Js}Jo?km~v?Jk}Js~Jkzzok|}JyxJzk?zkvXTTJ????74o¢?????????J??J¡?£J??J¡???? J??J¡???dJ????74NNNNNJxy?J~roJ?r?Jzk|~dJy??J??J\ZZJ????????VJ??£JsJ????? ?J???£J_J???????JR?J ??£J??¡J?¢?????SXJ}?J????JsJw???JN _XZZJ¡???J?£J?????J??JM`J??J???J??????XJx?¡VJ????J??J???J_J???????J¡??J????J????J??JN[XZZJ????J???JwsxswwJ\ZZJ????????VJ????J¡? ??J?£J?????J??JM_J???J???£J_J???????J???????J??J????J??J???J????????J_VJ????J??J???????JN\_XZZJ???J??VJ??¡J?????J\_J????J????J\Z ZJwsxswwJ?????J¡???J?£J?????J??JM^J???J???£J_J???????J????VJsJ¡???J?????J??J??J??????????JN[\_XZZKJx?¡VJ?????J[\_J???????J????J ??????J???J????J???JwsxswwJ\ZZJ¡???J?£J?????J??JM]J???J???£J????? ?J_J???????J????VJsJ¡???J????J??J??????????JN`\_XZZKJyuVJ??¡J ????J??J???J???J????VJ????J??J?????J`\_J???????J????J?JwsxswwJ\ZZJ???????J¡???J?£J?????J??JM\J???J???£J???£J????? ?J_J???????J? ???J????J????J??JN]V[\_XZZKKKJ~????J]V[\_J???????J¡???J???J???? ??J????J???????J??J\ZZJ??¡???????J¡???J?£J?????J??JM[J???J??J??? ??J_J???????J???J\ZZJ??¡???????J?????JsJ¡???J????? ?JN[_V`\_XZZKJ????J??J????????J?? ???????J??J???£JN`XZZKJkwk?sxqKKJ????J£???J ?????J??J??J??????J??J???J????VJ£??J????J????J??????J???????J??J???J??¡???????VJ???J????J???J???????JN`XZZJ??J??????J??J???J???? VJ???????J£???J?????J??J??????J`J?????XJk??J?????J???????J?????XJ????74~??J?????J??J????????J??VJ?????????J??J??????J???J? ??J?? ?J¡????J???J???????J???J????????J???J???????J?????J????????J? ??£??£VJt}~JvsuoJ?yJ???J??¡KKJ????74}?J???J£??J??????JN`iiJk??J? ??J??J??J?????£J¡????iiJsJ?????J??iJz?????J?? ?J????VJ¡???J??J???J????J??J???£??J???J???J??J???J?????J£??J???J????£iJ}?J¡???J??? J???J???????J??J????J?????????J¡???J?????J???J????J??J??¡J??????J?????J???J??¡J??????J??????J¡??J???J???????J???J????????J???J?? ¡???????J? ??£??£J???J???J¡??????J??J?? ?J??J?J??£iJo????????J???J??J\ZVZZZJ??J_ZVZZZJ??¡J?????J? ??£??£VJ¡???J?????????J??J???? ?J???????J???J??????Js???????XJ????74|???????VJ???£Jpks|v?J???Jryxo}~v?J???J????J¡???J¡???XJ~???J?????£J???Q?J???????J???J??J??? ??J???¤£J?????KJk?J????J??J??????J?????¡J???????J¡???J???????J???JN`XZZVJ??J¡????KJ????74????J¡???J¡?????VJ?????J£??J???J£???J?? ??J????VJ?????dYY¡¡¡X??£???X???J????74???????[???\Z????74§74* =yend size=12350 crc32=15a8634 Posted Via Usenet.com Premium Usenet Newsgroup Services ---------------------------------------------------------- ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY ** ---------------------------------------------------------- http://www.usenet.com Tag: Delete to end-of-file? Tag: 75273
  - 16
    - Help with text file deletion Currently i have a macro that will run any number of other macros on all the files in any number of folders. Now, i have the user input how many macros to run, and how many folders. For the amount of macros and folders, i have the user input the folder paths and the macro names. The paths and names are exported to a text file on a network drive that i created for these types of output cases where i need to store and retrieve information. Well, the company that i work with wants to make my macros a company wide deal. The problem i ran into is that if people run the same macro at the same time, the log file person a is using, get's deleted when person b tries to use it. Following is a part of my code... This part i use to create the files... Set f = CreateObject("Scripting.FileSystemObject") Set tLog = f.Createtextfile("Y:\ryan\vb\folderlist.txt", True) Set mLog = f.Createtextfile("Y:\ryan\vb\macrolist.txt", True) Here is part of my code that gets the inputs and writes it to the file nfolders = InputBox(prompt:="How many folders do you want to run macro on?") If Len(nfolders) = 0 Then Exit Sub Application.ScreenRefresh For y = 1 To nfolders If nfolders = 1 Then path = InputBox(prompt:="Input the folder's path.") ElseIf y = nfolders Then path = InputBox(prompt:="Input the last folder's path.") ElseIf y = 1 Then path = InputBox(prompt:="Input the 1st folder's path.") ElseIf y = 2 Then path = InputBox(prompt:="Input the 2nd folder's path.") ElseIf y = 3 Then path = InputBox(prompt:="Input the 3rd folder's path.") Else path = InputBox(prompt:="Input the " & y & "th folder's path.") End If If Len(path) = 0 Then MsgBox ("You hit cancel or didn't put anything in.") Exit Sub End If tLog.writeline (path) Application.ScreenRefresh Next y tLog.Close after all this i do... tLog = "Y:\ryan\vb\folderlist.txt" Open tLog For Input As #1 Do While Not EOF(1) Now, to solve this i'm going to change the program to create the txt file at C:\ and then what i want it to do is erase it when the program is finished.... how can i do this? Tag: Delete to end-of-file? Tag: 75269
  - 17
    - Renumbering lists programmatically Hi there, I'm working on a macro for wide use with legal forms, and one of the requirements is to have the ability to hide or strikeout inapplicable sections, while leaving the form protected to fill in forms only. I've accomplished this by encapsulating each item that will require the hide/strikeout modifications within continuous section breaks, and included a checkbox in each section for the end users to toggle the hiding/strikeout feature which is kicked off by the appropriate toolbar button. An additional requirement, presented to me after this dev work was completed, was that in the case of a hidden section, the subsequent sections would renumber themselves. I'm having difficulty coming up with an elegant solution for this. A sample section of the form looks like this, where [] denotes a checkbox formfield: 1. [](a) This is the first item [](b) This is the second item [](c) This is the third item [](d) Fourth item ... etc... If section b is hidden, then section (c) should become (b) and (d) should become (c) and so on down the line. I'd also like this to be toggle-able.. is this easily done? I can't use a numbered list because hiding the text doesn't renumber the list - only deleting the list item will do that and I can't delete from the form, only hide. Thanks for any assistance in advance! Ben Tag: Delete to end-of-file? Tag: 75263
  - 18
    - Open an Excel Document in Word Hello Again Guys What the VB code to open up an Escel Document externally not within work from a button which is inputted into a word document? Cheers Again Alistaire Tag: Delete to end-of-file? Tag: 75262
  - 19
    - Averge of Check boxes I have a form were users need to select a cyheckbox that correspondes to a rating of 1 thru 4 and I need to get the average score of all. Example: 1 2 3 4 0 X 0 0 1 2 3 4 x 0 0 0 Average = 1.5 How can I do this? Can I do this? Tag: Delete to end-of-file? Tag: 75261
  - 20
    - Open Document Properties Dialog Box Can someone please tell me how to open the document properties dialog box with a macro command? I've linked some fields to some of the custom document property items and I want the document properties to pop up the first time the template is opened for people to enter in the Document Propertie Values. Thanks in advance, -Matt Tag: Delete to end-of-file? Tag: 75259
  - 21
    - Table renumbering. I am trying to replace Appenidix # with Table #.# Only difference is I cannot replace all Appendix # with Table #.#. I mean how will I use fields to replace numbers(#.#) using find and replace command. My files can be of 5-50page it depends. Any help.. it's very urgent I am using following macro to do this. Selection.Find.ClearFormatting With Selection.Find .Text = "Appendix 1" .Replacement.Text = "Table " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Table\c ", PreserveFormatting:=True Selection.TypeText Text:="." Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Table\c ", PreserveFormatting:=True End With Tag: Delete to end-of-file? Tag: 75252
  - 22
    - View Text but Don't Print Is there a way to put some type of comment on the document (like in a text box) but make it so it does not print. I'm trying to put help tips in a template and I want the user to see it but I don't want it to print out. My other idea is to have a mouse-over or click-on type feature that shows a pop-up comment but when I do a comment I get a big long "So and So wrote on Such and Such a Date at Such and Such a Time". I just want the comment to show up. Not all that other stuff. -- Debra Ann Tag: Delete to end-of-file? Tag: 75251
  - 23
    - Sort according to word length Does anyone have a clue for a macro that can sort a list of words according to how many letters there are in the words. Example: I'd like the list: bear do horse a are to end up like: a do are bear horse thanks to anyone who can help! -- per-erik Tag: Delete to end-of-file? Tag: 75248
  - 24
    - Public Function NAME() causes VBA Run-Time error Can someone tell me why if I name a Public Function "NAME", I get a run-time error when I try to use the Application.Run VBA code in Word 2000? Application.Run "NAME" However, if I use Application.Run "NAME1" instead, and rename my function to "NAME1", it works? My assumption is, you cannot name a function "NAME", for whatever reason. My simple function is listed below: Public Function NAME() MsgBox "Hello" End Function Tag: Delete to end-of-file? Tag: 75246
  - 25
    - get the page number of a given bookmark Hi all, I am trying to get the page number of a given bookmark inserte somewhere in the middle of a document. Anyone could give me a clue on how to do it -- ignhdezPosted from - http://www.officehelp.i Tag: Delete to end-of-file? Tag: 75245

Is there a VBA command for "delete to the end of this document"?
Thanks.

Re: Delete to end-of-file? by Tony

Tony
Mon Oct 24 14:35:06 CDT 2005

Not, AFAIK, an explicit single command but this should do it:

Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete

--
Enjoy,
Tony

"Rick Charnes" <rickxyz--nospam.zyxcharnes@thehartford.com> wrote in message
news:MPG.1dc6f3ec979b9f35989903@msnews.microsoft.com...
> Is there a VBA command for "delete to the end of this document"?
> Thanks.

Top

Re: Delete to end-of-file? by Anne

Anne
Mon Oct 24 14:33:56 CDT 2005

I recorded this, Rick:
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1

There's probably a more eloquent way of doing it.
************
Anne Troy
www.OfficeArticles.com

"Rick Charnes" <rickxyz--nospam.zyxcharnes@thehartford.com> wrote in message
news:MPG.1dc6f3ec979b9f35989903@msnews.microsoft.com...
> Is there a VBA command for "delete to the end of this document"?
> Thanks.

Top

Re: Delete to end-of-file? by Doug

Doug
Mon Oct 24 14:38:20 CDT 2005

Dim myrange as Range
Set myrange=Selection.Range
myrange.End = ActiveDocument.Range.End
myrange.Delete

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Rick Charnes" <rickxyz--nospam.zyxcharnes@thehartford.com> wrote in message
news:MPG.1dc6f3ec979b9f35989903@msnews.microsoft.com...
> Is there a VBA command for "delete to the end of this document"?
> Thanks.

Top