How to get Save Event from word using Automation?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - How to get Word Temporary filename using automation? Hi, I am using Automation for Word. Now I want to know the names of all the temporary files which word creates using automation. SSD Tag: How to get Save Event from word using Automation? Tag: 107873
  - 2
    - Macro problem with Word 2007 I paste a lot of pictures into my report, and I would like to size them each time I add a picture (picture format size heigh & width). I recorde a macro using Word XP with no problem. However, with Word 2007, I am having the following issues during recording (a cassette tape icon appears): 1) I cannot click on the picture to select 2) I use the keyboard to select the picture 3) I use the ribbon to access the picture formating toolbar and enter height & width 4) I stop the macro recorder When I do this, nothing gets recorded. Tried several different methods with no luck. The only time it does record something is if I type a word. Again, no macro records when I select the picture and try to do something with it. Very annoying. BTW, same results starting Winword /A. Thank you for your help in advance. Tag: How to get Save Event from word using Automation? Tag: 107872
  - 3
    - Autoexec not running I have a template I have been working on. It was password protected and I went under protect document and unprotect it. I saved and closed the template. But when I try and reopen it, Word asks for the password. When I type in the password the template opens. But when it opens the AutoExec macro does not run. If I manually run the macro; it works fine. Itâ??s as if the AutoExec macro does run because the template is still protected some how. Any ideas on this would be helpful. LEU Tag: How to get Save Event from word using Automation? Tag: 107871
  - 4
    - Picture Formating in a macro Hi there, I'm trying to change the formatting of a picture through a macro. I have managed to change the size of the picture, but I'm unable to change the text wrapping options. I would like to have my graph which is 3.95" in width, aligned to the right margin, with text (that is fully justified) wrapped on the left of the graph. This is what I have so far. Can you help me with the rest? Selection.ParagraphFormat.Alignment = wdAlignParagraphRight With Selection .WrapFormat.Type = wdWrapSquare .RelativeHorizontalPosition = wdRelativeRightMargin End With Tag: How to get Save Event from word using Automation? Tag: 107868
  - 5
    - Dialog Index 98 Word 2007 I don't know the constant name for the dialog that displays when you click on the right hand "X" to close a document, but I can make it appear with: Sub Testing() Dialogs(98).Show End Sub What I can't figure out, is why it causes a RunTime Error 4198 "Command Failed" if I click "Cancel" or the "X" in the dialog. Second issue I am trying to intercept the FileSave and FileSaveAs commands and perform an action on save. I have that part figured out, but I need to sort out how to make it work if the user clicks the "X" or the "Close" command on the Office Menu. I have put code in the Document_Close Event and I only want a part of it to execute if the user choose to Save the file and not execute if they canceled out of the dialog, close the dialog with the "X" or select not to save the file. It seems like the Document_Close event is fired before that dialog appears. I can't figure out how to determine what the User does in that dialog: What doesn't work and I think I kno why is something like: Private Sub Document_Close() If Dialogs(98).Show = -1 Then 'Call a procedure" Else 'Do nothing End If End Sub Help, Help, Help! -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: How to get Save Event from word using Automation? Tag: 107864
  - 6
    - Run Time error on Code I'm using a bit of code to save a document as and automatically populating the file name with form field data. Seems to work fine...the Save As Dialog appears, the proper field names are there for the save as, but then if you click "Save" I get a run error "Run-time error '-2147(bunch of other numbers)' Command failed And that's it. Any idea what I'm supposed to do to fix this? here's the code I'm using: response = MsgBox("Form Complete! Do you want to save this survey now?", vbQuestion + vbYesNo) If response = vbYes Then Dim dlg As FileDialog Set dlg = Application.FileDialog(msoFileDialogSaveAs) With dlg .InitialFileName = "c:\Documents and Settings\My Documents\Survey - " + ActiveDocument.FormFields("textLast").Result + ", " + ActiveDocument.FormFields("textFirst").Result + ".doc" If .Show Then .Execute End With End If Tag: How to get Save Event from word using Automation? Tag: 107863
  - 7
    - using drop down field in macros I have a from with drop down fields that I would like to be able to use with a macro. When I try to create the macro, it allows a place for the drop down but I cannot include the list in the drop down while in the macro. I have only been able to run the macro and then add the list to the fields then. I want the list to be included in the macro. Is this possible? Tag: How to get Save Event from word using Automation? Tag: 107859
  - 8
    - Bug: Problem when viewing headers/footers by double-clicking We have a macro in a special template that replaces the native ViewHeader logic in Word. Whenever a user clicks on the menu item 'View/Header and Footer', our macro kicks in. This has been working great since Word 2.0. We have just discovered a problem in Word 2003. If a user selects 'View/Print Layout' and then double-clicks in the header area of the page, Word opens the section for the user to edit (this is what we can't allow). I would have expected our macro to start but it appears that Word is running some other code (anyone know what is run when the header section is double-clicked). Also, the 'Header and Foote'r toolbar then appears and if the user clicks 'Close', Word runs the ViewHeader macro (which is completely backwards). This sure appears to be a bug in Word. Anybody know how to intercept the double-click on the header section and how to disconnect the close button on the toolbar from running the ViewHeader code? Tag: How to get Save Event from word using Automation? Tag: 107855
  - 9
    - How do I convert all older Word files on a server to 2007 format? Apparently a security fix in service pack 3 for Office is preventing older word files from being opened. When the users try to open they get a message: "You are attempting to open a file that was created in an earlier version of Microsoft Office. This file type is blocked from opening in this version by your registry policy setting." I found an article regarding this at http://support.microsoft.com/kb/922849 We are going to apply the policy templates but my boss wants a better solution. He thinks that if Microsoft is blocking these files by default we cannot ensure there future in new versions of Office. What would be the best way of accomplishing an upgrade(conversion?) of all documents on a server to 2007 format? We were thinking possibly a VB or a VBA script, but there has to be a better way of accomplishing this. Thanks for any advice offered. Joshua Tag: How to get Save Event from word using Automation? Tag: 107853
  - 10
    - How do I convert all older files on a server to 2007 format? Apparently a security fix in service pack 3 for Office is preventing older word files from being opened. When the users try to open they get a message: "You are attempting to open a file that was created in an earlier version of Microsoft Office. This file type is blocked from opening in this version by your registry policy setting." I found an article regarding this at http://support.microsoft.com/kb/922849 We are going to apply the policy templates but my boss wants a better solution. He thinks that if Microsoft is blocking these files by default we cannot ensure there future in new versions of Office. What would be the best way of accomplishing an upgrade(conversion?) of all documents on a server to 2007 format? We were thinking possibly a VB or a VBA script, but there has to be a better way of accomplishing this. Thanks for any advice offered. Joshua Tag: How to get Save Event from word using Automation? Tag: 107852
  - 11
    - Drop Down formfield with over 25 items in list for Word 2007 Help - I just want a form field that will allow for the States and 31 days of a calendar - I know they exist - Thank you so much! Tag: How to get Save Event from word using Automation? Tag: 107847
  - 12
    - User Form duplicates information when sub is cancelled Hello all I have made a user form to populate a Word 2003 template. I have added a piece of code that exits the population of the document if the required fields aren't filled in, it reads like the sample below: If Len(Trim(cmbDiv.text)) <= 0 Or Len(Trim(cmbDept.text)) <= 0 Or Len(Trim(txtEMail.text)) <= 0 Then MsgBox "You must fill in all the required fields" Exit Sub ElectronicOption.Enabled = True End If The code works, however what happens is that if the code is exited the form has already placed some data in the template, and it duplicates it. So instead of for example seeing the Department name as "Sales and Marketing", you see it as "Sales and Marketing Sales and Marketing". I thought I would have to write something like me.refresh before Exit Sub, but I can't find anything in Word vba like that, I tried Repaint, but that didn't work. I think the problem is that the data is already there, and when the rest of the fields are filled in and the OK button clicked, the fact that some of the data was already there is not recognised, and in that case I don't know what to do. Does anyone have any ideas? Thanks for all your help Aehan Tag: How to get Save Event from word using Automation? Tag: 107846
  - 13
    - Delete single newline between tables I'm fighting with a document automation system and can't seem to get what I want from it directly, and am trying to switch over to attacking it from the post processing side. The closest I can get the tool to produce to the desired output is a series of single row tables with a single newline between them. Can I write a macro to detect that pattern and delete the new line (merging the single row tables into the complete table I want)? Tag: How to get Save Event from word using Automation? Tag: 107845
  - 14
    - Next Bullet Im trying to create a macro that adds the text in textbox1 to the end of a bulleted list in cell B2. All I can seem to do is replace the cells text with the entire contents of textbox1 ...... but again I just want to add a bullet the list that is already in the cell. Any help would be appreciated! HAPPY THANKSGIVING! Ben Z. Tag: How to get Save Event from word using Automation? Tag: 107844
  - 15
    - ChangeFileOpenDirectory I have installations of the identical VBA program on 20 different computers. I use the following command with some frequency. ChangeFileOpenDirectory newpath With Dialogs(wdDialogFileOpen) .name = "*.doc" CloseNum = .Show End With The command works perfectly on 19. One the 20th it refuses to work. The MyDocuments folder consistently opens when the section of code is encountered. I have doubled the "ChangeFileOpenDirectory newpath" command (I found that suggestion on a board) but that doesn't work either. When I step through (debugging) the vba code it works fine, so I know that the connections are intact. Any thoughts? Ed (in Virginia) Tag: How to get Save Event from word using Automation? Tag: 107838
  - 16
    - startup folder problem Hi! I have a problem with my global template. I have made several templates and since the most of the functions I have made are the same for the templates I have put my code in two global templates. I have organized my templates in some folders and in Word I set the path to the templates and to the startup folder. It works fine most of the time, but... If I do not have Word open, right click on a document in explorer and choose print then I get the message "could not open global.dot". However if I copy the global templates to C:\Program files\Microsoft Office\OFFICE11\STARTUP it works. Why? I meen I did change the path for the startupfolder in word but it does not seem to matter. Is it something special with this "default" startup folder? Tag: How to get Save Event from word using Automation? Tag: 107834
  - 17
    - document.Merge() gives inconsistent results (this is a copy of a post I sent to a couple other groups but haven't had a reply) hello, in office 2003, if you did document1.Merge(document2) it would report a line that is in document1 but not in document2 as inserted, and a line that is in document2 but not in document1 as deleted. i.e. it would assume that document1 is the "new" document and document2 is the "old" document. in office 2007 it is almost always the other way round i.e. assumes document1 is the old and document2 is the new (AFAICR this is the same as previous versions of office before 2003 used to do) no problem so far, I just detect in my application (c# .net 2.0 FWIW) which version of word I am connected to, and set the sense of the comparison accordingly HOWEVER, under office 2007, for some pairs of documents, I get the same result regardless of whether I call: document1.Merge(document2) or document2.Merge(document1) I.E. word 2007 is "intelligently" deciding which is the "new" and which is the "old". from my experiments it does not seem that this has to do with the file time stamp or the 'last saved' property. Does anyone know how word 2007 decides which is the newer document and if there is any way I can override it to force the sense of the comparison. TIA Andy Tag: How to get Save Event from word using Automation? Tag: 107833
  - 18
    - Read & Write Files in Document format with out installing MSWord. Hi All, I am need of a dll or code that can operate on Document format files with all the properties. I must be able to add text, read text, place headers/footers, align pargraphs e.t.c. I must do all these with out Installing MSword in my machine. Is this possible, if so can anybody help me please.... Thanks & Regards, M.Satyanarayana. Tag: How to get Save Event from word using Automation? Tag: 107831
  - 19
    - Retrieve full path to an attached template when path doesn't exist Hi there, We are using Microsoft Office 2000. Our Workgroup Templates path is going to change, so I need to write a macro to update the path if appropriate. I know I can retrieve properties about an attached template using ActiveDocument.AttachedTemplate.<Property> if the file exists. I can also get the name of the attached template using ActiveDocument.BuiltInDocumentProperties(wdPropertyTemplate). Is there a way to retrieve the value in the Tools ==> Templates and Add-In... Template field when the path to the template no longer exists. Regards, Barry. Tag: How to get Save Event from word using Automation? Tag: 107821
  - 20
    - Trouble with First Page Different in a Word Document Macro I have a memo template with the company logo on the first page in a header and nothing in the footer. If the memo goes more than one page, from page 2 to the end have no header, but do have a footer with the page number and a smaller company logo. Because of this, First Page Different is checked off in Page Setup. Some people want to be able to insert a landscape table page into the middle of the document. When they section off the document to add these pages, the logo from the first page is displayed on their page. I am trying to create a macro to help the staff that are trying to do this, by having the macro insert the landscape page with the footer that is on all of the pages other than the first page (the page number and smaller logo), followed by a portrait page so they will be ready to type again. However, I cannot get the macro to stop putting in the logo from the first page, even though I have .DifferentFirstPageHeaderFooter = False. I only know how to create macros by example, so this is difficult for me. I hope you can help, because I've tried everything. Thank you for your time. Tag: How to get Save Event from word using Automation? Tag: 107817
  - 21
    - Cannot set language from macro in Word 2007. I have a selection that includes some Unicode characters (specifically Pinyin). The pinyins are treated as if Chinese and are rendered using the font for Far Eastern Text, which is Simsun. I want these to be rendered as TimesNewRoman, and if I set the selection of the language to EnglishUK, the change takes place as I expect. However, I need to do this in a macro that generates the selected text. If I record the steps in a macro, the change takes place as I record it. But If I then use the recorded macro to do the same thing, the changes do not occur. I cannot find a work-round. Does anyone have any ideas? Tag: How to get Save Event from word using Automation? Tag: 107815
  - 22
    - Unicode characters in const string I want to put Unicode characters in a constant string from which individual characters will be programmatically selected. Using ChrW is not possible because const does not allow the use of a function. Tag: How to get Save Event from word using Automation? Tag: 107812
  - 23
    - How alter word 2003 doc last page footer without altering other pa How can the last page footer of a Word 2003 document programmatically be altered without altering the other pages? A word template document is used with a visual basic program to generate over 26,000 individual word documents using details from a file. The individual word documents can have between 2-30 pages. The footer of this word template document contains a two cell table. Cell 1 of this table must contain a different value for the first, middle, and last pages of the word document. For example, the first page cell 1 must be 20. Last page cell 1 must be 10. The middle pages must be 00. The cell 1 values increment for each document and are not the same for each document. If a section break is manually or programmatically added before the footer of the last page, the first page either appears blank or it becomes section 1 with the rest of the pages becoming section 2 even though the goal was for the last page footer to become section 2. Inserting a page at the end of the document and then attempting the section break has the same results. How can a section break be forced before the last footer without impacting the other pages? -- J Smythee Tag: How to get Save Event from word using Automation? Tag: 107804
  - 24
    - code required Hi Is there any way of reading and modifying word document page by page in VBA....if so can anybody give me the piece of code Awaiting for early response Thanks & Regards Kalyan Tag: How to get Save Event from word using Automation? Tag: 107802
  - 25
    - Formatting based rendering of quotes How can I set up Word so that when I am in a Courier New font section, and type a single or double quote at the keyboard, it will use Ascii 39 (') or Ascii 34 ("), respectively? Details: I'm writing a document in word (Word 2003 on Win XP Pro) with the default Times New Roman, 12pt formatting. In some sections I am showing computer code, and for those sections I use Courier New, 10pt. The problem is that when I type a single quote or a double quote in the code sections, they come out as ?left leaning? or ?right leaning quotes? (ie matched quotes), instead of the 'straight' "quotes" (Ascii 39 and Ascii 34) that code parsers understand. And I'm getting sick of copying single/double quotes from prior code sections and overpasting them. Hence my question. Csaba Gabor from Vienna PS. I originally sent this during the past weekend, evidently in the midst of the "MI5 posting attack" and my Thunderbird newsreader showed it as sent, but it never showed up in the newsgroup. Anyone know what the story is on that? Tag: How to get Save Event from word using Automation? Tag: 107799
- Next
  - 1
    - Populating userform/sharing data I have two templates, each with their own userforms and they work just fine. Under certain conditions (a checkbox in userform1 = True) a new document based on template2 is created. Again this is working fine. The two documents/templates share a couple of pieces of info and the problem I'm having is populating userform2 with the relevant info from userform1. At the moment a command button on userform1 has the code to populate the bookmarks in template1. The code to test the creation of document2 is in the terminate event of userform1. The two templates must also remain separate, in that a new document can be created from template2 without anything to populate from template1. I hope that makes some sense! Any pointers will be gratefully appreciated. h. Tag: How to get Save Event from word using Automation? Tag: 107780
  - 2
    - VBA - code for border for a table In Word 97, I have the following code which takes the selected rows from a userform and inserts the data in table format into the Word document. Ideally, I would like the table to be indented at 2.5cm (that is, the left-hand border of column 1 is positioned at 2.5cm). What do I need to include into the code to position the table at that location? Thank you for any suggestions. Private Sub CommandButton1_Click() Dim x As Long, y As Long, tbl As Table, n As Integer x = ListBox1.ColumnCount + 1 ' Count the number of selected records for creation of the table n = 1 For y = 2 To ListBox1.ListCount + 1 If ListBox1.Selected(y - 2) = True Then n = n + 1 End If Next y Selection.TypeParagraph Set tbl = ActiveDocument.Tables.Add(Selection.Range, n, x) tbl.Range.Borders.Enable = False Dim tblcell As Cell For Each tblcell In tbl.Range.Cells tblcell.Borders.Enable = False Next tblcell tbl.Columns(1).Width = CentimetersToPoints(2.7) tbl.Columns(2).Width = CentimetersToPoints(4.75) tbl.Columns(3).Width = CentimetersToPoints(3.25) tbl.Columns(4).Width = CentimetersToPoints(3.25) tbl.Columns(5).Width = CentimetersToPoints(3.25) Dim rg As Range tbl.Columns(4).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft tbl.Columns(5).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft Dim rgStart As Range, rgEnd As Range tbl.Range.Font.Size = 11 tbl.Range.Font.Name = "Times New Roman" tbl.Range.ParagraphFormat.SpaceBefore = 2 tbl.Range.ParagraphFormat.SpaceAfter = 2 tbl.Range.ParagraphFormat.LineSpacing = 12 Tag: How to get Save Event from word using Automation? Tag: 107776
  - 3
    - Can you capitalize a word in speach recognition> Does anyone know how to capitalize a proper name in the middle of a sentenance when using the voice recognition program in Word 2003? Tag: How to get Save Event from word using Automation? Tag: 107775
  - 4
    - what is the format xm. file bibliography? where? I'm trying to use word 2007 to write a scientific document, so I started using the new tools to insert citations and bibliography. All this is nice, BUT I can't import my bibliography database to word, this is what Iâ??m doing: Access: Assign the same labels to these use in word (Author, tag, etc.) Export data to a *.xml file Word Manage Sources: Browse, Choose my file Error: this is not a bibliography file It is highly inefficient to write each citation using the tool design for that in Word, especially when one is using about 300 citations I have been looking for the file: http://schemas.open.org/officeDocument/2006/bibliography Which seems to have the attributes for a bibliography file, but yet no success I'll appreciate any help Sandra Correa Tag: How to get Save Event from word using Automation? Tag: 107769
  - 5
    - Delete blank lines I'm trying to delete some blank lines in my document which are above a bookmark. I want the macro to count the number of blank lines immediately above the bookmark till the line that contains text. If there is more than 1 blank line it should delete it/them so as to leave a single blank line. Many thanks. Tag: How to get Save Event from word using Automation? Tag: 107763
  - 6
    - Add the document property of Subject to a table in a footer The table is already in the footer and the built in document property of Subject needs to be inserted into this 1 row 3 column table in every footer regardless of how many sections there are in the document. The field needs to be in the 1st column. I have the code working to delete anything in that row/column but can not get it to add without errors. -- CLG Tag: How to get Save Event from word using Automation? Tag: 107758
  - 7
    - Table numbering / STYLEREF problems Hi, this might not be the most appropriate group (in which case please redirect me), but I've had good luck here in the past... My table numbering is messed up, and it seems to be on account of the STYLEREF, bit I haven't the foggiest notion as to why. I'm on Word 2003 / XP Pro Example: In a fresh word document I put 4 lines with two newlines separating each: Chapter 1 text 1 Chapter 2 text 2 Below text 2 I insert a table, and the automatic table labelling has already been turned on (in a previous document today I selected an entire table, right clicked, selected Caption, AutoCaption, selected Microsoft Word Table, Use label: Table, Position: Below Item; Numbering: Format: A, B, C, ...; Include chapter number selected: Chapter starts with style: Heading 1; use separator: - ) What I get below the table is: Table Error! No text of specified style in document.-A where doing Alt + F9 shows Table { STYLEREF 1 \s }-{ SEQ Table \* ALPHABETIC \s 1 } If I now click in the select the Chapter 1 line, and apply style Heading 1 (from the dropdown with AA to the left I select Heading 1), and similarly for Chapter 2, and then I go back to the text under the table and right click, then Update Field, it shows: Table 0-A In a longer word document, where I originally created the AutoCaption, I have several chapters with style Heading 1, and there I can't get past that Table Error! I've looked on the web for this error, and there is mention, but none of the situations seems applicable here. Any ideas? Thanks, Csaba Gabor from Vienna Tag: How to get Save Event from word using Automation? Tag: 107756
  - 8
    - Macro Button that invokes an Acrobat PDF search? It would be wonderful if the great power provided by Acrobat PDF Advanced Search Options (when PDF full text indexing is used) could be seamlessly accessed by a Word user within Word, via a hyperlink or macro button. For example, if a tech writer is writing a proposal and needs to very quickly scan all past proposals for examples of [whatever], it would be wonderful if he/she could click on a macro button embedded in the proposal template for just this purpose. This envisioned macro would provide a dilaog box for the writer to type in a search phrase, and then it would launch an Acrobat Advanced Search, automatically passing that search phrase parameter to Acrobat where all past proposals reside, fully indexed, for this purpose. I suspect that macro button would also need to name the index(es) that the template creator intended to be used for that particular macro button. The overall idea is to get the user to the desired reference info as effortlessly as possible, rather than requiring them to go through a bunch of screens in Acrobat. (it takes at over eight mouse clicks to step outside of Word, find and launch Acrobat Reader, negotiate one's way to the indexed search screen, specify which indexes to use, and type the desired search phrase...some people could forget what they were looking for!) Could it be that I've come up with (gasp) a great new idea, or (more likely) i'm just describing something that already exists - or can't possibly exist? Tag: How to get Save Event from word using Automation? Tag: 107748
  - 9
    - Protected Forms with Macros An end-user will be filling out the Word document form fields in a protected docuemnt. I have created a table. Once they fill in data in the columns I would like the totals columns to auto sum. I figure the best way to do that was to have a macro run on entry in the field after the totals. However, once I protect the document, the macro wonâ??t run. I get a Microsoft Bisual Basic Run-Time Error 4605 "This method or property is not available because the document is a protected document". -- Darlene Tag: How to get Save Event from word using Automation? Tag: 107736
  - 10
    - Word 2003 has disappeared from my computer Whenever I try to save a Word document, I get a box saying that the content is not compatible with Word 97. I don't have Word 97. I installed Microsoft XP 2003 Student and Home about a year ago. I have since installed updates to bring the software up to service pack 2. I have tried every type of update I can think of, but when I tried to install Word 2003 update to service pack 3, I got an error message saying the update couldn't find the software. I am currently using Symantec virus protection with Windows firewall. Any help would be greatly appreciated. Thanks. M. Hoffmann (GrnIsMom) Tag: How to get Save Event from word using Automation? Tag: 107735
  - 11
    - Auto_new VBA to autoname a document and autosave to a specific pat Word 2003 I have accomplished most of what I needed to do already but one more issue. I have a Word document that is stored on a SharePoint site as a template (but still a .doc) file. An auto_new sub is started to bookmark a place in the document and auto-name the document based on an external text document that tracks the last used filename and renames the document sequentially and saves it back to the SharePoint site as that sequential filename. It was absolutely great on my machine when the external file is stored/access on a network share. I tried storing the external file in the same directory on the site but that doesn't work. When others try it on their computers (Word 2003), the document opens but they get an error msg that says: Run-Time Error '-2147467259(80004005)': Method 'PrivateProfileString' of object 'System' failed My code is: Private Sub Document_New() ' Unprotect document to run macro ActiveDocument.Unprotect Order = System.PrivateProfileString("\\Northstar\headquarters\Departmental Folders\TWG\ECN.txt", _ "MacroSettings", "Order") 'Order = System.PrivateProfileString("http://docrep/vmc/ecn/ECN.txt", _ '"MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("\\server\share\dir\subdir\ECN.txt", "MacroSettings", _ "Order") = Order 'System.PrivateProfileString("http://servername/site/subsite/ECN.txt", "MacroSettings", _ '"Order") = Order ActiveDocument.Bookmarks("Order").Range.InsertBefore _ Format(Order, "00#") & "-" & Format(Now, "YY") 'ActiveDocument.SaveAs FileName:=Format(Order, "00#") & "-" & Format(Now, "YY") ' Re-protect document for Forms after running macro ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True ' Save ECN with ECN number for file name and in the ECN library ActiveDocument.SaveAs FileName:="http://docrep/vmc/ecn/ChangeRequests/" & _ Format(Order, "00#") & "-" & Format(Now, "YY") End Sub Any ideas why is errors on all others machine but not on mine. Thanks Jack Tag: How to get Save Event from word using Automation? Tag: 107734
  - 12
    - Styles, styles... how to hide unused styles? I have programmed a vba script that will copy styles, makros, pages, headers, footers, settings ... from one document to another (update template collections). After many a nightshift it works, mostly... One problem could not be solved. The list of the styles visible in the style selector toolbar of the target document will show ALL styles after I have copied the styles. I have been searching the internet for days and found no solution. You are my last chance... Tag: How to get Save Event from word using Automation? Tag: 107729
  - 13
    - Custom Form Field Type? I need to be able to enter and calculate prices which may have 4 decimal point. The number option only offers limited formatting options. How can I add the ones I need? Ideally I would like to show 2 decimal places unless I enter more places manually. Using a macro would also be fine to turn on the extended decimal places. Thank you for any assistance you can offer. Jerry Tag: How to get Save Event from word using Automation? Tag: 107726
  - 14
    - Tabstop Word2000 VBA I want to jump to a Tabstop in Word with VBA. There are two Tabstops (Tab1 and Tab2) in the document. Tab1 Tab2 Hello The cursor is at the first character of the word Hello. Now I want to jump to Tab1 or to Tab2. Which code do I use in VBA? Thanks Tag: How to get Save Event from word using Automation? Tag: 107720
  - 15
    - VBA code to position a frame object... Hey Gang, Word 2003, Windows XP I have a document I am developing for a client (friend) that requires the use of outline numbering. I have created the STYLES, etc. and all is going pretty good. I ran into a problem getting a line (for initials) showing completion of a step. Got some great help from Klaus and John! My next dilemma is occasionally I will need another initial line (sort of a verification line). I have created a frame and saved it as an AutoText to insert from a button on a toolbar. However, I need some code to "exactly position" the frame. Reason is, this frame has a line and some letters exactly below the line and the text disrupts the flow of the paragraph (if you know what I mean. For example, I need the position the second line and text (all within a frame) to get this look: ____ ____ A. This paragraph might be multiple lines and the "INIT" must stay below the second line. INIT This is easy if the paragraph is a single line, but it isn't always the case and the frame needs to not impact text flow but MUST be in that position. Any ideas? Sampe code you can send me to? TIA! Bill Tag: How to get Save Event from word using Automation? Tag: 107715
  - 16
    - Bookmarks/Letterheads: Where have I gone wrong? I've asked several questions on creating a letterhead/fax toggle with 3 states: 1. Graphic visible and a bookmarked line reading BY FAX ONLY with the fax number 2. Graphics hidden and a bookmarked line reading FIRST BY FAX with the fax number 3. Graphics hidden and the bookmarked line hidden. With your help I've written the code below which works and for that thanks. But several other programs hate the macro and it often crashes on me just when I open Work. So can I ask: Where have I gone wrong? Many many thanks. It will be used in 2007 but in compatability mode. 'Option Explicit 'Sub ToggleLetterhead() ' ' ToggleLetterhead Macro ' ' Dim boolFax As Boolean Dim ByFaxHidden As Boolean Dim aShape As Shape Dim oBMs As Bookmarks Dim rgeByFax As Range Dim rgeFaxNumber As Word.Range Const strByFax As String = "ByFax" Const strFaxNumber As String = "FaxNumber" Set oBMs = ActiveDocument.Bookmarks If Not oBMs.Exists(strByFax) Then MsgBox "Enter FIRST BY FAX:/BY FAX ONLY: in document, and bookmark it 'ByFax'", vbOKOnly + vbExclamation, "ENTER FAX INFORMATION" Exit Sub End If Set rgeByFax = ActiveDocument.Bookmarks(strByFax).Range 'Setting Bookmarks If oBMs.Exists(strFaxNumber) Then Set rgeFaxNumber = ActiveDocument.Bookmarks(strFaxNumber).Range Else oBMs(strByFax).Range.Select Set rgeFaxNumber = ActiveDocument.Bookmarks("\line").Range rgeFaxNumber.Start = oBMs(strByFax).End + 0 rgeFaxNumber.End = rgeFaxNumber.End - 1 oBMs.Add strFaxNumber, rgeFaxNumber End If 'Check if in First By Fax mode or plain letterhead On Error GoTo ErrorHandler ByFaxHidden = ActiveDocument.Bookmarks(strByFax).Range.Font.Hidden If rgeByFax.Text = "FIRST BY FAX: " And Not ByFaxHidden Then 'in First By Fax mode so toggle to plain letterhead rgeByFax.Font.Hidden = True rgeFaxNumber.Font.Hidden = True Exit Sub Else 'Either toggle to fax or to First By Fax With ActiveDocument ' Check current status - it's in fax format if graphics are visible boolFax = .Sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).Visible ' Show/Hide the graphics With .Sections(1) For Each aShape In .Headers(wdHeaderFooterFirstPage).Shapes aShape.Visible = Not boolFax Next aShape End With ' Toggle style information and Header space If boolFax Then ' We are in a fax and toggling to letter .Styles("LetterRefs").ParagraphFormat.SpaceBefore = 0 .Styles("LetterDate").ParagraphFormat.SpaceAfter = 38 + 17 'Change it to First By Fax rgeByFax.Text = "FIRST BY FAX: " ActiveDocument.Bookmarks.Add strByFax, rgeByFax Else ' Set spacing for Fax .Styles("LetterRefs").ParagraphFormat.SpaceBefore = 17 .Styles("LetterDate").ParagraphFormat.SpaceBefore = 0 .Styles("LetterDate").ParagraphFormat.SpaceAfter = 38 'Toggle bookmarks to Fax Only rgeByFax.Text = "BY FAX ONLY: " ActiveDocument.Bookmarks.Add strByFax, rgeByFax rgeByFax.Font.Hidden = False rgeFaxNumber.Font.Hidden = False End If End With Exit Sub ' Trap attempts to use on damaged or old version document ErrorHandler: MsgBox "Cannot toggle letterhead for this document format", vbOKOnly + vbExclamation, "Show/Hide Letterhead" End If End Sub Tag: How to get Save Event from word using Automation? Tag: 107713
  - 17
    - Submit word form to Lotus notes Hey guys, I'm trying to submit an internal form as an attachment to Lotus notes. I'm not sure how to go about this. Any suggestions. Thanks Tag: How to get Save Event from word using Automation? Tag: 107709
  - 18
    - Setting Picture Layout Wrapping Style with Macro Hi, I have a document with with a number of pictures, for each of which I want to set the Layout options to have them floating properly. Doing this by hand requires to go to the Image Properties, to the Layout Tab, go to Advanced, and set some options both in the Picture Position and Text Wrapping tab. So, it's quite a few clicks, and I was hoping I could put it all together as a macro, so that I just have to select a picture an hit a shortcut to set all the options as I want them. Unfortunately, it doesn't seem I can put the actions in a macro. When the macro recorder is started, I can't do a right click on the image, and even if I go through the 'Format' menu and the to 'Picture', all the relevant options are inaccessible (grayed out). Is there a way to put the Wrapping Style options in a Macro? Thanks, Michael Goerz Tag: How to get Save Event from word using Automation? Tag: 107706
  - 19
    - Cell Object/Collection If I create an table and add some cell specific shading then I can run this code to change the shading: Sub Test() Dim oCell As Word.Cell Dim oTbl As Word.Table For Each oTbl In ActiveDocument.Tables For Each oCell In oTbl.Range.Cells If oCell.Shading.BackgroundPatternColor = RGB(229, 170, 91) Then oCell.Shading.BackgroundPatternColor = RGB(93, 143, 86) End If Next Next End Sub This works for a uniform table and it works on tables where cells are merge horizontally. However, if I merge cells vertically then this code misses the vertical merged cells. If a vertically merged cell isn't a cell or part of a table cell collection then what is it? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: How to get Save Event from word using Automation? Tag: 107702
  - 20
    - MI5 Persecution: Come back, Norma! (34173) Private Eye, 23 Oct 1992 Certainty level: 25% I'm not really sure whether this cover was intended to get at me, or whether it was re-interpreted after publication to be about me. This issue of Private Eye came out in October 1992, by which time I had been under severe continuous pressure at work and from the general population in Oxford for many months. It had John Major saying to his wife, "Come back, Norma!" under the title "Major's support lowest ever". There's a story behind this. In late October I was in the local pub (the Rose and Crown, nice traditional name eh) with two people from work, Simon and Phil. Phil had with him a copy of the current Private Eye. These are both "nice people" and on my side, I hasten to add. Simon pointed out the message on the magazine's cover to Phil, and asked "what do you think about that". Phil answered, "Well usually they [Private Eye] get it right". This exchange happened in front of me. Although I was ill at the time (this was before I'd started taking medicines) I hadn't read anything into the Eye cover until these guys pointed it out to me. Sometime later, again in the same road, a student shouted to one of his friends, "so when are you COMING BACK?", again in front of me. What I realised Phil thought it meant was a double-entendre, the "coming" referring to the act of ejaculation, the "back" referring to the human back-side. So in a play on words you get a person who is referred to as a back-side ejaculating. Charming. Of course, Phil could have been wrong. Perhaps there was no such meaning intended by Private Eye. Perhaps he saw meaning which wasn't there. Perhaps the moon is made from green cheese. Who knows? 34173 -- Posted via NewsDemon.com - Premium Uncensored Newsgroup Service ------->>>>>>http://www.NewsDemon.com<<<<<<------ Unlimited Access, Anonymous Accounts, Uncensored Broadband Access Tag: How to get Save Event from word using Automation? Tag: 107700
  - 21
    - MI5 Persecution: Bernard Levin - The Times (31998) Fanatic's Fare for the Common Man Certainty level: 90% The article reproduced below was penned by Bernard Levin for the Features section of the Times on 21 September 1991. To my mind, it described the situation at the time and in particular a recent meeting with a friend, during which I for the first time admitted to someone other than my GP that I had been subjected to a conspiracy of harassment over the previous year and a half. There is a madman running loose about London, called David Campbell; I have no reason to believe that he is violent, but he should certainly be approached with caution. You may know him by the curious glitter in his eyes and a persistent trembling of his hands; if that does not suffice, you will find him attempting to thrust no fewer than 48 books into your arms, all hardbacks, with a promise that, if you should return to the same meeting-place next year, he will heave another 80 at you. If, by now, the police have arrived and are keeping a close watch on him, you may feel sufficiently emboldened to examine the books. The jackets are a model of uncluttered typography, elegantly and simply laid out; there is an unobtrusive colophon of a rising sun, probably not picked at random. Gaining confidence - the lunatic is smiling by now, and the policemen, who know about such things, have significantly removed their helmets - you could do worse than take the jacket off the first book in the pile. The only word possible to describe the binding is sumptuous; real cloth in a glorious shade of dark green, with the title and author in black and gold on the spine. Look at it more closely; your eyes do not deceive you - it truly does have real top-bands and tail-bands, in yellow, and, for good measure, a silk marker ribbon in a lighter green. The paper is cream-wove and acid-free, and the book is sewn, not glued. Throughout the encounter, I should have mentioned, our loony has been chattering away, although what he is trying to say is almost impossible to understand; after a time, however, he becomes sufficiently coherent to make clear that he is trying to sell the books to you. Well, now, such quality in bookmaking today can only be for collectors' limited editions at a fearsome price - £30, £40, £50? No, no, he says, the glitter more powerful than ever and the trembling of his hands rapidly spreading throughout his entire body; no, no - the books are priced variously at £7, £8 or £9, with the top price £12. At this, the policemen understandably put their helmets back on; one of them draws his truncheon and the other can be heard summoning reinforcements on his walkie-talkie. The madman bursts into tears, and swears it is all true. And it is. David Campbell has acquired the entire rights to the whole of the Everyman's Library, which died a lingering and shameful death a decade or so ago, and he proposes to start it all over again - 48 volumes this September and 80 more next year, in editions I have described, at the prices specified. He proposes to launch his amazing venture simultaneously in Britain and the United States, with the massive firepower of Random Century at his back in this country, and the dashing cavalry of Knopf across the water, and no one who loves literature and courage will forbear to cheer. At the time this article was written I had believed for some time that columnists in the Times and other journalists had been making references to my situation. Nothing unusual about this you may think, plenty of people have the same sort of ideas and obviously the papers aren't writing about them, so why should my beliefs not be as false as those of others? What makes this article so extraordinary is that three or four days immediately preceding its publication, I had a meeting with a friend, during the course of which we discussed the media persecution, and in particular that by Times columnists. It seemed to me, reading the article by Levin in Saturday?s paper, that he was describing in some detail his "artist?s impression" of that meeting. Most telling are the final sentences, when he writes, "The madman bursts into tears, and swears it is all true. And it is." Although I did not "burst into tears" (he seems to be using a bit of poetic licence and exaggerating) I did try hard to convince my friend that it was all true; and I am able to concur with Mr Levin, because, of course, it is. At the beginning of the piece Levin reveals a fear of being attacked by the "irrational" subject of his story, saying "I have no reason to believe that he is violent, but he should certainly be approached with caution". This goes back to the xenophobic propaganda of "defence" against a "threat" which was seen at the very beginning of the harassment. The impression of a "madman running loose" who needs to be controlled through an agency which assigns to itself the mantle of the "police" is also one which had been expressed elsewhere. In the final paragraph of this extract, his reference to Everyman?s Library as having "died a lingering and shameful death a decade or so ago" shows clearly what sort of conclusion they wish to their campaign. They want a permanent solution, and as they are prevented from achieving that solution directly, they waste significant resources on methods which have been repeatedly shown to be ineffective for such a purpose. 31998 -- Posted via NewsDemon.com - Premium Uncensored Newsgroup Service ------->>>>>>http://www.NewsDemon.com<<<<<<------ Unlimited Access, Anonymous Accounts, Uncensored Broadband Access Tag: How to get Save Event from word using Automation? Tag: 107698
  - 22
    - How convert first letter in string to uppercase? Hello. I need to convert first letter of every word "you" and "your" in string to uppercase ("You" and "Your"). I wrote example of code, but it converts all entries even into composition of words (e.g. "young"). What I should change in my code? This code is below. Thank you. ----------------- Sub firstLetter() Dim aLett(3) As String aLett(0) = "you" aLett(1) = "your" For ms = 0 To 1 With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = aLett(ms) .Replacement.Text = StrConv(aLett(ms), vbProperCase) .Forward = True .MatchCase = True .Wrap = wdFindContinue .Format = False End With Selection.Find.Execute Replace:=wdReplaceAll Next ms End Sub Tag: How to get Save Event from word using Automation? Tag: 107696
  - 23
    - detect system.cursor How can I determine the system.cursor in Word? It always gives me 2, the normal cursor: Sub test() 'Application.System.Cursor = wdCursorWait '0 'Application.System.Cursor = wdCursorIBeam '1 'Application.System.Cursor = wdCursorNormal '2 Word.Application.System.Cursor = wdCursorNorthwestArrow '3 MsgBox Word.Application.System.Cursor 'this will still give 2 End Sub RBS Tag: How to get Save Event from word using Automation? Tag: 107690
  - 24
    - how to install (free) Word on Windows Vista OS I have two computers, one with Vsita and one with Windows 95. I want to be able to read documents created with Works word processer on the Vista machine on the Windows 95 machine which has Word word processer. I do not have internet access with the Windows 95 computer. Tag: How to get Save Event from word using Automation? Tag: 107684
  - 25
    - Using Events with the Application Object I was looking in the help and it said the following: Before the procedure will run, you must connect the declared object in the class module (wdApp in my example) with the Application object. You can do this with the following code from any module. Dim X As New EventClassModule Sub Register_Event_Handler() Set X.wdApp = Word.Application End Sub When I debug I get the following error: User-defined type not defined and it points tothe following: Dim X As New EventClassModule What am I doing wrong. Tag: How to get Save Event from word using Automation? Tag: 107681

Hi,
I am using Word Automation. I got the documentevents for Close & Open. Now
I want the events for Save. I got article from msdn but that is for .net
(BeforeSave).
I want for Save Event for following
Word::DocumentEvents

SSD

Top

Re: How to get Save Event from word using Automation? by Jean-Guy

Jean-Guy
Mon Nov 26 12:57:11 PST 2007

SSD was telling us:
SSD nous racontait que :

> Hi,
> I am using Word Automation. I got the documentevents for Close &
> Open. Now I want the events for Save. I got article from msdn but
> that is for .net (BeforeSave).
> I want for Save Event for following
> Word::DocumentEvents
>
> SSD

Have you tried
http://word.mvps.org/faqs/macrosvba/AppClassEvents.htm

--

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

Top