Save document without saving macros

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Save document without saving macros Tag: 68760
  - 2
    - 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: Save document without saving macros Tag: 68757
  - 3
    - 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: Save document without saving macros Tag: 68756
  - 4
    - 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: Save document without saving macros Tag: 68755
  - 5
    - 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: Save document without saving macros Tag: 68746
  - 6
    - 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: Save document without saving macros Tag: 68744
  - 7
    - 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: Save document without saving macros Tag: 68743
  - 8
    - 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: Save document without saving macros Tag: 68742
  - 9
    - 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: Save document without saving macros Tag: 68739
  - 10
    - 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: Save document without saving macros Tag: 68736
  - 11
    - 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: Save document without saving macros Tag: 68725
  - 12
    - 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: Save document without saving macros Tag: 68720
  - 13
    - 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: Save document without saving macros Tag: 68716
  - 14
    - 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: Save document without saving macros Tag: 68715
  - 15
    - 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: Save document without saving macros Tag: 68708
  - 16
    - Keycode Constants Where can I obtain a list of Microsoft Word Keycode constants and their definitions? -- Jim Benet Tag: Save document without saving macros Tag: 68706
  - 17
    - 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: Save document without saving macros Tag: 68705
  - 18
    - 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: Save document without saving macros Tag: 68704
  - 19
    - 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: Save document without saving macros Tag: 68703
  - 20
    - 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: Save document without saving macros Tag: 68694
  - 21
    - How do I get OMR (Optical Mark Recognition) in MSWORD? Tag: Save document without saving macros Tag: 68693
  - 22
    - 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: Save document without saving macros Tag: 68689
  - 23
    - 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: Save document without saving macros Tag: 68688
  - 24
    - 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: Save document without saving macros Tag: 68686
  - 25
    - 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: Save document without saving macros Tag: 68684
