How can I erase files from my removable disk

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Visual Basic I know absolutely nothing about Visual Basic, but I would like to learn. Can anyone recommend a good book for starters? -- Thanks! Mary Lee Tag: How can I erase files from my removable disk Tag: 71519
  - 2
    - Replicate information in other form fields I have a document that includes 2 related forms that will be protected for form data entry and distributed. From #2 is an attachment to #1 and includes some of the same information that is shown on form #1. I would like to automate the replication of text so that it automatically appears on form #2 after it is entered on form #1. I tried a calculated field approach but that seems limited to numerical calculations and doesn't seem to like text strings. Any help will be appreciated. -- KMS Technical Solutions Tag: How can I erase files from my removable disk Tag: 71516
  - 3
    - Improving the AddRow function in a form I would like to know if the add row function could be improved a little more. I would like to add a control icon to a form that would allow the user to manipulate a table by growing it or shrinking it. I am currently using this code to add a row if the answer is yes. This code duplicate the row and fills in the fields to match the existing row. Sub SpecSheet_AddRow() response = MsgBox("Add Additional Row?", vbQuestion + vbYesNo) If response = vbYes Then Dim rownum As Integer, i As Integer ActiveDocument.Unprotect Selection.Tables(1).Rows.Add rownum = Selection.Tables(1).Rows.Count For i = 1 To Selection.Tables(1).Columns.Count ActiveDocument.FormFields.Add Range:=Selection.Tables(1).Cell(rownum, i).Range, Type:=wdFieldFormTextInput Next i Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, Selection.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro = "SpecSheet_addrow" Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, 1).Range.FormFields(1).Select ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End If End Sub This code has done well until somebody answered yes but meant to say no. Because this is a locked form, they couldn?t delete the added row and ended up sending a quote to a customer with a dead line? I would like to see if the functions in InfoPath can be recreated in VBA. For licensing reasons, InfoPath isn?t available to me in this usage. Here is what I would like to try; When a user is working in any cell on the row of a table. A control icon appears next to the beginning of that row. If the cursor is clicked on the icon, a pull-down menu with a few options appears just below the icon. These options would be to insert a new row above the current row, insert a new row below the current row, remove the current row and perhaps clear the current row. I would like to make the form better, all suggested will be appreciated. Please anotate any code as I'm trying to learn VBA and this helps. Tag: How can I erase files from my removable disk Tag: 71514
  - 4
    - Helmut Weber -- Info please I have inherited a number of document template with embedded macro's. The WITH.SELECTION.FIND code that you posted on 2005/07/21 repeats throughout these macro's. We are taking a report that is in multiple paragraph form and converting it to tabbed columns, with BOLD, CENTERED headings; some paragraph text; certain words BOLD. Anyway, lots of manipulation of the text. I've done various types of programming fo over 35 years -- VBA and I have a severe adversarial relationship. To the point: You use the .EXECUTE within the WITH LOOP. The code I have uses either a SELECTION.FIND.EXECUTE or SELECTION.FIND.EXECUTE . . .REPLACE ALL immediately AFTER the END WITH What's the difference? Also, can I use IF-THEN-ELSE constructs within the WITH statement depending on certain conditions. I'm trying to transform this WITH LOOP into a SUB FINDREPLACE(Param1, Param2. . .) construct. Thanks Phil Montgomery Tag: How can I erase files from my removable disk Tag: 71513
  - 5
    - Range.MoveUntil is not doing what I need...Any suggestions? Hi All, I have a document that contains multiple instances of the following tag: [Test ID=xxxx] (where xxxx is a numeric variable). Each "Test" tag signals the beginning of a section that I need to perform some procedures in. In some instances, I need to remove a Test if that ID has already been worked. What I am trying to do for those cases is locate the [Test ID=xxxx] tag and set the "[" as my Range.Start. I then need to find the next instance of "[Test ID=" and set the "[" as the Range.End. Once I have that Range selected, I can delete it and move on. I was hoping MoveUntil("[Test ID=") would do the trick, but it does not work like that. As you know, it just stops at the next instance of "[". Does anyone have any suggestions on how to find one item, set that as the start and then find the next item and set that as the end? Thanks! Tag: How can I erase files from my removable disk Tag: 71512
  - 6
    - Word File Format Hi, I am trying to build a document indexing tool for a .NET application. I am fine with the indexing bit and but I cannot find any real information on Converting word documents into Text. I do not want to use the word object and application as I will be indexing around about 40,000 word documents. So I want to be able to read the file directly and extract the text and index. Does anyone know where I can find out about the word file format or can point me in a direction were I can find out more information on this. Thanks for any help, James Tag: How can I erase files from my removable disk Tag: 71511
  - 7
    - how to create a planning calendar as a screensaver i need a calendar template that will : 1) enable me to enter notes on a daily basis 2) alert me about forthcoming deadlines, based on parameters i would have entered when making the note(s) at some earlier date eg 'alert me the day/week before deadline 3) be saved as either a wallpaper, or, better still, a screensaver Tag: How can I erase files from my removable disk Tag: 71509
  - 8
    - How to update mailmergefields? I am creating a VBA that will update mailmerge documents. One set of data to many files. One of the MVPs suggested a good start. I am not finding a way to use the MailMergeField to be able to update the field itself. I have looked through the methods but I am a bit rusty on Oject Oriented code. I would appreciate some additonal insight. Thank you -- FL Consultant Tag: How can I erase files from my removable disk Tag: 71498
  - 9
    - ADOBE DEFAULT DOCUMENT VIEW FROM WORD Hi, I am opening various Arobat docs from within Word 2003 VBA. All the documents open at 50% view by default. I can open all the docs in Acrobat, change the doc properties to 100% default view, save them and then they open at 100%. We have approx. 100 docs - don't want to do this 4 every 1. Is there any way I can let the docs open by default at 100%. Herewith my code from VBA: Sub CM1() Dim RetVal RetVal = Shell("C:\\program files\Adobe\Acrobat 7.0\Acrobat\Acrobat.exe c:\templates\cm forms\CM1.pdf", vbMaximizedFocus) End Sub Any help would be appreciated. JJ Tag: How can I erase files from my removable disk Tag: 71496
  - 10
    - Trim to 15 Characters Hello from Steved Below finds the the first word on a line Question when found is ti posiible to trim to 15 characters include spaces in the below macro please. an example could be "the cat won the show" it would end up as "the cat won the" Selection.Find.ClearFormatting With Selection.Find .Text = "<[A-Za-z]@>" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Thankyou. Tag: How can I erase files from my removable disk Tag: 71494
  - 11
    - Document_New differences I have a normal.dot template with some code in it to display a form. Private Sub Document_New() frmClassification.Show End Sub If I open the template directly it displays the form. If I open Word from the Start Menu, it doesn't. If I use File New once Word is open, it does work. Seems to be a slight difference in how Word opens the first time. I recall this from years past. Can anyone fill me in on what it is and how to work around it. Just for background I need to call a form to get user input. The input is about the type of document and is used to insert text in the headers and footers. I need this to apply to every document created or opened in any way. I need to apply it so when the document is printed the header and footer text is inserted. I don't need to leave the headers and footers in the document It is so when printed and left lying on the printer, we can seee the rating of the document and the username who printed it. Regards Mark Dormer Tag: How can I erase files from my removable disk Tag: 71491
  - 12
    - DocumentBeforePrint in Word 97 I just realised that this isn't implemented in Word97. Took me a little while to figure out why it wasn't triggering. <g> I am after a workaround, can't find one using Google, which is surprising. Regards Mark Dormer Tag: How can I erase files from my removable disk Tag: 71490
  - 13
    - Automatically generating Microsoft Chart graphs from a file list I have a large number of experiment results (around 350+ samples) store in separate Excel format (tabs/newlines) files. I would like to generate a single Microsoft Word document with each file converted into a Microsoft Graph object. I have a template graph which I wish to use. Is there any way of creating a macro or other set of commands that would allow me to do this automatically. Sort of For each file Create a Microsoft chart object Import datasheet from file Endfor Tag: How can I erase files from my removable disk Tag: 71487
  - 14
    - embed image in template so available for insert can I embed an image in a template so it's available for insert on any computer (like how a macro is saved in the dot file) - So you can't see it but you can use it, and a macro that calls for it doesn't need to look in a path on the terminal computer? Tag: How can I erase files from my removable disk Tag: 71475
  - 15
    - Prevent pages from displaying/printing I'm not very VBA or SQL literate so I'm trying to figure a way to make this form work. I created a form out of a word document. It populates bookmarks and references with data from a SQL database. The form is static. It allows up to 9 employees names, addresses, etc to display. For example: Laura Smith 15 Street Princeton, NY 08696 US citizen Larry Kole 58 Rd New York, NY 90012 UK citizen Jen Reilly 40 Avenue Miami, FL 10012 FR citizen So there are 3 employees that print per page. So I end up having 3 pages each everytime. My problem is that I don't always have 9 employees everytime. Sometimes I may just have one which would only need to print on page 1 or four employees which would print on 2 pages. Is there any way to write a macro that will prevent pages from displaying and printing depending the the number of employees. So if there are 3 employees then page 1 will print. If there are 4 to 6 employees then page 2 will print. If there are more than 6 employees pages 1 thru 3 will display and print. Any suggestions? Many thanks Microsoft experts Tag: How can I erase files from my removable disk Tag: 71473
  - 16
    - Can I add user-defined styles to a customized toolbar button? I am using Word 2002. I work with manuals, and would like to have my most often-used styles as buttons on a custom tool bar. Can I do that? Maybe I am using the wrong keywords, but I am not finding it. -- Thanks! Mary Lee Tag: How can I erase files from my removable disk Tag: 71471
  - 17
    - VBA to search in comments attached to an xl cell Is it possible to write VBA code that will search inside the comments attached to a cell in excel for each sheet in the workbook. The number and names of the sheets will constantly be changing. Ideally what I'd like to do is something like: 1. Go to first sheet in workbook 2. for each sheet in workbook search the comments for desired info 3. On finding result return message stating the sheet name and cell that the comment is attached to and the choice to end searching here and go to that cell or continue searching 4. On not finding result return message with simple 'OK' button and end the macro. Thanks for any help/pointers in the right direction. Tag: How can I erase files from my removable disk Tag: 71465
  - 18
    - How can I conditionally hide text in a subdocument? I'm writing a users manual in a Word Master Document. I have a subdocument that I'd like to include in a couple of places with a minor change in the text. There is a sentence that I want to drop when it is included in a another particular subdocument. Perhaps this outline will help you understand my question better. masterdoc subdoc1 sub-subdoc1: show the sentence subdoc2 sub-subdoc1: do not show the sentence Tag: How can I erase files from my removable disk Tag: 71463
  - 19
    - email confirmation Dear all, I want to automatically send out an notification by email when a word document has been saved, whithout sending the actual document. I do have the code to send out an email. What I'm missing is the code to initiate the sending subroutine when the document is saved. I think I need something like a "send on save". Any Suggestions? Thanks a lot for you assistance. best Mathias Tag: How can I erase files from my removable disk Tag: 71458
  - 20
    - Reassigning custom toolbar button functionality In the interest of organization, I moved some subs to another module. Trouble is, they were linked to some custom toolbar buttons. When I clicked one those buttons, I got the "The macro cannot be found or has been disabled because of your Macro security settings" warning box. In Excel, it's easy to reassign a toolbar button. But I don't see the same "Assign Macro" menu item in the Word customization pop-up menu that is in Excel. Is there a way to reassign custom toolbar buttons? Or am I doomed to create new buttons and assign them to the subs? Tag: How can I erase files from my removable disk Tag: 71457
  - 21
    - MailMerge Doc whit VBA I have a mailmerge document that I want to populate with VBA. I have a copy of a subroutine BatchReplaceAll from the MVP website. I would appreciate some suggestions on what methods I would use to populate the mailmerge fields. Point me in a direction to look. Thanks -- FL Consultant Tag: How can I erase files from my removable disk Tag: 71454
  - 22
    - in visual basic how do return the cursor position I need to identify the position of the cusor in a document, particularly the line number, using VB, any ideas? Tag: How can I erase files from my removable disk Tag: 71452
  - 23
    - Clean Out Linked "Char" Styles Codes doesn't work on word 2003 This is very useful code to remove troublesome "Char" Styles on Word document. But it only works on word 2002 and this code just hangs on word 2003. This is the code ==> http://hacks.oreilly.com/pub/h/2597#code I like to know why this code just hangs on word 2003. Thanks, JB Tag: How can I erase files from my removable disk Tag: 71445
  - 24
    - Previously working replace macro gave error today A macro which has operated properly many times in the past halted with an error this morning. The debugger indicated line 10 below as the error. After trying to determine why, I did a manual find/replace and the replace window came up with use wildcards checked. I guess that the last replace I did yesterday (different document) used wildcards and Word remembered this setting. How do I unset this in the macro? I am using Word 2002. 1 Selection.WholeStory 2 Selection.Find.ClearFormatting 3 Selection.Find.Replacement.ClearFormatting 4 With Selection.Find 5 .Text = "^l" 6 .Replacement.Text = " " 7 .Forward = True 8 9 End With 10 Selection.Find.Execute Replace:=wdReplaceAll 11 With Selection.Find 12 .Text = " ^p" 13 .Replacement.Text = "^p" 14 .Forward = True 15 16 End With Tag: How can I erase files from my removable disk Tag: 71444
  - 25
    - Coding To Open/Format/Save/Close All Files In Single Directory Hi, My problem surounds the fact that I have 100 + files in the following directory C:\My Documents|Import The first few filenames for example are ABEG, ABMN, ABXX The files all have the extension .rpt as they have been imported via ftp routine. What I'm aiming to do is open each file in the directory in turn, perform identical formatting and editing in each file (for which I have code that works!), and save the file as a word document in the same directory as above (or preferably one called C:\My Documents|Reports). I have cobbled together some coding, but am basically stuck and any input provided would be incredibly welcome. The coding seems to open the first file "ABEG", but somewhere in the routine the filename is then lost and the routine ends up doing a loop, saving the file with name "False" and resulting in a forced quit to get out of word. I'm also not sure what the coding would be that ensures the macro ends normally once the routine has been performed on each file in the directory once only. I'd be grateful if someone could have a look at the code below and advise accordingly Thanks Graham Sub RunNR6() Dim myFile As String Dim PathToUse As String Dim myDoc As Document PathToUse = "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" myFile = Dir$(PathToUse & "*.rpt") While myFile <> "" Set myDoc = Documents.Open(PathToUse & myFile) 'then perform required editing and formatting myFile = Left$(myFile, Len(myFile) - 3) = "doc" ActiveDocument.SaveAs FileName:=myFile, FileFormat:=wdFormatDocument ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges Wend myFile = Dir$() End Sub Tag: How can I erase files from my removable disk Tag: 71441
