Copy Paste Macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Test for End of Section I can't tell all of you how much help you have been to me in learning how to create VB code. I would truely be lost without you all. In my code, I select the page and then test to see if my selection is at the end of the document by testing with: If Selection.Type = wdSelectionIP And Selection.End = _ ActiveDocument.Content.End - 1 Then ... Now I need to test if the selected page is the last page of a section or if there are more text / manual pages following the selected page. Is there a way to test if the current selected page is the end of a section? Thanks again!!! -- Debra Ann Tag: Copy Paste Macro Tag: 75678
  - 2
    - Anyway to get Preferredwidth for a table with merged columns? Is there ANYWAY to determine the width of a table that has merged columns? Jean-Guy showed a way to get the table width for a table without merged columns, however I have many users that like to create tables with merged columns. The preferredwidth property returns 99999 if the table is merged and the column width returns an error. I am copy and pasting the merged table as a nested table and I need to know if the table is wider than 1 column in page layout to auto size the new table to either fit in 1 column or spread it across the whole page. Jerry Tag: Copy Paste Macro Tag: 75673
  - 3
    - How do I set up a macro in a word doc. w/ an imported excel table I am setting up a template in Word that I have imported a table from Excel. I need to set the macro to save the margins, but it won't do it for some reason. I looked at the court document article, which helped me to understand, but now the excel table is posing a problem that won't let the macro run. Please help! Or please let me know if you need more clarification on my problem to help! Tag: Copy Paste Macro Tag: 75672
  - 4
    - Protected Forms and VBA events I've got a VC++ component that opens Word and creates a new document based on a user specified document template. The DDE fields in the document template are then merged with data from our database. With one customer they use protected forms which won't allow the updating of the document. To be able to do this I need to turn protected fields off when the document is created (I've used AutoNew which works), then turn protection back on after the document is updated and displayed. However with out making a Hotfix to our software I can't see a way in VBA (an event probably) to allow me to turn this protection on after the update. Any ideas gratefully received. Tag: Copy Paste Macro Tag: 75668
  - 5
    - table object in word I've written some VBA to work in word. I'd like to create a table object, similar to a form object, that is only accesible from the VBA editor. I want to be able to load this table into a recordset that I can then search through in code. Is this possible, and if so, can someone point me to directions for doing so? Tag: Copy Paste Macro Tag: 75665
  - 6
    - Adding a drop-down programmatically I'd like to be able to add 2 drop downs to 2 cells of a table in word, but I'd like to do it programmatically. I'd like to be able to do this off of the add-row event in word (the event that adds a table row); Is this possible, and if so, can you provide direction? Thank you very much in advance! MikeD Tag: Copy Paste Macro Tag: 75664
  - 7
    - Putting an image in a table cell I have some code (below) that creates table rows and writes data from a database, and symbols to the new cells. I have a small image that needs to go into each row too, If I have the image in the first row is there anyway to put it into each new row created ? Thanks hals_left ActiveDocument.Tables(3).Rows.Add With ActiveDocument.Tables(3).Rows(ActiveDocument.Tables(3).Rows.Count - 1) .Cells(1).Select Selection.Text = objRS("ID") .Cells(2).Select Selection.Text = objRS("Name") If objRS("Selected") = "1" Then .Cells(3).Select Selection.End = Selection.End - 1 Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode:=True End If ' How to do this part ? .Cells(4).Select Selection.Contents = Copy a gif image from another table cell or import it from file ? Tag: Copy Paste Macro Tag: 75656
  - 8
    - Selection.HeaderFooter.LinkToPrevious To shut off my link to previous for the current page and then the next page, I did the following but it only shuts off the headers, not the footers. I get the same code when I follow my keystrokes. Why is this nor working? ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = Not _ Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.HeaderFooter.LinkToPrevious = Not _ Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.NextHeaderFooter Selection.HeaderFooter.LinkToPrevious = Not _ Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.PreviousHeaderFooter -- Debra Ann Tag: Copy Paste Macro Tag: 75654
  - 9
    - How do I include a "blank" choice in a drop down list? I am creating a form letter. in the RE: section, there are several drop down lists but not all need to be filled out with every letter. How do I designated a "blank" choice on those lists so an unused drop down list will not show on the letter. Tag: Copy Paste Macro Tag: 75650
  - 10
    - Accessing cells in an 'uneven' table Hi, I know that you can use cell(row, col) to access a particular cell in a table. But what if some cells have been merged and others have been split, which makes the definition of row and col tricky. Is there still a way to access individual cells? Thanks, Jay Tag: Copy Paste Macro Tag: 75642
  - 11
    - Remove all contents from the Header of a document I have some documents that are being inserted into an exhisting document. Some of the documents have headers that are changing my template. Is there a macro to get rid of all contents in a header. Including any tables that might be in there? I mean anything that is in there. Please advise. thanks in advance. Tag: Copy Paste Macro Tag: 75633
  - 12
    - Insert Generic text starting from a bookmark Greetings, I have a document (template) where i need the user to be prompted for how many entries of some information will be appended (inserted) into there document. I need to spell it out for them where the heading is and where to insert the file. So for example if the user needed to insert 5 seperate files into this document the user would type in the number "5" and then the macro would return the following 5 times. Tab 1 - INFO Insert File Here Tab 2 - INFO Insert File Here Tab 3 - INFO Insert File Here Tab 4 - INFO Insert File Here Tab 5 - INFO Insert File Here I should also mention that i would need it to be started on a specific page or rather i think since the first pages will be so dynamic and could change i guess it would start at a specific bookmark. May be the First Tab1. Thoughts? Tag: Copy Paste Macro Tag: 75631
  - 13
    - Paste inline as link Hello I have my simple macro to paste an Excel chart linked to source file and in line with text partly working, but I cannot get it all to work. Here are the lines I have tried: Selection.PasteAndFormat (wdChartLinked) And InlineShapes.Add LinkToFile:=True What code can I use to ensure that a chart just copied from Excel will always poste linked and inline with text. Thanks for any help Sol Tag: Copy Paste Macro Tag: 75627
  - 14
    - Trying to simulate a pause in VBA I have looked at the article: http://support.microsoft.com/?kbid=212711 It appears to me that there is a bug in this code. When my BEFORE code is Selection.TypeText("1") and my AFTER code is Selection.TypeText("2") then repeat executions of the macro gives this result: 122122122122122122122122122122122122122122 If it were conducted properly, the result would be: 1212121212121212121212121212121212121212 For some reason it is taking two executions of the macro to clear the keyboard assignation. Any idea why this is? Also, I am interested in knowing if others have a similar result with the repeating 122122122. Thanks for your help. Tag: Copy Paste Macro Tag: 75626
  - 15
    - Using application.visible When I use application.visible = false and then turn it back on when the macro has finished, the following occurs: The window screen that appears is fine. However, there is another document that is created at the same time. When I change windows to look at that document, its view is messed up (the narrow print view bar at the bottom of the document screen disappears and the document window cannot be scrolled). When I click the print preview button and close it, the view is then "repaired." I attempted to print preview it programmically at the end of the code, but it makes no difference. Any suggestions? By the way, there are a lot of changes being made in the headers and footers, so turning off screen updating doesn't make any difference - the headers automatically turn it back on (and no, I cannot use the header range object here - dealing with a lot of replacement of text and graphics - thanks). Tag: Copy Paste Macro Tag: 75622
  - 16
    - Program to Automatically Save Word File I have a program that saves as excel and word file with the same filename (see program below). The excel file is being saved without problem, however, the word file it is not working at all. Could you please help me with this matter?.. I think that even the description I wrote under the word program are completely wrong. Thanks. Maperalia â??*****Start of Program********* Option Explicit Public Sub OpenWordAndUpdateLinks() SaveExcelTemplateAsSaveAs SaveWordTemplatelAsSaveAs End Sub Sub SaveExcelTemplateAsSaveAs() Dim WO As String Dim grdprp As String Dim sFilename As String Dim Progname As String Dim Filename As String Dim myDateTime As String WO = Worksheets("summary BLR").Range("M10") myDateTime = Format(Worksheets("summary BLR").Range("M9").Value, "yyyymmdd") Filename = "" & WO & "_" & myDateTime & "" Progname = "C:\Form\" & Filename & ".xls" ActiveWorkbook.SaveCopyAs Progname End Sub '***********OPEN THE TEMPLATE WORD FILE AND SAVE AS**************************** Sub SaveWordTemplatelAsSaveAs() Dim wordApp As Object Dim fNameAndPath As String Dim Filename As String Dim WO As String Dim myDateTime As String WO = Document("Page 1,Section 1",At 2.1").Range("ln 1,col 2 to ln 1, col 19") myDateTime = Document("Page 1,Section 1",At 2").Range("ln 2,col 7 to ln 2,col 19") fNameAndPath = "C:\Word\Template.doc" Set wordApp = CreateObject("Word.Application") wordApp.Documents.Open (fNameAndPath) wordApp.Visible = True wordApp.Activate Filename = "" & WO & "_" & myDateTime & "" Progname = "C:\Form\" & Filename & ".doc" ActiveDocument..SaveCopyAs Progname End Sub '********************************************************** â??*****End of Program********* Tag: Copy Paste Macro Tag: 75615
  - 17
    - Header and Footer Margins I have a document that I open up and import data from a Sql Database. I perform this with VBA code. I make an adjustment to the margins that changes text entered into the document. It also changes the width of the headers and footers which is something that I dont want to happen. How do I keep that from happening with VBA code. Tag: Copy Paste Macro Tag: 75607
  - 18
    - Form Field Suggestion using date entries I think it would be valuable to incorporate a small calendar to enter a date in a form field in Word. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=f6cf00d6-fc89-4856-b710-06ddb8b04748&dg=microsoft.public.word.vba.general Tag: Copy Paste Macro Tag: 75605
  - 19
    - Outlook 2003 Addressbook Can anyone provide code for Word 2003 that will prompt to pull name/address info from the Outlook Contacts folder -- specifically from another users Outlook Contact folder that I have access to. Thank you in advance for your help. Tag: Copy Paste Macro Tag: 75601
  - 20
    - fillable documents how do I create fillable documents in microsoft word 2003 Tag: Copy Paste Macro Tag: 75592
  - 21
    - why message: Do you want to save the changes you made to xxx.doc? I am running some code in Excel to print all Word .doc files in a particular folder. With one particular user there is a message popping up when he runs this in Word 2002, but fine in Word 2003: Do you want to save the changes you made to xxx.doc? at the following code. I presume it is the third line, but I can't reproduce it: wd.Documents.Open filename:=arrFiles2(i, 2), ReadOnly:=True wd.ActiveDocument.PrintOut Background:=False wd.ActiveDocument.Close wdDoNotSaveChanges Then whether he clicks No or Yes he gets an Error somewhere in a Word messagebox. Not sure now what the error is. Word is declared like this: Dim wd As Word.Application Set wd = New Word.Application Just no idea why this message and error possibly could occur and grateful for any suggestions. RBS Tag: Copy Paste Macro Tag: 75589
  - 22
    - Passing String parameter from Access to Word Macro Here is what I have: I created an Access database that is used to import text file data from Novell server configuration text file. In the first step of the process I've set the "Path" that I want all macros to use using a global string parameter(Global strString As String): strString = "I:\Configs". What I would like to do is pass the "Path" from the Access call to the Word Macro: 'This command runs the referenced Macro in the Word Aplication ObjWord.Run MacroName:="Normal.NewMacros.Stepa_CreateServerTextFiles" Does anyone know how this could be done???? Tag: Copy Paste Macro Tag: 75587
  - 23
    - Conditional drop down list I'm using code that Doug Robbins provided to a previous post. I'm very fortunate to have stumble across that little gold nugget. Thanks Doug. The code is using a table in word to fill in the drop down boxes on a user form. I'm having a problem when I try to show my user form. I get the error message "Run-time error '4198': Command failed." It appears that I am losing the focus on my template/document and the focus is now on the table document. Any ideas on how I can work around this? Thanks. Amy Tag: Copy Paste Macro Tag: 75583
  - 24
    - How to determine width of tables I need to determine the width of tables prior to copy them into a 2 column document using VBA. I looked at the columns width property but not all the tables have simple columns, some have nested or merged columns. Is there an easy way to detemine the width of any table regardless of the columns? Thanks! Jerry Tag: Copy Paste Macro Tag: 75581
  - 25
    - Batch process to change security of Word docs? (also posted in Word General) Is there a way to automate changing the security option of standard Word documents to make them read only or password protected? It's easy enough to do one by one (Tools --> Options --> Security) but I'd go crazy having to do this for several hundred. I'm using Word 2003 on a Windows XP platform. Thanks. pjs Tag: Copy Paste Macro Tag: 75579
- Next
  - 1
    - delete style and if style not found what to do.... i am trying to delete few style from activedocument. The macro is in one of the template and people create new document from there. At the end of tabulation etc. people delete unwant styles. It's always style a, b and c to delete. The macro deletes this a, b and c style but what coding I should write if they hit button again. Basically, I would like to run a macro and if style is not found it should gives a pop up saying styles are been deleted instead of run time error which says "styles not found" Any help Tag: Copy Paste Macro Tag: 75576
  - 2
    - export picture shape Anyone knows if there's a way to export a picture shape into a file? If possible without using the clipboard. Thanks for any hints! Luc Tag: Copy Paste Macro Tag: 75567
  - 3
    - Check if Word is already active? I pulled up an Excel macro I wrote in my absolute newbie days (not that I'm too much farther down the road!) that opens a Word doc. It still works, but now I can see that it needs some tweaking. I use Dim WD As Object doc = Fpath & "\" & Fname & ".doc" Set WD = CreateObject("Word.Application") WD.Documents.Open doc WD.Visible = True Set WD = Nothing (doc, Fpath, and Fname are all declared as well.) Besides being late binding, this opens an entirely new instance of Word, which can do some strange things to me, depending on what I'm doing in Word at the moment. What I'd really like to do is check to see if Word is running first; if it is, then open the new doc within the current instance - if not, then open a new instance. What's the best way to check if Word is already running? Ed Tag: Copy Paste Macro Tag: 75564
  - 4
    - can you add automatic sequential numbering to a word template? I would like to create a word template that will automatically enter a serial number on the page that will increase by 1 each time the template is used Tag: Copy Paste Macro Tag: 75563
  - 5
    - how do I repeat heading row in a word table by code Tag: Copy Paste Macro Tag: 75562
  - 6
    - Can anyone help with a little math problem? the following code fails with "invalid procedure call or argument". Can you see why? Sub test() cosh = 1.5009 myAnswer = Atn(-cosh / Sqr(-cosh * cosh + 1)) + 2 * Atn(1) MsgBox myAnswer End Sub It calculates the aCos (inverse cosine) of cosh, and uses the nonintrinsic math formula given in Word 2003 help. cosh is normally variable but 1.509 is typical for it. ---- Stephenc Tag: Copy Paste Macro Tag: 75560
  - 7
    - page break if statement I would like to add a page break if a certain Field condition exist? Is it possible Tag: Copy Paste Macro Tag: 75556
  - 8
    - Link to Macro in word document Hi I have recorded a simple macro in word to copy and paste an extra section of a table if required. I would like to have a button or link in the actual document that one could click on which would then simply paste the table. This will be a shared document so would really need to be embedded. Does anyone hav eany idea how I would do this, and if I have explained properly?! Many thanks Tag: Copy Paste Macro Tag: 75554
  - 9
    - looping through variables I have the following problem. I have several tables in a document and I need to work with the tables in a certain style. So I wrote a piece of code that loops through the tables, checks te style and if it is a match creates a variable in the variable collection of which the name is a counter for the matches and the value is a counter for the tables. This works fine, but when the matches exceed 10 the following occurs: While looping through my variables by itemnumber the order is changed. I use the following code: For i = 1 To ActiveDocument.Variables.Count iTmp = ActiveDocument.Variables(i).value and now expect to see my matches from 1,2,3,....,9,10,11... and so on... however I get: 1,10,11,12,..,2,3,4... Am I doing something wrong? Tag: Copy Paste Macro Tag: 75552
  - 10
    - How can you install Equation Editor on Microsoft Office Pro 2003 I'm trying to get directions to install Equation Editor in Microsoft Office Pro 2003. If you can help please let me know. Thanks Tag: Copy Paste Macro Tag: 75550
  - 11
    - EMAIL SIGNATURE CLAUSE IN WORD OS is XP Prof with Office 2003. I have a signature clause set up in outlook as well as one in word under Tools, Options, General, Email Options. However when I mail from word using either of the icons "Email" or "Send to Mail Recipient (As Attachment)" it never includes my email signature from either outlook or from word by default. You have to click in Outlook "Insert, Signature, etc. How can I force it to use the signature from either word or outlook by default? Obviously if I create a message in Outlook my signature comes in by default. Tag: Copy Paste Macro Tag: 75545
  - 12
    - database Dear ALL, My name is Gautam and i m new here... i have a specific query regardin my project. I want to make a template in word where my product (ie engine) i selected from the drop down menus and all information pertaining t that is filled in the lines below. EG. If i selected engine "A" then its parameters ie bore, stroke piston speed etc.. should be filled automatically in the templat below... I have done this successfully in EXCEL by data validation and VLOOKU but dont know for WORD. Please help Thanks in advance Gauta -- gmahendr ----------------------------------------------------------------------- gmahendru's Profile: http://www.highdots.com/forums/m108 View this thread: http://www.highdots.com/forums/t305111 Tag: Copy Paste Macro Tag: 75541
  - 13
    - Supress Mail Merge Warning Every time i open a megre document it issues a warning "Opening this document will run the following SQL results........." Anyway to supress this? Tag: Copy Paste Macro Tag: 75540
  - 14
    - Saving word Pages as images Hi, Can anyone suggest me how to save word pages as images. I need to save each page as an individual image from the word doc through coding. Can someone help me with this. Abhishek Tag: Copy Paste Macro Tag: 75538
  - 15
    - Inserting jpg's into headers with VBA Hi I'm trying to develop a macro in Word to insert a picture (shape object) in a header. I have no problem inserting lines as inline shapes using the addline() method and . However when I use AddPicture(), it always gives me compile errors or runtime type mismatch. Does anyone have a code snippet that works? Thanks Elly Belly Tag: Copy Paste Macro Tag: 75529
  - 16
    - Mail Merge Update I have a mail merge document that is linked to an Access database table. A VBA procedure runs from Access that updates that table thereafter opens the linked mail merge document. My problem is that when I open the mail merged document through the Access VBA procedure it does not update the record in the merged doc but when I open the same document manually, first it prompts me that it will run a SQL statement from the Access table to merge that data and when I click OK it shows the new record. (keep in mind that when the same mail merge document is opened through the VBA procedure it does not prompt me for anything instead opens the document with the last existing record). Is there a way that I can code the Word document to somehow refresh the merged records on open since it does not do so when I open it through my procedure? Any assistance would be greatly appreciated. Tag: Copy Paste Macro Tag: 75524
  - 17
    - Print different pages in the same document to different printers We have some pages that are colour, and some that are b&w. Rather than print all pages to a colour printer (ink is more expensive) i would like to be able to pick some pages to automatically go to a colour printer ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=c487deea-aec7-494e-9f3a-a9e5bfa0f1b8&dg=microsoft.public.word.vba.general Tag: Copy Paste Macro Tag: 75523
  - 18
    - Find # of Pages in First Section of Document Hello, I need to determine the number of pages in the first section of a document using vba. Anyone know how? Any help is very appreciated, thanks! Tag: Copy Paste Macro Tag: 75519
  - 19
    - Macro Security Error with Managed Assembly If fast food were this hard, grocery store shelves would be empty. Where's a sample or walkthrough on Word documents using managed assemblies from an HTTP location? Sure, Word finds the assembly but it still can't resolve security errors: "The current .Net security policy does not permit SomeDoc.doc to load custom macros." I've combed the web for hours but still haven't found the hidden text to make it work. Can't it just be simple? Of all of the VSTO samples, how about one that has a DOC, and assembly, the steps to authorize the download location from an HTTP, and just work if the user says so. Thanks for any pointers. Tag: Copy Paste Macro Tag: 75518
  - 20
    - Mail Merge problems with Microsoft CRm quotes Dear Word experts, How are you? Normally I spent time in the special Microsoft CRM (Customer Relationship Management) newsgroup, but the answer to my question can not be answered...yet. That's when I found this group. Our problem is the following. We are using the Microsoft CRM software to manage customer relationships. This piece of software should 'naturally' tie into other MS applications such as Word and Excel. However....we are facing a big issue when mail merging to Word. The situation is as follows: MS CRM allows you to create a quote on which you can put a number of products (line items). The structure would look something like this: Product Pieces Price Total Price Product X 2 50 100 Product Y 4 20 80 Etc Etc When the quote is finished, you can start a process which brings all your products and other quote details(e.g customer address details) to Word. Now the problem comes up. As an end-user, you seem to haver little influence in how the items are put into the quote template. They are just 'dumped' in randomly. We however, would like to group our products by a unique identifier (in this case: software, hardware and instruction) and display them in their own little section. So, ideally: Software Product X 2 50 100 Hardware Product Y 4 20 80 Etc. I now I am asking a lot, but is it possible (perhaps by putting in 'IF' statements) to design the template in such a way that it will not put all products in one table, but group them according to their type and calculate the subtotals accordingly. This would really, really help us . Microsoft can not help us at this time and we are getting lost. Thanks!!!!!!!! Michiel Tag: Copy Paste Macro Tag: 75516
  - 21
    - Change Source of all Links I have word file (template.doc) that have several links from excel file (template.xls). Since these files are linked every time a create a new file I do the following steps: 1.- Open both templates and save them as a new files (sample1.doc and sample1.xls). 2.- In the sample1.doc file I go to edit/links and click "Change Source" and change the template.xls file to sample1.xls. Although I click the first file and then I press Shift" to select all file and then I click the change source. It is doing it one by one. I wonder if there is a way (or program) to make the change source for all the links in one time? Could you please help me with some advice? Thanks in advance. Maperalia Tag: Copy Paste Macro Tag: 75514
  - 22
    - Another TOC question Greetings, Is it possible for word to create a TOC based on styles that reflect not the page number but the paragraph number and line number? i am really strugling with pagination issues. im hoping this might be a work around. i hope to hear from anyone on this topic. thanks Tag: Copy Paste Macro Tag: 75510
  - 23
    - Package linking and embedding Hi All I have an word document and inserted two .txt files using the menu option Insert->Object->Create from File. For both I checked "Display as Icon" and for only one checked "Link to File". Now in the document, I see two "Packaged" objects. I am trying to use C# to distinguish between the linked and the embedded file but cant do so as all the properties for the two fields are same. Both are fields with code "Embed Package". Can anyone help? Thanking in advance PJ Tag: Copy Paste Macro Tag: 75496
  - 24
    - Word Macro Error I recently inherited a Word document that is giving me the following error when I first run a customized save macro: "Word cannot copy a file to itself. G:\.....xxxxxxxxxx" Now, if I Ok out of that error and rerun the macro, it runs without incident. What is the probable cause of this error? I'm not too familiar with macro coding, so I don't know what to really look for. Any ideas on how to alleviate this error would be greatly appreciated. Thank you. BTW, I'm using Word 2003 on W2K. The error is below: Sub SODRSave() '******** _LASODR.DOT "SODRSave" MSWord Macro ******************** '** last rev. 05/23/2003 ** '***************************************************************** Dim locfolderprefix$ Dim netfolderprefix$ Dim regionprefix$ Dim fileopenpointer$ Dim a$ Dim namefile$ Dim b$ Dim netfolderyear$ Dim netfoldermonth$ Dim netfolder$ Dim button '****** THESE VARIABLES MUST BE MANUALLY ASSIGNED BY THE USER ****** locfolderprefix$ = "C:\_T&D Operations\Reports\Lancaster" ' C: drive save path prefix. netfolderprefix$ = "G:\ENGRDSGN\T&D Operations\Reports\Lancaster" ' Network drive save path prefix. regionprefix$ = "LA" ' Two character region filename prefix. ' Note: Year and Month sub-folders are automatically created. '******************************************************************* ' fileopenpointer$ = locfolderprefix$ ' "File+Open" command to point to this folder. ' '****** cksaveneeded: ' If WordBasic.IsDocumentDirty() = 0 Then GoTo bye a$ = WordBasic.[FileName$]() If LCase(WordBasic.[Left$](WordBasic.[Right$](a$, 16), 2)) <> LCase(regionprefix$) Then button = WordBasic.MsgBox("Not a valid SODR file name." + Chr(13) + "Must be in the form of '" + regionprefix$ + "2003_02_30.DOC '", " SODR bad filename ", 0) GoTo bye End If ' cdrivesave: 'WordBasic.FileSave namefile$ = WordBasic.[Right$](a$, 29) WordBasic.FileSaveAs Name:=locfolderprefix$ + "\" + namefile$ ' createnetfoldersavename: b$ = WordBasic.[Left$](WordBasic.[Right$](a$, 14), 4) netfolderyear$ = b$ netfoldermonth$ = b$ + "_" + WordBasic.[Left$](WordBasic.[Right$](a$, 9), 2) netfolder$ = netfolderprefix$ + "\" + netfolderyear$ + "\" + netfoldermonth$ ' WordBasic.PrintStatusBar "Saving to Network Drive. PLEASE WAIT. I'll let you know what happened soon." WordBasic.WaitCursor 1 On Error GoTo ErrorHandler ' checknetfolderyear: WordBasic.ChDir netfolderprefix$ On Error Resume Next WordBasic.MkDir netfolderyear$ ' checknetfoldermonth: WordBasic.ChDir netfolderyear$ On Error Resume Next WordBasic.MkDir netfoldermonth$ ' netdrivesave: WordBasic.CopyFile FileName:=a$, Directory:=netfolder$ ' When using SODRSave macro to save the file opened from the G: drive, ' the file will not save to the G: drive the first time ' and a message will indicate cannot copy to itself. ' The file will save to the G: drive on subsequent tries. ' Because after the file is saved to the C: drive on the first try, ' the open file becomes the one saved to C: drive. GoTo done ' ErrorHandler: button = WordBasic.MsgBox("File successfully saved to: " + Chr(13) + a$ + Chr(13) + Chr(13) + "Unable to save to Network drive: " + Chr(13) + netfolder$, " SODR path unavailable ", 0) button = WordBasic.MsgBox("Network may be unavailable at this time." + Chr(13) + "Use 'Save' command from File menu until the network connection is restored.", " SODR path unavailable ", 0) Err = 0 GoTo fileopenpointer ' done: WordBasic.PrintStatusBar "Save completed." ' fileopenpointer: ' This section is to make the File menu + Open command in Word ' point to the folder specified in fileopenpointer$, normally on the C: drive. ' Otherwise it would point to the last save path, which is a network drive. ' This is to help avoid opening a file manually from a wrong location by mistake. On Error Resume Next WordBasic.ChDir fileopenpointer$ ' "File+Open" will now point to this folder. GoTo bye ' bye: End Sub Tag: Copy Paste Macro Tag: 75491
  - 25
    - Macro Error Message I recently inherited a Word document that is giving me the following error when I first run a customized save macro: "Word cannot copy a file to itself. G:\.....xxxxxxxxxx" Now, if I Ok out of that error and rerun the macro, it runs without incident. What is the probable cause of this error? I'm not too familiar with macro coding, so I don't know what to really look for. Any ideas on how to alleviate this error would be greatly appreciated. Thank you. BTW, I'm using Word 2003 on W2K. The error is below: Sub SODRSave() '******** _LASODR.DOT "SODRSave" MSWord Macro ******************** '** last rev. 05/23/2003 ** '***************************************************************** Dim locfolderprefix$ Dim netfolderprefix$ Dim regionprefix$ Dim fileopenpointer$ Dim a$ Dim namefile$ Dim b$ Dim netfolderyear$ Dim netfoldermonth$ Dim netfolder$ Dim button '****** THESE VARIABLES MUST BE MANUALLY ASSIGNED BY THE USER ****** locfolderprefix$ = "C:\_T&D Operations\Reports\Lancaster" ' C: drive save path prefix. netfolderprefix$ = "G:\ENGRDSGN\T&D Operations\Reports\Lancaster" ' Network drive save path prefix. regionprefix$ = "LA" ' Two character region filename prefix. ' Note: Year and Month sub-folders are automatically created. '******************************************************************* ' fileopenpointer$ = locfolderprefix$ ' "File+Open" command to point to this folder. ' '****** cksaveneeded: ' If WordBasic.IsDocumentDirty() = 0 Then GoTo bye a$ = WordBasic.[FileName$]() If LCase(WordBasic.[Left$](WordBasic.[Right$](a$, 16), 2)) <> LCase(regionprefix$) Then button = WordBasic.MsgBox("Not a valid SODR file name." + Chr(13) + "Must be in the form of '" + regionprefix$ + "2003_02_30.DOC '", " SODR bad filename ", 0) GoTo bye End If ' cdrivesave: 'WordBasic.FileSave namefile$ = WordBasic.[Right$](a$, 29) WordBasic.FileSaveAs Name:=locfolderprefix$ + "\" + namefile$ ' createnetfoldersavename: b$ = WordBasic.[Left$](WordBasic.[Right$](a$, 14), 4) netfolderyear$ = b$ netfoldermonth$ = b$ + "_" + WordBasic.[Left$](WordBasic.[Right$](a$, 9), 2) netfolder$ = netfolderprefix$ + "\" + netfolderyear$ + "\" + netfoldermonth$ ' WordBasic.PrintStatusBar "Saving to Network Drive. PLEASE WAIT. I'll let you know what happened soon." WordBasic.WaitCursor 1 On Error GoTo ErrorHandler ' checknetfolderyear: WordBasic.ChDir netfolderprefix$ On Error Resume Next WordBasic.MkDir netfolderyear$ ' checknetfoldermonth: WordBasic.ChDir netfolderyear$ On Error Resume Next WordBasic.MkDir netfoldermonth$ ' netdrivesave: WordBasic.CopyFile FileName:=a$, Directory:=netfolder$ ' When using SODRSave macro to save the file opened from the G: drive, ' the file will not save to the G: drive the first time ' and a message will indicate cannot copy to itself. ' The file will save to the G: drive on subsequent tries. ' Because after the file is saved to the C: drive on the first try, ' the open file becomes the one saved to C: drive. GoTo done ' ErrorHandler: button = WordBasic.MsgBox("File successfully saved to: " + Chr(13) + a$ + Chr(13) + Chr(13) + "Unable to save to Network drive: " + Chr(13) + netfolder$, " SODR path unavailable ", 0) button = WordBasic.MsgBox("Network may be unavailable at this time." + Chr(13) + "Use 'Save' command from File menu until the network connection is restored.", " SODR path unavailable ", 0) Err = 0 GoTo fileopenpointer ' done: WordBasic.PrintStatusBar "Save completed." ' fileopenpointer: ' This section is to make the File menu + Open command in Word ' point to the folder specified in fileopenpointer$, normally on the C: drive. ' Otherwise it would point to the last save path, which is a network drive. ' This is to help avoid opening a file manually from a wrong location by mistake. On Error Resume Next WordBasic.ChDir fileopenpointer$ ' "File+Open" will now point to this folder. GoTo bye ' bye: End Sub Tag: Copy Paste Macro Tag: 75490

Hi,

From within a Word document how do I write a macro that will open an Excel
file say c:\Info.xls
copy range A1:C20 and paste special as a picture into the word document.

All help is appreciated

--

_______________________
Naz,
London

Top

Re: Copy Paste Macro by Doug

Doug
Thu Oct 27 13:48:16 CDT 2005

See the article "Control Excel from Word" at:

http://www.word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm

--
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

"Naz" <Naz@discussions.microsoft.com> wrote in message
news:8D360FD5-2ECA-4708-937B-9B370F8AC172@microsoft.com...
> Hi,
>
> From within a Word document how do I write a macro that will open an Excel
> file say c:\Info.xls
> copy range A1:C20 and paste special as a picture into the word document.
>
> All help is appreciated
>
> --
>
> _______________________
> Naz,
> London

Top

Re: Copy Paste Macro by Naz

Naz
Thu Oct 27 13:57:08 CDT 2005

Perfect - Many thanks
--

_______________________
Naz,
London

"Doug Robbins - Word MVP" wrote:

> See the article "Control Excel from Word" at:
>
> http://www.word.mvps.org/FAQs/InterDev/ControlXLFromWord.htm
>
>
> --
> 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
>
> "Naz" <Naz@discussions.microsoft.com> wrote in message
> news:8D360FD5-2ECA-4708-937B-9B370F8AC172@microsoft.com...
> > Hi,
> >
> > From within a Word document how do I write a macro that will open an Excel
> > file say c:\Info.xls
> > copy range A1:C20 and paste special as a picture into the word document.
> >
> > All help is appreciated
> >
> > --
> >
> > _______________________
> > Naz,
> > London
>
>
>

Top