Save as opens explorer window.

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Open a refernce doc , open another doc and copy contebts to refern Hi, so far I have the following. 'check whether to create a new word instance or use an existing session WordRunning = IsWordRunning If WordRunning Then Set WordApp = GetObject(, "Word.Application") Else Set WordApp = New Word.Application End If 'open up the reference document Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Base.doc") ' With WordApp .Visible = True .WindowState = wdWindowStateNormal End With 'check on the access form which controls are active 'open that section document 'copy it 'and then paste it after the book mark in the reference document If (Me![Section11]) = True Then 'do something Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Section11.doc") 'copy contents for pasting into original document '??????????????????? 'close the "Section11" document as not required anymore '????????????????????????????? 'paste this section to the template 'bring original document to focus 'locate the bookmark and paste section11 Set WordDoc = WordApp.Documents.Open("C:\Database\25KgPowder\Base.doc") Set WordDoc = WordApp.ActiveDocument Set WordRng = WordDoc.GoTo(what:=wdGoToBookmark, NAME:="frmBookmark") 'paste Else 'do something End If The if statements continue for another 10 conditions. I am automating from access. I open an existing document and if the access controls on the form are true, add sections to the existing document. How do I copy the second documents contents and add it to the original document after the bookmark in the original document? Then I want to close the second documnets session and move on tto add another section if the next access control is true. -- Regards Bill Tag: Save as opens explorer window. Tag: 96348
  - 2
    - How to find any of a set of characters in a string Hello, How do I determine if one or more of a set of characters occurs in a given string? For example, I need to determine if d, D, or r occurs in the current .range object. I was hoping for something like: InStr(1, .range, "[aDr]") but that doesn't work. Any help would be appreciated! Tag: Save as opens explorer window. Tag: 96341
  - 3
    - no spacing between cells in table Working in Word 2003. If you format a table using the Word menus/dialogs, you have the option of not allowing spacing between cells. (Table | Table Properties. On the Table tab, Options then remove checkmark in front of "Allow spacing between cells.") When I try to accomplish the same thing via VBA, it doesn't really remove the spacing, it sets the spacing to 0. Spacing at 0 doesn't look quite the same as "Allow spacing = False." Both of the following give the same results. 0 spacing, but "Allow spacing between cells" is still true (checked) in the Options dialogbox -- and the table looks a wee bit funny. Selection.Tables(1).Spacing = 0 And Selection.Tables(1).Spacing = False I can't find anything re. how to set between-cell spacing other than the Spacing property. Is there a way I can use VBA to essentially say "Allow spacing between cells = False"? Tag: Save as opens explorer window. Tag: 96338
  - 4
    - Automatic Text Hi there, basically I am an estate agent and when a property has been sold I have to type a memorandum of sale with the sellers name, address, solicitors and the same for a buyer. Then I have to type 4 letters to go with that. Could anyone tell me how I could type the Sellers address on the memorandum of sale and it would automatically update the address on the corresponding letter. To save my self so much time. Tag: Save as opens explorer window. Tag: 96332
  - 5
    - problem with colour I am a bit of a novice so the answer may be simple! When I print a document, whenever I use the colour red it comes out yellow. I have checked the ink status which is okay. Hope you can help!!! Tag: Save as opens explorer window. Tag: 96330
  - 6
    - database error This is my macro code...: Sub ToDB() Dim csConn, rsRecSet As Recordset, strSQL As String, strUser As String strSQL = "INSERT INTO jbDBTable (CO, CREATED) VALUES ('xyz', date())" Set csConn = CreateObject("adodb.connection") csConn.ConnectionString = "data source=C:\Data\0\jbDB.mdb; Provider=Microsoft.Jet.OLEDB.4.0;" Set rsRecSet = CreateObject("adodb.recordset") rsRecSet.Open strSQL, csConn csConn.Close End Sub ...and this is my error with bugs: Run-time error: '3709': The connection cannot be used to perform this operation. It is either closed or invalid in this context. Any answers? -- Bryan Tag: Save as opens explorer window. Tag: 96329
  - 7
    - How do I restore my Word program's blank document template? Somehow when I pull up Word it now shows a document I didn't think I had saved. Every time I hit the create new, this document comes up so I must have somehow saved the document as the blank template. How do I restore it to the default blank document? Tag: Save as opens explorer window. Tag: 96318
  - 8
    - Forcing execution of an event.... Hy there, I wrote a very simple macro to automate printing of a document and as the "Manual Duplex" printing option isn't working properly, I'd like to handle with VBA everything. So what I did is to issue 2 Application.PrintOut calls, separated by a msgbox call. Unfortunatelly, the print doesn't begin until the sub is exited.... Any clue on how to execute immediately the first Application.PrintOut call? Thanks Here's the code: Sub PrintDuplex() Call SetPrinterProperty(DM_PAPERSIZE, DMPAPER_A3) Call SetPrinterProperty(DM_PRINTQUALITY, 1200) ActivePrinter = "\\ACRUX\Kyocera Mita KM-1650 (KPDL)" Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="4,1", PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 MsgBox "Turn paper sheet and press Ok when ready", vbOKOnly Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="2,3", PageType:= _ wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _ True, PrintToFile:=False, PrintZoomColumn:=2, PrintZoomRow:=1, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 End Sub Tag: Save as opens explorer window. Tag: 96307
  - 9
    - Getting propertys of the Normal style I'm trying to navigate through the Word object model to find the properties of the Normal style used for that document - particularly the font name and font size. I'm trying to do this for a large number of documents, so instead of doing it manually, I want to navigate the object model from a VB application. But I haven't found a way to get to the Normal style and it's properties yet. Does anyone know how to do this? Thanks, Dave P. Tag: Save as opens explorer window. Tag: 96305
  - 10
    - Variable Footers I need a way to create different footers for every page. Let's say the document is 5 pages long. The user is prompted as to how to start the numbering series. They will answer with a number only, say 3. The sequence follows such that page 1's footer displays 3 right-aligned. Page 2's footer would display 3A to left-aligned. Page 3's footer would display 3B right-aligned, and so goes the series for every page with incrementing letters and alternating alignments. Since I can't seem to control footers on an individual basis programmatically without sections interfering, what should I do? A couple things I've thought of are 1) making each page its own section, 2) inserting a docvariable field into each footer, then updating the field value with the correct page number. I am an experienced .NET/VBA developer but working with Word's sections is not intuitive for me. I will process documents that are generated out of my control, and I expect these documents to have one section for the entire document. I would greatly appreciate a recommended programmatic approach. Feel free to be very technical. Thanks ! Tag: Save as opens explorer window. Tag: 96299
  - 11
    - Macro to change font Does any know if there is a macro that will change the font in all the tables in a document? Thanks, Mickey Tag: Save as opens explorer window. Tag: 96296
  - 12
    - distributing a Word form with macros I've developed a protected form in Word that will be distributed as a Doc file to multiple users in an organization. It uses macros to validate user entries and perform calculations. The subroutines and userforms are in the Doc file itself, because I was told that asking folks to use a Dot to create instances of the form would be too complicated. Now I'm told that asking users to set Macro Security Level on Medium and click "Enable macros" when opening the doc is too confusing (despite clear directions complete with screen caps -- sigh). The people who will be maintaining the form insist that there is a way to ensure the macros will work regardless of the user's security settings -- and without saying "Enable macros." They say they have seen it, they just don't know how to do it. I've tried to figure out how this is possible, and have tried to find info on the web, but to no avail. Is there a way to distribute the form to multiple users, ensuring the macros will run regardless of their security settings and without requiring them to click "Enable macros"? Most users will be running Word 2002 under Windows XP or XP SP2. Tag: Save as opens explorer window. Tag: 96289
  - 13
    - Placing a control on a document Hi all, I am new to Word VBA but have extensive experience with it in Excel and Access. I am sure this is simple: I need to put a control on the document, as opposed to the user's tool bar, and then give it a click or double click event, in order to start things rolling. Ideally I would want a command button but that does not seem to be an option, at least, I don't see it. What is the best way to proceed? Thanx, -plh -- Where are we going and why am I in this HAND BASKET?? Tag: Save as opens explorer window. Tag: 96285
  - 14
    - string comparator Hi, I have two arrays of name and I would like to check if some of the names are present in both of the arrays. But the names can be mispelled, or differently entered in the two arrays, for example: -Alberto Parreira , albeerto parteira -alberto parreira , alberto juan fernandez parreira -alberto-juan parreira , alberto juuan parreira Do you have an idea of a function that could tell me: those two strings represents (at for example 80% sure) the same person ? Cheers Tag: Save as opens explorer window. Tag: 96283
  - 15
    - *bold, _italic, <>heading in Word/VB I tend to write a lot of documents in text-only format, with the following conventions: This_is_italic This*is*bold [This is a footnote] <This is a chapter heading> In the case of bold/italic, I'd want any token that has _ or * in it. Normally, I don't do documents that are so long as to make manual conversion feasible. A year ago, when I had a non-profitable emergency, Klaus Linke was so kind as to write me a macro to do the most cumbersom conversion, for footnotes. The convention I use for bold and italic, I understand is much more problematic. The chapter headings I would need so I can have a table of contents. Right now I have no immediate need for this, but I am considering returning to that non-profitable undertaking. Incidentally, I used to use SCRIBE where the conventions were @i(This is italic) @b(This is bold) @foot(This is a footnote) @chap(This is chapter heading) @u(This is underline) @sec(This is a chapter heading) Furthermore, I've programmed in a number of languages (FORTRAN, ALGOL, PASCAL, C) so I don;t mind doing a little bit of coding so long as I understood (how to find) all the MS Word variable names. I'm attaching whatever VB macros I do have, and comments others have offered. If I seem a bit confused it is from the short attention span I have been able to afford to direct towards this project. .Text = "*\_*" .Text = "*\**" \*[!^13]@\* Sub Foot() Dim myRange As Range Dim boolFound As Boolean Dim myFootnote As Footnote Set myRange = ActiveDocument.Content Do myRange.Find.ClearFormatting With myRange.Find .Text = "\[*\]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True End With myRange.Find.Execute boolFound = myRange.Find.Found If boolFound Then myRange.Characters.Last.Delete myRange.Characters.First.Delete myRange.Cut Set myFootnote = ActiveDocument.Content.Footnotes.Add( _ Range:=myRange) myFootnote.Range.PasteAndFormat (wdPasteDefault) Set myRange = ActiveDocument.Content myRange.Collapse (wdCollapseStart) Else Exit Sub End If Loop End Sub Sub jb() ' ' Macro written by Maniac on May 16, 2006 ' Reformats text between two strings ' ' Specify search phrases (start / end) A$ = "abc" B$ = "def" ' Start at the beginning and reset all ' search formatting options ActiveDocument.Range(0).Select Selection.Find.ClearFormatting ' Loop repeats until first phrase not found While Selection.Find.Execute(A$) StartReformat = Selection.End Selection.MoveRight Selection.Find.Execute (B$) StopReformat = Selection.Start Selection.MoveRight ' Add formatting to the following section ' Options include: ' .Bold, .Italic, .Underline, .StrikeThrough (true / false) ' .Size = font size ' .Font.Color = wdColorGreen (Red, Blue, etc... see help) With ActiveDocument.Range(StartReformat, StopReformat) .Bold = True .Font.Color = wdColorBlue End With Wend End Sub - = - Vasos Panagiotopoulos, Columbia'81+, Reagan, Mozart, Pindus, BioStrategist http://ourworld.compuserve.com/homepages/vjp2/vasos.htm ---{Nothing herein constitutes advice. Everything fully disclaimed.}--- [Homeland Security means private firearms not lazy obstructive guards] [Urb sprawl confounds terror] [Remorse begets zeal] [Windows is for Bimbos] Tag: Save as opens explorer window. Tag: 96282
  - 16
    - capture keydown/press events in a user form I'm trying set up a user form where I can assign shortcut keys to various subroutines. I know how to do the keybinding (assign the shortcut keys) once I get the keys in the text box -- but am totally stumped on how to "capture" the keystrokes the user might enter in the form's text boxes. Unfortunately I'm pretty much a newbie with programming in general and VBA in particular... Am working on trying to get something like the following to work, but even if I can get this running right, it seems I'd need to specify every possible key combo. I'm sure that can't be the most reasonable approach... I'd really appreciate any advice or help you can offer! Private Sub Texbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) ' If the 'Alt' and 'E' keys are pressed, If e.Alt And e.KeyCode = Keys.e Then Texbox1.Value = "Alt + E" Else Texbox1.Value = "nope" End If End Sub Tag: Save as opens explorer window. Tag: 96279
  - 17
    - startup templates at runtime Hello, I need to be able to copy a template in startup folder to allow another menu for a group of users. Whereas when i copied there, its showing new menu to ALL users. I am trying to find a way of loading a menu for a group of users - without having to setup different templates startup locations ... is there a way to load startup template at run-time ? or update "Templates And Addins" setting from a code ? Can anyone help ? kanwal Tag: Save as opens explorer window. Tag: 96275
  - 18
    - Table of Contents Some years ago, I saw a macro that would remove excess TOC bookmarks from a Word document. Does anyone still have a copy of this? I would like to run it over some old and venerable documents that seem to have grown excessively Cheers Bob Tag: Save as opens explorer window. Tag: 96273
  - 19
    - Can't record changing picture border Has something changed in Word 2007 macro recording. I highlight a picture in my document, start recording a macro, select Format and change the border, and stop recording. When I examine the macro in vba, it's totally empty. Tag: Save as opens explorer window. Tag: 96271
  - 20
    - Documents convert to Hebrew after some manipulations Hi! I am experiencing a strange problem: I have an application that inserts some information in front of the main body of each document. It works great. However, documents from one particular user convert to Hebrew after my inserts. The text my application inserts changes from right to left. In the original document the language is set to English US. In the resulting document the language is Hebrew. I have no clue where to start my troubleshooting efforts. Is it on my side? Does the user have to change something on his? What can I do programmatically to eliminate this problem? Any ideas/suggestions/samples are greatly appreciated. Many thanks in advance, --Michael Tag: Save as opens explorer window. Tag: 96270
  - 21
    - Import AutoCAD DWGS I have table of two columns and unknown rows. I would like to insert all the AutoCAD files located in FOLDER XYZ into the word document. However, ecah of the drawing files should be in a "cell" of the talbe. Then it needs to be scaled and that is it, off to the next folder. Any idea's: Tag: Save as opens explorer window. Tag: 96268
  - 22
    - Word 2007 VBA can not set options.print... properties Has anyone else run into this (and found a reason/fix)? On one of our five test dev machines, Word 2007 has a weird bug. Start a blank new doc, go into the VBA macro editing area, add the line: options.printbackground=false (on our machine, you can use ANY of the print options for this test - printcomments, printbackgrounds, printdraft, etc.). they ALL fail... but the non-print options are fine.) If I try to run the macro, it breaks on that line with a runtime 4120 error bad parameter. I've changed it to options.printbackground=true - still no go. I've tried changing the default printer and restarting word. Still no go. Curiously, I can do a: msgbox options.printbackground and it will accurately read the value of the printbackground hckecbox from the word options, advanced, printing section. so... on this ONE machine, I can READ but not SET the options for printing programmatically. Any ideas??? Corrupt install??? Read only xml ini file or some other obscure weirdness???? Regards. Tag: Save as opens explorer window. Tag: 96267
  - 23
    - MACRO to convert to hex I need to convert ascii characters (including unicode) to 4 digit hexadecimal representation. The alt+x (Selection.ToggleCharacterCode) functionality works for a single character, but I am trying to write a macro to convert every character in the file. I can't figure out how to parse through the document... any suggestions? Stephanie Tag: Save as opens explorer window. Tag: 96266
  - 24
    - Forms and Table of Contents I'm a wannabe expert at forms. I have a pre-made document for engineers describing equipment which has a table of contents, places to insert images, Excel tables, and an Appendix added at the end (which will auto-fill into the toc). I want to have part of this document automated so the people filling in the forms can't make a lot of changes. How can I create a text fill-in within the table of contents? I've tried and because it is already a type of field I think that I probably can't do this. Also, I have several places in the document that once you type in the first text fill-in I want it to populate that information in about 10 different other places in the document automatically, including the TOC and header or footer. Tag: Save as opens explorer window. Tag: 96256
  - 25
    - Deleting Blank Rows in a Word Table I have a word Template with several Tables on it. I need code which will examine all tables in the Template and do the following: 1. Delete any empty rows in each table 2. Delete any Table having Only a Header Row How would I go about writing this code? Thanks in advance for any help with this request. Tag: Save as opens explorer window. Tag: 96251
