Accessing cells in an 'uneven' table

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Accessing cells in an 'uneven' table Tag: 75633
  - 2
    - 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: Accessing cells in an 'uneven' table Tag: 75631
  - 3
    - 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: Accessing cells in an 'uneven' table Tag: 75627
  - 4
    - 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: Accessing cells in an 'uneven' table Tag: 75626
  - 5
    - 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: Accessing cells in an 'uneven' table Tag: 75622
  - 6
    - 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: Accessing cells in an 'uneven' table Tag: 75615
  - 7
    - 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: Accessing cells in an 'uneven' table Tag: 75607
  - 8
    - 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: Accessing cells in an 'uneven' table Tag: 75605
  - 9
    - 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: Accessing cells in an 'uneven' table Tag: 75601
  - 10
    - fillable documents how do I create fillable documents in microsoft word 2003 Tag: Accessing cells in an 'uneven' table Tag: 75592
  - 11
    - 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: Accessing cells in an 'uneven' table Tag: 75589
  - 12
    - 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: Accessing cells in an 'uneven' table Tag: 75587
  - 13
    - 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: Accessing cells in an 'uneven' table Tag: 75583
  - 14
    - 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: Accessing cells in an 'uneven' table Tag: 75581
  - 15
    - 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: Accessing cells in an 'uneven' table Tag: 75579
  - 16
    - 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: Accessing cells in an 'uneven' table Tag: 75576
  - 17
    - 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: Accessing cells in an 'uneven' table Tag: 75567
  - 18
    - 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: Accessing cells in an 'uneven' table Tag: 75564
  - 19
    - 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: Accessing cells in an 'uneven' table Tag: 75563
  - 20
    - how do I repeat heading row in a word table by code Tag: Accessing cells in an 'uneven' table Tag: 75562
  - 21
    - 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: Accessing cells in an 'uneven' table Tag: 75560
  - 22
    - page break if statement I would like to add a page break if a certain Field condition exist? Is it possible Tag: Accessing cells in an 'uneven' table Tag: 75556
  - 23
    - 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: Accessing cells in an 'uneven' table Tag: 75554
  - 24
    - 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: Accessing cells in an 'uneven' table Tag: 75552
  - 25
    - 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: Accessing cells in an 'uneven' table Tag: 75550