- Next
  - 1
    - About CustomDocumentProperties Hi everyone, Does anyone know if there is a command in VBA that removes a CustomDocumentProperty? I found a reference in MSDN library about adding a CustomDocumentProperty but not about removing it as well. I noticed also that if a property is added manually -that means I go file->properties->custom- then I can write in my macro ActiveDocument.CustomDocumentProperties(index).Delete and it is removed. But if the property is added by my code with a command like this: ActiveDocument.CustomDocumentProperties.Add xNode.ParentNode.nodeName, False, msoPropertyTypeString, xNode.NodeValue and then it gets a value with the command: ActiveDocument.CustomDocumentProperties.Item(xNode.ParentNode.nodeName).Value = xNode.NodeValue then I cannot remove this property. Could anyone please tell me what I am doing wrong? Tag: How can I erase files from my removable disk Tag: 71438
  - 2
    - How to use %systemdrive% and %username% Hello all (In Word 2003) I need to call with my shell command to explorer.exe, it works shell "explorer.exe" or shell "explorer.exe c:\Data" But I need use the variables %systemdrive% and %username% and an error message appears: "this file doesn't exist". How can I use the variables with shell or whitout it? Thanks in advanced. Henpat Tag: How can I erase files from my removable disk Tag: 71423
  - 3
    - BatchReplaceAll Help I was pointed to the MVP website and the routine to perform BatchReplaceAll. I am a programmer but have not done much with VB. It was suggested that I need to use this routine. After looking at it, it appears that I can use it but I need some assistance. What I am doing is updating many contracts with the same data ( name, address, company number, store numbers etc.). I want to automate the process. I understand correctly, I see that BatchReplaceAll is a subroutine. Where can I learn about it functionality. I don't need to have the person enter any information. Do I use the same kind of fields that you use in mailmerge? Where can I go to get info on word VB? Thanks -- FL Consultant Tag: How can I erase files from my removable disk Tag: 71421
  - 4
    - new file format to be opened in word automatically ? Hi I have saved a .doc file after RSA encryption under "filename.glk" I would like to open through word and the appropriate decryption VBA routine(stored in a decryption.dot template) this .glk file with just a double clik on it. That is to say double clicking on the glk file will start word start the decryption routine to then open the "filename .GLK" file in word. automatically Who can help me to this end ? any help much appreciated ! Code snippet is a must ! Best regards from Paris to all. Herve Cadieu Tag: How can I erase files from my removable disk Tag: 71415
  - 5
    - win32 How to solve the error message " X (null) not a valid win32 application while opening the MS WORD Tag: How can I erase files from my removable disk Tag: 71414
  - 6
    - Need Index # of current line/para/word [cont. after delay] Thanks for the response. > I get the answer 27785 in a second. For me, that's terrible. I need to display the progress of many hundreds or even thousands of hits. Even if I only call the progress bar once every 10 hits this is still an unacceptable overhead --- and I will also get a jumpy bar. Thanks. Avraham. (Btw, greetings from Israel.) >> same with sentences Well, I am sure that counting sentences does not work very well on our machines, so if paras and words take as long then they also won't work. Maybe I will get around to trying them later. Thanks. Avraham. Helmut Weber wrote: > Hi Avi, > > 1 GHz, 768 MB Ram, 200 pages document, > insertion point on the last page > > MsgBox ActiveDocument.Range(0, Selection.Range.End).Words.Count > > I get the answer 27785 in a second. > > Same with paragraphs, same with sentences. > > Processing lines is something completely different, > they depend on e.g. pagesetup, printer, font etc. > > > ActiveDocument.Range(0, Selection.Range.End).Sentences.Count > > convoluted? > > How about this one, which is essentially the same. > Just a bit easier to read, maybe. > > Dim rDcm As Range > Set rDcm = ActiveDocument.Range > rDcm.End = Selection.Range.End > MsgBox rDcm.Words.Count > > > Greetings from Bavaria, Germany > > Helmut Weber, MVP, WordVBA > > Win XP, Office 2003 > "red.sys" & Chr$(64) & "t-online.de" Tag: How can I erase files from my removable disk Tag: 71413
  - 7
    - Call to U: drive from Word Hello all I need to create a button that calls the U: drive How can I do it? .... Word 2003 Windows XP PRO SP2 ... Thanks a lot. Henry Tag: How can I erase files from my removable disk Tag: 71412
  - 8
    - To check the call of Save event on DocumentBeforeSave event Hello All, I want to know that when the DocumentBeforeSave event is called in Word then is it possible to know from where the event has been fired. Is it Save, Save As, Save As Web Page, Auto Save, etc. I want to track from which of these functions i have recieved the call. Thanks for help. GS Tag: How can I erase files from my removable disk Tag: 71411
  - 9
    - How do I create a new symbol for Word 2002 I have a document in Word that I want to be able to insert a symbol, which currently does not exist in the format dropdown box to insert a symbol. The symbol I would like to be able to add would be a box with an x inside it. Any ideas would be very helpful. Tag: How can I erase files from my removable disk Tag: 71406
  - 10
    - Multiple Selections in Calendar Control Is it possible to make multiple selection within the calendar control ie. can I allow users to use the SHIFT or CONTROL keys to select multiple days within the calendar? (I didn't see any options for multiple selections within control properties). Can I program for this functionality using a couple lines of code? If so what would it look like. Thanks in advance. Tag: How can I erase files from my removable disk Tag: 71403
  - 11
    - Loop thru doc problem Hi, The following code is working perfectly for me except when it hits a table. I would like it to SKIP tables and not put the sequential number field there. I only want it if the paragraph style is Normal and not in a table. Right now it is placing sequential numbers in each cell of the first table. I'm getting the following error message when it gets to the end of the first row: Run-time error 5251. This is not a valid action for the end of a row. I've tried several different options to get this to work. I've been looking at it all day and am still not getting anywhere. Any help would be greatly appreciated. Thanks. jbc ********************************************* Dim oPar As Paragraph Dim oRng As Range ActiveWindow.View.ShowFieldCodes = True For Each oPar In ActiveDocument.Paragraphs If oPar.Style = "Normal" Then If Not Mid(oPar.Range.Text, 3, 3) = "SEQ" Then oPar.Range.InsertBefore vbTab Set oRng = oPar.Range.Duplicate oRng.Collapse direction:=wdCollapseStart ActiveDocument.Fields.Add Range:=oRng, Type:=wdFieldSequence, Text:= _ "Paragraph \# ""[0000]"" \n " oRng.Paragraphs(1).Range.Fields(1).Result.Font.Bold = True End If End If Next oPar ActiveWindow.View.ShowFieldCodes = False ActiveDocument.Fields.Update ************************************************* Tag: How can I erase files from my removable disk Tag: 71402
  - 12
    - VBA and numlock. A client claims that a VBA macro is turning numlock off. I looked in the docs and see no way for VBA to do this - tell whether numlock is on or off, yes, but change it, no. Any ideas? -- Peter Aitken Remove the crap from my email address before using. Tag: How can I erase files from my removable disk Tag: 71397
  - 13
    - Documents.Open Causes Terminating Error The following Open code generates a hard kind that terminates the application and never gets trapped. It shows up only on Windows 2000 or Word 2000 and is fine on XP or later (and is developed on Windows XP with Word 2003). Dim wordApp As Word.Application Set wordApp = New Word.Application wordApp.Documents.Open "d:\some_file_name" Is there a reason for this? What is the work around? Tag: How can I erase files from my removable disk Tag: 71393
  - 14
    - Run-Time Error 4608 I have been trying to finalize a document by running a macro to "cleanup" page setup values. I want to havea header setup in the end of InchesToPoints (.38). The document page setup is with A4 paper sizing. The code that is giving me the run-time error is: docWd.PageSetup.HeaderDistance = InchesToPoints(0.38) when I get to that point in the code and hover, the value is 84.95 on the left-hand side. Does anyone have any ideas? Thanks. Tag: How can I erase files from my removable disk Tag: 71392
  - 15
    - Highlighting mechanism like protected documents Hi, I want to highlight text in a Word document, that has track changes enabled and the highlight operation should not appear as a tracked change. For example, when we protect a in Word 2003, Word automatically highlights the regions of the document that is editable by different users in different colors. This highlight does not cause any tracked change, moreover, when I look at the properties of the range object, I do not see anything different from a normal range without protection. And when I switch the option to view the bookmarks, I see that the highlighted regions are surrounded by bookmark symbols. But the range object does not contain any bookmarks. Can someone help me out here, as to how this can be done?? Thanks and Regards, Laks Tag: How can I erase files from my removable disk Tag: 71389
  - 16
    - Can I create a macro to transfer info from a Word doc to Access? I created a blank form in Word to be sent out electronically and completed before being returned to me. All the data on the Word "form" is in text boxes, check boxes or frames. Is it possible to write a macro that would transfer the data captured in the form to an Access database already created? Tag: How can I erase files from my removable disk Tag: 71384
  - 17
    - Create Error Message I am working in Word 2002. I have a form with many input fields. I have a tab order macro in the document to guide through the form. Because of the tab macro the user cannot tab to a previous field (shift + tab), doing so tabs them out of the current field and into the next field. I would like to have an error message come up when the user uses the shift + tab key combination, stating they can not tab backwards, so the user is left at the same field they were in when they pressed shift + tab. Thanks! -- Jamie Tag: How can I erase files from my removable disk Tag: 71383
  - 18
    - word SDK i have a vb program that currently creates word documents using the various word objects available within Word.Application. currently i have microsoft word installed on my machine. is there something else like an SDK i could install and still use my program so i can delete the actual word program from my computer? Tag: How can I erase files from my removable disk Tag: 71382
  - 19
    - How can I speed this up?? Hi All, I am wits end trying to find a way to speed up this procedure. Below is a brief description of what I am trying to do followed by my code: ---Description--- We needed a way for users to import a document into our application. The Word doc needs to be tagged in such a way that the procedure "knows" what tag item needs to be placed in what column in the database. Here is an example of what an Item structure looks like: [~Item~] [~ItemType~]Single Answer Multiple Choice [~ItemATID~]70-057.6.2.2 [~ItemText~]What is the best installation method to use? [~Alternative~] Custom [~Alternative~] Typical [~Alternative~] Complete [~Alternative~] Ad Server [~Alternative~] Commerce Interchange Pipeline [~CorrectAnswer~] Custom [~Difficulty~]3 [~Editor~]dvdastor [~RemediationText~] The Typical installation option installs Commerce Server and Ad Server. It does not install the Trey Research sample site or the SDK. The Ad Server installation option only installs Ad Server. The custom installation option allows you to add or subtract from the Typical installation. The complete option installs all the components and is not the best answer. [~ReferenceText~] 1. Implementing a Commerce Enabled Web Site Using Microsoft SS 3.0, Commerce E - Installing Commerce Server - Commerce Server Installation As you can see, the tags ([~TagName~]), determine what needs to be read and imported. I run through the document looking for the tags and set the tag value up as a range. I then need to do some processing on the range to capture any HTML formatting that may be included. If I have 20 or so Item structures like the one above in a document, the process runs for about 5 minutes and will eventually do what I would like. However, if the document contains, 30 or more, it takes upwards of 40 minutes or so. Most often though, I get the dreaded, "Message Filter indicated the application is busy" error. ----My code---- 'create the app If oWord Is Nothing Then oWord = New Word.Application End If oWord.Visible = False oWord.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone .... 'open the document If File.Exists(SaveLocation) Then oDoc = oWord.Documents.Open(SaveLocation) Else ErrorLabel("The file does not exist. Please check the file name and try again.") End If ..... 'At this point, I am merely crawling through the doc looking for tags and tag values. 'Once I obtain a range, I pass the range to this function and utilize the return value to import into the database: Public Function PrepareTagsforImport(ByVal rngToSearch As Word.Range) Dim rngResult As Word.Range Try rngResult = oDoc.Range(start:=rngToSearch.Start, End:=rngToSearch.Start + rngToSearch.Text.Length) With rngResult.Find .ClearFormatting() .Execute(findtext:="^m", ReplaceWith:="", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Replacement.ClearFormatting() .Replacement.Font.Bold = 0 .Replacement.Font.Italic = 0 .Replacement.Font.Underline = 0 .Replacement.Font.Subscript = 0 .Replacement.Font.Superscript = 0 .Execute(findtext:="^p", ReplaceWith:="^p", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .Text = "&" .ClearFormatting() .Replacement.Text = "&" .Replacement.ClearFormatting() .Execute(Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .Text = "<" .ClearFormatting() .Replacement.Text = "<" .Replacement.ClearFormatting() .Execute(Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .Text = ">" .ClearFormatting() .Replacement.Text = ">" .Replacement.ClearFormatting() .Execute(Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Bold = 1 .Replacement.ClearFormatting() .Replacement.Font.Bold = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="<b>^&</b>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Italic = 1 .Replacement.ClearFormatting() .Replacement.Font.Italic = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="<i>^&</i>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Underline = Word.WdUnderline.wdUnderlineSingle .Replacement.ClearFormatting() .Replacement.Font.Underline = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="<u>^&</u>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Subscript = 1 .Replacement.ClearFormatting() .Replacement.Font.Subscript = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="<sub>^&</sub>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Superscript = 1 .Replacement.ClearFormatting() .Replacement.Font.Superscript = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="<sup>^&</sup>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Tahoma" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font face=""Tahoma"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Courier" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font face=""Courier"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Courier New" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font face=""Courier New"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Verdana" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font face=""Verdana"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Times New Roman" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font face=""Times New Roman"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Arial" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font face=""Arial"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 8 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font size=""1"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 10 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font size=""2"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 12 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font size=""3"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 16 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font size=""4"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 18 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font size=""5"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 24 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font size=""6"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 32 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="<font size=""7"">^&</font>", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With Return rngResult Catch ex As Exception ErrorLabel(ex.Message) End Try End Function ------------------------ I believe my slowdown comes from this procedure having to run on most of the ranges (I don't care about formatting on some, so I just skip this procedure for thost ranges). With so many Finds and Replaces, could this be my issue? As I mentioned, it works fine with smaller docs, but with larger ones, it takes forever... Is there any way from what you see above that I can improve the performance of my process? Thanks for any help you can provide. Tag: How can I erase files from my removable disk Tag: 71376
  - 20
    - Programming Re Document Save Hi, I'm using Word97 and have approx 100 unformatted text files in the following directory \\FINPC13\SHARE FIN01\NR6 Draft .rpt\ I want to open each in turn, perform identical formatting on each file and then save the file as a word document within the same directory. The following programming performs the first part of this routine (I think!) Sub RunNR6() Dim myFile As String Dim PathToUse As String Dim myDoc As Document PathToUse = "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" myFile = Dir$(PathToUse & "*.rpt") While myFile <> "" Set myDoc = Documents.Open(PathToUse & myFile) Selection.WholeStory Selection.Font.Size = 8 With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientLandscape .TopMargin = InchesToPoints(0.5) .BottomMargin = InchesToPoints(0.5) .LeftMargin = InchesToPoints(1) .RightMargin = InchesToPoints(0.5) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(11.69) .PageHeight = InchesToPoints(8.27) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False End With I am struggling with the code which will then save each file (the active document at the time) as a fully formatted word document within the following directory:- \\FINPC13\SHARE FIN01\NR6 Draft .rpt\ Help gratefully appreciated. Graham Tag: How can I erase files from my removable disk Tag: 71373
  - 21
    - Programming Query Re Document Save Hi, I am using MS Word 97. I have approx 100 files in the following directory "\NR6 Draft . rpt" which are unformatted text files.I have the start of some programming which should open each file in turn and perform identical formatting in each file as follows:- Sub RunNR6() Dim myFile As String Dim PathToUse As String Dim myDoc As Document PathToUse = "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" myFile = Dir$(PathToUse & "*.rpt") While myFile <> "" Set myDoc = Documents.Open(PathToUse & myFile) Selection.WholeStory Selection.Font.Size = 8 With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientLandscape .TopMargin = InchesToPoints(0.5) .BottomMargin = InchesToPoints(0.5) .LeftMargin = InchesToPoints(1) .RightMargin = InchesToPoints(0.5) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(11.69) .PageHeight = InchesToPoints(8.27) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False End With On completion of the formatting above I would like help with the programming which then:- saves the active document as a fully formatted word document in the same directory "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" before repeating the procedure with the next "text" file in the directory. Help gratefully appreciated. Graham Tag: How can I erase files from my removable disk Tag: 71372
  - 22
    - Run a macro in Word from command line to open envelope window I want to create a desktop icon that will open word and automatically open the the "Tools | Letters and Mailings", "Envelopes and Labels" window. I have recorded a macro that opens this window, but the window is modal so the macro cannot be terminated until the window is closed and the code behind the macro uses ActiveDocument.Envelope.Insert with the proper arguments to insert the envelope. I have also tried to use Sendkeys in the macro to send the [Alt] + "T" (Tools), [Alt] + "e" (Letters and Mailings), [Alt] + "E" (Envelopes and Labels) {Sendkeys "%(TeE)"} but when I run it, the current time gets inserted into the document. Any ideas? Tag: How can I erase files from my removable disk Tag: 71371
  - 23
    - Event Sinks Hi, I have a Visual Basic COM addin which is handling the "DocumentBeforeClose" event however there is another addin on the machine which is getting this event before my COM addin. If my COM addin sets the "Cancel" variable to TRUE the document will close regardless. Is there anyway to catch this event before any other addins get it? I am using Word 2003. Tag: How can I erase files from my removable disk Tag: 71364
  - 24
    - Memory Management Question I have some VBA code that gets run within Word in which the user clicks a menu selection (a macro launched from a toolbar). Every time the code runs, a collection is created and populated with freshly created instances of a class. When the macro ends, I do not have any cleanup code to set the class instances or the collection to nil. Will this leak memory? Tag: How can I erase files from my removable disk Tag: 71361
  - 25
    - VBA to find third decimal point? The cells in one column of a table contain numbers separated by decimal points. The numbers can have several points (1.2.3.4.5), or none. I would like to go through each of these cells and truncate the number just before the third decimal point, if it exists; if not, the number would be left alone. What method do I need to find the third decimal point in these strings? Thanks. Ed Tag: How can I erase files from my removable disk Tag: 71352

I would like to delete files fro my removable disk, i.e. drive E

Re: How can I erase files from my removable disk by Jay

Jay
Fri Jul 22 18:44:15 CDT 2005

On Fri, 22 Jul 2005 14:23:01 -0700, "Saucy"
<Saucy@discussions.microsoft.com> wrote:

>I would like to delete files fro my removable disk, i.e. drive E

Does this have something to do with VBA in Word? If that's what you're
trying to do, look up the Kill statement in the VBA help.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

RE: How can I erase files from my removable disk by PhilMontUSDA

PhilMontUSDA
Fri Jul 22 21:25:27 CDT 2005

You treat it just like any other drive; nothing special.

"Saucy" wrote:

> I would like to delete files fro my removable disk, i.e. drive E

Re: How can I erase files from my removable disk by Saucy

Saucy
Sun Jul 24 14:30:02 CDT 2005

I will try but my disk says read only. Thank you

"Jay Freedman" wrote:

> On Fri, 22 Jul 2005 14:23:01 -0700, "Saucy"
> <Saucy@discussions.microsoft.com> wrote:
>
> >I would like to delete files fro my removable disk, i.e. drive E
>
> Does this have something to do with VBA in Word? If that's what you're
> trying to do, look up the Kill statement in the VBA help.
>
> --
> Regards,
> Jay Freedman
> Microsoft Word MVP FAQ: http://word.mvps.org
>

Re: How can I erase files from my removable disk by Jay

Jay
Sun Jul 24 17:39:49 CDT 2005

If drive E: is a CD-R or a DVD, you can't delete anything from it --
that's just the way these media operate. If it's a CD-RW, you probably
need to use the writing software, such as Roxio or Nero, that you used
to put the file on the disk originally.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

On Sun, 24 Jul 2005 12:30:02 -0700, "Saucy"
<Saucy@discussions.microsoft.com> wrote:

>I will try but my disk says read only. Thank you
>
>"Jay Freedman" wrote:
>
>> On Fri, 22 Jul 2005 14:23:01 -0700, "Saucy"
>> <Saucy@discussions.microsoft.com> wrote:
>>
>> >I would like to delete files fro my removable disk, i.e. drive E
>>
>> Does this have something to do with VBA in Word? If that's what you're
>> trying to do, look up the Kill statement in the VBA help.
>>
>> --
>> Regards,
>> Jay Freedman
>> Microsoft Word MVP FAQ: http://word.mvps.org
>>