Anyway to get Preferredwidth for a table with merged columns?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75672
  - 2
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75668
  - 3
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75665
  - 4
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75664
  - 5
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75656
  - 6
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75654
  - 7
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75650
  - 8
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75642
  - 9
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75633
  - 10
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75631
  - 11
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75627
  - 12
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75626
  - 13
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75622
  - 14
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75615
  - 15
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75607
  - 16
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75605
  - 17
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75601
  - 18
    - fillable documents how do I create fillable documents in microsoft word 2003 Tag: Anyway to get Preferredwidth for a table with merged columns? Tag: 75592
  - 19
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75589
  - 20
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75587
  - 21
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75583
  - 22
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75581
  - 23
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75579
  - 24
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75576
  - 25
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75567
- Next
  - 1
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75564
  - 2
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75563
  - 3
    - how do I repeat heading row in a word table by code Tag: Anyway to get Preferredwidth for a table with merged columns? Tag: 75562
  - 4
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75560
  - 5
    - page break if statement I would like to add a page break if a certain Field condition exist? Is it possible Tag: Anyway to get Preferredwidth for a table with merged columns? Tag: 75556
  - 6
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75554
  - 7
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75552
  - 8
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75550
  - 9
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75545
  - 10
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75541
  - 11
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75540
  - 12
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75538
  - 13
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75529
  - 14
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75524
  - 15
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75523
  - 16
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75519
  - 17
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75518
  - 18
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75516
  - 19
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75514
  - 20
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75510
  - 21
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75496
  - 22
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75491
  - 23
    - 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: Anyway to get Preferredwidth for a table with merged columns? Tag: 75490
  - 24
    - Insert Landscape Page I need to create a macro that inserts a page break after the current page (which could or could not be the last page) and creates a landscape page. The problem is I don't know how to test for where the user will be in the document. Is there a code that goes to the bottom of the current page? Is there a code that once you go to the bottom that it can test to see if you are at the end of the document? I've wasted a day trying to figure this out and was hoping someone could help me. Thanks in advance. -- Debra Ann Tag: Anyway to get Preferredwidth for a table with merged columns? Tag: 75489
  - 25
    - Tab stop weirdness In my macro I want to clear all tabs, then set two tabs which should be active for any text that the macro pumps out in the rest of the document. I use this code from a 'Record Macro': 'set tab stops only at 1.25" and 3.0" Selection.ParagraphFormat.TabStops.ClearAll ActiveDocument.DefaultTabStop = InchesToPoints(0.5) Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(1.25), _ Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(3), _ Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces But for some reason after this code is executed these two tabs only hold for the first paragraph of text that is pumped out afterwards. After that, the tab setting reverts to one tab every 0.5". What am I doing wrong? Thanks. Tag: Anyway to get Preferredwidth for a table with merged columns? Tag: 75486

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

Top

Re: Anyway to get Preferredwidth for a table with merged columns? by Stefan

Stefan
Mon Oct 31 02:21:11 CST 2005

Wouldn't AutoFit work for you?

To make a table fit the width of its container:

<TableObject>.AutoFitBehavior wdAutoFitWindow

And to restore a fixed width:

<TableObject>.AutoFitBehavior wdAutoFitFixed

--
Stefan Blom
Microsoft Word MVP

"JWS315" wrote in message
news:552637B2-011E-4417-88AF-E59837721C00@microsoft.com...
> 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

Top