VBA Script to automatically run after document opens

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - word 2000 vba filesystemobject help file When programming in VBA and trying to get help on the filesystemobject and its associated methods highlighting a term and pressing F1 results in the Visual basic Help window being opened but no content. If a standard vba term is highlighted and F1 pressed the correct part of the visual basic help file is displayed in the Visual basic Help window. I have found the correct compiled help file VBLR6.CHM and can open it directly. How can I get the context editor to open the VBLR6.CHM as the help file? -- Alan Cameron Tag: VBA Script to automatically run after document opens Tag: 58301
  - 2
    - Spelling Errors Hi I am trying to get all the spelling errors through macro from document. It is not working perfectly. I executed the macro for a file which is of BIGGER size. There are atleast 1000 spelling errors in that. But, i am getting only few errors. Please advice. The code is as follows: Sub GetSpellingErrors() ActiveDocument.SpellingChecked = False Selection.WholeStory Selection.LanguageID = wdEnglishUK Selection.HomeKey unit:=wdStory Open "c:\windows\desktop\out.txt" For Output As #1 For i = 1 To ActiveDocument.SpellingErrors.Count print #1, ActiveDocument.SpellingErrors(i).Text Next i Close #1 End Sub Tag: VBA Script to automatically run after document opens Tag: 58297
  - 3
    - Spelling Errors Hi I am trying to get all the spelling errors through macro from document. It is not working perfectly. I executed the macro for a file which is of BIGGER size. There are atleast 1000 spelling errors in that. But, i am getting only few errors. Please advice. The code is as follows: Sub GetSpellingErrors() ActiveDocument.SpellingChecked = False Selection.WholeStory Selection.LanguageID = wdEnglishUK Selection.HomeKey unit:=wdStory Open "c:\windows\desktop\out.txt" For Output As #1 For i = 1 To ActiveDocument.SpellingErrors.Count print #1, ActiveDocument.SpellingErrors(i).Text Next i Close #1 End Sub Tag: VBA Script to automatically run after document opens Tag: 58296
  - 4
    - Spelling Errors Hi I am trying to get all the spelling errors through macro from document. It is not working perfectly. I executed the macro for a file which is of BIGGER size. There are atleast 1000 spelling errors in that. But, i am getting only few errors. Please advice. The code is as follows: Sub GetSpellingErrors() ActiveDocument.SpellingChecked = False Selection.WholeStory Selection.LanguageID = wdEnglishUK Selection.HomeKey unit:=wdStory Open "c:\windows\desktop\out.txt" For Output As #1 For i = 1 To ActiveDocument.SpellingErrors.Count print #1, ActiveDocument.SpellingErrors(i).Text Next i Close #1 End Sub -Ravi Tag: VBA Script to automatically run after document opens Tag: 58295
  - 5
    - Spelling and Errors Hi I am trying to get all the spelling errors from document. I am executing below macro for 20-30 pages word file. There are atleast 1000 spelling errors in that. But, I am getting only very few through macro. Please advice. The code is as follows: Sub GetSpellingErs() ActiveDocument.SpellingChecked = False Selection.WholeStory Selection.LanguageID = wdEnglishUK Selection.HomeKey unit:=wdStory Open "c:\Output.txt" For Output As #1 For i = 1 To ActiveDocument.SpellingErrors.Count print #1, ActiveDocument.SpellingErrors(i).Text Next i close #1 End Sub Tag: VBA Script to automatically run after document opens Tag: 58294
  - 6
    - ?check if chapter contains hyperlink, if not, delete Hallo Champs I am getting mad on the following: Is it possible to check a value between two or more headlines (changing headline, about 100 in the document) and if the desired content does not exist = delete all between Sample: Should look like: ================= Headline anyword anyword anyword anyword anyword anyword URL Headline ... WHEN: there is no URL or description between headline and url, the complete paragraph should be deleted Is that possible? Notice: Must use wildcarts Styles in use are Headline=H1 Text=Normal URL=Hyperlink Thx for any hint ***************************************** * This message was posted via http://www.officekb.com * * Report spam or abuse by clicking the following URL: * http://www.officekb.com/Uwe/Abuse.aspx?aid=87333c7b0f4a4656bf84dd541bffccd5 ***************************************** Tag: VBA Script to automatically run after document opens Tag: 58293
  - 7
    - how to sort an array of strings? Hello group, Beginner here with 2 questions. 1. I have an array of strings which are word document names. Is there a built-in function in word vba that I can use to sort them alphabetically? 2. If I have an array of strings, say ("Mon" "Tue" "Wed" "Thu") and I have an item, say "Wed" which belongs to that array. Is there a built-in function to determine the index of this item in the array? (in this case it should return 2). Thanks very much for your help. -wcc Tag: VBA Script to automatically run after document opens Tag: 58291
  - 8
    - How can I save a Word doc as an JPEG? Changes when saved as HTML. I am trying to save a Word doc as an HTML but get a lot of reformatting when I "save as". Is there an alternate method of saving, such as a jpeg or something so I don't lose the formatting when I save to HTML? Thank you in advance for your assistance! Donna Tag: VBA Script to automatically run after document opens Tag: 58290
  - 9
    - DataObject type -- User Type undefined I just discovered the trick I needed to solve this problem I had trying to use the method "MyData.PutInClipboard" 1.Trying to follow the advice I got from an earlier thread "You need to ensure that a reference is set to the Microsoft Forms 2.0 library in Tools References in the VBA editor. This reference is automatically set if you include a UserForm within your project." wasn't successful, because the Microsoft Forms 2.0 library DIDN'T APPEAR in the list. 2. then I tried putting a textbox on the form, because that was in the Example. Again, the DataObject type was flagged as "undefined". 3. Ah! but here's the trick. Having put the textbox on, then taken it off the form, now suddenly the Microsoft Forms 2.0 library appeared on the list, I checked it, closed the dialog, and the macro now worked! Doing both was the secret. Greatly relieved! Hope this helps someone. JSC Tag: VBA Script to automatically run after document opens Tag: 58289
  - 10
    - String width in specified font/size when merging Hello, I am merging documents with fields from an Excel sheet. I need to put some text (from Excel) into boxes pre-printed on the paper, the boxes have fixed sizes. The problem is that some datas in the Excel sheet doesn't fit in the boxes, and because I am using non-fixed fonts the values of the datas are changing the width of the text (MMMMM vs IIIII). My goal is to do a macro (in Excel or Word) to tell me which records doesn't fit in a XX centimeters box when using a specific font/size (and then I can modify manually the datas in Excel when it's too large). I searched how to get the real printed width (or any value with a fixed ratio value/real_printed_width) of a string but I can't find any information about it. Thank you VERY VERY much in advance, ANY help is REALLY appreciated. Seb. PS: sorry for my bad English, it is not my first language. Tag: VBA Script to automatically run after document opens Tag: 58288
  - 11
    - Obtaining "Save as type" (user input) value from Save As Dialog Bo I want to ensure that the user does NOT select any other "Save as type" other than "Word Document *.doc", to ensure that the macros are retained in the file. So.......... I am displaying the Save As Dialog Box. I thought I would interpret what "Save as type" the user has selected, and in the case of them selecting anything other than "Word Document *.doc" generate an error message box, and then NOT execute the Save dialog. I thought that the property "Dialogs(wdDialogFileSaveAs).Format" would return the user selection, but it does not. What property or method can I use to obtain the user selected "Save as type"? Or - if there's a better way to ensure that an original Word document is always saved as a "Word Document *.doc" regardless of name and/or location, I would enjoy hearing about those options as well. Thanks in advance! Tag: VBA Script to automatically run after document opens Tag: 58286
  - 12
    - VBA code or macro to list all settings in a Word template Hello -- Does anyone know where I can find code or a macro to recap all the settings I have made in a Word template (or, document) ? I searched on "vba settings template" and found nothing. Thanks for any help. Larry Mehl Tag: VBA Script to automatically run after document opens Tag: 58285
  - 13
    - Reminder/Meeting version/format Hi all. I use VB6 to add reminders and set meetings in outlook: Set olApp = CreateObject("Outlook.Application") Set objMeet = olApp.CreateItem(1) '1=olAppointmentItem In the code I use : objMeet.OptionalAttendees = strEmails I have two machines, one with Outlook2000 and the other with Outlook XP. When I run this code on the machine that has Outlook 2000, the machine with Outlook XP gets the invitation correctly (I can see its a meeting invitation, I can accept/reject etc.). When I run this code on the machine that has Outlook XP, the machine with Outlook 2000 gets the invitation as a message with unclear text. Can I force the code to send the invitation in a low version format (i.e. Outlook 97). ? Please advise. Guy Tag: VBA Script to automatically run after document opens Tag: 58284
  - 14
    - Hlp Pls: Search & Replace makro results in funny styles Hello, I am using a recorded makro to earch and replace for some txt which then is formatted to H1 - when do the commands manually it works fine, when I use the makro where multiple operations are running the H1 style is apllied but with boarders around it. I dd not define any borders, not in the makro, nor in the makro or replace function. Any Idea? Extract of the piece of (using the code stannalone work, using with other operations in advanced does not work): =================================== ' reformats the main categories and adds a manual page break in front of each Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1") Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False With Selection.Find .Text = "(= )([!^13]@) \=(^13)" .Replacement.Text = "^m\2 " .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll =================================== This is the complete code - when running this, I get a box arund the headline =================================== Sub Macro1() ' ' Macro2 Macro ' Macro recorded 10/23/2004 ' ' delete txt index at first/second page Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "*= " .Replacement.Text = "= " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With Selection.HomeKey Unit:=wdStory ' replace com / col with communication / collaboration Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "= Com / Col =" .Replacement.Text = "= Communication / Collaboration =" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' replace Desktop OS with Desktop Operating System Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "= Desktop OS =" .Replacement.Text = "= Desktop Operating System =" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' replace Server OS with Server Operating System Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "= Server OS =" .Replacement.Text = "= Server Operating System =" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' reformats the main categories and adds a manual page break in front of each Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 1") Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False With Selection.Find .Text = "(= )([!^13]@) \=(^13)" .Replacement.Text = "^m\2 " .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub =================================== Tag: VBA Script to automatically run after document opens Tag: 58283
  - 15
    - How to unlink a linked worksheet object in word using VBA Dear all, I have a word document with links to charts in excel. How can I break this link using VBA? Jan Tag: VBA Script to automatically run after document opens Tag: 58280
  - 16
    - Document.Close New instance of Template I have a word template that uses a macro to open another word document, fills in some variables, and then is supposed to close the "new" instance of the template w/o saving (I need a template for my purposes which I won't get into). When I try to use ThisDocument.Close, nothing happens. Is there a reason ThisDocument.Close doesn't work on a new instance of a template or am I doing something wrong? I know that ThisDocument.Close works on a non-template file and also work when I "open" the template instead of using "new". This is probably an old question, but my search was unsuccessful. Tag: VBA Script to automatically run after document opens Tag: 58278
  - 17
    - How do I create a calculated due date (from current date) in word. I have the current date at the top of my letter, in the body I want to calculate the current date to the second date as 90 days due. Thanks. Tag: VBA Script to automatically run after document opens Tag: 58276
  - 18
    - Copying fields from headers Sorry if this question has been asked before, but I searched through this newsgroup and found different variations but not quite.... I have 2 documents and am trying to create a 3rd from the first 2. 1st document has a header with some fields and text (like page number, date and company info) followed by the content, and 2nd document just has content (no header). I create the 3rd document by inserting second document at the end of the first and saving it as the 3rd document. However, I can't seem to get the fields of the header from the first document into the 3rd document. Doing the following: Dim Text As String = objDocument1.Sections(1).Headers(1).Range.Text objDocument3.Sections(1).Headers(1).Range.Text = Text only copies the text, and the field values are copied as text from the first document, so on all pages, I get 1 of 1 ({PageNumber} of {NumPages}). Is there a way I can copy the field like PageNumber and Date over to the 3rd document and then update them? I need to do the update after the 3rd document is created, since I need the header on the pages of the 2nd document as well. TIA, Usha Here is the code: Dim myApp As Word.Application = New Word.Application myApp.Application.Visible = False Dim objDocument1 As Word.Document = myApp.Documents.Open("c:\doc1.doc", ReadOnly:=True) With myApp.Selection.Find .ClearFormatting() .Text = "<!firstname!>" With .Replacement .ClearFormatting() .Text = "Usha" End With .Execute(Replace:=Word.WdReplace.wdReplaceAll) End With With myApp.Selection.Find .ClearFormatting() .Text = "<!lastname!>" With .Replacement .ClearFormatting() .Text = "Vas" End With .Execute(Replace:=Word.WdReplace.wdReplaceAll) End With Dim objDocument3 As Word.Document = myApp.Documents.Add() Dim Range1 As Word.Range = objDocument1.Range.FormattedText Dim Range3 As Word.Range = objDocument3.Range Dim Selection3 As Word.Selection = objDocument3.ActiveWindow.Selection Range3.Collapse(Word.WdCollapseDirection.wdCollapseEnd) Range3.FormattedText = Range1.FormattedText Range3.Collapse(Word.WdCollapseDirection.wdCollapseEnd) Selection3.EndOf(Unit:=Word.WdUnits.wdStory, Extend:=Word.WdMovementType.wdMove) With Selection3 .InsertBreak(Type:=Word.WdBreakType.wdSectionBreakNextPage) .InsertFile(FileName:="c:\doc2.doc", ConfirmConversions:=False) .Collapse(Direction:=Word.WdCollapseDirection.wdCollapseEnd) End With Dim Text As String = objDocument1.Sections(1).Headers(1).Range.Text objDocument3.Sections(1).Headers(1).Range.Text = Text objDocument3.SaveAs("c:\Development\PreAuth\docs\doc3.doc") objDocument1.Close(Word.WdSaveOptions.wdDoNotSaveChanges) objDocument3.Close() objDocument1 = Nothing objDocument3 = Nothing myApp = Nothing Tag: VBA Script to automatically run after document opens Tag: 58274
  - 19
    - Problem with digitaly signed VBProject Hi all, I have a template with digitally signed VBProject. The problem is that the second statement in the sub fails. I had noticed that if "Normal.dot" also digitally signed the problem disappears. But signing "Normal.dot" for certain reasons is unacceptable. The possible solution could be to make Word to create embedded Microsoft Word Document based on digitally signed template altered from "Normal.dot". But I didnâ??t found the way to do it still. Security level: high Trust all installed add-ins and templates: unchecked Sub CreateDocument() Dim doc As Document Selection.InlineShapes.AddOLEObject ClassType:="Word.Document.8", _ FileName :="", LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _ "iwb3.ico", IconIndex:=0, IconLabel:="" Set doc = ActiveDocument.InlineShapes(1).OLEFormat.Object End Sub Tag: VBA Script to automatically run after document opens Tag: 58270
  - 20
    - include worksheets in word for similar documents Word should include the ability for users to insert multiple documents in worksheets just like Excel. This would allow similar documents to be grouped together in one file, rather than having multiple open files. Tag: VBA Script to automatically run after document opens Tag: 58263
  - 21
    - Organizing Macros Word 2003 I have too many macros in normal.dot. I'd like to split my macros into specific sets, and store each set in some new/different "Global template" so that I can select just one set to display using the "Macros In:" list in the "Macros" (Alt-F8) dialog. How do I create a new "global template" (or whatever convenient file to store a macro set in)? I don't want to store the macros in individual data (.doc) files. I use the term "Global Template" above because I obseve that Adobe Acrobat has, when installed, created its own global template with all of the macros that it has added to my instance of Word. Thanks for your help. Fred Holmes Tag: VBA Script to automatically run after document opens Tag: 58262
  - 22
    - Copying the formatted text between two fields? I would like to take the formatted text between two fields and place it into another document. So far, writing something like this: theRangeSource = theFirstField.Result theRangeSource.Collapse(Word.WdCollapseDirection.wdCollapseEnd) theRangeSource.End = theSecondField.Result.Start theRangeDestination.FormattedText = theRangeSource.FormattedText does *not* work correctly. I get bits of the field codes copied into the second document. I would either like all formatted text *between* the two fields, or all formatted text *including* the two fields placed into my second document (theRangeDestination). Note: I cannot use the application "Selection" as this is "unsafe" for the purposes of running my reporter in the background while people are possibly working with word in the foreground. How can I do this? Thanks Robin Tag: VBA Script to automatically run after document opens Tag: 58261
  - 23
    - Can you use VBA to create a pie chart in Word I have a Word table that gets populated with figures. Is there VBA code that I can write that automatically creates a pie chart when data is entered into the table. Thanks Tag: VBA Script to automatically run after document opens Tag: 58259
  - 24
    - wdDialogEditAutoText Hi, I was hoping someone could help me out. These are the arguments for wddialogeditautotext: Name, Context, InsertAs, Insert, Add, Define, InsertAsText, Delete, and CompleteAT So which argument would I use to set the template to a specific template of my choosing when calling the command wddialogeditautotext in a vba program? Thanks for any help? -- -Kirsten Tag: VBA Script to automatically run after document opens Tag: 58258
  - 25
    - page header to be actual header of paragraph of each page Hi there, we would like to have the name of the paragraphs header of the actual page as the page header. e.g: page 1: paragraph header: Introduction pager header left hand side: Introduction page 2: paragraph header: Characteristics pager header left hand side: Characteristics In case there are two paragraph headers on one page we would like to have the first one as the page header. In case there is no paragraph header on the page we would like to have the header of the previous page as the page header. Can this be done? Thank you very much. Regards, Norbert + Warren Tag: VBA Script to automatically run after document opens Tag: 58247
- Next
  - 1
    - Expand comment scope Hi all, is there any way to expand the comment scope range with VBA? Comment.Scope property is read-only :( Thanks Marco Tag: VBA Script to automatically run after document opens Tag: 58245
  - 2
    - macro for spaces needed have a peculiar problem happening with a document. When it converts to rtf (from another format, not important), it is producing lots of extra spaces between words. Curious if anyone can provide a simple macro text that will search through the document for more than one space sections and replace them with single spaces. Would help greatly. Thanks. Boris Tag: VBA Script to automatically run after document opens Tag: 58242
  - 3
    - Smart Tags add Outlook Address I would like to include two additional fields with the basic mailing address used with Smart Tags in Word 2003 from Outlook. The fields for Company and Job Title should also be included with the Smart Tag. How can I do that? Do I have to purchase third-party software? Thanks in advance. Tag: VBA Script to automatically run after document opens Tag: 58241
  - 4
    - How to delete text between { } Hi There, Would you please let me know how to delete a text between {}? Thanks, Leila Tag: VBA Script to automatically run after document opens Tag: 58237
  - 5
    - Help with App.FileSearch object, please? I'm trying to loop through the files in a folder to use FileCopy. The files have no dot-extension suffix, and FIleSearch can't see them. If I rename them with a .doc, it works great. Can someone help me tweak this? Or give me a better method? Ed With fs .LookIn = strPath & "\MyDocs" .FileName = "*.doc" 'for no extension, 'I used "*" If .Execute > 0 Then 'with no extension, 'this drops immediately to End If For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) strName = .FoundFiles(i) strFName = Right(strName, Len(strName) - 9) MsgBox strFName FileCopy strName, strFolder & strFName Next i End If End With Tag: VBA Script to automatically run after document opens Tag: 58233
  - 6
    - can anyone see what's wrong with this ? can anyone see what's wrong with this it spose to iterate through all picture objects & cut n paste them back it errors on the very first picture (item(1)) it finds With ActiveDocument If .Shapes.Count > 0 Then With .Shapes For x = 1 To .Count .Item(x).Select Selection.Cut Selection.PasteAndFormat (wdPasteDefault) <<<<<<<<<<< error here (on item 1) Next End With End If If .InlineShapes.Count > 0 Then With .InlineShapes For x = 1 To .Count .Item(x).Select Selection.Cut Selection.PasteAndFormat (wdPasteDefault) Next End With End If End With Tag: VBA Script to automatically run after document opens Tag: 58231
  - 7
    - Mail merge from Excel to Word Hi, I am trying to figure out how to right the code to perform a mail merge from excel to a word file. The excel source is about 20 columns and the number of rows will vary. Each item will be on a separate row with each column representing information about that item. I would like each item to be on it's own page in the word document. I was thinking of creating a word template that would be a starting point and then doing a catalog type merge. any help with the code, especially the new page for each row of data would be appreciated. Thanks, Mike Tag: VBA Script to automatically run after document opens Tag: 58230
  - 8
    - wavy underlined content Can I access just the wavy underlined words in word grammar errors through a (visual basic) macro? Tag: VBA Script to automatically run after document opens Tag: 58229
  - 9
    - Selection Object Hello, I create a word document from vb application. I format the header and footer and insert a couple of files into the word documment. I use the selection object for both formatting header and footer and inserting files. It works fine the first time I run the program. But the second time when I run it. The files did not inserted into the document. Here is the code I use to format footer: objWord.Sections(1).Footers (wdHeaderFooterPrimary).Range.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeText Text:=" of " objWord.Sections(1).Footers (wdHeaderFooterPrimary).Range.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter After I format the document footer, I have the follwoing line of code: objWord.Content.Select With Selection Insert file here end with It looks like the selection is still in the footer area. Is it anyway I can detect where the selection is and how to redefine the selection? Thanks for any help! Mei Tag: VBA Script to automatically run after document opens Tag: 58225
  - 10
    - Updating autotext I have a variety of autotext entries. Unfortunately, we have to constantly revise and update these autotext entries back to the template (or even add new entries). It's hard to explain to others how to do this. So... here's my problem. I'd like to use VBA to create a menu that would walk people through the process (highlighting the correct text, automatically selecting the correct template, etc...). Has someone already done this? Right now, I was pondering having a button on the main menu (it's this whole big menu we have for inserting spec entries, not to worry about that part) that says "update entry", then when you click that button, the main menu is hidden while a msgbox pop up that says "highlight text".You would press okay to get rid of the message box, highlight the text, then... then... then I get a bit lost. I want it to then pull up the resident wdDialogEditAutoText dialog box, but and have it set automatically to the correct template (I think that will get rid of a lot of confusion) but don't know how to force the dialog box to set to a specific template in the "Look in" area. I also don't know how you would go from highlighting text to bringing up this dialog box. If you need clarification on what I'm trying to do, feel free to ask. Thanks in advance! -- -Kirsten Tag: VBA Script to automatically run after document opens Tag: 58224
  - 11
    - Pass document reference into another doc? I want the Document_Open macro in one doc to open another doc. The second doc also has a Document_Open macro, and the first doc stays open until the second doc is finished. Can I pass the object reference from the first doc to the second so the second can completely close that instance of Word? Or set a reference while the doc is open with a macro running and cause it to close? Ed Tag: VBA Script to automatically run after document opens Tag: 58216
  - 12
    - Locked documents? Can I unlock a word document to modify it? Tag: VBA Script to automatically run after document opens Tag: 58212
  - 13
    - Error 462 problem. I've written an Access 2000 app which creates some Word documents. There is one place that it errors randomly on error 462 - The remote server machine does not exist or is unavailable. To give an idea as to the randomness, I ran it over 100 times yesterday on one PC (Win 2000 + Office 2000) and it never failed. On another machine running Win XP + Office XP Standard + Access 2000, it fails about 80% of the time. On a 3rd PC, identical to the 2nd, it fails less than 10% of the time. And on any PC, if you step through the code, it never fails. The pertinent parts of the code follows, with the point where it fails indicated thus: -----> Note that some code has been omitted for clarity/brevity. ---------------------------------------------------------------------- Dim objWord As Word.Application Set objWord = GetObject(, "Word.Application") objWord.Documents.Add Application.CurrentProject.Path & _ cStrWordTemplate '---------------------------------------------------------------------- ' Put in the header '---------------------------------------------------------------------- With objWord ' .ScreenUpdating = False ' .Visible = False .Selection.Goto What:=wdGoToBookmark, Name:="bkShopType" .Selection.TypeText Text:=strShopType .Selection.MoveRight unit:=wdCell, Count:=2 .Selection.TypeText Text:="Dealer " & _ rst.Fields("DealerID") & _ " - " & rst.Fields("Dealer Name") .Selection.MoveRight unit:=wdCell .Selection.TypeText Text:=strWave .Selection.EndKey unit:=wdStory .Selection.TypeParagraph '---------------------------------------------------------------------- ' Loop through the recordset and find all the questions where ' points were lost '---------------------------------------------------------------------- Do While Not rst.EOF If rst.Fields("PointsScored") < _ rst.Fields("PointsAvailable") Then '---------------------------------------------------------------------- ' Create the table to hold the data '---------------------------------------------------------------------- .Selection.EndKey unit:=wdStory .Selection.TypeParagraph .ActiveDocument.Tables.Add Range:=.Selection.Range, _ NumRows:=1, NumColumns:=1, _ DefaultTableBehavior:=wdWord9TableBehavior, _ AutoFitBehavior:=wdAutoFitFixed -----> Fails between here and the next 3 lines .Selection.Tables(1).PreferredWidthType = _ wdPreferredWidthPoints .Selection.Tables(1).PreferredWidth = _ CentimetersToPoints(19.5) .Selection.Rows.HeightRule = wdRowHeightAtLeast .Selection.Rows.Height = CentimetersToPoints(1) ---------------------------------------------------------------------- Anybody see the problem? -- Roger Tag: VBA Script to automatically run after document opens Tag: 58210
  - 14
    - ActiveDocument object doesn't work Hello all, I have a problem with VB.Net. I want to get the readabilityStatistics from word documents. herefore I have to activate a doc as an ActiveDocument in the Word.Application. And here is exactly the problem. I cannot use the ActiveDocument as it is written everywhere in the MSDN! Here is what I did: ... Private Sub TestMSWordFunc(ByVal file As String) 'MS Word declarations Dim wordApp_Server As Word.Application Dim wordDoc As Word.Document Dim wordRange As Word.Range Dim wordStatistic As Word.ReadabilityStatistic 'Other Dim fileMod As Boolean Dim resComputeStatistics As Integer Dim wordEnum As IEnumerator Dim wordVal As ValueType 'Open an application server first wordApp_Server = New Word.Application wordDoc = wordApp_Server.Documents.Open( _ FileName:=file, _ ConfirmConversions:=False, _ ReadOnly:=False, _ AddToRecentFiles:=False, _ PasswordDocument:="", _ PasswordTemplate:="", _ Revert:=False, _ WritePasswordDocument:="", _ WritePasswordTemplate:="", _ Format:=Word.WdOpenFormat.wdOpenFormatAuto, _ Visible:=False) 'Document must be set active in order to retrieve further information wordApp_Server.Documents.Add(file) wordDoc = wordApp_Server.ActiveDocument Label_ResultFile.Text = file Label_ResultWords.Text = wordDoc.ComputeStatistics(Word.WdStatistic.wdStatisticWords) Label_ResultParagraphs.Text = wordDoc.ComputeStatistics(Word.WdStatistic.wdStatisticParagraphs) Label_ResultFK.Text = wordApp_Server.ActiveDocument.Content.ReadabilityStatistics.Item(6).Value ... I cannot get to tell the application the open word document!! The last line always returns zero, as the ActiveDocument is empty,i.e. a different document than the one I opened! Can anybody help me? I am getting crazy. It is probably very easy, but I cannot see the mistake. Kisses Mel Tag: VBA Script to automatically run after document opens Tag: 58208
  - 15
    - Need Help on User-Defined Type Word 2000 I'm trying to create a user-define type. This is the first time I've tried to do this, so I've been reading through the on-line Help trying to figure it out. Here's what I have so far: ******************** ' Code placed in a standard module containing only public declarations. Type ErrorRecord ErrDateTime As Date ModuleName As String Subroutine As String ErrNumber As Long ErrHelpContext As Long ErrDescription As String ErrHelpFile As String End Type ' Code placed in the routine. Dim ErrorRecord As ErrorRecord With ErrorRecord .ErrDateTime = ErrDateTime .ModuleName = ModuleName .Subroutine = Subroutine .ErrNumber = Err.Number .ErrHelpContext = Err.HelpContext .ErrDescription = Err.Description .ErrHelpFile = Err.HelpFile End With FileNumber = FreeFile Open ErrorLog For Random As FileNumber Len = Len(ErrorRecord) + 2 Put #FileNumber, , ErrorRecord ******************** On the PUT statement I get: Run-time error '59': Bad record length From reading the Help on this error, I understand what the problem is, but I'm having difficulty determining how to set the proper record length. Hopefully, I've provided enough information for someone to answer my question. Given the above, how do I get the record length set properly? -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: VBA Script to automatically run after document opens Tag: 58205
  - 16
    - FilePrint Question Word 2000 I have the following subroutine: Sub FilePrint() Message = "FilePrint" PrintRecords End Sub My goal here is to have FilePrint run every time the document is printed, no matter how the user prints the document. When I select "Print" from the File menu, or use CTRL+P, I get the "FilePrint" message, indicating that the FilePrint routine ran. However, if I print by clicking the Print button on the toolbar, I get no message at all, but the document still prints, indicating that the FilePrint routine is not running when the Print button on the toolbar is used. Is there a way to intercept the print operation when the user clicks the Print button on the toolbar? I've searched in the VB Help and have come up empty. Currently, the only solution I can think of is to create a custom toolbar that is identical to the Standard toolbar, except that the Print button would call the FilePrint macro. -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: VBA Script to automatically run after document opens Tag: 58200
  - 17
    - Drop-down form field, can one create more than a 25 item list? I am a physician whose documentation requires certain drop-down form text fields to have drop-down pick lists longer than the default limit of only 25 items. Can anyone help me with the possibilty of creating drop-down pick lists longer than the default limit of only 25 items? Tag: VBA Script to automatically run after document opens Tag: 58199
  - 18
    - How do I get mailing labels in Word into a sortable form? My organization has its mailing labels typed onto sheets of labels in Word. When we want to send out a mailing we need to sort by zip code by hand. It is very time consuming. Is there a way we can take the info from word and put it into an Excel or Access data base so that the labels can be sorted before they are printed? Thanks. Desparate for time. Tag: VBA Script to automatically run after document opens Tag: 58198
  - 19
    - Automation of the Office "Equation Editor" Hello how can I make an Automation of the Office "Equation Editor". If it is possible what interfaces does this component have? Thanks Peter Tag: VBA Script to automatically run after document opens Tag: 58197
  - 20
    - Best way to check if doc exists? I know there are a couple of different ways to see if a document exists (before I throw an error trying to do something with it!), but I'm wondering if there is a "best" way - that is, one most likely to behave nicely in just about any routine I stick it into. The path will always be the same on any user's computer - with their username inserted, of course - so I could use that. I've done different things - some quite by accident - in other code: set an object to a doc that isn't there and trap the lack of an object name; try to open it and trap the error; and such like. I tried Exists, but that doesn't seem to work for documents. Any suggestions? Ed Tag: VBA Script to automatically run after document opens Tag: 58190
  - 21
    - Tables and Charts I am using a user form which will collect data from the user. Is there VBA code that can be used to take the data from the userform and create a table and a pie chart? Thanks Tag: VBA Script to automatically run after document opens Tag: 58189
  - 22
    - Run-time error '4605': This method or property is not available... Hi, I'm getting the following message when trying to use the selection property in the Reviewing Pane in Word 2002: Run-time error '4605': This method or property is not available because the current selection is editing the reviewing pane. All I'm doing is letting the user select from a list and trying to insert the value such as this and I get the error when trying to execute the 'Selection.TypeText Text...' line: '***************** ' We will go through all of the values in our current list and check ' each one to see if it has been selected. If so, we will echo the ' associated text back into the document. For iArrValue = 0 To lstSelection.ListCount - 1 If lstSelection.Selected(iArrValue) = True Then Selection.TypeText Text:=arrResponse(iArrValue) End If Next '***************** If I record a macro in my main document or in the Reviewing Pane, just typing in text, the macro command is no different, using the selection property. It records fine and I can play it in my main document but not in the Reviewing Pane, as I'll get the error listed above. I can also manually type in the Reviewing Pane so it appears to be accessible. Either I am missing something or the selection property is not able to be used within the Reviewing Pane. Any ideas? Bill Tag: VBA Script to automatically run after document opens Tag: 58187
  - 23
    - how do i write a simple computer program? I would like to know how to write a simple computer program Tag: VBA Script to automatically run after document opens Tag: 58186
  - 24
    - VB Help Hi all, I`m trying to create a document with a text box and 3 combobox. Here is what I`m trying to do: TextBox shows today`s date. ComboBox1 shows value1 and value2 ComboBox2 shows value 3 and value4 ComboBox3 shows values 5,6,7,8 note: there is no connection between the comboboxes what so ever. first issue: I tried to use AddItem method undre private sub Document_Open - ComboBox1.Additem "value1" etc... After I save and close the document all the options from the ComboBoxes are gone. Second issue: I need to be "clean" when I open the document. Only the textbox should be filled with today`s date. I hope I`m clear here. Thank you so much for your time, Tom Tag: VBA Script to automatically run after document opens Tag: 58185
  - 25
    - VBA-controlled mail preparation while using Word as mail editor In my Word VBA-application I would like to open Outlook with a partly prepared email that the user is expected to finish before sending it. However, this causes a problem when the user has chosen to use Word as the mail editor. Is there a simple way to temporarily cancel and then restore the users selection of editor? /BosseH Tag: VBA Script to automatically run after document opens Tag: 58177

I want to code a script to run immediately after a document opens similar to
workbook_open() in excel

Re: VBA Script to automatically run after document opens by Doug

Doug
Sun Oct 24 21:30:57 CDT 2004

Put the code in a macro named Autoopen

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
"Richard Mogy" <rmogy@sbcglobal.net> wrote in message
news:VgZed.18331$nj.14067@newssvr13.news.prodigy.com...
>I want to code a script to run immediately after a document opens similar
>to workbook_open() in excel
>

Top

Re: VBA Script to automatically run after document opens by Richard

Richard
Sun Oct 24 21:49:21 CDT 2004

Thank you.
"Doug Robbins" <dkr@NOmvpsSPAM.org> wrote in message
news:e8LjxqjuEHA.2144@tk2msftngp13.phx.gbl...
> Put the code in a macro named Autoopen
>
> --
> Please respond to the Newsgroup for the benefit of others who may be
> interested. Questions sent directly to me will only be answered on a
> paid consulting basis.
>
> Hope this helps,
> Doug Robbins - Word MVP
> "Richard Mogy" <rmogy@sbcglobal.net> wrote in message
> news:VgZed.18331$nj.14067@newssvr13.news.prodigy.com...
>>I want to code a script to run immediately after a document opens similar
>>to workbook_open() in excel
>>
>
>

Top