renaming class or module in a project window in VB

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Letting others use routines I've written My VBA programming has always been only for myself, up to now. But I've created a document conversion program that is needed by others, and I cannot get it to work on their computers. I copied the template to a network drive, then copied from there to Word's Templates directory on a co-worker's computer. Then I attached it to the document that he wanted to convert, but when I bring up the Macros dialog, the list of macros is blank, even when I specify the template name in the "Macros in" box. So there's something I'm missing about the VB environment. Also, it would be nice if, on other machines, users did not have to first attach the template to the document before using it. Any help appreciated. Christopher Brewster Lockheed Martin -- Message posted via http://www.officekb.com Tag: renaming class or module in a project window in VB Tag: 61520
  - 2
    - Appendix in TOC Hi I am working with Word 2002. I have created a document and added a table of content. Fine. But it does not pick up my appendix (it is in a separate section, page break). How do I get the TOC to include thr appendices? Tag: renaming class or module in a project window in VB Tag: 61518
  - 3
    - How can I insert data from a word document in a Access database? I need some help to know what I have to do to insert somo information from a Word Document in a table from an Access database. Do I have to create a Macro? If yes, How can I type the code? Tag: renaming class or module in a project window in VB Tag: 61516
  - 4
    - Unwanted control toolboxes In Word 2000 VBA control toolboxes appear in the upper left and lower right corners, unbidden, when documents are opened. The lower right toolbox shows only a triangle. What causes this and how can I get rid of it? Tag: renaming class or module in a project window in VB Tag: 61515
  - 5
    - Word install problem my office got uinstalled by some reasons I dont know. so now I cant open it! every file is on the harddisc but I cant find any install program:S can somebody help me???? Tag: renaming class or module in a project window in VB Tag: 61513
  - 6
    - Word install problem my office got uinstalled by some reasons I dont know. so now I cant open it! every file is on the harddisc but I cant find any install program:S can somebody help me???? Tag: renaming class or module in a project window in VB Tag: 61512
  - 7
    - Word Install-problem Hi.. my office by some reasons got uinstalled! but i can find the program to install office again, and I dont have some CD`s of I need that. can somebody help me please? Tag: renaming class or module in a project window in VB Tag: 61510
  - 8
    - How do I set TOC Page Numbering with (Page x of y) and sections? Per article 291283 "How to create two page-numbering schemes in one document in Word 2002" - how do I set correct page numbering for the Table of Contents? I was successful in using the Method 1, "Use SEQ fields", but that causes the numbering in the TOC to start at 1 for every section listed, instead of showing the real page number based on the total number of pages. Any help in writing the necessary code will be greatly appreciated.......! Tag: renaming class or module in a project window in VB Tag: 61503
  - 9
    - How to automatically update the Filename field? How do I get the Filename field in different headers of a protected form to automatically update when closing the form? The Filename field is in all of the different headers in the form. This was a default feature of Word 2000, but is not a feature of Office 2003. Thanks. Tag: renaming class or module in a project window in VB Tag: 61502
  - 10
    - How to automatically update the Filename field? How do I get the Filename field in different headers of a protected form to automatically update when closing the form? The Filename field is in all of the different headers in the form. This was a default feature of Word 2000, but is not a feature of Office 2003. Thanks. Tag: renaming class or module in a project window in VB Tag: 61501
  - 11
    - Adding Meetings to a Word Doc. I have a word document that gets sent out to a bunch of people, which contains meetings. I would like to set up a way so that they can click on a meeting and it would add the meeting to their outlook calendar as a meeting. Hope that make sense. Tag: renaming class or module in a project window in VB Tag: 61496
  - 12
    - Changing Invoice # automatically on document I am using the templates in word for invoices. Is there a way I can set up the invoice # to change everytime I print/save a new invoice. I just started using these invoices thru Word so any other suggestions would also be helpful. So far, I have set up the template and added form fields. Upon exiting I am saving each one into a folder for the month of that year. Thank you Tag: renaming class or module in a project window in VB Tag: 61487
  - 13
    - Forms - Protecting Sections Hello all, I have created a Word 97 form which is basically in 2 parts. The first section contains numerous fixed fields and drop down boxes and this section is protected. The second section is an area for freeformat text and so is unprotected. Within the form I have a Macro which when activated copies sections 1 and 2 and creates sections 3 and 4 the first time, 5 and 6 the second time, etc. After the Macro has run I need to reprotect all odd numbered sections and leave all even numbered sections available for freeformat text. Is there any way to do this? ActiveDocument.Sections(all odd numbered sections).ProtectedForForms = True ActiveDocument.Sections(all even numbered sections).ProtectedForForms = False ActiveDocument.Protect Password:="", NoReset:=True, Type:= _ wdAllowOnlyFormFields Grateful for any assistance. Paul. PS low level knowledge of VBA - use the recorder to perform the bulk of the action and then edit a bit where necessary. Tag: renaming class or module in a project window in VB Tag: 61486
  - 14
    - Word template only works on one PC I have a Word 97 template file (i.e. .DOT file) that is on a particular PC in our office. The template uses VBA to connect to an Access database (located on a server share) and creates a document based upon some data. When I simply move the particular .DOT file to any other PC and try to create a new file using that template, part of the code fails. When I launch the VBA editor for the template file on the working PC there are several items that I can see that I cannot see when I launch the VBA editor for the template on any other PC: 1) A Modules node under the Normal node that has two modules in it. I can click on these and examine the code. 2) Three additional TemplateProject folders. Although, when I try to view the code for these TemplateProject folders I get a dialog box that says "Project is unviewable". I can tell, based upon the name of one of the TemplateProject folders, that the template VBA code fails (it's a call to WordBasic.Call) on every other PC because these TemplateProject folders (as well as the aforementioned Modules) don't seem to exist on those PCs. So, my basic question is why can I see these VBA project elements on the working PC, but not on any other PCs? I assume there must be some files and/or environment settings on the working PC. Any help would be much appreciated. Thanks. Tag: renaming class or module in a project window in VB Tag: 61485
  - 15
    - Speed-up merge empty cells in msword tables Hello, I have a small VBA code that merge empty cell on each rows but keeping the columns. For example the table: --------------------- |A | B | C | D | | --------------------- | | B | C | D | | --------------------- | | B | C | D | | --------------------- |A2| B2| C2| D2| | --------------------- | | B2| C2| D2| | --------------------- will be converted to ------------------------- |A | BBB | CCC | DDD | |A2| B2B2| C2C2| D2D2| ------------------------- The problem is that it takes a very long time for tables with more than 50 rows. Do you have any ideas on how to speed-up this macro? Thank you, Catalin Florean. 'My macro: Sub tmpTable() Application.ScreenUpdating = False cateMerge = 0 Set myTable = ActiveDocument.Tables(1) cateCol = myTable.Columns.Count cateRow = myTable.Rows.Count For currentRow = 1 To cateRow If Len(myTable.Cell(currentRow, 1).Range.Text) <= 2 Then cateMerge = cateMerge + 1 For j = 1 To cateCol - 1 myTable.Cell(currentRow, 0).Merge MergeTo:=myTable.Cell(currentRow - cateMerge, j) Next j Else cateMerge = 0 End If Next currentRow myTable.Columns(cateCol).Delete Application.ScreenUpdating = True End Sub -- Message posted via http://www.officekb.com Tag: renaming class or module in a project window in VB Tag: 61484
  - 16
    - Speed-up merge emply cells in msword tables Hello, I have a small VBA code that merge empty cell on each rows but keeping the columns. For example the table: A B C D BB 'My macro: Sub tmpTable() Application.ScreenUpdating = False cateMerge = 0 Set myTable = ActiveDocument.Tables(1) cateCol = myTable.Columns.Count cateRow = myTable.Rows.Count For currentRow = 1 To cateRow If Len(myTable.Cell(currentRow, 1).Range.Text) <= 2 Then cateMerge = cateMerge + 1 For j = 1 To cateCol - 1 myTable.Cell(currentRow, 0).Merge MergeTo:=myTable.Cell(currentRow - cateMerge, j) Next j Else cateMerge = 0 End If Next currentRow myTable.Columns(cateCol).Delete Application.ScreenUpdating = True End Sub -- Message posted via http://www.officekb.com Tag: renaming class or module in a project window in VB Tag: 61483
  - 17
    - Speed-up merge emply cells in msword tables Hello, I have a small VBA code that merge empty cell on each rows but keeping the columns. For example the table: A B C D BB 'My macro: Sub tmpTable() Application.ScreenUpdating = False cateMerge = 0 Set myTable = ActiveDocument.Tables(1) cateCol = myTable.Columns.Count cateRow = myTable.Rows.Count For currentRow = 1 To cateRow If Len(myTable.Cell(currentRow, 1).Range.Text) <= 2 Then cateMerge = cateMerge + 1 For j = 1 To cateCol - 1 myTable.Cell(currentRow, 0).Merge MergeTo:=myTable.Cell(currentRow - cateMerge, j) Next j Else cateMerge = 0 End If Next currentRow myTable.Columns(cateCol).Delete Application.ScreenUpdating = True End Sub -- Message posted via http://www.officekb.com Tag: renaming class or module in a project window in VB Tag: 61482
  - 18
    - speed up vba I use a small vba routine to create new documents. the macro opens an empty document and then adds a few objects (e.g. logo image, header and footer text boxes, etc). some text may also be added. This whole procedure takes about 10 sec, which i find very long time for just the few thing to do. A simular procedure in PowerPoint runs in less than 1 sec! Are there any hints how I can speed up my macro? Turning off ScreenUpdating didn't help much. Thanks a lot, Luc Tag: renaming class or module in a project window in VB Tag: 61478
  - 19
    - Word and Internet Server documents. Hi, Some time ago, I asked a question concerning slow response when opening a Word document from an Internet server for the first time. All subsequent Word document openings were pretty quick. Someone responded, in very technical language, about SOEs and XCOPY to "prime" the network and caching. However, despite my gentle prodding, he did not elucidate, or distance himself from the abstract or the deeply technical. However, he did raise my hopes that there might be a solution. So here, below, I present my problem, in the hope that someone can be more specific about a solution. ---- I have an ASP page which generates a XML (wrapped in HTLM) file which represents a Word document. Then, from the client side of the Internet connection, I open this newly created document using Word. When first this process runs, following a machine re-boot, it can take up to a minute to complete. Thereafter, it takes 3 seconds. The Word command is something like : Set objWord = CreateObject("Word.Application") Set doc = objWord.Documents.Open(http://localhost.service/document.doc) ------ Is it true that the network and caching needs priming? If so, does anyone know how to "prime" such, or know of any Web pages that might tell me how. I'm using IIS, under XP, and Word 2000. Many thanks Gem Tag: renaming class or module in a project window in VB Tag: 61475
  - 20
    - Set details view in Open Document Dialog as Default Is it possible to set the default view to Details View in the Open/New Document dialog with a macro? If thats' the case - any code example? -- Anette Tag: renaming class or module in a project window in VB Tag: 61474
  - 21
    - Track Changes: Deleted text is red, not strikethrough I'm using Word 2002 (10.6612.6626) SP3 on a WindowsXP computer. When I create a document and activate Track Changes, text that I delete turns red instead of strikethrough. When I send the document to another person, the deleted text is marked as strikethrough when they open it in Word (same OS and version of Word) instead of red. I much prefer strikethrough text over red text. I've tried the fix in described this article (wdFixStrikethrough): http://support.microsoft.com/default.aspx?scid=kb;en-us;323883 This article mentions deleting a data key in the registry, but does not say WHAT key. I've also searched the user groups for information and visited several MSVP sites with no success in finding a fix. Can anyone help me with this. Tag: renaming class or module in a project window in VB Tag: 61458
  - 22
    - How can I download Word processor? How can I download Word Processor using windowsXP home addition? Tag: renaming class or module in a project window in VB Tag: 61457
  - 23
    - Notification about any changes in document How can I send a notification about any changes in a document? I think, it should be some after_update event but I don't know how I can apply it to the Word document. In addition, how I can assign the name of the changed document to strWordFile? DoCmd.SendObject acSendReport, "rptNotofy", acFormatRTF, "Alex", , , _ "Some changes done in " & strWordFile, _ "Notification about changes done", False Thanks in advance Tag: renaming class or module in a project window in VB Tag: 61454
  - 24
    - font change I use the following code to insert a template with 'times new roman' font. When I get thru the font is 'arial'. So what do I do to keep the 'times new roman' font. TIA Selection.InsertFile FileName:="c:\program files\microsoft office\templates\newnewsletterrpl.dot", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False Selection.GoTo What:=wdGoToBookmark, Name:="region" Selection.Find.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.TypeText Text:=rstProj![project region] Selection.TypeParagraph Selection.TypeBackspace Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine End If -- _________________________________ in Christ's matchless name 73 ted & colleen n6trf kc6rue Tag: renaming class or module in a project window in VB Tag: 61452
  - 25
    - Macro ms-word 2000 hi, An Macro document is created in word 2003, the document file run marco fine on ms-office Xp and ms-office 2003, but it generates 2 errors while running the word document on ms-office 2000. Error (1) Compile Error in hidden module and (2) this is not a valid file name try one or more of the following * check the path to make sure it was typed correctly. * Select a file from list of file and folders. please provide a valid solution if you need the document, shall email on response. thanks Tag: renaming class or module in a project window in VB Tag: 61451
- Next
  - 1
    - Inserting AutoText in Header adds extra paragraph marks I am trying to insert AutoText into Headers in my document. I carefully selected just what is needed to create the autotext, but when I insert the autotext into the header it adds an extra paragraph mark (the mirrored 'P'). This cause problems because all my document gets reflowed. Can somebody please help me figure out how I can either delete the paragraph marks or have them not be inserted in there in the first place please? My current code to insert the autotext is the following ActiveDocument.AttachedTemplate.AutoTextEntries _ ("myAutoText").Insert _ Where:=ActiveDocument.Sections(i).Headers _ wdHeaderFooterPrimary).Range, _ RichText:=True the 'i' is the index for the loop that goes through all my sections. I have also tried to add a delete line before that command but that didnt help either. I used ActiveDocument.Sections(i).Header _ (wdHeaderFooterPrimary).Range.Delete I have checked and rechecked and as far as I can see my autotext (which includes its style) does not have the extra paragraph marks. How can I avoid these marks in the first place or how can I convert the following code to work inside the ranges? Selection.EndKey Unit:=wdLine Selection.Delete Unit:=wdCharacter, Count:=1 This would do what I need. thanks for the help. Tag: renaming class or module in a project window in VB Tag: 61446
  - 2
    - Document( ).Activate I have an open document. I then use VBA to open a second document Sub Test() Dim SecondDocument As Document Set SecondDocument = Documents.Open(FileName:="C:\Word List.doc") 'Why do I have to use (2) below to activate the first document? I seems like the original opened document would be (1). Documents(2).Activate End Sub Tag: renaming class or module in a project window in VB Tag: 61445
  - 3
    - Correct way to get Function's output into macro? Thanks to someone whose name I have forgotten, I have a Function that returns a folder name and puts it into a string variable. I call the function in a macro to allow me to browse to a specific folder. At the moment, the only way I have of getting the string back into the macro is to declare the string variable at the beginning of the whole module. I'm aware this isn't best practice, although it works. But how else do I get the string from the function into the macro? Ed Tag: renaming class or module in a project window in VB Tag: 61444
  - 4
    - object variable not set error in Word macro intermittant Hello- I am getting intermittant "error91" messages with this code which operates a macro to open a 2 separate files, copy all text contents, close and then paste into the active document. Sub Macro01040and1050() ChangeFileOpenDirectory "P:\Spec\" Documents.Open FileName:="01040.doc", ConfirmConversions:=False, ReadOnly _ :=False, AddToRecentFiles:=False, Revert:=False, _ Format:=wdOpenFormatAuto Selection.Copy ActiveWindow.Close Selection.Paste Documents.Open FileName:="01050.doc", ConfirmConversions:=False, ReadOnly _ :=False, AddToRecentFiles:=False, Revert:=False, _ Format:=wdOpenFormatAuto Selection.WholeStory Selection.Copy ActiveWindow.Close Selection.Paste End Sub I am new to VBA and cannot figure out what is wrong with this code, that would cause the macro to run most of the time but fail about 20%. Any thoughts or solutions are appreciated... Tag: renaming class or module in a project window in VB Tag: 61442
  - 5
    - Macro could not be created. Using Word 2002 SR3 and Windows XP Pro SP2: When I open up an existing template and attempt to create a macro, I get the message "The macro could not be created." Same result whether I use Tools|Macros|Create or go through the VB Editor. When I attempt to copy a macro from another template, I get the message "The macro could not be copied." Accessing the file from another computer on the network yields same results. However, it appears that I can create a macro using the normal template. Macro security is set at minimum, and template is not protected. Tag: renaming class or module in a project window in VB Tag: 61440
  - 6
    - Changing language of textboxes I regularly receive documents from French colleagues - The first job I have to do is check their spelling. I have a macro that will select all the text and tables and change their language setting to wdEnglishUK it will not, however, cope with text boxes can anyone tell me (with code example please) how to achieve this? Many thanks in advance Tag: renaming class or module in a project window in VB Tag: 61436
  - 7
    - Clearing the clipboard in VBScript. Hi all, I am manipulating Word, using VBScript, and in the process, a large amount of text is put in the clipboard. When the manipulation is finished, the Word document is presented to the user. However, when the user closes word, a prompt is displayed asking whether or not to discard the contents of the clipboard. How do I either clear the clipboard, or set a flag within Word, such that it automatically discards the contents of the clipboard before on closure? "Clipboard.Clear" appears to have no effect in VBScript. Gem Tag: renaming class or module in a project window in VB Tag: 61432
  - 8
    - search a word document for words in a list I need to check a Word document for words in a acronym list, then highlight the words found in the acronym list. This will allow me to use a generic acronym table in the document, then remove all the unused terms in the Word Doc. Tag: renaming class or module in a project window in VB Tag: 61431
  - 9
    - Comments in word 2003 and changes Hi, I have a hard time using the "comments" feature in 2003 which I find very confusing compared to the way Word 97 handles them. I have created a macro that mimics the Insert Comments from Word 97 which works ok. I am stumped trying to reproduce, even approximately, Word 97 feature with regards to View Comments, which was straighforward. I find the Markup feature particularly annoying. I wwould like to see the comments in the View menu in a normal display and be able to delete them from there, which presupposes that, as in Word 97, the corresponding initials appear in a visible manner in the text. Likewise with regards to accepting or refusing changes, the new interface is much less convenient (IMHO). Any way the Word 97 behavior could be mimicked? Any help would be greatly appreciated. -- John Doue Tag: renaming class or module in a project window in VB Tag: 61430
  - 10
    - My VB6 MS Word VBA code crashes Word - Word97 Hello My Visual Basic application writes some text to a Word document. It usually works but on two computers on a site it crashes my application. Anyone got any ideas on where to start looking. Is removing Word, cleaning up and re-installing the only option? I am going on site to run the same VBA code from Excel to see if that works. I can then check line for line what happens. The basic code is here: Private Sub cmdTestWord_Click() Dim iSequence As Integer 'used to locate correct contact Dim sDear As String 'Salutation on letter Dim sTemp As String 'temp string to create address Dim sLetter1 As String Dim sLetter2 As String Dim sLetter3 As String Dim sSalute1 As String Dim sSalute2 As String Dim sSalute3 As String Dim Title As String Dim Firstname As String Dim Initials As String Dim Surname As String Dim strPosition As String Dim Familiar As String Dim Ind As Integer Dim ret As Long Dim strToWord As String 'On Error GoTo WordErr 'Time bootup 'Dim dblSTime As Double 'dblSTime = Timer 'dblSTime = (Timer - dblSTime) 'MsgBox "Time taken: " & dblSTime 'Debug.Print "Time taken: " & dblSTime Dim objWord As Word.Application Dim objWordDoc As Word.Document '''''''''''''''''**** Dim docspath As String 'Time loading of Word 'Dim dblSTime As Double 'dblSTime = Timer ''''''''''''''''''''''''''' On Error Resume Next 'WordStart LogError 0, "Just before Set objWord = GetObject(, Word.Application)", "TestWord" Set objWord = GetObject(, "Word.Application") LogError 0, "After Set objWord = GetObject(, Word.Application)", "TestWord" If Err.Number = 429 Then Set objWord = New Word.Application ' CreateObject("Word.Application") LogError 0, "After Set objWord = New Word.Application", "TestWord" End If If objWord Is Nothing Then LogError Err.Number, "Unable to load Word object. Word is Nothing", "Letter in frmContacts" Exit Sub End If '' REMOVE THIS objWord.Visible = True LogError 0, "After objWord.Visible = True", "TestWord" 'On Error GoTo WordErr Dim strLetter As String strLetter = "letter.dot" docspath = "C:\" docspath = docspath & strLetter If FileExists(docspath) = False Then MsgBox "File: " & docspath & " does not exist check your document template path and check that the selected template document exists" Exit Sub End If Title = "Mr" Firstname = "Angus" Initials = "R" Surname = "Comber" Familiar = "Angus" strPosition = "Director" 'sDear stuff sDear = Familiar 'Dear 'Now need to address AddressLine strToWord = Firstname & " " & Surname strToWord = strToWord & VBA.Chr(13) & "5 Enmore Gardens" strToWord = strToWord & VBA.Chr(13) & "East Sheen" strToWord = strToWord & VBA.Chr(13) & "London, SW14 8RF" LogError Err.Number, "Just before Set objWordDoc = objWord.Documents.Add(docspath, False)", "TestWord" 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" LogError Err.Number, "Unable to create objWordDoc object. 'Set objWordDoc = objWord.Documents.Add(docspath, Fales)'", "Letter in frmContacts" objWord.Visible = True Exit Sub End If objWord.Application.ScreenUpdating = False 'objWord.Visible = True Dim bRet As Boolean 'Find <Address> & replace with strToWord 'objWord.Selection.Find.Execute findtext:="<Address>", replacewith:=strToWord ', Replace:=wdReplaceAll ' Just in case named arguements can cause a problem - remove them! 'objWord.Selection.Find.Execute "<Address>", , , , , , , , , strToWord, True 'objWord.ActiveDocument.Range.WholeStory 'bRet = objWordDoc.Range.Find.Execute("<Address>", , , , , , , , , strToWord, Word.wdReplaceAll) LogError 0, "Just before first LateBindingReplace objWordDoc, < Address >, strToWord", "TestWord" LateBindingReplace objWordDoc, "<Address>", strToWord 'Find <Dear> & replace with sDear 'objWord.Selection.WholeStory 'objWord.Selection.Find.Execute findtext:="<Dear>", replacewith:=sDear ', Replace:=wdReplaceAll 'objWord.Selection.Find.Execute "<Dear>", , , , , , , , , sDear, True 'objWordDoc.Range.Find.Execute "<Dear>", False, False, , , , , , , sDear, True LateBindingReplace objWordDoc, "<Dear>", sDear LogError 0, "After last LateBindingReplace objWordDoc, < Dear >, strToWord", "TestWord" 'objWordDoc.Range.Find.Execute 'Find <Start> & place cursor for user to start typing 'objWord.Selection.WholeStory 'objWord.Selection.Find.Execute findtext:="<Start>", replacewith:="" ', Replace:=wdReplaceAll 'objWordDoc.Range.WholeStory ' select all text 'objWordDoc.Range.Find.Execute "<Address>", False, False, False, False, False, True, Word.wdFindContinue, False, "Abba", Word.wdReplaceAll 'If Err.Number <> 0 Then ' LateBindingReplace objWordDoc, "<Address>", strToWord 'End If 'objWordDoc.Range.Find.text = "<Address>" 'objWordDoc.Range.Find.Replacement.text = "Abba" 'objWordDoc.Range.Find.Execute LogError 0, "Just before objWord.ActiveDocument.Variables(SiteID).Value =", "TestWord" objWord.ActiveDocument.Variables("SiteID").Value = 3 objWord.ActiveDocument.Variables("HType").Value = "Letter" objWord.ActiveDocument.Variables("HComputer").Value = "MyComputername" LogError 0, "After last objWord.ActiveDocument.Variables(HComputer).Value =", "TestWord" LogError 0, "Just before objWord.Application.ScreenUpdating = True", "TestWord" objWord.Application.ScreenUpdating = True LogError 0, "Just after objWord.Application.ScreenUpdating = True", "TestWord" objWord.Visible = True LogError 0, "Just after objWord.Visible = True", "TestWord" objWord.Application.WindowState = Word.wdWindowStateMaximize LogError 0, "Just after objWord.Application.WindowState = ", "TestWord" LogError 0, "Just before bjWord.Application.Activate", "TestWord" objWord.Application.Activate LogError 0, "Just after bjWord.Application.Activate", "TestWord" 'dblSTime = (Timer - dblSTime) 'MsgBox "Time taken: " & dblSTime End Sub Public Sub LogError(ByVal errnum As Integer, ByVal ErrDescription As String, Optional ByVal ProcName As String) On Error Resume Next Dim msg As String Dim iFilenum As Integer 'To get a free filenumber msg = Date & vbTab & Time & vbTab & ProcName & vbTab & errnum & vbTab & ErrDescription iFilenum = FreeFile Open "C:\Errors.log" For Append As #iFilenum 'Write new value Print #iFilenum, msg Close #iFilenum ' MsgBox msg 'Debug.Print msg End Sub ' Due to http://support.microsoft.com/default.aspx?scid=kb;EN-US;292744 ' which is a COM problem with Word's Find object clashing with an old version of Excel ' sometimes Find method will NOT work. So have to use Late binding to accomplish ' Find replace. Requires a Word Document object plus search and replace strings Public Function LateBindingReplace(oWordDoc As Word.Document, strFind, strReplace) As Long On Error Resume Next Dim oFind As Object ' Word.Find 'MsgBox "we are in latebindingreplace now!" Set oFind = oWordDoc.Content.Find If oFind Is Nothing Then LogError Err.Number, "Unable to create oFind object. '", "LateBindingReplace in modMisc" LateBindingReplace = -1 Exit Function End If oFind.Execute strFind, False, False, False, _ False, False, True, Word.wdFindContinue, False, strReplace, _ Word.wdReplaceAll LateBindingReplace = Err.Number End Function Private Function FileExists(strFile As String) As Boolean Dim MyFile As String ' Returns filename if it exists. MyFile = Dir(strFile) If MyFile <> "" Then FileExists = True Else FileExists = False End If End Function Tag: renaming class or module in a project window in VB Tag: 61426
  - 11
    - Which file format will still be readable next century I have some documents that have a moderate amount of formatting which I would like remain readable in the distant future. The documents are actually transcripts of 300 year old family documents. What file format would you choose to give them the best chance of being readable? html, rtf or only txt. I guess several formats would be best but should I add to this list? Tag: renaming class or module in a project window in VB Tag: 61423
  - 12
    - inserting a default date in a textbox in a userform How can I insert a date as a default in a textbox in a userform? It is important, that the date is shown in a certain format (dd.mm.yyyy). The user should be able to change the date to another date, but not to anything else (numbers, text)..... Can anyone please help me? Thank you very much! Tag: renaming class or module in a project window in VB Tag: 61422
  - 13
    - how to create unicode text dictionary how do you create a dictionary for unicode text. thank you for any help. Tag: renaming class or module in a project window in VB Tag: 61418
  - 14
    - Event notification for Document evennts.. Very Urgent Pls Help Hi All, In my application, (i am using C and C++) i want to get notified when any event occurs in a document which is opened programatically. I found som earticles and help in Microsoft web site and i am able to recieve notifications for the application object like, DocumentChanged() and Quit with DISPIDs 2 and 3 respectively. For this, i used the Connection point mechanism and i registered to get notified for the events for IID = {0x000209f7,0x0000,0x0000,{0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x46 } } but not i am not able to understand how to get notifications when user saves the ducument or user closes the document without saving and things like that. If i have to use some other IID for the same, please help me out. Or if i have to check some parameter when i recive application even DocumentChanged(), please do suggest. In any case, please post your suggestions/may be with piece of code to me . Thanks in advance. Regards, -Basavaraj Tag: renaming class or module in a project window in VB Tag: 61415
  - 15
    - Help with Document Objects and other general questions Hi, I am trying to create a macro that will count the occurrence of a list of Words. The list of words is in a two column document with the words listed in column 1. The macro compares each word in column 1 with each word in the document and records the number of matches in column 2. What I have posted below works (seems to), but I am not clear on the use of document objects. Basically I have the document open and then open the word list to create the array. Once the array is created I switch back to the document (why do I have to use documents(2).activate). It seems I should be using documents(1) since it was the orginal open document and appears in the Window menu as #1. Please explain this. I sense that what I have created in grossly inefficient and want to believe that there is a better way than doing a word by word comparison for each word in the list. I toyed with the idea of finding and replacing the words with themselves but couldn't figure out out to get a count. Ideas? Thanks. Sub WordFrequency() Dim ListArray Dim i As Long Dim j As Long Dim k As Long 'Open and build and array of words to count Set WordList = Documents.Open(FileName:="D:\My Documents\Word\Word Documents\Word Tips\Macros\Word List.doc") ListArray = WordList.Tables(1).Range.Text ListArray = Split(ListArray, Chr(13) & Chr(7)) 'Active the orginal document (don't know why this is 2 rather that 1) Documents(2).Activate 'need this starting k value later on k = 2 'compare each word in the list with the words in the doc 'count if match occurs For i = LBound(ListArray) + 3 To UBound(ListArray) - 1 Step 3 j = 0 Selection.HomeKey Unit:=wdStory System.Cursor = wdCursorWait For Each aword In ActiveDocument.Words If Trim(LCase(aword)) Like ListArray(i) Then j = j + 1 End If Next 'switch to the word list Documents(1).Activate 'record the count ActiveDocument.Tables(1).Cell(k, 2).Range.Text = j k = k + 1 'switch back to the orginal document Documents(2).Activate Next End Sub -- Greg Maxey/Word MVP A Peer in Peer to Peer Support Tag: renaming class or module in a project window in VB Tag: 61414
  - 16
    - Unsaved changes in the Normal template Due to sloppily written 3rd party apps/add-ins/macros, many users are troubled by the message asking whether they want to save changes to the Normal template. In many/most cases, one has to know how to examine VBA code to determine the cause of such changes. I was thinking of doing the following in a class, but I'm not sure whether this would help or further annoy users. I would include code that checked for a dirty Normal template at class startup AND before each macro runs. I would issue a message asking whether the user wanted the macro to save the changes now, and also give the user an opportunity to cancel the macro. The choices would be Yes, No, Cancel. Is the above useful? In any case, I will include code that checks for changes in Normal when the class terminates. This is to assure that my code does not cause any unintentional changes in the Normal template. -- http://www.standards.com/; See Howard Kaikow's web site. Tag: renaming class or module in a project window in VB Tag: 61412
  - 17
    - Macro causes Word to freeze This is a macro I use frequently to count the number of occurences of a word in a document. It's very fast and convenient. I simply place the cursor in the word, and run the macro, and it gives me a message box with the result But it frequently causes Word to freeze up. Can anyone point to what may be wrong with it? Thanks, Larry Sub TextCountQuick() ' Counts current word or selected word or string. Dim myrange As Range Dim myPhrase As String Dim i As Long ' Clear Find parameters With Selection.Find .Replacement.Text = "": .Format = False: .MatchCase = False .MatchWholeWord = False: .MatchWildcards = False: .MatchSoundsLike = False .MatchAllWordForms = False: .ClearFormatting End With Application.ScreenUpdating = False System.Cursor = wdCursorWait Set myrange = ActiveDocument.Range ' If there is no selection, select current word. If Selection.Type <> wdSelectionNormal Then Selection.Words(1).Select ' Unselect any empty space after text. Selection.MoveEndWhile cset:=" ", Count:=wdBackward myPhrase = Selection.Text Selection.Collapse wdCollapseStart myrange.Find.ClearFormatting myrange.Find.Replacement.ClearFormatting With myrange.Find .Text = myPhrase .Forward = True .MatchWholeWord = False .MatchWildcards = False ' Strange. If I have wdFindContinue, the macro goes into an endless loop. ' So I've commented this out. This must have to do with fact that I'm using ' document range rather than selection. ' .Wrap = wdFindContinue Do While .Execute i = i + 1 Loop End With MsgBox "Occurrences of '" & myPhrase & "' " & i, , "Text Count" ' clear Find parameter myrange.Find.Text = "" End Sub Tag: renaming class or module in a project window in VB Tag: 61409
  - 18
    - microsoft word I accidently deleted my microsoft word and i cant seem to find a download to get it back. The version of windows I am using is windows XP. Can you possibly give me a direct link to download one? Tag: renaming class or module in a project window in VB Tag: 61405
  - 19
    - saveas method Hey all, This could be an easy question but I can't seem to solve it yet. In my VB program, I am making a reference to the Office Library to use the Excel methods. Everything works fine and I save the file using Workbook.SaveAs TheFileName This statement brings up the confirmation box if the file already exists. However, I do not want it do that and just overwrite the file, if it already exists. How do I do this? I do not want to delete the file before running this because, sometimes, I have to add a new worksheet to an existing file and cannot delete the old worksheets. Thanks for your time / any response. Vince Tag: renaming class or module in a project window in VB Tag: 61400
  - 20
    - Which variable to represent a listbox? I would like to use a procedure again and again for several listboxes in a user form. Therefore, I need to use a variable that can represent the various list boxes. Which variable type should I use? ========================= Private Sub userform_initiate() Dim oLBox As Object 'Object type DOES NOT WORK End Sub ------------------------- Private Sub butBrowse01_click() 'Browse button 01 next to list box 01 oLBox = ThisUserForm.ListBox_01 SelectFiles (False) 'AllowMultiSelect = false End Sub ------------------------- Private Sub SelectFiles(bMultSel As Boolean) Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd .AllowMultiSelect = bMultSel If .Show = -1 Then For Each vrtSelectedItem In .SelectedItems oLBox.AddItem (vrtSelectedItem) '??? Next Else End If End With Set fd = Nothing End Sub ========================= ANDy Tag: renaming class or module in a project window in VB Tag: 61397
  - 21
    - why does it not show me a new page when i double click? I downloaded microsoft office word viewer 2003 however when i double click it to launch it i get a window that asks me to type in the File. You normally get a white page to type Tag: renaming class or module in a project window in VB Tag: 61391
  - 22
    - inhserting and then updating info in headers programitically...how? I am new with vba, first time using it and not much of a programmer at all. I have managed to create a macro that automatically detects landscape and portrait pages, and then insert an autotext entry into their headers (a different one for landscape and portrait). Now I need to make the info in the headers come from an a userform or inputbox (inpubox is prefered because is just two pieces of info and it seems easier). So now what am I supposed to do? My guess of what I have to do in order is this 1) modify the autotext entry to include some sort of field a) DocVariable? b) REF ? c) Bookmark? Can you please tell me which of these I need and give me a precise example of how to add this? (I believe each of the three is added in a different way). Also, it seems the term Bookmark and REF field are either used interchangeably or are intimately related...can you please tell me what each one is used for? 2) Add some code in my macro to insert the text variable I collected using the InputBox into the field/variable/bookmark (whichever I am supposed to use) a) is this code supposed to be inserted at the very end of my code since updating the field/REF/Bookmark/etc should automatically replace everything? b) or should I loop through all my sections and replace the variable one by one? I currently go through all the sections to insert the autotext, so I suppose I could just add this command after the autotext is inserted. Either way, can you please show me the exact code I have to write to get this to work. I mention again its for headers since I read its a different approach (probably using ranges, which I still dont understand well) 3) Finally I believe I have to update the fields in some way so that they reflect the inserted variable in my word document. a) is this just one command or another loop through the whole document since it is a header? Can you please show me this code also? I have been looking through newsgroups since thursday afternoon, and have beem trying once thing after the other, and I have not been very lucky. I always seem to either delete the autotext completely, get a type mismatch when trying to assign the variable, or simply acomplish nothing. Its very frustrating. I have already ordered a word book from amazon hopefully that will help me out in the long run, but I need some help right now. please.... help!!!!! By the way, I use word xp and word 2003 in to machines, and this whole programming thing came up because I am sick and tired of having to print out my documents in sections. I want landscape pages to print with portrait headers and portrait pages to print normally (with portrait headers). Like I said, I have resolved everything but this last step..the variables. My documents have many continous sections, and I detect and correctly apply the right header (a normal one for portrait and a frame based one for landscape ones). I am soooooo close, yet its been three days going around in circles with this. Thanks in advance for the help you might be able to provide. And please, give me an example of the exact code, please dont assume that by saying "use ASK REF fields" (or something similar) I will know what you are saying...cause I dont. I have gone through dozens of usenet articles and tried to piece all this info and have been unsuccesfull. Sorry for asking for so much, but its late and I am really frustrated. thanks!!!!! Tag: renaming class or module in a project window in VB Tag: 61390
  - 23
    - Hyperlink to Full Screen .pps Does anyone know if there is there a way to program a hyperlink from Word to a Powerpoint presentation (.pps) so that the presentation appears automatically on a Full Screen rather than with the toolbars showing? I am working with Office 2000. Thank you. -- Mark L Tag: renaming class or module in a project window in VB Tag: 61388
  - 24
    - Blank Document Not Blank I have read and successfully resolved the cleanup of Normal.dot. The Webmaster asked the question, How does it happen that people who have never heard of Normal.dot and don't know how to find it somehow manage to save a document in it? For me, it happened when I highlighted a person's name and address in a Microsoft Word letter, then hit Tools--Envelopes and Address, and the address showed up in the envelope address box. After this, the person's name and address continually opened up everytime I opened Microsoft Word. After I performed a mail merge with multiple names, all of these names started showing up on the Microsoft Word starting document instead of the single person's name and address. I hope that this helps someone with more knowledge than me about software. Tag: renaming class or module in a project window in VB Tag: 61386
  - 25
    - word 2003 add delete buttons in custom properties fields dialog box disabled...why? 1) I am following some tutorials on VBA specifically to learn the DocVariable fields. It says I should go to the File/Properties/Custom dialog box and add the field there first. I go there and can type the name of the field, select the type and even type a value, but the ADD DELETE buttons are always grayed out. They stay gray even after populating the boxes. I tried a blank document, an old document, etc....same thing...tried closing opening word again...same thing. I am using Word 2003. 2) the reason I am looking into DocVariable is that I want to programmatically insert different Autotext into the headers (different one for each odd portrait, even portrait, odd landscape, even landscape). I am now able to differentiate portrait/landscape sections, insert different even odd autotext headers...I can now even get the info I need from the user using an inputbox, but now I have to place the info I get from the input box into a variable field in the autotext entries. From what I read, DocVariable is the way to go....am I right? Any other suggestions? thanks. Tag: renaming class or module in a project window in VB Tag: 61369

How to rename a class or module in a project window in VB?
The Module1 to something name and the Class1 to something name?

Thanks

Top

Re: renaming class or module in a project window in VB by Andi

Andi
Tue Jan 11 13:12:52 CST 2005

On Tue, 11 Jan 2005 11:03:03 -0800, "Alex"
<Alex@discussions.microsoft.com> wrote:

>How to rename a class or module in a project window in VB?
>The Module1 to something name and the Class1 to something name?
>
>Thanks

Press F4 and change the name in the project window
---
If you expect an answer to a personal mail, add the word "manfred" to the first 10 lines in the message
MW

Top

Re: renaming class or module in a project window in VB by Jean-Guy

Jean-Guy
Tue Jan 11 13:54:08 CST 2005

Alex was telling us:
Alex nous racontait que :

> How to rename a class or module in a project window in VB?
> The Module1 to something name and the Class1 to something name?
>

If you mean to do it by code, play around with something like:

ActiveDocument.VBProject.VBComponents("Module1").Name = "NewModule"

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Top