- Next
  - 1
    - 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: Save document without saving macros Tag: 68680
  - 2
    - 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: Save document without saving macros Tag: 68679
  - 3
    - 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: Save document without saving macros Tag: 68678
  - 4
    - 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: Save document without saving macros Tag: 68677
  - 5
    - 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: Save document without saving macros Tag: 68662
  - 6
    - Help with school work How do I translate my writing into Egyption Hieroglyphic Tag: Save document without saving macros Tag: 68661
  - 7
    - VBA Errors in Excel Hi all, I have code that runs, and has errors ignored - using an on error resume next statement. However, after a while, I need it to again check for errors - that is stop the resume next. For example On error resume next ... ...code with errors ignored ... ... 'need it to stop it ignoring errors at this point ...code where errors are not ignored ... ... ...'need it not to ignore errors here this is probably a really simple problem, but I am new to vba. Is there a way to break out of the error ignoring. Also, I cant run the second part of the code first (before the ignore errors statement, since it relies on that code running in the first place. Thanks Cedop Tag: Save document without saving macros Tag: 68656
  - 8
    - export a word2003 document list to excel2003 in discreet rows I have a long list of links (66 pgs) in word 2003 that I want to sort easily in many ways. how do I export to excel2003 into discreet rows for each link which are on separate lines in the document. I tried all (.doc,.html,.xml). Can I do it directly? Or do I have to resort to a VBA solution? Tag: Save document without saving macros Tag: 68655
  - 9
    - Resizing footnote pane with keyboard Is ther eany way to resize the footnote pane with the keyboard? I would like to make a macro to do it, but I don't know how to do it with the keyboard. Thanks for any help. Tag: Save document without saving macros Tag: 68653
  - 10
    - Pasting an Excel table as a metafile in word via VBA I have been trying to paste a specified range of cells in Excel into Word as an enhanced metafile, using the code below (modified from a listing in Guy Hart-Davis' excellent book on Word VBA). If I paste as text or RTF, there is no problem, but when I try and paste as a metafile, I get the following error: "Run-time error 5342: The specified data type is not available" Any thoughts? Thanks in advance Simon Sub Getting_Value_from_Excel() Dim MySpreadsheet As Excel.Workbook Dim strSalesTotal As String Set MySpreadsheet = _ GetObject("c:\Sales Forecast.xls") With MySpreadsheet.Application .Visible = True .Parent.Windows("Sales Forecast.xls").Visible = True .Range("salestotal").Copy .Workbooks("Sales Forecast.xls").Saved = True .Quit End With Set MySpreadsheet = Nothing Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile End Sub Tag: Save document without saving macros Tag: 68651
  - 11
    - Relative file path I have an excel spreadsheet that contains calculations and a Word document that has a number of link references to it within the text of a report. Everything works fine and the excel sheets show up in the report as another page with headers and footers and correct page numbers etc. The problem occurs when I want to copy the two files to another project subdirectory and then try to make chnges to both. All the links in the Word document still refer back to the original excel spreadsheet back in the first project subdirectory. I have to manually repoint all the links to the new project subdirectory. Is there any way to cause the link to be to a relative address, that is make it look for the excel file in the same directory that contains the Word file? I can only figure out how to tell it absolute addresses of links. Is there a simple way to change the references (about 75) using vba? I will also post this in the Word and Excel group.. Tag: Save document without saving macros Tag: 68650
  - 12
    - Date Conversion Is there any way to preserve formatting with date conversion. Sub Test() Dim myString As String Dim myDate As Date myString = "February 12, 1969" myDate = CDate(myString) End Sub myDate in the above is returned as 2/12/69. I am trying to figure out how to preserve the date format during conversion. If myString is 2/12/69 then myDate should be 2/12/69. If myString is 12 February 1969 then myDate should be 12 February 1969. Can this be done without some elaborate analysis of mySting and setting up a Format(myDate, ......) statement? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Save document without saving macros Tag: 68648
  - 13
    - WinWrap Basic? Visual Basic for Applications? I am playing with Dragon NaturallySpeaking (Naturally Speaking) Advanced Scripting capabilities. According to the documentation, it is "Visual Basic for Applications compatible". It also mentions WinWrap Basic, once. I own Microsoft's Visual C++ NET 2003. Can I buy and use Visual Basic for a Visual Basic for Applications programming environment? Is Visual Basic for Applications a language by itself, or is the syntax, keywords, and stuff dependent on the application? Thank you. This is the language reference, a duplicate of the online help. www.asent.com/downloads/at2k2vb50.pdf Tag: Save document without saving macros Tag: 68637
  - 14
    - Disable Copy Paste in a saved document Is it possible to disable the copy paste function for other users in saved Word 2003 documents? Tag: Save document without saving macros Tag: 68632
  - 15
    - How do I get a macro to stop at the bottom of the document using c Many times I record a macro to do repeated actions. As an example, I record the macro to do one set of actions and store the macro in Alt-5. To run the macro down the page I keep hitting Alt-5. However, when I reach the end of the document, the macro goes back to the top of the document and starts over again. This is bad because of the text in the document. How do I stop a macro from executing if the macro has reached the end of the document. Here is an example of a multiple step macro I want to stop when the bottom of the page is reached. Selection.Find.ClearFormatting With Selection.Find .Text = "<p><a name=""" .Replacement.Text = "[GoTo]</a><br>^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Cut Selection.HomeKey Unit:=wdStory ActiveWindow.ActivePane.SmallScroll Down:=4 Selection.Find.ClearFormatting With Selection.Find .Text = """>[GoTo]</a><br>" .Replacement.Text = "[GoTo]</a><br>^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.TypeText Text:="}}}" Selection.PasteAndFormat (wdPasteDefault) Selection.Find.ClearFormatting With Selection.Find .Text = "</a><a href=" .Replacement.Text = "[GoTo]</a><br>^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.SmallScroll Down:=-1 Selection.Find.ClearFormatting With Selection.Find .Text = """>" .Replacement.Text = "[GoTo]</a><br>^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.SmallScroll Down:=-2 Selection.Find.ClearFormatting With Selection.Find .Text = "<p><a name=""" .Replacement.Text = "[GoTo]</a><br>^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With Selection.Find .Text = "<a href=""#" .Replacement.Text = "[GoTo]</a><br>^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1 End Sub Tag: Save document without saving macros Tag: 68627
  - 16
    - How can I insert a name in Chinese in the header of a RTF doc? I am creating a Chinese document using Word, and saving it as an RTF template. Then from a program where a person enters their name in Chinese, I am inserting the name as Unicaode 8 in the RTF. When the new document is opened in Word, the Chinese text is fine, but the name in the header appears as question marks ("?????"). I would appreciate any hwlp yuou can give - I am stuck. Thanks. Paul Tag: Save document without saving macros Tag: 68626
  - 17
    - insert a backspace character in a wrapped around line in MS Word 2 I would like to insert a backspace at the start of a wrap around line to form one line out of 2 in a database in Word which I will later import into Excel Tag: Save document without saving macros Tag: 68624
  - 18
    - FileSystemObject.copyfile I have been trying to copy a file using the following code but it gives the error Error '438' Object doesn't support this property or method Code below Dim UpdateTimeElement(0 To 3) As String Dim Network_path, local_path Public Sub main() '(UpdateTimeElement) Call GetNetworkPath.main(Network_path, local_path) Dim FileNameArray As Variant Dim ProdNumArray As Variant Dim outMessage As String Dim oOutlook As New outlook.Application Dim oMessage As outlook.MailItem Dim FileNumber As Integer Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") FileNameArray = Array("0021", "0003", "0017", "0045") Set oMessage = oOutlook.CreateItem(olMailItem) With oMessage .To = some email address .Subject = Format(Now(), "hhmm ddd, dd-mmm-yyyy") For i = 0 To 3 Set fs = Application.FileSearch With fs .LookIn = "z:\" + FileNameArray(i) + "\" .filename = "z:\" + FileNameArray(i) + "\" + FileNameArray(i) + ".1" If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then filename = "z:\" + FileNameArray(i) + "\" + FileNameArray(i) + ".1" fs.CopyFile filename, "c:\temp" Else filename = "z:\" + FileNameArray(i) + "\" + FileNameArray(i) + ".2" End If End With .Attachments.Add filename, olByValue, 1, FileNameArray(i) + ".tif" Next i .body = outMessage .Display End With End Sub I dont know if i'm just not understning how to use this FleSystemObject initially I just had FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\" in the code but it didn't work either. should I declare someting for this to work. I think i really need some help Phil Tag: Save document without saving macros Tag: 68621
  - 19
    - delete page I have a long document divided into separate pages using page breaks I want to delete every page which does not contain a particular keyword How do I 1. Search just each page one by one 2. Delete any complete page if a keyword is not found Thanks -- Patrick Tag: Save document without saving macros Tag: 68618
  - 20
    - HTML document in Word ignores changes I recently took over creating a newsletter for the store I work for. This is sent out to a large customer base so rather than have a large email, we link the images in the email to our server and I upload the iamges to the desginated directory on the server. I create the document in Word and then save it as a html document. Then I open the html document, view the source and proceed to change the image paths. However, when I tell it to save I get a message that states "The expected file path is different, do I want to update anyway?" If I click yes, it changes the paths to point back to my local computer. If I tell it no, it removes the path completely and if I cancel it of course doesn't save. Help! Amy Tag: Save document without saving macros Tag: 68609
  - 21
    - Automating PowerPoint It is my understanding that PowerPoint is a single instance app, i.e., there can be only a single instance of Powerpoint running. I've been using code such as the following: 'Get existing instance of PowerPoint; otherwise create a new one ' Powerpoint is a single instance application On Error Resume Next Set appPPT = GetObject(, "PowerPoint.Application") If Err.Number = 0 Then blnNewPPT = False Else Set appPPT = New PowerPoint.Application blnNewPPT = True End If On Error Goto 0 and then With appPPT If blnNewPPT Then .Quit Else .ActivePresentation.Close End If End With However, I suspect that code may not be good enough. If I created the NEW PowerPoint instance in code, how can I determine whether the instance is not being by somebody outside of my code? Somebody could have started Powerpoint session whilst my code is running, AFTER I created the NEW Powerpoint. Is the only choice to leave PowerPoint running? Tag: Save document without saving macros Tag: 68608
  - 22
    - Deleting a line in WORD when a certain string is found How can I delete a line(complete paragraph) in WORD when I find a certain string? Lets say the string is somehere within the paragraph? Thank You Charles BinzHow Tag: Save document without saving macros Tag: 68607
  - 23
    - How do I view word documents when I only have works 4.0 I can not open word documents with work 4.0, is there away to download word on windows 98? Tag: Save document without saving macros Tag: 68589
  - 24
    - complex macro Hello, I would like to create a macro that will open 4 forms with 1 button click. any ideas? thanks, mojr Tag: Save document without saving macros Tag: 68584
  - 25
    - IncludeText field font size I have a dynamic document which pulls a lot of its text from IncludeText fields from text files. No matter what I do the text always comes out as 10 pt font, I need it to be 8pt. I always have to reformat after all the fields are populated. Is there a switch so that they come down 8pt? I have all the fields set to /* MERGEFORMAT. But when the files recreated, and the fields are updated, they are 10pt again. I guess I could write a macro to reformat them but that seems redundant Tag: Save document without saving macros Tag: 68583

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.

Re: Save document without saving macros by Doug

Doug
Tue May 24 12:54:54 CDT 2005

Create the macro in the Normal.dot template, or better in another template
that you save in the Word Startup directory so that it will be loaded as an
add-in, making the macros available to all documents.

--
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
"hiho" <hiho@discussions.microsoft.com> wrote in message
news:8756314E-EBC8-4C59-8DA0-DEA83015C1F4@microsoft.com...
>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.

Re: Save document without saving macros by hiho

hiho
Wed May 25 06:54:03 CDT 2005

Thanks,
I'm trying templates now.

"Doug Robbins" wrote:

> Create the macro in the Normal.dot template, or better in another template
> that you save in the Word Startup directory so that it will be loaded as an
> add-in, making the macros available to all documents.
>
> --
> 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
> "hiho" <hiho@discussions.microsoft.com> wrote in message
> news:8756314E-EBC8-4C59-8DA0-DEA83015C1F4@microsoft.com...
> >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.
>
>
>