loop through all docs in a folder

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Templates and Macros Hi guys and gals, I'm having trouble with a template in Word 2003. It has macros and forms in it. When I create a document based on the template, the macros work while on my machine. However, when I separate the document from the template, the macros and forms no longer work. It appers they are not copied into the new document. Does anyone know how I can make the document carry over the macros and forms from the template? Thanks in advance Stephen at ZennHAUS Tag: loop through all docs in a folder Tag: 100440
  - 2
    - Reading text at bookmark field Hi All, Bascially i have a bookmark "Claim_No", i want to be able read the data that has been entered against it. I have had one of those days and i know it is simple, but i just can't seem to remember how to do it. Can someone please show me an example so that i can store it again in the memorybank. TIA Justin Tag: loop through all docs in a folder Tag: 100436
  - 3
    - Set Word Options in VBA for Word 2007 I've created a macro to set Word Options to my needs in Word 2007. It includes most of the properties settings for Options object and some properties settings for Application & Window/View object. It runs VERY SLOW. I stepped through each line of codes and found half of the settings take several seconds to finish. The similar macro I created for Word 97/2000/2002/2003 run very smoothly, took just a second to finish all. I've noticed the message "conneting to printer .." shown on the status bar when the macro run and tried to turn off "Application.ScreenUpdating", no difference. Does any one know how to fix this problem? Thanks in advance. Tag: loop through all docs in a folder Tag: 100408
  - 4
    - Find the next blank line Hello from Steved I have a 6 paragraph then a blank line also i have paragraphs from 4 to 22 each with a blank line. Please how do I find the next blank line, Yes I've tried using wildcard but did not help me find the next blank line. Thankyou. Tag: loop through all docs in a folder Tag: 100402
  - 5
    - What is Eclipse Inventory Management & Financial Software? Interviewing with a Company that has the Eclipse Software. Where can I find this? Thanks. Tag: loop through all docs in a folder Tag: 100384
  - 6
    - deselect command in a macro I have created a macro for users to update all the fill-in fields in my document, but it puts me back in with the "WholeStory" still selected. AND the recorder will not let me click on the document, right click and toggle fields or any other way that I know how to deselect the material. This document is going out to the entire company of about 2000 poeple and I know a LOT of them are not computer savvy enough to do it themselves. SO, I want to know what the command is that I can put within the macro to deselect the WholeStory. I don't even know enough about Visual Basic to BE dangerous!!! Thanks! Audrey Tag: loop through all docs in a folder Tag: 100383
  - 7
    - Form field frustration I am having a couple of issues programmatically accessing form fields. I have assigned â??bookmarkâ?? names to these fields and here is how I can use VBA to see what has been entered in the field. Dim FieldText as string FieldText = Word.ActiveDocument.Bookmarks("LastName").Range.Text The problems : A) I cannot detect when the field is empty B) Empty fields have text value of 5 spaces, but return FALSE when compared to being equal to 5 spaces C) Trim seemingly has no effect, as â??trim(FormField)â?? still = FormField = 5 spaces D) Any attempt to erase the text in a form field by setting = â??â?? erases the form field, setting equal to 5 spaces also does not work. I need to be able to detect an empty form field, and be able to erase text in form fields. Any ideas? Tag: loop through all docs in a folder Tag: 100381
  - 8
    - Insert superscripted ordinal date - Word 2000 ?? Hi all :) I'm trying to create a macro that inserts the current date to replace the selected text (not as a field). ------------------ Selection.InsertDateTime DateTimeFormat:="dd MMMM yyyy", InsertAsField:= False, DateLanguage:=wdEnglishUK, CalendarType:=wdCalendarWestern, InsertAsFullWidth:=False ------------------ is easy enough and gives me the date as 18 May 2007 but I need to insert it as 18th May 2007 with the ordinal (st,nd,rd) in superscript. I think that it's something to do with \* ordinal but I can't for the life of me work out how the syntax goes. And I can't even begin to guess how to do the superscripting! Yes, I know it's a silly way of formatting a date - it wasn't my idea ;) Thanks all :) Tag: loop through all docs in a folder Tag: 100376
  - 9
    - PrintDate from Protected document doesn't work I have the following problem with PrintDate which appears only in Word 2000 In Word 2003 everything works OK. My users unfortunately use Word 2000 (9.0.4402 SR-1) 1) Users demand is that the footer contains PrintDate field 2) Second demand is that when approved, document is protected against writing with password . I protect document programmatically with following code Const wdAllowOnlyComments=1 WordObj.ActiveDocument.Protect wdAllowOnlyComments, False, "PASSWORD" 3) PROBLEM IS FOLLOWING: After protecting the document, PrintDate, after document has been printed out, doesnâ??t work any more It is empty = 00.00.00000. I also found out that the same problem with PrintDate appears also if I do everything manually in Word so probably this is a Bug or something. Can someone give me an advice what to do that PrintDate will work in Word 2000 (9.0.4402 SR-1). Maybe there is fix for this or some workaround? Thank you Lojze Tag: loop through all docs in a folder Tag: 100373
  - 10
    - How to remove italic formatting I'm obviously a bloody beginner in Word. I have some text, some of it formatted in the (italic) character style "Emphasis", some of it with "italic" applied as manual formatting. I want to have all the text formatted "not italic". Selection.Font.Italic=False does not work. Am I overlooking an obvious, simple solution, or do I have to write some elaborate code, just to remove the italic formatting? Regards, Klaus Tag: loop through all docs in a folder Tag: 100359
  - 11
    - Excel running Word macro I have a complicated macro which does several things to a series of imported htm files, however it is not working as expected. An excel macro produces a list of htm files within a directory and outputs it to sheet1 and then one by one uses this as a parameter to start a word macro (ww has been defined as the word application object) ww.Documents.Open ThisWorkbook.Path & "\datastage1.doc" runnow = ww.Run("stage1", file) This runs the macro stage1 in the word document datastage1.doc using the file stored in variable "file". Sub stage1(myfile As String) file = myfile folderpath = ActiveDocument.Path & "\inputhtm\" Documents.Open FileName:=folderpath & file This word macro then opens the file and is meant to remove all occurences of a two line text fragment using a word (XXPAEDT) to find the first of those lines: 'DELETE UNWANTED LINES Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find Do While .Execute(FindText:="XXPAEDT", Wrap:=wdFindContinue, Forward:=True) = True Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Loop End With This does not work and the lines are not removed, yet if i open the document manualy and then use the macro after removing the above section that opens the htm file (so it starts with the remove unwanted lines comment) it works perfectly!!! Any ideas as to why the different behaviour if the file is opened manually by the user or automatically by the macro Thanks Richard Tag: loop through all docs in a folder Tag: 100349
  - 12
    - Date + 1 Month Hi there, I'm pretty new so bear with me. I have a word document ask a user what a certain date is. Let's call it "DATE A". This date is inserted into the first row of a table. I need to add 1 Month to this date in the next row. 2 Months to this date in the row below, etc. I.E. Let's assume DATE A is January 01, 2007. I need the next date in the table to be Febuary 01, 2007, then March 01, 2007 etc. Any clue on how I would do this? I've looked everywhere, and every thing seems to be a little over my head. Much appreciated. :) Kevin Tag: loop through all docs in a folder Tag: 100332
  - 13
    - Code for Adding Custom Document Property I have revised an existing template to contain a new custom doc property. Since old documents (not containing the new property) will sometimes be attaching to the template, I need to add code that checks the attached document for the existence of the property & if it's not there, create it. I know the code I need to use to add the custom document property(ActiveDocument.CustomDocumentProperties.Add ...) , but I don't know the best way to check for the property & tell it to execute the code if the property is missing. Also ... I read in another email thread that it may not be a good idea to create the customdocument property with ActiveDocument since the property exists in the template but not in the open doc. If the property existing in the template but not in the active document creates a conflict, then what should I use instead to create it? Thanks for your help. -- JoAnn Tag: loop through all docs in a folder Tag: 100331
  - 14
    - Detect if word document is open How can I detect if a word document is open and if it is open how can i do modification from MS access with VBA? Thanks for any suggestion Jose Tag: loop through all docs in a folder Tag: 100329
  - 15
    - Using arrays in a userform I have an Excel file which is a database of names and addresses. It consists of 16 columns of data and 20 rows for each office. In my Word template I have a userform with, among other things, a dropdown list and two command buttons. One button Retrieves the first nine fields in the database and displays these on the form for the user to check the correct details have been selected based on the dropdown list. I have no problems with this part. On retrieval, Fields 10 to 16 are put into an array variant, like this: VarData(0) = rs.Fields(9).Value VarData(1) = rs.Fields(10).Value VarData(2) = rs.Fields(11).Value VarData(3) = rs.Fields(12).Value VarData(4) = rs.Fields(13).Value VarData(5) = rs.Fields(14).Value VarData(6) = rs.Fields(15).Value I have checked and each element of the array is holding its correct information. What I don't know how to do is to pass the data that was in the array under the "Retrieve" button so that it can be put on the paper when I press the "OK" button. Each piece of the array would be concatenated with a vbCr prior to going on the page. Also, if there was no data (Null) in the last field then I would discard it from the operation. Can anyone help, please? Roderick Tag: loop through all docs in a folder Tag: 100326
  - 16
    - Userform is no longer invoked Hi: I am having a problem with a userform that is no longer invoked once the custum button is pressed. What it is call up a template with the userform to enter specific fields and then print two copies. What did I do to cause this issue? Thanks, -- Jo Tag: loop through all docs in a folder Tag: 100322
  - 17
    - closeing only active document Hi. how to write macro for closing only active document not all the word application? in F1 help I found st. like : ActiveDocument.Close SaveChanges:=wdPromptToSaveChanges but when user is asked whether he wants to save changes or not there is also possibility to cancel and when this is done document is not closed. I would like to manage to close active document without possibolity for cancelling (just save or not). regards Peter. Tag: loop through all docs in a folder Tag: 100317
  - 18
    - Re: find last modified file in .file.search Use msoSortOrderDescending instead of msoSortOrderAscending in FileSeach.Execute() -- Krgrds, Perry System: Vista/Office Ultimate VS2005/VSTO2005 SE "Perry" <drumper@gmail.com> schreef in bericht news:... > Don't know what the With Selection/End With block is doing in yr code. > Remove this for the time being. > > As to the searchresults: > > Expand below code example to match yr situation. > Note: the results can be found in the .FoundFiles() array. > The first member in this array will be the full filename of targetfile you > requested against the .Execute() parameters you used. > > Use that one to open your file... > > With Application.FileSearch > .NewSearch > .LookIn = strPath > .SearchSubFolders = False > .FileName = "*.csv" > .Execute (msoSortByLastModified, msoSortOrderAscending) > If .found then > Msgbox .FoundFiles(1) > end if > End With > > -- > Krgrds, > Perry > > System: > Vista/Office Ultimate > VS2005/VSTO2005 SE > > > > "muyBN" <muyBN@discussions.microsoft.com> schreef in bericht > news:6B3C5BA7-C9C5-4F69-8DDB-E270F5BDBF22@microsoft.com... >> In the following code, I need to open the file which has been modified >> last >> but don't quite know how to write it. Your assistance in this will be >> appreciated. >> >> >> strPath = "C:\Data\misc\0PackIt\" >> strFirstFile = ActiveDocument.name >> With Selection >> With Application.FileSearch >> .NewSearch >> .LookIn = strPath >> .SearchSubFolders = False >> .FileName = "*.csv" >> .Execute (msoSortByLastModified) >> intFiles = .FoundFiles.count >> If .Execute(msoSortOrderAscending) > 0 Then >> strFile '= last modifed file >> End If >> End With >> End With >> Documents.Open (strPath & "\" & strFile), AddToRecentFiles:=True, >> Format:=11 >> >> -- >> Bryan > Tag: loop through all docs in a folder Tag: 100316
  - 19
    - how to reference/open last file modified In the following code, I want to search for and open the most recent file modified, but don't know how to write that particular line. Assistance will be appreciated. Thanks. strPath = [path name] strFirstFile = ActiveDocument.name With Selection With Application.FileSearch .NewSearch .LookIn = strPath .SearchSubFolders = False .FileName = "*.csv" .Execute (msoSortByLastModified) intFiles = .FoundFiles.count If .Execute(msoSortByLastModified, msoSortOrderAscending) > 0 Then strFile = [last modifed file] End If End With End With Documents.Open (strPath & "\" & strFile), AddToRecentFiles:=True, Format:=11 -- Bryan Tag: loop through all docs in a folder Tag: 100313
  - 20
    - find last modified file in .file.search In the following code, I need to open the file which has been modified last but don't quite know how to write it. Your assistance in this will be appreciated. strPath = "C:\Data\misc\0PackIt\" strFirstFile = ActiveDocument.name With Selection With Application.FileSearch .NewSearch .LookIn = strPath .SearchSubFolders = False .FileName = "*.csv" .Execute (msoSortByLastModified) intFiles = .FoundFiles.count If .Execute(msoSortOrderAscending) > 0 Then strFile '= last modifed file End If End With End With Documents.Open (strPath & "\" & strFile), AddToRecentFiles:=True, Format:=11 -- Bryan Tag: loop through all docs in a folder Tag: 100312
  - 21
    - Error running Word 2007 Macro- macros disabled I get the error "Macros in this project are disabled" when trying to run a macro. I looked around and went into the Trust Center and set it to allow all macros. It still gives me the same message even after setting that to allow all and restarting word. Any ideas? This was a Word 2003 doc if that makes any difference. Tag: loop through all docs in a folder Tag: 100308
  - 22
    - Auto Clear Picture from Clipboard After I copy paste a picture to a word document, save it and close it, it asks "You placed a picture on the clipboard. Do you want this picture to be available to other applications after you quit word?" and has 3 options for me "yes" , "No" , "Cancel" . How do I make sure it always selects "No"? All help is appreciated. Tag: loop through all docs in a folder Tag: 100305
  - 23
    - Word 2003 I would like to combine 2 pre-installed macros in one macrobutton expression without creating a new macro or editing an existing one. Can I somehow include 2 macros in 1 macrobutton? Tag: loop through all docs in a folder Tag: 100291
  - 24
    - Is range in a field? Is there a way to test whether a Range (or Selection) is in a Field, and if so, to access that field? Tag: loop through all docs in a folder Tag: 100288
  - 25
    - PUTTING A TICK IN A FORM Please help I'm going insane. I want to eaither change the check box form field into a a= ctual tick or get the macro (which is basic) to work in my form. It keeps coming up with a= run time error 4605. Heres the VB for the tick Sub TICK() ' ' TICK Macro ' Macro recorded 2/16/2007 by Megan Dixon ' Selection.TypeText Text:=3D"=C3=BC" Selection.Font.Name =3D "Wingdings" Selection.MoveLeft Unit:=3DwdWord, Count:=3D1, Extend:=3DwdExtend Selection.Font.Name =3D "Wingdings" End Sub Thanks Tag: loop through all docs in a folder Tag: 100283
- Next
  - 1
    - Splitting a line of text at commas I have an Excel database and my Word template retrieves data from it quite successfully. One of the lines of data it retrieves is an address, each part of it separated by commas e.g: address1, address2, address3, and so on... For historical reasons, the one line address must remain as it is in the Excel database file. My client has now asked me if I can split that line at each comma and put each component on a separate line. I'm sure it can be done but would not know where to start. Is there a solution, please? Roderick Tag: loop through all docs in a folder Tag: 100280
  - 2
    - Selecting a table in a footer I'm trying to adapt the following code to find out if there is a table in any of the footers: kJunk = ActiveDocument.Sections(1).Footers(1).Range.StoryType 'Iterate through all story types in the current document For Each kStory In ActiveDocument.StoryRanges 'Iterate through all linked stories Do On Error Resume Next Select Case kStory.StoryType Case wdEvenPagesFooterStory, wdFirstPageFooterStory, wdPrimaryFooterStory * * Pseudo-code: If there are any tables in this story then select the third cell in the first row * Next End If Case Else 'Do Nothing End Select On Error GoTo 0 'Get next linked story (if any) Set kStory = kStory.NextStoryRange Loop Until kStory Is Nothing Next Can anyone help with this please? Roderick Tag: loop through all docs in a folder Tag: 100279
  - 3
    - Word-2003 VBA winword.exe is running under 'processes' but not ope winword.exe is running under 'processes' but not open under application hi, to close the application from VBA i am using the command Application.Quit wdDoNotSaveChanges the application closes, in the application tab of task manager, nothing is there but when i open processes in task manager i can see that the WINWORD.EXE is still running. why winword is still running. it happnes some time not all the time. please suggest how to overcome this problem. The machine in which i am running it contains two processor. let me know if any more information needed. Tag: loop through all docs in a folder Tag: 100276
  - 4
    - Endless loop if macro tries to process text in a table cell, otherwise running fine. Below macro which I recently wrote is supposed to COPY all the text that has been placed between brackets TO the end of the document and list them one below the other. It is running fine with one exception. If text between brackets is found in a table cell, the macro falls into an endless loop. In theses cases, it copies the text between the brackets over and over again and won't stop. Hence, how do I have to re-write this code so that text between brackets located in a table cell is also properly copied and put at the end of the document. Help is appreciated. Thank you very much in advance. Regards, Andreas Dim rng As Range Dim rngEnd As Long Set rng = ActiveDocument.Range rngEnd = ActiveDocument.Range.End With rng.Find .Text = "\([!\)]@\)" .MatchWildcards = True Do While .Execute() rng.Copy ActiveDocument.Bookmarks("\EndOfDoc").Range.Paste ActiveDocument.Bookmarks("\EndOfDoc").Range.InsertAfter vbCr rng.Collapse wdCollapseEnd rng.End = rngEnd Loop End With End Sub Tag: loop through all docs in a folder Tag: 100270
  - 5
    - More help with specific page printing I have a macro set up whereby users are presented with a user form which gives them the choice of printing all pages, current page or first page OR inserting into a text box which pages they wish to print. The form also has a combo box for selecting/inserting the number of copies they wish to print. Here is the code for the cmdOK button of the form dim Specific Pages as String dim NumberCopies as String SpecificPages = txtSpecPages.value (the name of the text box) NumberCopies = cboNumCopies.value (the name of the combo box) If SpecificPages <> "" Then ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:=SpecificPages, Copies:=NumberCopies ElseIf OptA = True Then (the option button for printing all pages) ActiveDocument.PrintOut Copies:=NumberCopies ElseIf OptC = True Then (the option button for printing the current page) ActiveDocument.PrintOut Range:=wdPrintCurrentPage, Copies:=NumberCopies ElseIf OptF = True Then (the option button for printing the first page) Selection.HomeKey Unit:=wdStory ActiveDocument.PrintOut Range:=wdPrintCurrentPage, Copies:=NumberCopies End If What happens is the following: If specific pages is filled in - prints all pages and prints one copy regardless of how many copies are asked for If Print All - prints all pages (which is OK) but only prints one copy regardless of how many copies are asked for Print Current - prints all pages and only prints one copy regardless of how many copies are asked for Print First - prints all pages and only prints one copy regardless of how may copies are asked for What am I doing wrong???? The printer I am printing to is set up to print duplex at all times, does this conflict with the printing request? I would have thought that it would still print the pages you asked for as duplex. thanks, Tag: loop through all docs in a folder Tag: 100269
  - 6
    - ShapeRange gives error Can anyone tell me why the statement i = Selection.Range.ShapeRange.Count gives error message 5852 if there are no shapes in the selection but works if there are one or more shapes. I can work around the problem using error trapping but it is messy. I am using Word2000 VBA Tag: loop through all docs in a folder Tag: 100262
  - 7
    - Populating & updating Word document from database I am looking for the best solution to meet the needs for a future development project. I think the new Word smart document might be the answer, but I'm not sure of its capabilities. What I need is as follows: My end users frequently create data-intesive proposal documents. The documents are a combination of a standard proposal template of text that they edit/customize for each specific proposal, and inserting data from another application, generally in the form of tables. The data from the application is always grouped together in a set number of tables, say Table A, Table B, and Table C. I would like the end user to be able to open a word document template, choose which tables to insert and where to insert in the document, and be able to modify the formatting of the tables (not the values in the table). Since the end user continues to update the data in the application while developing the proposal in Word, the user needs the ability to automatically update the table values from the application, without overriding any formatting changes that were made to the table. Is this possible? Am I on the right track with smart documents? I am not really a technical person, but am trying to do the initial research on what technology my development staff should use. Any help or advice would be appreciated! Thanks! Tag: loop through all docs in a folder Tag: 100256
  - 8
    - Hide screen while Macro is working I have a template with 16 different forms. There are 16 buttons and when the user double clicks on a button, all other forms are cut leaving only the form they need. This works very well but the flashing screen is annoying. Is there a way not to hide this macro working screen? DJK Tag: loop through all docs in a folder Tag: 100244
  - 9
    - idioms dictinnary I had to recovery the lap system and when i installed microsoft office 2003 i didnt get the idiom dictionary. How can i install it? ty -- XAC Tag: loop through all docs in a folder Tag: 100243
  - 10
    - Textbox.Value to Double won't work Hi, I have a form with a textbox where you can put in a number (or somthing else). I want to convert the textboxvalue to a double. I use somthing like this but it won't work. on error resume next LocalDbl = CDbl(StupidTextBox.Value) if err.Number = not 0 then LocalDbl = 0 ... The types doen't match. I don't understand what I'm doeing wrong. Please give me a hint. Thanks, Marc From Belgium Tag: loop through all docs in a folder Tag: 100241
  - 11
    - Can't edit custom toolbar There is a problem : I have custom toolbar that is situated in a separate .dot file . .dot file is situated in "%CURRENT_USER%\Application Data\Microsoft\Word\STARTUP\" folder and loads on startup. Problem is that I can't edit any prefferences of this custom toolbar (add or delete buttons or change toolbar name or change buttons icon). All other toolbars are editable. Can you give some piece of advice or suggestion of what can be the cause of this behaviour. Tag: loop through all docs in a folder Tag: 100240
  - 12
    - Adjusting the Microsoft Graph colour palette from within Word VBA I'm having trouble setting the colour palette of a Microsoft Graph chart from within VBA. I can create the chart and adjust all the properties and everything, but I want to modify the palette in the chart so the bottom two rows of the palette (default colours for fills and lines) are my own custom colours. I've got the macro, and there aren't any runtime errors, but the palette just doesn't change! I've followed help as much as I can. Has anybody come across this, or have any suggestions. It's driving me crazy! Here's the code I'm using to add the chart and set the colour on the palette: Set oShape = Selection.InlineShapes.AddOLEObject (ClassType:="MSGraph.Chart.8", FileName:="", LinkToFile:=False, DisplayAsIcon:=False) Set oGraph = oShape.OLEFormat.Object With oGraph .Colors(17) = RGB(255, 0, 0) End With Tag: loop through all docs in a folder Tag: 100239
  - 13
    - Delete first page I am replacing the first page of my old document with the first page of our new template. My macro below is not working right. It deletes the old footers and the old first page but it inserts all the pages of the new template. I tried putting a bookmark at the end of the first page of the new template and in my range put in the bookmark so it read as follows but that did not work. I tried the bookmark on both sides of the page break with no success. What am I doing wrong? objRange.InsertFile FileName:="C:\Procedure Master2.dot", _ Range:="bkpg1", ConfirmConversions:=False, Link:=False, _ Attachment:=False The other problem Iâ??m having is on some of the computers here at work when I try to run this macro I get the following run-time error: â??5941â?? The requested member of the collection does not exist. When I run debug it on the following line: Selection.Bookmarks("\Page").Range.Delete When I run this macro on my computer here at work or at home I never get this error. Here is my macro: Dim objSection As Section Dim objRange As Range Dim objHeaderFooter As HeaderFooter ' Delete all footers from each section For Each objSection In ActiveDocument.Sections For Each objHeaderFooter In objSection.Footers objHeaderFooter.Range.Delete Next objHeaderFooter Next objSection ' Create a range for the start of the document Selection.Bookmarks("\Page").Range.Delete Set objRange = ActiveDocument.Range objRange.End = objRange.Start objRange.InsertFile FileName:="C:\Master2.dot", _ Range:="", ConfirmConversions:=False, Link:=False, _ Attachment:=False Tag: loop through all docs in a folder Tag: 100233
  - 14
    - Paste unformatted text with red text Hello, I'm looking to create a macro to paste whatever it is in the clipboard with unformatted text with red font color. How can this be accomplished? Thanks so much! -- Smile...it is good for you! :) Tag: loop through all docs in a folder Tag: 100226
  - 15
    - Button to email a user form. Ok, I'm having a terrible time doing this. Nothing is working like I need. I have a few text box fields to be filled out and a simple button at the bottom of the page to click on and have the document emailed to one email address. The code I have dug up here is using a routing slip or something and every time I send the form, it attaches another email address to the TO: field. Now I have like 12 of the same address all listed each time I send a new email using this form. Here's the code. Private Sub CommandButton1_Click() ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "New subject goes here" .AddRecipient "Firstaddress@Mail.com" .Delivery = wdAllAtOnce End With ActiveDocument.Route End Sub The form can be mailed as an attachment, I'm just having a hell of a time getting what seems to be a simple task to work properly. Thanks in advance. Mike Tag: loop through all docs in a folder Tag: 100220
  - 16
    - Is it possible to apply conditional formatting in a Word doc? I am trying to do a mail merge that would include some fields that might not apply on some of the letters. Is there a way to conditionally format the text as I can in Access to leave that area blank if there is no supporting data? Tag: loop through all docs in a folder Tag: 100218
  - 17
    - Auto Date Change Hi, I have a table in Word and I would like one column (C) to show the time the section to its left (A &B) was last updated. So if someone made a change something in Cell 1 , Col A , I would like it to say in Col C : 5/14/2007 automatically. I know how to do this in Excel but i'm completely lost how to accomplish in this in Word. Thank you to anyone that helps. Ben Z. Tag: loop through all docs in a folder Tag: 100215
  - 18
    - Word 2000 fails to open Windows XP SP2, IE 7 with OE 6, Microsoft Works Suite 2000 with Word 2000. I have successfully used Word 2000 from the date of purchase until the recent round of Microsoft's Security Updates (10 May 2007). In fact I successfully produced a letter just prior to updating. Since the updates Word begins to open (gets to the typing page) and then closes with the option to send a defect report to MS. I have used System Restore to return to a date just prior to the Security Updates; No change in the defect symptoms. I have un-installed and re-installed Word; No change in the defect symptoms. Can anyone help me out of this predicament? Derek Tag: loop through all docs in a folder Tag: 100214
  - 19
    - Get web page object through Word VBA? Is it possible in a Word 2003 macro to set objects to the the IE application and the current web page? I'd like to check a checkbox and activate the NextPage link (as long as there's a next page to go to). I found some references to scripts that can do this, but I can't figure them out. I can't find an InternetExplorer library to reference in the VBE. Any help is greatly appreciated. Ed Tag: loop through all docs in a folder Tag: 100212
  - 20
    - How to start Word without templates through VB 6.0 Hi, I am using Word 2003 Visual Basic 6.0. I want to open Word in my VB code without loading the templates (similar to winword/a from command line) I'm using Cretaeobject("Word.Application"). I would like to load Word application without loading the default templates and assign it to an Object variable. Her's my current code Private m_app As Object Set m_app = CreateObject("Word.Application") Or How can I start Word using VB 6.0 without loading templates? Can someone help me on this? Thanks. Tag: loop through all docs in a folder Tag: 100209
  - 21
    - Opening Word without loading templates through VBA Hi, I am using Word 2003. I want to open Word in my VBA code without loading the templates (similar to winword/a from command line) I'm using Cretaeobject("Word.Application"). I would like to load Word application without loading the default templates and assign it to an Object variable. Her's my current code Private m_app As Object Set m_app = CreateObject("Word.Application") Can someone help me on this? Thanks. Tag: loop through all docs in a folder Tag: 100208
  - 22
    - AcceptAllChangesInDoc Hi All, I'm not sure if it's the rite to post my question. Try by luck. I used to write program by VBA. This time, I need to write a program by VB Express that do similar as VBA. I need a program that open a particular Doc files and accpet all change for track change. It can be done by VBA using : WordBasic.AcceptAllChangesInDoc And in VB Express, U can create a word object By: Dim objWord As Word.Application objWord = New Word.Application Open and file: objWord.Documents.Open(strDocFile) Access the activedocument by objword.activedocuemnt... <--- Do whatever u what, just like VBA However, I can access the "WordBasic.AcceptAllChangesInDoc" Because, there is no AcceptAllChangesInDoc in wordbasic. Do any1 have an idea about this Many Thanks Tag: loop through all docs in a folder Tag: 100205
  - 23
    - How do I create a button to reset a form document? Hello! I've created a form document that will be used to fill out some text fields and then emailed. I think I've figureed out how to make the command button send the document as an attachment. My next task is to create a second button to reset all the fields to blank so it can be used again with out re-opening the document. Any ideas on how to do this? I also thought of another question... Whats the code to add text to the message body of the email? Example: "This email containes an attachment for a new client." Thanks in advance. Mike Tag: loop through all docs in a folder Tag: 100202
  - 24
    - Printing Autotext I have a template called "autotext.dot" which has 150 odd autotext entries saved within it. As we do not use global normal.dot, we have to copy the autotext from autotext.dot to our normal.dot. What I need to do is print all of the autotext with the autotext name then the actual autotext underneath so that people have a hard copy of the autotext that can be used. I don't want to have to manually do this. Any ideas? Tag: loop through all docs in a folder Tag: 100201
  - 25
    - Mail Merge relative reference to data source Hi I've been trying to find out over the last few days how exactly create/ fake a relative reference (as opposed to an absolute eg C:\blah\blah \blah) to an Excel spreadsheet I'm using as a data source. It sounds possible from some things I've read online, and I think I understand the theory but unfortunately I'm not proficient in VBA to do it, and nobody has posted the code anywhere (and as this is the only vb I'll be touching it's not worth learning the whole caboodle). It sounds like you have to create an AutoOpen macro (that kicks in on opening the doc) that changes the path of the MailMerge datasource to a combination of the file path of the word document and the file name chosen for the spreadsheet. I cobbled together some code that looked ok, and it seemed to work... but only once. on moving the duplicate folder it reverted to referring to the original again. I'm sure the code must be simple but I'm not having any luck would appreciate some help. typically the project somewhat relies on me finding a fix for this and will be seriously hampered without one! thanks in advance Chris Tag: loop through all docs in a folder Tag: 100198

