SaveAs Dialog and filename verification

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - lock only certain fields Hi, What I'm trying to achieve is the following: I have a word document which has some form fields and merge fields. I am using a VBScript to merge data automatically to these merge fields and I'd like the user to fill in the additional form fields and/or modify the merged fields. When I lock the form, the form fields could be filled without problems however the merge fields cannot be modified. If I unlock the form, the merge fields can be modified but this time the form fields cannot be filled. Is there a way to achieve both? Thanks Tag: SaveAs Dialog and filename verification Tag: 68832
  - 2
    - Macros and VBA I need to learn how to create macros, if-then statements, etc. for generating documents. Where/what is the best learning source? Thank you. Tag: SaveAs Dialog and filename verification Tag: 68831
  - 3
    - user complaints wtih using locked template We have a template with several text form fields that are set to an unlimited length. The template is set on locked, and for the most part the template functions as needed. The biggest complaint received from users is how Word has disabled so many necessary functions with locked forms, bolding, page breaks, etc. When a user wants to bold a section of text in a text form field for example, they have to highlight the selected text, click unlock, bold, then click lock. After they click lock, Word is highlighting the entire text form field. Is there a way to keep this from happening? Also it is not placing the cursor at the point where you left off. Which can be very cumersome especially in a large text form field. Also, is there a way to create maybe a custom toolbar with the functions we see as necessary, ex bold, spell check, etc. and have it be enabled with the template in locked position? Any help will be appreciated. Thanks, Linda Tag: SaveAs Dialog and filename verification Tag: 68827
  - 4
    - Question about next level up from Self-cert I played with SelfCert, but then found out that my company has put a company certificate in the trusted directory on each PC at our company. How do I create a (personal?) certificate based on that RCA instead of the one that selfcert uses? My assumption is that if I can create a certificate off the company RCA, then users should get the macro warning box even under high macro security, and be able to add my as a trusted source so they don't get macro warnings from me anymore. And just to make sure I understand what I'm looking at, how to I make sure the company certificate is an RCA, and not just a company "user" certificate that they actually purchased from a third-party organization like Verisign? Many, many thanks- Keith -- The enclosed questions or comments are entirely mine and don't represent the thoughts, views, or policy of my employer. Any errors or omissions are my own. Tag: SaveAs Dialog and filename verification Tag: 68814
  - 5
    - Change in ALT-F4 / X-close event handle in Word2003 ? We have an application where we use Word (through automation) for editing text. Macros in a template file (DOT-file) controls the saving of the edited document in a database. In Word97, Word2000 and Word2002 the system handles the situation where the user has made changes to the document and presses either the X (upper right hand corner of the application) or selects the Close menu entry from the system menu entry (also available through the short-cut ALT-F4). We have taken control of the 'closing of the application/document' and in these situations, the user is presented a dialog where he is requested to confirm if the changes should be saved. This is coded in the Document OnClose event. In Word2003 this does not work. When the Document OnClose event is 'fired' the document's Saved property is True - even if the content is changed. We are using the same DOT-file in the two environments (identical code), and the application code (MFC) controlling Word through automation is also the same (identical). Does anyone know if there has been a change in the way events / Saved property is handles in Word2003. Any help is appreciated. Nikolai Note that even if we override (define our own callback) the ALT-F4 short-cut, only the short cut is overridden and not the Close menu entry from the systsem menu (upper left hand corner of application). Tag: SaveAs Dialog and filename verification Tag: 68813
  - 6
    - Macro Please Hello from Steved I have a document with a capital c and open bracket and closing bracket as an example C( 20 0 0 ) I would like a macro to find every acurrence Hightlight the capital letter C to the closing bracket and make it bold. Thankyou in advance Tag: SaveAs Dialog and filename verification Tag: 68809
  - 7
    - WordBasic Although a proficient Word user I'm new to WordBasic. Here's what I need - is it unrealistic? - and can you direct me to a more appropriate site if necessary. 1. An autoopen macro which will unprotect the form, then select a section, then add it to the AutoText entry list with a name, then protect the form again. 2. On clicking a command button - for it to unprotect the document again, then go to an existing bookmark, insert the said autotext entry, and then reprotect the document. Will be glad of help please. Helen 2. An autoclose macro which will go to the AutoText entries and remove the entry from the list. I've looked at the Help files, and borrowed a book on Visual Basic, but frankly I'm too inexperienced in code to benefit, unless I take months.... Tag: SaveAs Dialog and filename verification Tag: 68808
  - 8
    - How is Paper Size set for a Printer using a Program? Is there a way I could send from a program the PAPER SIZE to use for a PRINTER without the manual procedure of setting up the printer through its properties. For example instead of the default A4 or LETTER, I want the paper size 9.5 X 8.5 inches set first before proceeding with my printing program. Tag: SaveAs Dialog and filename verification Tag: 68806
  - 9
    - Best Practice In this example, is there technical reason to use example 1A & B over example 2 A & B. Does it make any difference? Sub BestPractice() Dim bPractice As Boolean bPractice = True If bPractice Then MsgBox "Example 1A" If bPractice = True Then MsgBox "Example 2A" bPractice = False If Not bPractice Then MsgBox "Example 1B" If bPractice = False Then MsgBox "Example 2B" End Sub Thanks -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: SaveAs Dialog and filename verification Tag: 68801
  - 10
    - Sort I want to sort my Outlook Contacts list so I can insert the address, name, ect into a Word 2003 template using a list box. Presently I am sorting the 600 plus addresses as follows: Private Sub UserForm_Activate() Dim objOutlook As Outlook.Application Dim fdrContacts As Outlook.MAPIFolder Dim itmContacts As Outlook.ContactItem Dim k As Integer Dim j As Integer Dim i As Integer Dim aBuf As String Set objOutlook = New Outlook.Application Set fdrContacts = GetNamespace("MAPI").GetDefaultFolder(olFolderContacts) For Each itmContacts In fdrContacts.Items lstCompanyList.AddItem itmContacts.ItemProperties(52).Value _ & " " & itmContacts.ItemProperties(26) Next With lstCompanyList k = .ListCount For j = 0 To k - 1 For i = (j + 1) To (k - 1) If .List(i) < .List(j) Then aBuf = .List(j) .List(j) = .List(i) .List(i) = aBuf End If Next i Next j End With End Sub The problem is that it takes forever for the list box to be populated with the names of the companies. When you open up the outlook contacts it opens up immediatly and is sorted. How can I get a word VBA macro to open and sort the list box as fast as the outlook contacts. The other problem I have is that all of the names are sorted capitals first then all the lower case names. There has to be a better way. Any ideas? Thanks Mike Tag: SaveAs Dialog and filename verification Tag: 68798
  - 11
    - how do you enable VB macros in word 2000? I'm in VB editor. when I click "Debug" I can't compile or run my macros. How do I enable macros? Tag: SaveAs Dialog and filename verification Tag: 68789
  - 12
    - overflow error why would i get an overflow error on this line: MsgBox Trim(inv * 64) when inv is only 671? Tag: SaveAs Dialog and filename verification Tag: 68785
  - 13
    - Getting program to work with Word already open... I have a situation. I have a Word VBA program that I am running but can't figure out how to make it work when there is already another Word document open. The userform itself will pop up but when it's supposed to transfer all the information over to a template it just sits there and does nothing. It works fine if there aren't any other open files though. If you could please provide some insight to this situation it would be of great help. Tag: SaveAs Dialog and filename verification Tag: 68784
  - 14
    - Toolbars I've got some weird things going on with a toolbar that I built in a word document. For some reason the toolbar is being displayed many times when the document opens up. Yet to my knowledge the macro which builds the toolbar is not being executed. If I right click in the toolbar space at the top of Word (where you can see the list of all toolbars) I can see a dozen or so instances of the toolbar. If I go to the bottom of the list and click "Customize" I can delete all instances of the toolbar and they then do not display. But the next time I go to open up the Word document all instances of the toolbar again are displayed. It's got me stumped. It seems that the toolbar is saved with the word application and not the document as when the document is not open, I still see the toolbar. Is there a way to have the toolbar stored with the document and not with the Word application? Where/how is the toolbar stored? Any information is greatly appreciated. Thanks all. Tag: SaveAs Dialog and filename verification Tag: 68782
  - 15
    - i am having trouble setting the =sum ( ) formula in word 2003 HOW CAN I SUM UP A COLUMN IN WORD 2003 WHEN I USE DROP DOWN MENU'S FOR NUMBER RESPONCE IN EACH ROW OF THE COLUMN. Im having trouble setting the =sum ( ) formula in word 2003 for adding a column in the table i created. If my table info is to the left of the row i want to place the sum then what command should i place in the ( ) WHEN USING DROP DOWN MENUS FOR MY NUMBERS. Tag: SaveAs Dialog and filename verification Tag: 68781
  - 16
    - Script to Capture Data in Document Greetings - Let me say first that at best I consider myself an intermediate user of MS Office tools and that I am willing to try and learn anything. I am composing a large document ion Word that requires a list of acronyms, which are used in the document, to be added at the end. I am not much of a programmer, but wonder if a script/macro (VBA?) could be written and manually executed when complete with the document, via a tool bar button from the template, to scan the document checking for items that have either 3 or 4 uppercase characters enclosed within parentheses. i.e., "(COTS)" It would then check and capture the 3 or 4 words (which are Title Cap'd) prior to the open parens and copy it adjacent to the acronym in the table. i.e., "We use Commercial off-the-Shelf (COTS) applications." After capturing the data, the macro would list all items in a table and sort. i.e., "COTS - Commercial off-the-Shelf" The idea here is to eliminate the need for an editor or author to continually build a list of items used in the document and to ensure only items which are used are recorded in the subsequent table. Any thoughts or suggestions would be greatly appreciated. Thank you in advance for your assistance. Bill Tag: SaveAs Dialog and filename verification Tag: 68773
  - 17
    - Include headers/footers when saving as HTML I am using Office 2003 on Windows XP. Saving an Word file as an HTML works great - the only thing is, it doesn't include the headers and footers in the document. Does anyone know how to include them when a file is "saved-as" an HTML? Or is there an alternative solution other than "save-as" (within Word)? I need a VBA or VB-script solution. Can someone please post some example code or otherwise enlighten me? Thanks much in advance for your assistance. Tag: SaveAs Dialog and filename verification Tag: 68770
  - 18
    - Any way to detect when toolbar is added to window? I get so annoyed sometimes when Word automatically pops up a toolbar it thinks I want or need! The Clipboard toolbar is, as always, a big offender, but there are others too. Is there any way to detect Word adding a toolbar to the window and using that event to suppress it? Ed Tag: SaveAs Dialog and filename verification Tag: 68769
  - 19
    - how do i add or sum a column in word 2003 i am having trouble setting the =sum ( ) formula in word 2003 for adding a column in the table i created. If my table info is to the left of the row i want to place the sum then what command should i place in the ( ). Tag: SaveAs Dialog and filename verification Tag: 68767
  - 20
    - Save document without saving macros I have created a 2002 word document with auotmation to fill out fields. I would like to save the document using a macro as well, using fields as file name, which I have done. What I would like to happen is to be able to save the new document with out the macros. Thanks for the assistance. Tag: SaveAs Dialog and filename verification Tag: 68762
  - 21
    - Pattern Color of next row in table Good morning, I have created a protected form in which there are currently 2 tables. In the 8th row of the first table I have two check boxes (which by code are mutually exclusive). However, I would like to control, based on the selection made, the backcolor of the 9th row (which also happens to be the last row in the table) of this table. Could someone show me how this is done?! Below is my non-functional code. ************************************************************ Sub ToggleCheckBoxOnEntry() Dim fFields As FormFields Dim fSelectedField As FormField Set fFields = ActiveDocument.FormFields For Each fSelectedField In Selection.FormFields ' Form field must be a check box. If fSelectedField.Type = wdFieldFormCheckBox Then ' Go to the case for the currently selected group. Select Case fSelectedField.Name 'Check box group. Case "Chk_Paper", "Chk_Electronic" ' Clear all values. fFields("Chk_Paper").CheckBox.Value = False fFields("Chk_Electronic").CheckBox.Value = False Case "Chk_Original", "Chk_Copy" ' Clear all values. fFields("Chk_Original").CheckBox.Value = False fFields("Chk_Copy").CheckBox.Value = False End Select ' Check the selected formfield. fSelectedField.CheckBox.Value = True If fFields("Chk_Electronic").CheckBox.Value = True Then 'fFields("Chk_Original").Enabled = False 'fFields("Chk_Copy").Enabled = False ActiveDocument.Tables(1).Rows.Last.Select With Selection .Cells.Borders.InsideColor = 1 End With End If End If Next End Sub ************************************************************ Thank you the help, Daniel Tag: SaveAs Dialog and filename verification Tag: 68760
  - 22
    - certificate expired - macros now disabled - 50 documents... Hi Newsgroup, we´ve signed a vba macro in a excel template. Based on theses templates 50 of our users created their own documents. Now the certificate is expired and the macro only works when we set the security to medium and manually accept the macros. Is there another solution than resign the template and tell the users to make new documents to get the macro-message away? Best regards from germany, Peter Tag: SaveAs Dialog and filename verification Tag: 68757
  - 23
    - export pictures to jpg Hi, I want to create a routine that exports all the shapes and inlineshapes (pictures) to jpg files. not bmp or emf Does anyone have any ideas. Thanks Marc Tag: SaveAs Dialog and filename verification Tag: 68756
  - 24
    - Creating custom text colours I am using WORD 97, is it possible to create custom text colours, if so would someone be kind enough to provide me with some code? Thanks -- Mark Tag: SaveAs Dialog and filename verification Tag: 68755
  - 25
    - how to save word document without saving macros with it. I have created a word 2002 document that has several macros in it to automate it. I want to add a macro to save the document using fields in the document as the name, which I have done, but I do not want the macros saved with the document. The documents that are saved from the original will be for reference only. Thanks, for the help. Tag: SaveAs Dialog and filename verification Tag: 68746
- Next
  - 1
    - numbering multiple copies of a document I want to be able to put a cell in a word document with a number - say 1 and then print say 50 copies so that each copy is uniquly numbered in sequence 1 to 50 Tag: SaveAs Dialog and filename verification Tag: 68744
  - 2
    - DocVariable & Inserting Symbols Hello, I was wondering, whether somebody would be able to advise. Within Word I have a Docvariable, which individuals would like to add symbols too. The DocVariable is updated via a VBA Dialogue box which contains a textbox. Is there anyway I can get some sort of Symbol functionality, so people can add symbols to the DocVariable via the VBA Dialogue Box or simply update the Word DocVariable in the document. Thanks. Tag: SaveAs Dialog and filename verification Tag: 68743
  - 3
    - sections and pagecount Hi, I want to count pages in a specific section, and futhermore I want to go to the last page in the same specific section. How do I do that? Christina Tag: SaveAs Dialog and filename verification Tag: 68742
  - 4
    - File/Properties Macro I need to create a macro that opens the File/Properties dialog box. I cannot find a "wdDialog" that looks like it would be the right one. Can anyone tell me what the code is to get this box to open? With Dialogs(wdDialog?????????) .Show Thanks! Tag: SaveAs Dialog and filename verification Tag: 68739
  - 5
    - Deleting unwanted page breaks I amusing WORD 97, can anyone supply me with some code that will delete all the page breaks in a document? Thanks in advance -- Mark Tag: SaveAs Dialog and filename verification Tag: 68736
  - 6
    - AutoText - "Look In" <template> Question Is there any way (for both Word 97 and beyond) to programmatically set the "Look In:" template for AutoText? I want to make sure when my macro runs that "All Active Templates" is set before proceeding. I'm concerned about using "SendKeys" because it may not work in later versions and/or other configurations. Thanks, David Tag: SaveAs Dialog and filename verification Tag: 68725
  - 7
    - version problems - getting error message from macro run in 2000 I have created a macro that runs fine in both XP and word 2002. My problem is that when it was run on word 2000 the macro crashed at this bit of code: Sub UpdateBookmark(BkMrkToUpdte as string, TxtToUse as string) Dim BMRange As Range ***** this is the line it stopped at below Set BMRange= ActiveDocument.Bookmarks(BKMrkToUpdte).Range BMRange.Text = TxtToUse ActiveDocument.Bookmarks.Add BkMrkToUpdte, BMRange End Sub This code works fine in XP which I have and 2002 which my boss runs however when he tried to distribute it to another person with word 2000 it crashed here, with the message "requested member of the collection does not exist". Since I don't have 2000 I can not test this but was wondering if this is a version problem. I am currently trying to figure out if the person has all the documents that are associated with the macro since that might be the problem, however it should have bombed when I opened those documents. Any help or assistance with this is appreciated. HBO Tag: SaveAs Dialog and filename verification Tag: 68720
  - 8
    - Create table macro using a loop I'd like to create a table macro using a loop. The columns are fixed. There are 7 columns but the number of rows are dynamic. The number of rows will be determined by a bookmark. Can this be done? I cannot use a catalog merge. It's a long story. Thanks Tom Tag: SaveAs Dialog and filename verification Tag: 68716
  - 9
    - Preventing the steps to record into the undo stack I type a simple 4-letter word in MS-Word. Then, I run a macro which performs 1000 steps. The undo stack records the 4 characters + 1000 steps. Is there a way in MS-Word that I can ask it to not to record only that 1000 steps into the undo stack? Any VB code is fine. There is an article which explains as to how to clear the complete undo stack, but that doesnt help much. Tag: SaveAs Dialog and filename verification Tag: 68715
  - 10
    - Converting Chart to Picture What is the macro code to locate and change an Excel graph embedded in a Word document to a picture? Actually, I have several graphs that need to be converted. I have tried the following without success. Selection.Cut Selection.PasteSpecial.Picture and Selection.Cut Selection.PasteandFormat (Picture) -- Jim Benet Tag: SaveAs Dialog and filename verification Tag: 68708
  - 11
    - Keycode Constants Where can I obtain a list of Microsoft Word Keycode constants and their definitions? -- Jim Benet Tag: SaveAs Dialog and filename verification Tag: 68706
  - 12
    - Word Toolbar Not Showing Up I have an AutoNew macro (below) that is supposed to make the "ModiTemp Macro Button" custom toolbar visible when it runs, but it does not work. CommandBars("ModiTemp Macro Button").Visible = True Any help answering why this does not work will be greatly appreciated. Tag: SaveAs Dialog and filename verification Tag: 68705
  - 13
    - Formatting Table Columns The following code snippet is from a VB6 routine that is trying to format the columns in a table. It, however, gets an error upon attempting to set the PreferredWidthType property. Any ideas? Set oTable = oWDoc.Tables(1) ' ' code that works and is unimportant to this question goes here ' oTable.Rows(1).Select oWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Set oRange = oWord.Selection.Range With oRange .Columns(1).PreferredWidthType = wdPreferredWidthPoints .Columns(1).PreferredWidth = oWord.InchesToPoints(0.4) End With TIA! -- TFWBWY...A Tag: SaveAs Dialog and filename verification Tag: 68704
  - 14
    - Range Selection X and Y For Drawing Our customer is very demanding in that they need some artwork drawn begining with the selected text. How is it possible to find the X and Y positions of a selected range so that I can start drawing lines from there? Tag: SaveAs Dialog and filename verification Tag: 68703
  - 15
    - Simple Question: clearing Shape Collection Hello, I am looping through a number of documents putting a specific paicture in each document. They only problme I am having is that when the picture is being placed int he .doc a number of other pitcures are imposed on top of it, presumably the whole activedocument.Shapes collection. I figure I need to clear/empty the collection at the end of the loop before I use Set oShape = ActiveDocument.Shapes.AddPicture to put the new image into the document. Any help would be very appreciated. Matt (VB Newbie) Tag: SaveAs Dialog and filename verification Tag: 68694
  - 16
    - How do I get OMR (Optical Mark Recognition) in MSWORD? Tag: SaveAs Dialog and filename verification Tag: 68693
  - 17
    - Getting a Path from File Open Dialog I'm trying to use Word's File Open Dialog to have the user select an Excel file (for linking purposes). I can return the Excel file's NAME, but I can't seem to return the PATH. My VBA code is: With Dialogs(wdDialogFileOpen) .Display xlOpen = .Name End With What should I use to get the file's path? Also, is there an easy way to have the File Open Dialog use "all files" as the default for the file type? Thanks! Tag: SaveAs Dialog and filename verification Tag: 68689
  - 18
    - MailMergeAfterMerge event Hi all, I am developing a c# console application that takes data from a database and doing a mail merge in word 2003 to create a contract. I added an event handler for the MailMergeAfterMerge event: _WordApp.MailMergeAfterMerge += new Word.ApplicationEvents4_MailMergeAfterMergeEventHandler(wrdApp_MailMergeAfterMerge); In the event handler I save the doc and am doing a Console.WriteLine to see when it is firing so I can debug it: result.SaveAs(ref _oContractPath, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing); Console.WriteLine(_oContractPath.ToString() + " Saved."); The issue I am having is that this event does not fire all the time. It is really inconsistent. Right now I am testing with 11 contracts. The first time I run the application one of the contracts does not get saved. The next time all will be ok. Then the next time I run it 4 contracts did not save. I don't know why the inconsistency but it is really bugging me. Does anyone have any ideas why it works only sometimes? Please Help!! Thank you in advance. Danny Tag: SaveAs Dialog and filename verification Tag: 68688
  - 19
    - Adding References I have a question about Tools, References. I am working on custom templates for a law firm who is using Windows XP and Word 2003. There is a global template which has code modules which will be used in several other templates, such as letter, memo, fax. Previously, the word startup directory was the same for each user (C:\Program Files\Microsoft Office\.....). Under Windows XP, each user has a different startup location (C:\Documents and Settings\username\.....). How do I set a reference to a global template that will be in a different location for each user who logs onto a machine? Thanks, Anne P. Tag: SaveAs Dialog and filename verification Tag: 68686
  - 20
    - Problem driving Word from Access Hello, I have been learning to control Excel and Word from Access using VBA and references to these two apps. I've had pretty good success, but I ran into one, stubborn problem. My Access application uses the TransferSpreadsheet method to populate some Excel worksheets. It then opens Word docs that have tables which are linked to those Excel worksheets. After all that happpens, I need to save the Word docs under a different name and break the links to the Excel worksheets. I got the first part with this code: ActiveDocument.SaveAs ("Copy of Document Name"). But I can't figure out how to break the links in the Copy of document. Can anyone help? Thanks, Jeff. Tag: SaveAs Dialog and filename verification Tag: 68684
  - 21
    - Select Case and Like Comparison Hello, The VBA help file for the Select Case statement says the test expression should be a numeric or string expression. I am trying to use a Select Case statement to perform a Like comparison on a test string. Test1 below illustrates one of many failed attempts to use "myString" as the test expression and a Like statement in the Case statement. Sub Test1() Dim myString As String myString = "ABCD" Select Case myString Case Like "A??D" 'Compile error here MsgBox "Match" Case Else MsgBox "No match found" End Select End Sub I did discover however, that I could use the boolean value "True" as a test expression and the Select Case routing works as expected. Sub Test2() Dim myString As String myString = "ABCD" Select Case True Case myString Like "A??D" MsgBox "Match" Case Else MsgBox "No match found" End Select End Sub Questions: Is there a way to use a string expression as the test expression and Like in the Case statements? Would using the boolean value True as the test expression cause instability or introduce errors in procedure? Thanks Tag: SaveAs Dialog and filename verification Tag: 68680
  - 22
    - Print Macro listing Is ther e a way to print out a listing of the names of all the Macros a person has created in Word VBA? Just all the names, not the VBA code. Thanks. Tag: SaveAs Dialog and filename verification Tag: 68679
  - 23
    - Adding the file path automatically to all 2003 word footers I would like to be able to automatically be able to add the file path and file name (In the Footer) to all of the 2003 Word Documents that I create without having to add it manually each time I create a word document. Tag: SaveAs Dialog and filename verification Tag: 68678
  - 24
    - Error 4609- String Too Long Anybody know anything about the string too long error message. I'm copying form field text from one doc to another using the following line of code: CurrentDoc.Range.FormFields("ScopeOfRegistration").Result = OldReport.Range.FormFields("ScopeOfRegistration").Result And I get the error if the text is too long. The formfields are set to unlimited text, and I can manually copy from one to the other, so I know it's not a table row size limitation, but I can't figure out why I am getting this message. Any words of wisdom would be much appreciated. Tag: SaveAs Dialog and filename verification Tag: 68677
  - 25
    - Insert Database Hello, In MS Word I want to query (using MS Query) a database and insert the results in a table. I have recorded the actions in a macro. This works fine so far. But when I want to run the macro again, there is still an action I have to do by hand. Below you'll find the code. When I run this code I still need to select a datasource and click the 'Open' button. How can I alter the code so that clicking 'Open' is not necessary? Sub Macro() Dim strT As String strT = "Topology" Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=True, _ Connection:= _ "DSN=RAM ODBC;ARServer=server;ARServerPort=1234;UID=xxxxx;PWD=xxxx;ARAuthentication=;ARUseUnderscores=1;ARNameReplace=1;SERVER=NotTheServer" _ , SQLStatement:= _ "SELECT strT.Status, strT.Relationship, strT.Parent_Name, strT.Parent_ID, strT.Child_Name, strT.Child_ID FROM strT strT WHERE " _ & _ "(strT.Parent_Name Like 'Test%') ORDER BY strT.Parent_Name" _ , PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _ WritePasswordTemplate:="", DataSource:="", From:=-1, To:=-1, _ IncludeFields:=True End Sub Thanks! Tag: SaveAs Dialog and filename verification Tag: 68662

I have a document I need users to fill in using a custom form. When they
click the Save button on the form the SaveAs dialog box appears. What I
need/would like is to verify the user changes the name of the document (so
they don't overwrite the original).

I can do this with a simple InputBox and SaveAs command, but can't figure
out how to let the user choose the folder they want.

Any help would be appreciated.

Thanks

Top

Re: SaveAs Dialog and filename verification by Dave

Dave
Wed May 25 12:11:31 CDT 2005

Hi,

The Save button on the form is basically our answer. Instead of using the
.Show method, try the .Display method.

With Dialogs(wdDialogFileSaveAs)
If .Display Then
' user navigates to desired folder and names the document
' do your verification
' SaveAs Command based on verification
End If
End With

HTH,
Dave

"Vince Stitt" <VinceStitt@discussions.microsoft.com> wrote in message
news:3AB7B2E3-6C4A-4453-B791-37F8D7D76502@microsoft.com...
> I have a document I need users to fill in using a custom form. When they
> click the Save button on the form the SaveAs dialog box appears. What I
> need/would like is to verify the user changes the name of the document (so
> they don't overwrite the original).
>
> I can do this with a simple InputBox and SaveAs command, but can't figure
> out how to let the user choose the folder they want.
>
> Any help would be appreciated.
>
> Thanks

Top