- Next
  - 1
    - 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: Accessing cells in an 'uneven' table Tag: 75545
  - 2
    - 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: Accessing cells in an 'uneven' table Tag: 75541
  - 3
    - 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: Accessing cells in an 'uneven' table Tag: 75540
  - 4
    - 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: Accessing cells in an 'uneven' table Tag: 75538
  - 5
    - 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: Accessing cells in an 'uneven' table Tag: 75529
  - 6
    - 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: Accessing cells in an 'uneven' table Tag: 75524
  - 7
    - 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: Accessing cells in an 'uneven' table Tag: 75523
  - 8
    - 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: Accessing cells in an 'uneven' table Tag: 75519
  - 9
    - 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: Accessing cells in an 'uneven' table Tag: 75518
  - 10
    - 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: Accessing cells in an 'uneven' table Tag: 75516
  - 11
    - 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: Accessing cells in an 'uneven' table Tag: 75514
  - 12
    - 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: Accessing cells in an 'uneven' table Tag: 75510
  - 13
    - 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: Accessing cells in an 'uneven' table Tag: 75496
  - 14
    - 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: Accessing cells in an 'uneven' table Tag: 75491
  - 15
    - 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: Accessing cells in an 'uneven' table Tag: 75490
  - 16
    - 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: Accessing cells in an 'uneven' table Tag: 75489
  - 17
    - 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: Accessing cells in an 'uneven' table Tag: 75486
  - 18
    - modal status window? i'm familiar with StatusBar, but i was wondering if there is any way to make some kind of modal display similar to a MsgBox but without any buttons, and have the text updated at various points by the macro and then eventually closed? thanks in advance! Tag: Accessing cells in an 'uneven' table Tag: 75481
  - 19
    - forms I have two word docs. I place a number into a form text field on the first doc. How can I get that number into the second doc form field? Address the second doc's form text field? Tag: Accessing cells in an 'uneven' table Tag: 75479
  - 20
    - Auto Correct-Option of capitalizing after numbers, i.e., L4-5. I would like to see the "option" of being able to automatically capitalize the first word in each sentence after ending the previous sentence with a numeral. I work for orthopaedic surgeons and a lot of my sentences end in, for example, L4-L5. After becoming accustomed to this with Word 97, it's hard to remember to capitalize those. Also, I used to be able to type 79yog, and using Auto Correct, it translated to 79-year-old gentleman. I now have to put a space after 79 and just have yog transfer to year-old gentleman, which leaves a space after 79 - so it translates to 79 -year-old gentleman. Please make these options available in Word again. Thanks, Terry Lagnston ---------------- 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=18591416-2ec5-4364-872f-62e2926cbb53&dg=microsoft.public.word.vba.general Tag: Accessing cells in an 'uneven' table Tag: 75474
  - 21
    - Changing & Saving Settings Hi, I would like to set up one instance of MS-Word 2K3 just the way I want with the options set just the way I like them & then i'd like to export those settings via .pip or via exported registry entries so I can bring them onto other pc's so I don't have to manually setup the settings on all other pc's in the office. is this possble? if yes, can you tell me how to do that? I'm specifically looking to save & export settings from the 'Tools->->Options' and 'Format->->AutoFormat" menus. Any help would be greatly appreciated. Thanks Chris Tag: Accessing cells in an 'uneven' table Tag: 75472
  - 22
    - Finding string of many spaces I need to find strings of multiple space characters and reduce them to 0, 1, or 2 spaces, depending on the first character. What I think I need to do is find two consecutive spaces, then extend the range forward and backward until I hit a non-space character. What do I use to do that? Ed Tag: Accessing cells in an 'uneven' table Tag: 75469
  - 23
    - Passing variables between user forms and modules I can't seem to find the best way to pass variables between a user form and a module. Typically, I'm trying to send variables to a module to control how it initializes fields during the load event, and sending variables back to the module to determine subsequent processing based on the user's choices in the form. I know that if the form is still available (even if hidden) the module can access the form objects with proper qualification. But it doesn't seem to work the other way. That is, there doesn't seem to be any way to access module variables from a form, unless I declare the variables as Public. But that seems sloppy, somehow. What's the best way to communicate variables between a module and a form? Bear Tag: Accessing cells in an 'uneven' table Tag: 75467
  - 24
    - Autofill one field from two others Word 2000, protected form using Forms toolbox. Want to autofill text form field '1' with entries placed in text form field '2' and '3.' Tag: Accessing cells in an 'uneven' table Tag: 75466
  - 25
    - Auto Tag: Accessing cells in an 'uneven' table Tag: 75465

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

Top

Re: Accessing cells in an 'uneven' table by Jezebel

Jezebel
Thu Oct 27 06:16:45 CDT 2005

Read Help on the RowIndex and ColIndex properties.

You can also iterate the cells sequentially using the .Next and .Previous
properties for each cell.

"Jay" <jay@say.no.to.spam> wrote in message
news:%23NFul3t2FHA.4076@TK2MSFTNGP09.phx.gbl...
> 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
>
>

Top

Re: Accessing cells in an 'uneven' table by Tony

Tony
Thu Oct 27 07:43:37 CDT 2005

You can use TableRef.Range.Cells(n) to access an individual cell.

You can get a nominal Row and Column by examining the RowIndex and
ColumnIndex properties but you cannot use these to access the cell.

The Next and Previous properties will navigate through the table but not in
quite the same way as using Tab (which nominally does a NextCell).

--
Enjoy,
Tony

"Jay" <jay@say.no.to.spam> wrote in message
news:#NFul3t2FHA.4076@TK2MSFTNGP09.phx.gbl...
> 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
>
>

Top

Re: Accessing cells in an 'uneven' table by Jay

Jay
Fri Oct 28 02:51:31 CDT 2005

Thanks everyone for your answers,

Jay

Top