Hi, how do I loop through all documents in a folder and perform a task?

ie what I would like to do is:

- while there is a word document in folder
- open word document
- perform code
- next word document if there is one

Thanks.

Re: loop through all docs in a folder by Helmut

Helmut
Sat May 19 13:50:18 CDT 2007

Hi red6000,

a million variations available in the world wide net,
like this, just another one:

Sub Something()
Dim cCol As Collection
Dim sStr As String
Dim lCnt As Long
Set cCol = New Collection
sStr = Dir("c:\test\word\*.doc", vbNormal)
While sStr <> ""
cCol.Add sStr
sStr = Dir
Wend

For lCnt = 1 To cCol.Count
MsgBox cCol.Item(lCnt)
Documents.Open cCol.Item(lCnt)
' your code, beware of what you are doing
ActiveDocument.Close
Next

End Sub

>- while there is a word document in folder

Is that the condition you really want?

The example leaves the documents in the acual folder.
So "while there is a word document in folder"
will never be false.
You got to move the files to another location,
that is copy them, kill the source.

?

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Re: loop through all docs in a folder by Perry

Perry
Sat May 19 13:50:33 CDT 2007

here's a link with all info regarding files/folders.
Try to implement in yr application and if you get stuck, repost indicating
which version of
MS Word you are using and relevant or failing code parts
http://msdn.microsoft.com/archive/default.asp?url=/archive/en-us/dnarofftalk/html/office09072000.asp

Check below function in VBA help as well.
Dir()

And here's a good example:
http://word.mvps.org/faqs/macrosvba/BatchFR.htm

Good luck

--
Krgrds,
Perry

System:
Vista/Office Ultimate
VS2005/VSTO2005 SE

"red6000" <red1000002001@yahoo.com> schreef in bericht
news:464f2859$0$3838$c3e8da3@news.astraweb.com...
> Hi, how do I loop through all documents in a folder and perform a task?
>
> ie what I would like to do is:
>
> - while there is a word document in folder
> - open word document
> - perform code
> - next word document if there is one
>
> Thanks.
>