Count files in diectory

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Deleting table based on contents of a bookmark I appreciate the help received from Doug and Jean-Guy in response to my November 11 post concerning deleting tables based on the contents of a particular bookmark in a forty- page Word 2000 form used to collect information from faculty about their activities. The code works perfectly, and is included at the end of this post for reference. Four questions about our project have come up that I am unable to answer, no doubt because this is my first vba project. I have looked through the MVPS Word FAQs, and the subject lines in the vba.beginners and vba.general lists, but haven't found solutions yet, though I may have overlooked a posting that would be helpful. 1. How do I include my vba code as part of a Word 2000 form emailed as an attachment? I tried to email a test version of the form to a colleague and myself so we could test it, but found that no vba code was included along with the attachment when I opened the form and then the VB Editor (from Tools->Macro->VB Editor). I believe I correctly saved the code along with the document (not in Normal) before sending the email with attachment, but there was no sign of any vba code. I emailed myself the code separately, and pasted it into the code window of the VB Editor, and then it works fine. But this is too complicated for the faculty to do. I've read 'Distributing macros to other users' and 'What do I do with macros sent to me by other newsgroup readers to help me out?' but neither really addresses how one sends a Word form as an attachment when the form includes vba. The fact that I haven't found any FAQ references to what must be a common activity, leads me to conclude that I'm missing something really obvious! 2. How do I make a macro button run the vba code associated with my form? The code works fine when I run it from within the VB Editor using the 'Step Into' button where I can observe its operation, and also runs fine from the 'Run' button, but only when the cursor is at the first line of the Sub() in the code window. I'm not clear about how to attach my macro button to the code it is supposed to activate: when I click on the macro button, the cursor simply moves into the first field in my form, if I double click, the cursor moves into the second field in the form, but in either case does not run the Sub code as I would have expected. I do of course have the name of the vba routine in the macrobutton. The macro button is located at the end of section 3 (please see following question). 3. How do I run the 'delete empty tables' code on only sections 2 and 3 of the three-part form? The form is in three sections, with a section break following each of the first two sections with each new section starting on the next page (Insert->Break- >PageBreak->Next Page). We want to run the 'delete empty table' code only on sections two and three, and include the related numeric total (from Cell 1,1 of any remaining tables) at the end of section two or three, rather than the one GrandTotal that is generated now. 4. In the tables that remain after running the 'delete empty tables' code, how do I delete rows that haven't been used and therefore have no text in their text bookmarks, along with completely empty 'spacer rows' (for readability) located between rows containing text? After looking at the results from running the code as it is now, it occurred to us that a cleaner document would result, if within a table that _contains_ text in its first text bookmark (which is always row 3, column 2), it would be possible to delete any rows that follow but that may not contain any text. These rows may be completely empty 'spacer rows' inserted for readability between rows with text bookmarks, or simply another row like row 3 that contains a text bookmark but no text in the bookmark. Tables may contain between 2 and 16 rows having text bookmarks. I think the code to do this would need to: a. Look for the last row in a table that has text in column 2 (not just the existence of a text field, but a text field with a Len of > 5 which seems to be the default length of my text bookmarks for reasons I don't understand at this point) b. Delete rows (if any) in the table that follow this last row. Thank you very much for any assistance you are able to provide with these four questions. Peter The current version of the code provided by Doug with additions by Jean-Guy follows: Sub FSR() Dim myrange As Range, i As Integer, GTotal As Long ActiveDocument.Fields.Update ActiveDocument.Unprotect For i = ActiveDocument.Tables.Count To 1 Step -1 Set myrange = ActiveDocument.Tables(i).Cell(3, 2).Range myrange.End = myrange.End - 1 ' Check row 3 column 2 to see if empty-default empty length is 5 If Len(myrange) = 5 Then Set myrange = myrange.Tables(1).Range myrange.SetRange Start:=myrange.Start, _ End:=myrange.End + 1 myrange.Delete End If Next i ActiveDocument.Protect wdAllowOnlyFormFields, NoReset ScholTotal = 0 For i = 1 To ActiveDocument.Tables.Count ScholTotal = ScholTotal + ActiveDocument.Tables(i).Cell (1, 1).Range.FormFields(1).Result Next i ActiveDocument.FormFields("ScholTotal").Result = ScholTotal End Sub Tag: Count files in diectory Tag: 42456
  - 2
    - open website in word hello ! how I can opened the website (it's a security website) ? when I open this line: http://user:pass@gulp.de/cgi-gulpsearch/gp.exe/ubprof?4401 then opening the next window and I must add manualy the user name and password. How to do it if I can open this website automaticaly and I not must add manualy user name and password ? Pawel Tag: Count files in diectory Tag: 42455
  - 3
    - Return line of text iteratively Hi All, I'm having a hard time breaking through this barrier. I need to iteratively go through the word documnet and pull each line individually from beginning to end. Right now I'm just trying to write each line of text to the debugger just to see if it'll work. I'd really appreciate an example or some helpful pointers. Thanks, Zac Tag: Count files in diectory Tag: 42449
  - 4
    - Word as XML Hi Is there a way to save a word doc as XML / Word ML If so, does naybody know how to loop thru each of its content sections Here is my requirement: In Windows Share Point Service, there is a provision to assign user & status to each of the WORD documents section, I'm trying to figure out how to read the docs sections & their attributes Any help would be great Thank PP Tag: Count files in diectory Tag: 42448
  - 5
    - Writing HTML in word VBA Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Count files in diectory Tag: 42445
  - 6
    - How can I return user's options to their original values? Is there anyway I can save the user's AutoCorrect and Options settings so that they can be reinstated when the user leaves the template? I have a template in which I need to disable all of the "Apply as you type" settings on the "Autoformat As You Type" tab. I want to do a similar thing with certain settings on the Options tabs. I am changing the settings in the AutoNew macro associated with the template. However, I want to return the user's original settings when the user closes the document associated with my template. Is there any way to do this Tag: Count files in diectory Tag: 42443
  - 7
    - MERGEFIELD? Hi, How to defined MERGE FIELD(Datasourc), so it avaialbe for selection? Thanks. Tag: Count files in diectory Tag: 42441
  - 8
    - Automatically display UserForm when Word Document Opens I have a UserForm which has pulls information from a Word document that contains nothing but two tables of information. The UserForm works great, and exits gracefully, but will not automatically display when the end user opens the word document it is built upon. I don't want the tables to be visible to the user, just the form. Code follows: Private Sub ThisDocument_Document_Open() Load UserForm1 UserForm1.Show vbModeless End Sub Private Sub CommandButton2_Click() Dim Msg, Style 'set dim for message box when Exit is pressed Msg = "Please wait while program shuts down" ' define message Style = vbYesOk + vbCritical + vbDefaultButton2 ' define message response buttons Response = MsgBox(Msg, Style) ' Display message If True Then Unload UserForm1 Application.DisplayAlerts = False Word.Application.Quit End Sub Private Sub UserForm_Initialize() Dim MyArray() As String RowCount = ActiveDocument.Tables(1).Rows.Count RowCount = ActiveDocument.Tables(1).Rows.Count ColCount = ActiveDocument.Tables(1).Columns.Count ReDim MyArray(RowCount - 1, ColCount - 1) For i = 1 To RowCount For j = 1 To ColCount 'Select each cell in the table Celldata = ActiveDocument.Tables(1).Cell(i, j) 'Remove the paragraph and end-of-cell markers 'as we lod the array MyArray(i - 1, j - 1) = Left(Celldata, Len (Celldata) - 2) Next Next ListBox1.ColumnCount = ColCount ListBox1.List() = MyArray Dim MyArrayExternal() As String RowCount = ActiveDocument.Tables(2).Rows.Count RowCount = ActiveDocument.Tables(2).Rows.Count ColCount = ActiveDocument.Tables(2).Columns.Count ReDim MyArrayExternal(RowCount - 1, ColCount - 1) For m = 1 To RowCount For n = 1 To ColCount 'Select each cell in the table Celldata = ActiveDocument.Tables(2).Cell(m, n) 'Remove the paragraph and end-of-cell markers 'as we load the array MyArrayExternal(m - 1, n - 1) = Left(Celldata, Len(Celldata) - 2) Next Next ListBox2.ColumnCount = ColCount ListBox2.List() = MyArrayExternal End Sub Private Sub ListBox1_Click() For x = 0 To ListBox1.ListCount If ListBox1.Selected(x) = True Then MsgBox ListBox1.List(x) & ListSeparator & " " & " Office Symbol: " & ListSeparator & " " & ListBox1.List(x, 1) & " Project: " & ListBox1.List(x, 2) End If Next x End Sub Private Sub ListBox2_Click() For x = 0 To ListBox2.ListCount If ListBox2.Selected(x) = True Then MsgBox ListBox2.List(x) & ListSeparator & " " & " Office Symbol: " & ListSeparator & " " & ListBox2.List(x, 1) & " Project: " & ListBox2.List(x, 2) End If Next x End Sub Obviously code is rough and not fully documented yet, but will be at end product. How do I automatically Display a UserForm when the Word Document is Opened? Any ideas? Thanks PAM Tag: Count files in diectory Tag: 42439
  - 9
    - Problems with this VBA code - please help The code below opens a new Word doc based on a template. It generally works fine but for some PC's delivered by Dell where they pre-installed Office XP Professional (Word 2002) the Find code doesn't work. Anyone any ideas why the Find would not work - the Find works on my test PCs - including a test PC running Windows XP and Office XP Professional. But not on these Dell delivered PC's. I can't understand why? Code: Dim objWord As Word.Application Dim objWordDoc As Word.Document Dim docspath As String ' Path to template [Template has <Address> and <Dear> in document] Dim StrToWord As String StrToWord = "Angus Comber 1 The Avenue Berks" Dim sDear As String sDear = "Angus" On Error Resume Next 'WordStart Set objWord = GetObject(, "Word.Application") If Err.Number = 429 Then Set objWord = New Word.Application End If If objWord Is Nothing Then MsgBox "objWord is nothing" Exit Sub End If objWord.Visible = True ' To run this code you will need to change this path to the path you save letter.dot docspath = "c:\program files\ioffice\ltemplat\letter.dot" Set objWordDoc = objWord.Documents.Add(docspath, False) ' Sometime get a valid objWord object but problem creating document based on template. ' So still need to check a valid objWordDoc created If objWordDoc Is Nothing Then MsgBox "Unable to create Word Document object based on template: " & docspath & " Unable to proceed with Word creation", vbCritical, "Word Error" Exit Sub End If Dim bRet As Boolean objWordDoc.Range.Find.ClearFormatting objWordDoc.Range.Find.Replacement.ClearFormatting objWordDoc.Range.WholeStory ' All the Find code lines below do NOT work on Dell delivered PC's bRet = objWordDoc.Range.Find.Execute("<Address>", False, False, False, False, False, True, Word.wdFindContinue, False, StrToWord, Word.wdReplaceAll) MsgBox bRet & " returned from objWordDoc.Range.Find.Execute ..." ' returns False with Dell Office XP Pro pre-installed PC's bRet = objWord.Selection.Find.Execute(findtext:="<Dear>", replacewith:="FormattedDear", Replace:=wdReplaceAll) MsgBox bRet & " returned from objWord.Selection.Find.Execute ..." bRet = objWordDoc.Range.Find.Execute("<Dear>", False, False, , , , , , , sDear, True) MsgBox bRet & " returned from objWordDoc.Range.Find.Execute ..." MsgBox "Just to show you that other Word automation commands work OK, Next we will type in some text" ' TypeText works fine ALWAYS! objWord.Selection.TypeText "This is some text here I have typed in!!" I would really appreciate some help on this. Angus Comber ac@NOSPAMiteloffice.com Tag: Count files in diectory Tag: 42438
  - 10
    - Macro for Paragraph Hi All! Is there a way that I can have a macro look for a certain word in a report, but only when it is at the start of a line and not in the middle of a name. For example: I need to delete the word "MED" out of a report. It is on multiple lines, and the number of lines varies per report. The word "MED" can also be found in certain words like MEDical, interMEDiate, or arMED. How do I get the macro to only go to the start of the line (paragraph), grab the information I need to delete, and then move to the start of the next line (not grabing other words)? I have posted what I have below. Thanks in advance and have a great weekend. Julie Selection.Find.ClearFormatting With Selection.Find .Text = "MED" .Replacement.Text = _ " " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do Selection.Find.Execute If Selection.Find.Found = True Then Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.MoveRight Unit:=wdCharacter, Count:=18, Extend:=wdExtend Selection.TypeBackspace Else Exit Do End If Loop Tag: Count files in diectory Tag: 42429
  - 11
    - Replacing VBA code on Mass Hi people, I have a wonderful task of replacing a line of code in a sub routine with word document. Whats bad about that I hear you ask, well this line of code is in over 250 documents! Is there a way to code something that can do a find and replace within the VB code. Any help will be much appreciated Thanks Mark Tag: Count files in diectory Tag: 42424
  - 12
    - Prevent BeforeClose event from running for every open document In my project I subscribe to the BeforeClose event. If I have two or more documents open with this macro, all the documents gets hit by the event, not just the one I am closing, no worries there. But what I would like to do is to only have the document that's closing to run the code in the event. Is there a way to prevent the other documents from running the code in the events? /Peter Tragardh Tag: Count files in diectory Tag: 42423
  - 13
    - Copying Doc Content to Email Hi, I have a situation where I need to copy the entire content of a Word document to an email. The document will always contain a bitmap. I've tried using the Content property of the document, but this excludes the bitmap. I've also tried using the clipboard to cut and paste the content, but again, this excludes the bitmap. I've also tried setting the format of the email to RichText and HTML. Still no joy. I don't particularly want to send the doc as an attachment, but unless anyone can shed any light on this I will have to. Thanks for any help Mark Tag: Count files in diectory Tag: 42416
  - 14
    - group undo actions Hi, Is there a way to "group" VBA actions, so that when the user performs undo (e.g. by pressing CTRL-Z), all the VBA actions I have grouped are undone at once? I would like something like the following: ---- Suppose there is some VBA command to start an undo group (e.g. application.undo.start), then write some VBA commands, and then close the undo group (e.g. application.undo.end) With my imaginary method, code could look like this: application.undo.start .range.delete .range.insertafter "test" application.undo.end If the user now performs undo, both the delete action and the insertion of text action would be undone at once. In the real world, the user now has to press undo twice. ------ Of course, it doesn't work with my imaginary method, but maybe somebody knows a way to do what i want...? thanks WArd Tag: Count files in diectory Tag: 42414
  - 15
    - Subdirectories into a userform I am not very familiar with userforms, but I use a lot of VBA and I'm very thankful for a lot of help from this groups. I have a directory with hundreds of subdirectorys. They are quite difficult to "navigate" between. I want to make a userform where the user can write one or more letters in a field. I want the combo-box tol be filled (is that the same as populated?) with all subdir that starts with that letter(s). From that combobox the user can choose one directory and then the fileopen dialog is opened. I'm sure this is possible. Hope someone can help me in the right direction! Thanks! Torstein Tag: Count files in diectory Tag: 42412
  - 16
    - Insert bold text after range Hi, I have so far the following code, being executed in a for/next-loop: Set oRange = objWordDoc.Range oRange.InsertAfter "some text" oRange.InsertAfter vbcrlf oRange.InsertAfter vbtab & "again text" & vbcrlf my question: How can I set "some text" to appear in bold in the document? (I'm using VB6 to create word documents) Many thanks, O.B.1. Tag: Count files in diectory Tag: 42411
  - 17
    - Please Help! Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Count files in diectory Tag: 42405
  - 18
    - Word VBA code with Windows XP and Word 2002 works for my test PC but not customer system I have written a VB6 program which generates a Word letter based on a template and then runs the command below: objWord.Selection.Find.Execute "<Address>", , , , , , , , , strToWord, True where objWord is of type Word.Application This works fine on Office 97, 2000 and on my Word 2002 on XP test PC. It is funny because most of the VBA code works - ie the code to load a Word document based on the correct template works fine. The problem is that the <Address> text is NOT replaced with the contents of the strToWord variable. Anyone any ideas why? Angus Comber angus@NOSPAMiteloffice.com <Remove NOSPAM to email me> Tag: Count files in diectory Tag: 42394
  - 19
    - Closing w/Save an Excel file from a Word macro I have a Word macro that opens a merge document and also opens the corresponding source file in Excel. But when the macro closes the Word document, the Excel spreadsheet won't close until I answer the prompt for a save. How do I get the Excel spreadsheet to close without prompting? Thanks. Tag: Count files in diectory Tag: 42390
  - 20
    - Retrieving userform info into a document Hey, I posted this at the vba for beginners list, but I am going to post it here just in case. Plus, I am just putting the basics down. This code retrieves bookmarked information and puts it in the textbox located on a userform: UserForm2.TextBox17.Text = source.Bookmarks ("Chapter3_1").Range This code is in a series of userforms, but the user would like to use this function when not using the userforms. They would like to click a button on a toolbar and insert the same type of information (over 100 bookmarked sections) into any place where there cursor is located, specifically if they forgot to insert some information after they are finished filling out the userforms. I am not sure how to create code that can retrieve the same type of information into wherever there cursor is located. Any help would be much appreciated. Thanks, Jason Tag: Count files in diectory Tag: 42388
  - 21
    - VBA command to break links I have a Word doc with links to Excel. Is there a way using Word VBA to break the links to Excel? Tag: Count files in diectory Tag: 42387
  - 22
    - VBA command to break links Is there a way using VBA to break links to Excel in a Word document? Tag: Count files in diectory Tag: 42386
  - 23
    - MS Word will not send the fill color-white-to the printer I am using a Canon BC2100 inkjet printer, with the BC21e color Cartridge. I am printing WordArt on colored paper. However, I cannot get white to print as a fill in any of my WordArt. Whatever color the paper is that's the color that comes up where white should be. Can you please help? Most appreciative, Wayne Myers Tag: Count files in diectory Tag: 42381
  - 24
    - Macro using a Loop Hi all! I am working on creating a macro to delete information in a report. I have a header section and under that I have client information. I need to delete the first 18 characters of each line for confindentiality reasons. The number of clients varies per report, so there is not a constant number of lines. If I only need to delete one line, I could have the macro find a certain word in the report, go to the start of the line to be deleted, select the characters to be deleted, and delete that section, but I have multiple lines. I want to do a loop, but I am not sure how I should do this. Does anyone have any suggestions? Thanks in advance. Ann Tag: Count files in diectory Tag: 42374
  - 25
    - Word 2000 Forms: Button Caption "&" for underscore I have a button on a Word Form that has a caption "Close". I would like to place the "&" character before the letter "C" in my button Caption property, so that the letter "C" is underlined, which will allow the user to press Alt-C for a shortcut to clicking the button. Can someone tell me why this will not work in Word? It works fine if I use Access to create forms. If I try this in Word, the caption of my button is "&Close". Am I missing something? Tag: Count files in diectory Tag: 42363
- Next
  - 1
    - Making files from VBA? Hey, I want to create a simple .bat file and a txt from a macro. Is this possible? How can I do it? -Thanks Paul Tag: Count files in diectory Tag: 42361
  - 2
    - ReDim Hi. I have the following code: Dim stringArray(0) As String ReDim Preserve stringArray(1) When I try to run it, I get the following error: Compile error: Array already dimensioned What is the meaning of this? I thought that ReDim is the way to redimension an array in VBScripting? Does anyone have any thoughts on this? Thanks -- Jan Eliasen, representing himself and not the company he works for. Tag: Count files in diectory Tag: 42360
  - 3
    - Word 2000: Sort a Combo Box Does anyone know how I can sort an unbound combo box using Microsoft Word and VBA? In my Initialize function of my form, I am using the .AddItem method to populate my combo box. The user has the ability to add new items to the combo box. I would like to be able to sort the combo box right after the user adds a new item to the combo box. Does anyone have any code or ideas of how I can do this? Would the same apply for a List Box? Because I will eventually add this functionality later, but the Combo box is 1st priority. Thanks. Tag: Count files in diectory Tag: 42358
  - 4
    - RTF from Oracle To VB Hi all, Is there a way to convert RTF indications to VB/Word from an oracle SQL-select? This is the an example of a string returned from oracle: "{BR2}textgoeshere{BR1}paragraph goes here{BR1}again some text" etc etc The oracle guy at my company says this is RTF text. Does anyone know how to interprete this in VB, so that it can be sent to word-document, preserving the formatting of carrige returns etc? Thanks in advance! Regards, O.B.1. Tag: Count files in diectory Tag: 42354
  - 5
    - DocumentProperties and Safe as Webpage Hello NG, i save some informations in Word (2000, XP) as CustomDocumentProperties. I did this for month without any problems, i store strings and xml-strings this way. Now there are some new properties, when I save as Webpage (HTML) Word hangs (2000 and XP). If I delete a property (never mind which)everything works fine. My first idea was that there is a limit of customdocumentproperties (not the 255 char limit for each property). But after some tests - this is not the problem. Do you have any experiences in problems saving a Word-Document as HTML when making extensive use of customdocumentproperties? Thanks Alfred Tag: Count files in diectory Tag: 42351
  - 6
    - Inserting at end of document Hi all, i'm building a document generator using VB6, however I'm not quite used to the word object model. I was wondering if anyone can tell me how to insert a page break at the end of the document (there are several annexes to be added at the end, each one starting on a new page). This is a part of what I've got coded so far: ------------------ Set objWordApp = New Word.Application objWordApp.Visible = True Set objWordDoc = objWordApp.Documents.Add ("templatepath", , , True) For intCount = 0 to objColAnnex.Count - 1 'in a loop, I would add each text from a annex classobject 'followed by a pagebreak, or first a pagebreak and then followed by the text, whichever is the easiest. Next intCount --------------------- Is there anyone who could complete the code above, within the for-next loop? I've tried to work with the selectionobject like this: Set sel = objWordApp.Selection sel.MoveRight unit:=wdStory, Count:=1 sel.InsertBreak Type:=wdPageBreak but I keep getting errormessages (bad parameter) Thanks for your help! Regards, O.B.1 Tag: Count files in diectory Tag: 42343
  - 7
    - Week ending date calculation How do I display the date of the next Saturday on any given day. If today is a Saturday then display todays date. Thanks in advance Geoff Tag: Count files in diectory Tag: 42338
  - 8
    - How to change an equation hi folks, Is there a way to change an equation using VBA in a Word documents. Thanks in advance. Angel. Tag: Count files in diectory Tag: 42336
  - 9
    - Word Macro I have worked with VBA in Excel, but I haven't in Word. I have a report that I imported into Word and I need to remove some words from the top of the report. I can do a find and delete some of the information, but the other information varies as I import the report. What is the best way to only select the text that I need, and delete the rest. Note: Some of the information that I need changes everytime I import the report. I also want to add in a watermark, otherwise, I would import my report into Excel. Thanks in advance and have a great day! Julie Tag: Count files in diectory Tag: 42333
  - 10
    - Word 2000: Formatting words within a Bookmark Can anyone tell me if this can be done. With VBA code, I want to add some text to a bookmark within my document but as I am adding the text to the bookmark, I'd like to turn on/off Bold, add Underline, add comments, etc... I am able to do this outside of a bookmark with the Selection method, but wanted to know if I can do this with a bookmark. My sample code to format the text of a selection is below, which I would like to be able to do the same thing for a bookmark: With Selection .TypeText Text:="This is my first paragraph" .TypeParagraph .TypeText Text:="This is my 2nd paragraph. Now I will " .Font.Bold = True .TypeText "BOLD some words. " .Font.Bold = False .TypeText Text:="Bold is now turned OFF. Now, add a comment here" .Comments.Add Selection.Range, "This is my comment" .TypeParagraph .TypeText Text:="This is my 3rd paragraph." .EndKey unit:=wdLine End With Is this possible to do with a bookmark? My code to select the bookmark is: ActiveDocument.Bookmarks("myBookmark").Select If I try the same thing using my bookmark, as I did in my above example, the text gets put after the bookmark, not within the bookmark. And, if I rerun my code over and over, I get repeating paragraphs, because the bookmark does not get cleared out, since my sample text is actually in the document, not within the bookmark. Tag: Count files in diectory Tag: 42329
  - 11
    - Insert Cross-Ref to last Caption by VBA? (This was first posted to Word.Tables, where I asked about numbering tables. I thought it might be better suited to this group. Sorry about the double-post.) Thanks to the heroic efforts of Jay Freedman and Suzanne Barnhill, I now have half a handle on Captions and Cross-References. I think it will make things easier - but first I have to implement these in a report already written. I'm using these for table headers, and there's about 50 or so, so I was going to put it all in a few quick macros to avoid a lot of repeated motions. Everything's okay, except for getting the cross-reference to automatically choose the last / highest-numbered caption, which would be the one I just put in. Every time I select Insert Cross-Reference, it gives me a list. With the macro, I don't want to manually select the Caption - it will always (for this effort) be the Caption I just inserted. I couldn't see anything in the Help or VBA Help that would allow me to specify which Caption to Cross-Reference. The VBA code for InsertCrossReference has an argument for "ReferenceItem:=", and Help tells me to use GetCrossReferenceItems, but I can't put it together to get the last CrossReference inserted. Any suggestions? Ed Tag: Count files in diectory Tag: 42328
  - 12
    - Macros seperate from doc? Hello again! Is there a way to keep a bunch of sets of macros that all can go with one document and bind them together programatically as needed? Thanks! -Paul Tag: Count files in diectory Tag: 42327
  - 13
    - Form Field on Unprotected Sheet I have this wondrous code that I want to run when ff1 is exited. The trouble is, this sheet is not protected, so the formfield is just deleted. Is there any similar way to "run" code when text at that location is entered? (I hope this question is not too unclear.) TIA Tag: Count files in diectory Tag: 42320
  - 14
    - How to select a paragraph via VBA I want to select a paragraph in my macro I have this type of line U:\totttot\toto\t tu\laposte.xl At present, I search the extension .xls, then I can select the line. (result : tu\laposte.xls How can I select the entire paragraph U:\totttot\toto\t tu\laposte.xl Macro use Selection.MoveRight Unit:=wdCharacter, Count:= Selection.HomeKey Unit:=wdLine, Extend:=wdExten Tag: Count files in diectory Tag: 42319
  - 15
    - Automating Password protection How do you automate password protection on a Word Document from Visual Basic? Tag: Count files in diectory Tag: 42314
  - 16
    - Find the page number that a section starts on Hi, Does anyone know how to find the page number that a section starts on. I want to list all the sections within a document and to display the page number. Cheers, Steven Tag: Count files in diectory Tag: 42310
  - 17
    - Memory error filling a MS Word document from MS Access Hi, I've got a problem with memory using MS Word.. Situation: MS Office 2000 (fully updated) Window w2k professional (fully updated) I have a table on a SQL Server database. In this table I put complete word documents as objects. Now, I have a small vb script that copies the word object and then pastes it in Word. This works nice, but after a number of items, I get a message: Not enough memory, If continuing you cannot undo... You can continue for a number of items, but after that Word crashes.. I found a possible fix in the knowledge base concerning too much edits, but this wasn't it.. I added a save command, but I still got the problem... Did anyone else have this problem??? Or maybe a solution?? Bye, Sander Tag: Count files in diectory Tag: 42308
  - 18
    - Macros in IE and locally ? Hey, I have a confusion. I have this word document that I want customers to edit through IE with the word viewer thing and then use a menu item I add to save it back to the server. Problem 1: I got how to add a menu item, but when I try to do it on the opening of the document, it gives me an error when I call the Add() sub when I open it in IE, but when I open it with Word through an FTP. How can I get the menu to be there when the user opens the doc? Problem 2: When I couldn't get the menu to make itself on document load so I tried making a "Make Menu" macro button. I made the button, opened the doc with IE and double clicked it, nothing happened, then I opened the doc (a local copy, not thru ftp) with word, and the menus were there just like the macro ran. Then I opened it again in IE and the menus were there. I re-traced my steps many times and it seems like if I run the menu macro either on my local copy on my C drive in word, or on the remote copy on a web server, changes show up in both places on the next time I open the document. Why does this happen? Any help would be much appreciated, I am stumped. Thanks -Paul Tag: Count files in diectory Tag: 42304
  - 19
    - Testing for Duplex I'm trying to use the excellent article at http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=116 to set up a duplex option on a vba controlled print utility. It works very well, but what i'd like to know is if there is a way to test whether the printer supports duplex or not? The demo function works very well Sub PrintDuplexBooklet() Dim iDuplex As Long iDuplex = GetDuplex 'save the current setting SetDuplex 3 'set for vertical binding ActiveDocument.PrintOut Background:=False SetDuplex iDuplex 'restore the original setting End SubI was hoping iDuplex = GetDuplex would return 0 if there was no duplex option, but it doesn't.Can anyone advise? Tag: Count files in diectory Tag: 42296
  - 20
    - regional settings' list seperator variable Hi, I've run into the following annoying, stupid issue: Using VBA I want to do a search for 2 or more empty paragraphs and replace them by one paragraph. Therefore I use the following code: With tDoc.Range.Find .ClearFormatting .Text = "^13{2,}" <----- problem .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute Replace:=wdReplaceAll End With The line ".text = "^13{2,}"" is giving me problems however. Because the comma is a list seperator, as defined in my MS Windows regional settings dialog box (Start, control panel, regional settings, numbers), it works fine on my computer. But a colleague has his list seperator set to ";". Thus, Word pops up saying it is not a valid expression. I want my program to work, regardless of the regional settings. So i tried to find a variable or constant which contains the list seperator character (be it ",", ";" or whatever) and create the .text string accordingly; but I didn't find any. Any (other) solutions, thanks Ward Tag: Count files in diectory Tag: 42287
  - 21
    - Finding the section number Hello I am new to VBA, and I am writing a Word-macro I need a way to find the section number the cursor is in. I found the wdActiveEndSectionNumber, but that seems to always return "2" in my macro. And I need the full number. If I am in section 2.3.1 then I need a string with "2.3.1" in it. Is this possible? Thanks in advance -- Jan Eliasen, representing himself and not the company he works for. Tag: Count files in diectory Tag: 42286
  - 22
    - calling functions in a global template Hi, How can I call a function in a global template (loaded from the startup menu) from other document templates? Any help is appreciated. Raymond Tag: Count files in diectory Tag: 42284
  - 23
    - Template no longer available I have a document with an attached template. When the document is moved to a different computer at home the template is in a different path. The UI (Tools>Templates and AddIns) shows the original template and path. Clicking Organizer gives the error "This document template does not exist" so Word is aware of the original template name. ActiveDocument.AttachedTemplate returns Normal.dot. Is there a way of getting the orignal template name? Regards John Yarrall Tag: Count files in diectory Tag: 42276
  - 24
    - Using ftp address in a macro Hi All, We are currently trying to do a document comparison by comparing the active document with a file on an FTP site. When doing manually, everything works great, but when when I record the action, and attempt to use the macro, we get Run-time error '5273'. The macro takes the following form: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 12/2/2003 by NormanJD ' ActiveDocument.Compare Name:="ftp://1.2.3.4/Compare/test.doc" End Sub (IP address changed to protect the guilty) I have tried variations such as "ftp://username:password@1.2.3.4/Compare/text.doc" and have added the FTP site along with username and password to the "Save as" list and in "My Network Places" I am testing this in an environment with no firewalls or proxies, (will add those later) but anonymous logins are disallowed. My workstations will either be running Windows 2000 or Windows XP with Office 2000 and all latest patches for both the O/S and Office. I've played like crazy with IE settings, but don't think this will help as it does wotk when I do everything manually, only the macro fails... Has anyone tried this or have a solution? Is this a VB/macro bug? John Norman Tag: Count files in diectory Tag: 42275
  - 25
    - Compile Error I seem to be getting a VBA error in Office due to some kind of conflict with my RAV AntiVirus. I can neither Save nor Save As. The only way to save a file is to close the window. The error message I get is ... Microsoft Visual Basic Compile error in hidden module. Main. It also comes up every time I open Word or Access or Excel. I've tried all the suggestions from the knowledge base, including upgrading Adobe Acrobat. HELP! Jim Dodds jemd@wcvt.com Tag: Count files in diectory Tag: 42272

Hello,
Kind of new to VBA in Word, but I have an opportunity to use it.
I want to know if it is possible to count the number of files in a
directory. My ultimate goal is to save a file as <filenametext??> where the
"??" is the filenumber count + 1. If that is too hard I can just add a
msgbox with the next file name and have the user save the file manually.
The need for this macro is to help users save a copy of a protected document
in the proper directory with the proper name. My plan is to write a
procedure that would fire automatically when the user tries to type onto a
protected document.
Thanks,
Jim

Top

Re: Count files in diectory by Word

Word
Sun Dec 14 16:00:55 CST 2003

G'day "Jim Edwards" <HugeElvis@adelphia.net>,

yes it is. Do a DIR command with a parm of the directory name. Keep
dir'ing until its blank, counting each instance.

"Jim Edwards" <HugeElvis@adelphia.net> was spinning this yarn:

>Hello,
>Kind of new to VBA in Word, but I have an opportunity to use it.
>I want to know if it is possible to count the number of files in a
>directory. My ultimate goal is to save a file as <filenametext??> where the
>"??" is the filenumber count + 1. If that is too hard I can just add a
>msgbox with the next file name and have the user save the file manually.
>The need for this macro is to help users save a copy of a protected document
>in the proper directory with the proper name. My plan is to write a
>procedure that would fire automatically when the user tries to type onto a
>protected document.
>Thanks,
>Jim
>

Steve Hudson

Word Heretic, Sydney, Australia
Tricky stuff with Word or words for you.
wordheretic.com

If my answers r 2 terse, ask again or hassle an MVP,
at least they get recognition for it then.
Lengthy replies offlist require payment.

Top