- Next
  - 1
    - Date changes on memo when opened I'm having a problem. When I save a memo, then re-open at a later date, Word automatically changes the date in the memo to the current date. Anyone know how to fix this? Tag: Save as opens explorer window. Tag: 96248
  - 2
    - Macro Question for Word 2003 I have been trying to record a macro that will delete a Frame and the Text Form field inside of it. I only want just that data which is at the top of the Page to be deleted for people who already have pre-printed letterheads. However, the Macro I record only works if my cursor is next to that information. Can someone please point me to a macro that can delete just that information at the top of the document regardless of the position of my cursor? Thanks, Tag: Save as opens explorer window. Tag: 96245
  - 3
    - What happens to "Keep Text Only" I am a news hound and "collect" news stories and culinary-related news items. Usually, when I copy an article and paste it into Word 2000 (I am using Windows XP Home), I get a tiny "clipboard" icon (at the bottom of the document) which gives me the option to "Keep Text Only." But sometimes, the "icon" doesn't show up, and I am then at a loss on how to "Keep Text Only." Why does the icon sometimes NOT show up, and is there a way to either "force" the icon to show, or to "Save Text Only" without the icon? Thanks in advance. Tag: Save as opens explorer window. Tag: 96241
  - 4
    - importing .rtf files into excel I have a rtf file which i need to automatically import using a macro in excel. But i am lost in finding a solution to this. I would like to open Excel and run the macro this would open the rtf in word and cut the information and paste it into excel. is this possible ? Thanks Dan Tag: Save as opens explorer window. Tag: 96240
  - 5
    - Programming Compatibility Hello Word: XP (Rollout of 2003 soon) OS: Windows XP I want to set a documents Tools|Options|Compatibility to what ever version of Word a user is running. Example: if Application.version = "10.0" then activedocument.compatibility = 2002 elseif Application.version = "11.0" activedocument.compatibility = 2003 elseif Application.version = "12.0" activedocument.compatibility = 2007 end if Word's Recorder produces many lines for each version. I just want to simplify the process. Any assistance would be greatly appreciated. Regards Mike Tag: Save as opens explorer window. Tag: 96234
  - 6
    - Copy table column from multiple word files into excel I have hundreds of word files in a folder. Each file contains a table with two columns. I want to copy the right most column from each word file into 1 excel worksheet, but opening each word file individually and copy/pasting will take me forever. Does anyone have code the will open each file in the folder, copy the column and past it into the next availble column in an excel worksheet? Thanks, ml Tag: Save as opens explorer window. Tag: 96230
  - 7
    - Summing fields in a selection Hi All, I have this document where some data is imported automatically in to some fields. The document could look like this: Chairs 100 Sofa 200 Travel 100 Sum 400 Since it is in fields the Calculation Tool does not seem to work. (unexpected end of formula!) Can anyone help me with a macro that would sum the fields in a selection made with Alt So if I select (Via Alt) the numbers 100, 200, 100 then i could get a sum in a msgbox? Thanks in advance, Best regards, Bondi Tag: Save as opens explorer window. Tag: 96229
  - 8
    - Using Internet Explorer to post data for a form inside word Hello, I'd like in a button in a Word 2000 document to submit data by posting an http request and catch the error which could happen (404 / 501 etc...) As I'm using NTLM authentification I need to use InternetExplorer object. So the idea is to do that kind of code : << Private Sub CreateDocButton_Click() Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "about:blank" IE.Visible = False Dim PostData() As Byte PostData = StrConv("<pouet>", vbUnicode) IE.Navigate "http://www.pouet.com/" & "document", Null, Null, PostData, Null End Sub Private Sub IE_NavigateError( _ pDisp, _ URL, _ TargetFrameName, _ StatusCode, _ Cancel) MsgBox ("pDisp : " & pDisp) MsgBox ("URL : " & URL) MsgBox ("TargetFrameName : " & TargetFrameName) MsgBox ("StatusCode : " & StatusCode) MsgBox ("Cancel : " & Cancel) End Sub Private Sub IE_NavigateComplete( _ ByVal pDisp As Object, _ ByVal URL As Variant) MsgBox ("navig complete") End Sub >> The fact is that neither IE_NavigateComplete nor IE_NavigateError are called even if the url is correct or not. I've tried to use Public WithEvents IE As SHDocVw.WebBrowser & Public WithEvents IE As SHDocVw.InternetExplorer however Word says me that : "the procedure declaration doesn't match the event description or the procedure of the same name". Do you know a way to correct this problem ? Regards, 75Blured. Tag: Save as opens explorer window. Tag: 96227
  - 9
    - Hyperlink to an Excel-template I am making a hyperlink to an Excel-sheet that my colleges can use (located on a shared disc). To avoid the others to save their work on that sheet, I have saved it as a template (.xlt). Problem: When I hyperlink to that file it opens it as a file, not as a template (it does File-Open instead of File-New) Q: How can i resolve this? -- Regards Per Tag: Save as opens explorer window. Tag: 96223
  - 10
    - Unique numbering of a Word template each time it opened I need a unique numbering each time I use a template.....so I can use the numbering for indexing -- May the force be with you!! Tag: Save as opens explorer window. Tag: 96209
  - 11
    - Help - Word probelm (macros) I'm not sure if this is the best place to ask this, but here goes: Every single time I open Microsoft Word (Office 2003), I get the following text box: "Microsoft Office Word [in border of the message box]" "This file contains macros with an expired or revoked signature. Since you are running under high security level, these macros will be disabled." Is there any way I can find the source/cause of this? This happens even if I just start Word without opening any document files at all. It also happens every time I start Outlook (because that opens word as the Outlook E-Mail editor). I am concerned that something may have infected my system; I had some kind of critical problem a couple weeks ago, the system would shut down immediately after starting, and I did have to restore from an image backup. The restore (from a Drive Image backup) was drive C:, which includes the program files folder, but on my system the My Documents folder (which has all the Word files) resides on drive E:, which was not restored. Extensive scanning (both AV and spyware) show the system to be clean, and it is perfectly well behaved in all regards except for this. Thanks Tag: Save as opens explorer window. Tag: 96206
  - 12
    - Lowering Inline Shapes - How does Mathtype/Equation Editor do it? If you insert any picture into the InlineShapes collection, the picture sits with its base on the line of text. The only way I have found of lowering such a picture is to select it and use the Font.Position property - or Format / Font / Character Spacing from the menus. Mathtype and Equation Editor achieve the same result in some other way. Their output is lowered compare to the line of text but the Font.Position property is Normal (or 0). How do they do it? What property are they accessing? Ay clues much appreciated. Paul Hooper Tag: Save as opens explorer window. Tag: 96204
  - 13
    - Word macro warning Hi Everyone I have XP Pro SP2 which is fully updated. I accessed a site using IE7, copied some text and pasted it into Word 2003. I saved the document and, when I reopened it, I was warned about it containing a macro. I did a virus scan which was clear. I enabled the macro and looked at the VBA editor but saw no code there. In the Project pane there are "Reference to Normal" and "ThisDocument". When I looked in the right pane of "ThisDocument", I saw DefaultOcxName, DefaultOcxName1, DefaultOcxName2, DefaultOcxName3 etc., to DefaultOcxName15. The text in the document was present initially in cells in tables so I converted it from tables to text then resaved the text in a new document but exactly the same warning was displayed when I reopened it. Any idea what's happened? I don't like the warning when I open these document(s). I suspect that I could retype the whole document (it would be pointless having a copy/paste facility) and that is likely to prevent the macro warning but I'd rather not have to do that. Thanks for your time and patience. Tag: Save as opens explorer window. Tag: 96198
  - 14
    - Macro for Paper Size I was wondering if there is a way to create a macro that simply allows the user to change the paper size ? (Besides going to Page Setup and changing it there) Tag: Save as opens explorer window. Tag: 96196
  - 15
    - Word 2007 Digital Certificate problems? I've got a template signed with a thawte code-signing certificate (updated version for IE7). This certificate works as it should with Word 2003. If I try to run my template (it's a .dotm - macro enabled template) on Word 2007, in which I've selected the Trust Center's "Disable all macros except digitaly signed," it doesn't work -- the macros get disabled and I never get asked about the certificate. The only way i can get the macros to work is by choosing "enable all macros." If however, I run my template on Word 2003 and tell Word 2003 to "always trust this certificate," and then I install Word 2007 on that machine, Word 2007 does see and trust the certificate. Is there some additional step required to make it so a Word 2007 user with "Disable all macros except digitally signed" can use my template without having previously trusted the certificate in Word 2003 ?? (i'm signing the VBA code project in Word 2007) thanks in advance, gary hillerrson Tag: Save as opens explorer window. Tag: 96181
  - 16
    - Checkboxes on Userform -- Unable to Clear Checkmark in Checkbox I have been looking for several days now, so I am coming to ask for help. I have a userform that has 7 checkboxes, but many variations run many different macros. I am doing ok until I change the value of one of the checkboxes. When I change the checkbox value to False, it runs the macros associated with the Change event, BUT I am unable to get the checkmark in the checkbox to clear. Any ideas on what I am doing wrong? ------------------------------------------------------ I am on Word 2003, in a UserForm -- Example Subroutine is listed below. Sub CommandButtonResetForm_Change() ' ' Change Event for selecting/deselecting the "Reset Defaults" checkbox ' Macro recorded 1/28/2007 by ... ' 'Determine if the "Reset Defaults" checkbox is selected or deselected on the change event. 'If CheckBoxResetForm.Value = True Then 'Reset the default roles on the Authorization to Move section. 'Application.Run MacroName:="Module3.ResetUserFormAuthorization" 'Enable all development checkboxes & Labels (in case they have been disabled). 'ActiveDocument.FormFields("CheckBox2Dev").CheckBox.Value = True CheckBox2Dev.Enabled = True CheckBoxAmdocsDev.Enabled = True CheckBoxETLDev.Enabled = True CheckBoxMISDev.Enabled = True CheckBoxRHDDBDev.Enabled = True LabelETLtoDev2.Enabled = True LabelETLtoFuncSpecAuth.Enabled = True LabelMIStoDev2.Enabled = True LabelDev2.Enabled = True 'Set all the checkbox values to False (unchecked). FormField.CheckBox2Dev.Value = False FormField.CheckBox2Movers.Value = False FormField.CheckBoxAmdocsDev.Value = False FormField.CheckBoxETLDev.Value = False FormField.CheckBoxMISDev.Value = False FormField.CheckBoxPL.Value = False FormField.CheckBoxRHDDBDev.Value = False End If End Sub Tag: Save as opens explorer window. Tag: 96175
  - 17
    - Loop thru files Hi, I've done this before but seem to be doing something wrong now. I want change the date in a bunch of docs. I'm using the following code. It changes it in the first doc but doesn't move to the next. For Each aDoc In Documents With Selection.Find .Text = "01/29/07" .Replacement.Text = "03/01/07" .Forward = True .Wrap = wdFindContinue .Format = False .Execute Replace:=wdReplaceAll End With ActiveDocument.Save ActiveDocument.Close Next aDoc Thanks, Mickey Tag: Save as opens explorer window. Tag: 96166
  - 18
    - Spell Check in Protected Form Word 2003: Trying to spell check a protected form (.DOT). I've followed the instructions at http://word.mvps.org/FAQs/MacrosVBA/SpellcheckProtectDoc.htm, including replacing the spellcheck button on the Standard toolbar and the Tools menu. The problem is, once I close the template and reopen it (or open it in .DOC format), the button and menu options have reset to the original funtions, which are not available in a protected form. What am I doing wrong? Thanks in advance. Tag: Save as opens explorer window. Tag: 96160
  - 19
    - Wd2K7 - paragraphs.format not working ? I have a document that is 1000+1 textboxes, and want to untextbox it...the following macro works but does not duplicate the paragraph format as I think it should... advice much appreciated. Sub unFrameWholeDocument() Dim rngParagraph As Range Dim tmpParagraph As Range Dim cnlParagraph As Range Dim pPar As Word.Paragraph Set rngParagraph = Nothing ActiveDocument.Bookmarks("\StartOfDoc").Select SourceName = ActiveDocument.Name Documents.Add Visible:=True DestName = ActiveDocument.Name Text = "" paraI = 0 Documents(SourceName).Select For Each pPar In ActiveDocument.Paragraphs paraI = paraI + 1 Set rfrmtb = ActiveDocument.Paragraphs(paraI).Format.Duplicate ttext = ActiveDocument.Paragraphs(paraI).Range Documents(DestName).Select ActiveDocument.Bookmarks("\EndOfDoc").Select ActiveDocument.Paragraphs.Add ActiveDocument.Paragraphs(paraI).Range = ttext ActiveDocument.Paragraphs(paraI).Format = rfrmtb 'Selection.Paragraphs.Format = rfrmtb Documents(SourceName).Select Next pPar End Sub TIA Sean Tag: Save as opens explorer window. Tag: 96158
  - 20
    - Looking for a Fuzzy Matching algorithm Hi All, I'm looking for a Fuzzy Matching algorithm to compare two sentences, compute the percentage of matching and show the difference(s). But I don't have any clue at all on how to program such an algorithm in VBA. E.g. I'd like to match these sentences: (1) Turn the bolt clockwise. (2) Turn the red bolt clockwise. Matching: 89% The word 'red' in the second sentence is marked different. (e.g. by color). Thank you very much for pointing me in the right direction! Hans List Tag: Save as opens explorer window. Tag: 96157
  - 21
    - Word hogs entire CPU Although I don't use macros or VBA in my Word documents, I think they may be using ME. I have a 50 page document that I have formatted with outline numbering, captioned, etc. On my computer at work, I have Word 2003 and every time I load this document, it consumes nearly 100% of the CPU. Even my Outlook has trouble running (nearly locks up) when this document is loaded. When I ;am working on the document, the cursor does not show most of the time and it "jumps" around by a character or 2 when I have the mouse pointer in the area of the cursor. I know I did not use outline numbering,properly, but I don't know why it would be so active even when the document was in the background. Does anyone have any ideas. I don't seem to have the problem with my Word 2000 at home, but I have not done much with it at home Tag: Save as opens explorer window. Tag: 96153
  - 22
    - compare word documents side by side using VB 6.0 Hi all, I am new to VB. I need to Compare two MS Word Documents side by side using Visual Basic 6.0.I will be thankful if anyone help me sarath Tag: Save as opens explorer window. Tag: 96150
  - 23
    - Command Not Available error I have some macro code that in part created a new section then unlinks the section's footers from the previous section. I have one person who is using it that is getting a Command Not Available error message. The section of code that is giving the error is below with the line highlighted when debugged noted. Dim sCurSection As String sCurSection = Selection.Information(wdActiveEndSectionNumber) ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument.Content.End).PageSetup.VerticalAlignment = wdAlignVerticalTop With ActiveDocument.Sections(sCurSection) With .Footers(wdHeaderFooterFirstPage) .LinkToPrevious = False End With With .Footers(wdHeaderFooterEvenPages) .LinkToPrevious = False <---- this line is giving the error End With With .Footers(wdHeaderFooterPrimary) .LinkToPrevious = False End With The person with the error is using Microsoft Word 2003 on a Windows XP machine. I also use Word 2003 on an Win XP machine and don't get the error. Any ideas? Tag: Save as opens explorer window. Tag: 96142
  - 24
    - How can i merge 4 large documents (more than 3MB each) I finished write a book that has 5 chapters in word. The text include mathematics (I used mathtype) and each chapter has a size of more than 3 MB. I do not succed to merge the whole book in a single file. How can I solve this problem with word, as i need to include table of contents... Thank's Tag: Save as opens explorer window. Tag: 96138
  - 25
    - Deleting shapes I have the following macro that allows the user to draw vertical lines in the document. How can I remove all of them later from the document at one time without removing other shapes in the document? Sub NewLine() Dim lineNew As Shape Dim i, j On Error GoTo EndThis i = Selection.Information(wdVerticalPositionRelativeToPage) j = InchesToPoints(InputBox("BAR LENGTH {In Inches}:")) Set lineNew = ActiveDocument.Shapes.AddLine(575, i, 575, j + i) EndThis: End Sub Tag: Save as opens explorer window. Tag: 96136

Hi,
How do I save a document but allow the user to designate where it will be
saved.
Like when you save word it opens the explorer window.
--
Regards
Bill

Top

Re: Save as opens explorer window. by Doug

Doug
Sun Feb 04 01:01:21 CST 2007

Use

Dialogs(wdDialogFileSaveAs).Show

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"justagrunt" <justagrunt@discussions.microsoft.com> wrote in message
news:8A53808B-4C42-493F-81D2-B0AF4EF1B263@microsoft.com...
> Hi,
> How do I save a document but allow the user to designate where it will be
> saved.
> Like when you save word it opens the explorer window.
> --
> Regards
> Bill

Top