Table Borders

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - is it possible to make textboxes No VBA expreience, just trying to research. I have an idea for an app I'd like to build inWord, and part of the way it would work is to build one or many text boxes. Don't know if that's terminology, but I am talking about the white thing at the bottom of Word (when you have selected Drawing tools), and this white thing has the letter A in it. Word refers to it as a Text Box, anyway. So is there a way to do this where it will build a number of text boxes, allow me to specify a border, and then populate the text boxes with content based on the choices the user makes in a form? Tag: Table Borders Tag: 57980
  - 2
    - protecting document - word'97 Hi all, I am writing a VB application for Word 97. The application merges several prewritten Word documents based on the user selection. For example, if the user selects to generate certain type of document in the application, I would like to generate a new document at runtime by merging DoumentA.doc , DocumentB.doc and DocumentC and display it to the user. I can do this without any problem. But now I need to password protect the contents coming from the DocumentC.doc in the new document. How can I do this? Thanks. -Nikhil Tag: Table Borders Tag: 57979
  - 3
    - macros repeat command print selected pages in 2000 page file? I'm trying to print selected pages in a 2000 page file. I've set up the macro and it works on a single instance basis but I need a command to insert at the end of the Macro to tell it to search for the next qualifier and repeat to end. Thanks Tag: Table Borders Tag: 57978
  - 4
    - Word inside IE 1) I have a web site that prepares a word doc for a user 2) The user uses IE to open the word doc (Clicks on the filename.doc) 3) My autoopencode in a macro preloads some data from the web site into doc 4) The user cleans up the doc and adds lots more date 5) Clicking on a button saves the doc to the c drive of the user and uploads it to the web site The question is, can I get the user to exit, that is move on to the next web page, using Word ocde?? I can't figure out how to tell IE anything from within Word, even though Word is contained in IE. I can msgbox the user to tell them to use the back button, but that then asks them to save the word doc (it's already saved), and it gets them to the wrong web page. Ideas?? Tag: Table Borders Tag: 57977
  - 5
    - Exporting modules Hi, I have exported some modules and forms (*.bas, *.frm, and *.frx) from a project. Can I call these files from within a project? / Ulf Tag: Table Borders Tag: 57976
  - 6
    - Bring to Front? How can I bring a word document to the front of the display? At present, my documents are all in the background (invisible). When I've finished with automation, I want to bring one to the front (on top). Any ideas? Thanks. Tag: Table Borders Tag: 57975
  - 7
    - Footer Page Numbers I have macros to insert an A4 Landscape Page, A3 Portrait and an A3 Landscape page. When these pages are inserted it obviously has to insert a section break. The insertion works wonderfully, however the page numbering in my footer restarts at 1 on all new pages. If I maually edit the footer and change the format to continue from pervious it updates and all is well but I would like to make this happen automatically as part of the insert page procedure. I cannot find reference anywhere to the command of "continue from previous" - can anyone help?? Is it possible to change the number format of a page number in code?? Thanks Kerry Tag: Table Borders Tag: 57970
  - 8
    - Style Headache Hello I have 75 documents which have a style named ClientStyle - i need to create a table of contents based on this client style. However, for some reason the client style is a character style !! not a paragraph style!! Is there anyway I can create a TOC based on a character stye or is there a quick way to change a style from character to paragraph in 75 documents. The 75 documents are not linked or attached to their original template. Thanks very much for your help. Beck. Tag: Table Borders Tag: 57965
  - 9
    - Hiding the cursor in Word through VBA? Hi, Is there a way to hide the textcursor in Word? I need to hide the textcursor while doing some lengthy operations. Thanks in advance Jean Tag: Table Borders Tag: 57961
  - 10
    - Printing track changes message I'm trying to send certain pages of a document with track changes through a macro (I do want the revisions marks to print). However, the followng message appears with every print job: "The document being printed contains tracked changes. Continue printing?" Is there any way to programmically turn off this message so it just prints out? Thanks. Tag: Table Borders Tag: 57958
  - 11
    - Attach template/macro after merge Hi all, I am trying to automate a mail merge process, which has worked okay so far, but I am finding that when the merge to new document is complete, I lose the other macros that were in the original template. I am not allowed to mess with Normal.dot so I can't make my macros part of that template, which is what the new form letters are based on. Is there a way of bringing the macros from the main document template over to the new merged form letters? Thanks for any help you can offer. Zoe Tag: Table Borders Tag: 57957
  - 12
    - Bookmark truncation help In our department i am in charge of putting together forms. We use a document management system (DMS) that incorporates Word as our database's word processer over the old dinosaur of a processor we used to have. Anywhoo.... we use bookmarks in incorporate certain bits of info from our database into documents (client's first names, last names, case numbers, etc.) The following is what I use to delete leading zeros from a case number bookmark: the bookmark in this example is coded as CASNMI. {=ABS ([CASNMI]) \# "###0" \*MERGEFORMAT} The result of this coding within the document is a number like 44565 instead of 00044565. It cuts off the leading zeros, resulting in a neater looking document. Okay, this leads me to the question that I have now. What coding do I use to get the bookmark for the middle name to truncate it to just the first middle initial. So that instead of inserting the middle name as "Smith", my result would just be "S". No macros please, as they do not translate into the use of our DMS program. Tag: Table Borders Tag: 57954
  - 13
    - How do i iterate through picture collection? How do i iterate through picture collection in the Active Doc? I've tried 'Shapes' collection, but it only seems to find some of the pictures, but not all Tag: Table Borders Tag: 57952
  - 14
    - Resize Word's window very small? My code opens and closes documents, causing the documents windows to "flash" rapidly. I thought if there was a way to resize these windows after they open to very small squares, I could minimize the "flashing" effects. Can this be done in VBA? Ed Tag: Table Borders Tag: 57951
  - 15
    - Inserting web-based images into a Word Document Using VBA In WORD VBA, I can use easily open a web-based html file, using: Documents.Open Filename:="http://www.mysite.com/index.html", ConfirmConversions:=False, format:=wdOpenFormatText However, if I try to insert a we-based IMAGE file, using either of these: Selection.InlineShapes.AddPicture Filename:="http://www.mysite.com/myimage.gif", LinkToFile:=False, SaveWithDocument:=True ActiveDocument.Shapes.AddPicture Filename:=:="http://www.mysite.com/myimage.gif", LinkToFile:=False, SaveWithDocument:=True I get an "Invalid File Name" error. How can I insert a web-based image into a document using VBA? -- Ron Pierce localization: www.lucenaturale.com/tran Tag: Table Borders Tag: 57950
  - 16
    - Changing picture layout from vba I am using VB6 to control Word and importing a picture object into Word. When the picture is imported, I cannot move or reposition it without clicking on the Format | Picture menu then selecting the Layout tab and then clicking on the Tight mode (or another mode). After I do this, I can move the object. The problem is that I cannot do this when I start a macro and I do not know how to do this in code. Is there a better way to do this in code? Thanks in advance, WayneM Tag: Table Borders Tag: 57948
  - 17
    - Clearing the 'Undo' memory cache in Word to avoid sluggish behavio Hello, I have to work with approximately 1,000 page Word documents (talk about pushing things to the limit). I often have to make numerous find&replace operations (in fact I have them all saved in macros to run consecutively and automatically). The problem is that Word seems to run out of memory and evens warns of insufficient memory. I do not need the 'Undo' feature of Word in these circumstances. How can I turn off 'Undo"? Will that solve my problem? What I'd like to do is include macro code to clear the 'Undo' memory cache after each find&replace operation. Is this possible? Thanks for any and all expert opinions on this! Tag: Table Borders Tag: 57947
  - 18
    - Delete Picture from Header?? I had no trouble using VBA to add a bitmap picture to a header with ...Shapes.AddPicture "SomeFile" False, True, 8, 5, 380, 90 But I can't figure out how you use VBA to delete a picture from the header. I've tried this (from Helmut) but it has absolutely no effect. Dim oSct As Section Dim oHdr As HeaderFooter Dim oDcm As Document Dim oShp As Shape Set oDcm = ActiveDocument For Each oSct In oDcm.Sections For Each oHdr In oSct.Headers For Each oShp In oHdr.Shapes oHdr.Range.InlineShapes(1).Delete Next Next Next Next I tried this: ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.ShapeRange (1).Delete but I get an error message 5941 about something not being in its collection How exactly do you use VBA to delete a picture from a header?????????????????? Thanks Jim Tag: Table Borders Tag: 57945
  - 19
    - Word "pops up" a message box occassionally..... I'm automating report creation from VB.NET using Word VBA. During this process, I need to embed links into the document at various places. Sometimes, Word pops up a message box as follows: Word is unable to create a link to the object you specified. Please insert the object directly into your file without creating a link. This is all well and good (because sometimes the link *is* invalid!) but I would rather be notified of it in my code than have Word pop up a message box that must be responded to by the user. My report creation process is supposed to go on in the background with Word "invisible", so obviously in this case the user won't be able to respond to the message (err, I don't even want the user to be able to do so!). So my question to you is: Is there any way to prevent Word popping up this message box and having my application handle the error instead? Tag: Table Borders Tag: 57944
  - 20
    - instr function with wildcard I'd like to find a three digit number within a string. It would be much (much) better if it's possible to do this using INSTR rather than Find. ex: mystring = "abcdef789gh" anumber = instr(1, mystring , whatever) What should whatever equal to find digits in mystring ? Thank you! Tag: Table Borders Tag: 57943
  - 21
    - control PowerPoint with Word From Word, I want to be able to display a dialog box prompting users to pick a PowerPoint file. I want to open the PPT file, save the PPT file as JPGs (all slides in the PPT), then close the PPT file, revert back to Word, and do some more stuff in Word. The PPT file will always be in the folder C:\Work. I'd like to be able to build a folder for the JPG slides that would be C:\Work\name_of_the_PPT_file, so users could easily reference the correct folder if they needed to at some future point. Below is some code that gets me part of the way there, but I can't figure out how to get just the name of the PPT file. I tried using something like this: PathOnly = WordBasic.FilenameInfo$(.Name, 5) ...but that only works if I display a second dialog box and write more coding, all of which seems cumbersome for users, plus I want to keep the coding as streamlined as possible. Anyone have any ideas how I can extract just the filename of the PPT file from the variables I have in the code, or do I need to do a major rewrite? = = = = = = = = = Sub Insert_PPT_pics() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtItem As Variant Dim ppt1 As Variant Dim myFile As String With fd .AllowMultiSelect = False .Filters.Add "PowerPoint files", "*.ppt", 1 .FilterIndex = 1 .InitialFileName = "C:\Work" .InitialView = msoFileDialogViewList If .Show = -1 Then For Each vrtItem In .SelectedItems myFile = vrtItem Next vrtItem End If End With Set fd = Nothing Set ppt1 = CreateObject("PowerPoint.Application") ppt1.Visible = True ppt1.Presentations.Open (myFile) ppt1.Activate ' Here is where I want to save the PPT file as JPGs. ' Need to figure out how to get just the name of ' the PPT file rather than the whole path. ppt1.Quit ' Release object references Set ppt1 = Nothing ' revert to Word Selection.HomeKey Unit:=wdStory ' do some stuff in Word End Sub Tag: Table Borders Tag: 57942
  - 22
    - Change color of Selection indicator Hi, Is it possible to change the color of the Selection indicator. Normally, the selection is indicated by an inverse of the underlying text color and background color. (in a simple document, this would be white text on a black background). I was wondering if you can change these colors (eg...if you do a selection, it would show blue text on a green background). Cheers, Jean Tag: Table Borders Tag: 57940
  - 23
    - Save As I have created a command button that the users can update their Table of contents using the following code: .TablesOfContents(1).Update. Is there VBA code that I can write that will then open the Save as dialog box so users can save their final document. Thanks Tag: Table Borders Tag: 57938
  - 24
    - create hyperlink assigned to word bookmark Hi, I'm having trouble creating a hyperlink to assign to a bookmark in a word doco. Below is the code I'm using. This is giving me a type mismatch. The bookmark is called "hyper". I've tried various other ways with no luck. doc.Hyperlinks.Add Address="http://www.msn.com/", Anchor="This way", SubAddress=doc.Bookmarks("hyper") Any help much appreciated Tag: Table Borders Tag: 57931
  - 25
    - Saving as XML Hello, I have a problem. I open a UTF-8 coded XML-File in Word2003 and save it as UTF-8 in a new XML-File. The XML has the UTF-8 tag but the content isn't not UTF-8 coded. For example the german umlauts are still in the output file. On an other PC it works. What can it be? Thanks Werner Tag: Table Borders Tag: 57930
- Next
  - 1
    - create hyperlink in word Hello, I want to add a hyperlink to a bookmark in a word document and am not having any success. The bookmark is named 'hyper" Below is the relevant code. doc.Hyperlinks.Add Address="http://www.blah.com/", Anchor="Link Name", SubAddress=doc.Bookmarks("hyper") This is returning a type mismatch. Any help much appreciated. Tag: Table Borders Tag: 57929
  - 2
    - Question on FileOpen Dialog Word 2000 I have the following code. If Err.Number = 52 Then With Dialogs(wdDialogFileOpen) .Name = "Error.log" .Display End With End if Error 52 is a bad file name or file number. This is part of an error handling routine. Basically, if the path to the error log does not exist, then the user is given the opportunity to specify the path to the error log. The problem is that if the folder selected by the user is empty, the Open button in the dialog box will not work. Is there a way around this? -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: Table Borders Tag: 57928
  - 3
    - Language settings I commonly use both English and French for Word and I have to go through a lot of work to switch the language from English to French. Is there a way where I can set up Word to have the default language be English, but where I can quickly get to French without having to thumb through the list of languages every time I want to switch? Thank you. Tag: Table Borders Tag: 57926
  - 4
    - Dynamically Resize a Word 2003 Document Hi all, I would like to use VBA to create a macro that will resize and relocate a Word 2003 document on the screen when it opens up. The co-ordinates and dimensions of such a document will be specified in the macro (either hard-coded, or relative to the current screen resolution). Ideally, I want to create a new template with this macro embedded, and set to run as soon as the user opens up a document that is based on this template. How can this be done ? thanks, Andrew J Fortune, Melbourne, Australia Tag: Table Borders Tag: 57923
  - 5
    - Heeeelp..... exe doesn't start Hi, i wrote one small Prog. and did Setup.exe. but after intall this prog i cann't start it, it peeps and hapands nothing.... Thanks.... Gio Tag: Table Borders Tag: 57920
  - 6
    - Special monthly church-events calendar. I'd like a template for a monthly church-events calendar. I can a sample what I mean Tag: Table Borders Tag: 57915
  - 7
    - To hide a command button so it doesn't print out Hello, I created a command button to automatically update my table of contents in my word document using the following code: Private Sub CommandButton1_Click() ActiveDocument.TablesOfContents(1).Update End Sub The button is placed at the end of the document. When I go to print the final document the button also prints out so I have an "update TOC" button in my final printed document. Is there a command button property that makes it so the button doesn't print out when you print the document? Tag: Table Borders Tag: 57909
  - 8
    - creating rtf document from within Word Hi, all, Is it possible to create an .rtf document from within Word using VBA? Sometimes I open and work on existing rtf documents in Word, but I'm wondering if it's possible to create them from within Word as well. Larry Tag: Table Borders Tag: 57904
  - 9
    - Can't run Wizards Tried running "letter Wizard.Wiz" as supplied with Word 2003 and all that would happen is there was a flash - as if it was trying to work, and then back to the blank document, if one loaded, or to not even a blank document if none had been loaded. I have set security to the lowest setting but that did not help -- Frank J Tag: Table Borders Tag: 57900
  - 10
    - Open Method fails on Error 5174 I am trying to open a file using a full path name stored in a variant. Using Word 2000 in XP Home Edition. Example code: Dim v3 As Variant v3="C:\ita\reports\SynCrew101JR3-D_12-Oct-2004_13.44.10\tp.1" Documents.Open FileName:=v3 ' The above code yields runtime error 5174 (cannot find file) When I use this code: Documents.Open FileName:="C:\ita\reports\SynCrew101JR3-D_12-Oct-2004_13.44.10\tp.1" the file opens up successfully. I have tried storing the filename in a string variable. The same error occurs. The same behavior occurs when I use the Dir function. I have tried to use very short fullpath names. The same failure occurs. Appreciate any help or comments. Thank you, JMS Tag: Table Borders Tag: 57896
  - 11
    - Load Global Template Why am I receiving the message, "The add-in template is not valid" when attempting to load into Word. The template is in Word's startup folder and shows up under Templates and Add-Ins, but will not allow me to check the box to make it active. Thanks! Ermine Tag: Table Borders Tag: 57894
  - 12
    - InsertDatabase in Word 2003 Hi, i want to make a connection to a sql2000 stored procedure from Word to get some orderdetail records based on a orderID. Can someone give me an example or a link Url how to do this in Word 2003 (vba). Greetings, Mark Bakker Tag: Table Borders Tag: 57893
  - 13
    - Hyperlink in the same document I am trying to write a Word Macro to convert selected text in 3G specifications into hyperlinks to other places within the same document. However, I believe there is a bug in Word. As a simple example, if I record a macro to add a hyperlink, using the standard record macro functionality, to produce the following macro code: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 2004-10-11 by user1 ' ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="", _ SubAddress:="_9.2.1.4_Cause", ScreenTip:="", TextToDisplay:= _ "9.2.1.4 Cause" End Sub then the hyperlink I have created works. But if I exit Word without saving the document, then reopen the document and re-run the macro I had previously created, the new hyperlink it creates doesn't work. This seems like a bug to me, any idee? Tag: Table Borders Tag: 57892
  - 14
    - How can I manipulate XML-Attributes over WORD-VBA Hello, I have written a VBA-WORD-Macro to store XML from Word 2003. What I need is to change the value of an attribute over my macro. All what I get is a readonly XMLNode on which the value can't be changed. Have anyone an idea how a workaround could be Tag: Table Borders Tag: 57888
  - 15
    - Checking characters in a range is too slow Hi, I want to extract ranges from a paragraph which have the same color. At the moment I solve this problem iterating over all characters in a paragraph and comparing their color. Groups of consecutive characters with the same formatting build a range. The result is a list of these ranges. (eg from character 1 to character 8, the color is red, from character 9 to character 11 the color is white, ...) But as you might know, this is too slow because of the Collection iteration (doing characters(i) for each and every character in the pragraph is way too slow). I think it must be possible to do something with Find and Replace but I am not sure how to start. Thanks, Jean Tag: Table Borders Tag: 57883
  - 16
    - Word 2003 - Error 5479 - Bug in vba?? Hi there, (Word 2003 with or without SP1, german version) i have a severe problem with word 2003. I have a complex program, managing small word documents to make manuals etc. It runs with Word 97 to Word XP. But with Word 2003 i have some problems. I reduced the problem to a documents.open - command. To get a small, reproducible test-program , i made the following simple mini-program, which shows the same strange effects: One Main program, just showing a userform: Sub main() UserForm1.Show End Sub The form Userform1 just have one button with this code on the click-event: Private Sub CommandButton1_Click() Dim obj As Object Set obj = Documents.Open(FileName:="F:\bs175.doc") End Sub or Private Sub CommandButton1_Click() Documents.Open FileName:="F:\bs175.doc" End Sub or Private Sub CommandButton1_Click() Dim obj As Word.Document Set obj = Documents.Open(FileName:="F:\bs175.doc") End Sub The file F:\bs175.doc exists. F: is a local path. Thats it. Now the effect: Starting Word and starting the macro by tools/Macros/run results in an error-message: Runtime error 5479 Microsoft Office Word can not close, because a Dialog box is open.... If I open the visual basic editor and run the macro, everything is fine. Even if the Visual Basic Editor have just been opened once in the Word-Session, the error will not appear again in this session. Even if I close the Visual Basic Editor. I am really astonished, that such a simple example could produce the error-message, but its true on my system. It would be very nice, if you could tell me, whether its an effect just on my computer or whether you can reproduce the problem as well. Meanwhile I tested the same on another machine: same effect But the effect only comes, if the macro with the form is in a template, which is in the autostart-directory. (I put it in the normal.dot) Any hints, how to avoid the problem, are welcome. Thanks in advance and sorry for my bad english Ingo Tag: Table Borders Tag: 57882
  - 17
    - Bookmark and REF-field problem Dear group, I have a template, which is not protected as a form, because people have to be able to edit parts of the document. I use a createdate field on page one, which needs to be repeated in the header on pages 2 and later. No problem so far, I use the Ref-field for this. Now, some people actually don't want the create-date so they overwrite the createdate field on page one with their own desired date. This destroys the bookmark. As a result, on page one there is the correct date, but on the subsequent pages the ref-field will give an error: bookmark not found. (Of course using a createdate field on page 2 doesn't solve the problem, because the dates on page 1 and 2 will not be the same.) How can I make sure that a bookmark is not deleted, or is there another way to fix this problem? Thanks in advance, Martin Tag: Table Borders Tag: 57881
  - 18
    - How do I change the NORMAL.DOT from American A4 to UK A4 in Word I have Office XP Prof but have found that in the NORMAL.DOT template in Word, is preset with American size A4 which is different from UK size A4. How do I change this as it affects the use of my labels facility as the US paper size is smaller than UK and the labels do not print out according to what is on the screen so making most of them unusable. Tag: Table Borders Tag: 57879
  - 19
    - Integrate custom Help in Office 2003 Hi , I am implementing ISmartdocument solution using managed code. My questions are: a) How to add a chm to an office 2003 word(integrated with its help contents) b) How to programmatically show up a particular content based on the context node the cursor is in... (PopulateHelpContent is not relevant here since i need to show up chm) I am stuck figuring out solution for this since past 2 days...please let me know if you have any pointers. Appreciate your time.. thanks, Vishnu Tag: Table Borders Tag: 57876
  - 20
    - Adding 14 Days onto a Date I have a program that mail merges information in Word in order to create invoices. There is a mail merge field called INVOICEDATE in the word document. I want to create a new field that adds 14 days onto this INVOICEDATE field. I opened the word document and used ALT+F9 to toggle the INVOICEDATE field and it showed the following: { QUOTE InvoiceDate\@ "DD MMMM YY" } Based on another post I put on here I tried to edit this field to be: 1) { FORMAT (DateAdd("d",14,InvoiceDate), "DD MMMM YY")} When I try and create an invoice it comes back with an error message: Error! Bookmark not defined. I have obviously done something wrong???? Tag: Table Borders Tag: 57869
  - 21
    - Macro that browses multiple selection Hi all, No question, just a macro that some might find useful... Multiple selections (= selection of non-contiguous stuff) in Word2002/2003 are great. But Word doesn't have too many commands to make them useful (yet). One major gripe I have is that you can't easily browse through the selected items/ranges, looking at them one by one. Say you have selected a dozen words/paragraphs/cells... or more in some book with "Edit > Find > Highlight all items found in...". Or you have selected all occurrences of some particular style or kind of formatting from the "Styles and formatting" pane (... right-click on some style or formatting). Usually, you'd like to check out some or all of the selected ranges, before you copy or delete them, or change the formatting. Now, the only way to check out the selected ranges is to scroll through the whole doc (perhaps 300 pages), and look out for the selections. The macro below shows all selected ranges one by one (with a counter in a MessageBox showing the index -- "Multiple selection 3 of 7" ..., and an option to cancel at any time), and restores the multiple selection afterwards. It's pretty clumsy, mostly because VBA doesn't have much to offer regarding multiple selections. The macro doesn't work for multiple selected (floating) graphics. In tables, it will re-select only the text, even if whole cells were selected originally. Note that you have to change one line (containing "%F" in SendKeys) if you use a non-English version. Hope it may be useful! And hope there aren't serious bugs: Use it on your own risk. If the macro should run amuck, you can stop it with Ctrl+Pause ... And then, you should select all text and uncheck "Format > Font > Shadow". Perhaps, a future version of Word might add "Selection" to "Edit > GoTo" and the browser, so you can use Ctrl+PageDown/Ctrl+PageUp to center the screen on the next/previous selected range? What do you think: What other commands might be useful? Regards, Klaus Sub LoopMultipleSelection() Dim myRanges As New Collection Dim myRange As Range Dim i As Long ' Use Font.Shadow to mark selections: Selection.Font.Shadow = True ' Find all ranges with .Shadow=True: Set myRange = ActiveDocument.Range(0, 0) myRange.Find.ClearFormatting myRange.Find.Font.Shadow = True With myRange.Find .Text = "" .Forward = True .Wrap = wdFindStop .Format = True End With Do While myRange.Find.Execute ' Work-around for table cells: If myRange.start = myRange.End Then Exit Do End If myRanges.Add myRange.Duplicate myRange.Collapse (wdCollapseEnd) Loop ' Undo applying the shadow: ActiveDocument.Undo ' Step through ranges and show them: i = 0 For Each myRange In myRanges i = i + 1 myRange.Select ActiveWindow.ScrollIntoView _ Selection.Range, True If MsgBox("Continue?", _ vbOKCancel, _ "Multiple Selection " & _ Str(i) & " of " & _ Str(myRanges.Count)) _ = vbCancel Then Exit For End If Next myRange For Each myRange In myRanges myRange.Font.Shadow = True Next myRange ' Use EditFind Dialog to ' restore the multiple selection: Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Font.Shadow = True With Selection.Find .Text = "" .Replacement.Text = "^&" .Forward = True .Wrap = False .Format = True End With Selection.Find.Execute ' Alt+F is the accelerator key for "Find All"; ' change "F" to the appropriate key if you ' don't have an English version (e.g. "h" in German): SendKeys ("{TAB}{+}%F") Dialogs(wdDialogEditFind).Display 1 ' Clean up: Selection.Font.Shadow = False Selection.Find.ClearFormatting Set myRanges = Nothing End Sub Tag: Table Borders Tag: 57868
  - 22
    - Delete second page in document I have a Word document that contains a table and a header. I only want the first page, but I have a second page that contains only the header. How do I delete that second page so that I can save just the first page? Thanks for any help you can give me. Virginia Tag: Table Borders Tag: 57866
  - 23
    - Count # of occurences of all words in an MS Word document I need a tool which will count the number of occurrences of ALL words in a Microsoft Word document; the output would be something like this: tree 4 grows 3 city 6 ecology 2 the 78 etc .... Anybody know of anything readily available which will do this ? Thanks ....... Tag: Table Borders Tag: 57863
  - 24
    - Creating VBA to add 14 days to an existing date I use a program that creates Invoices within Microsoft word. It picks up certain data from the program and merges it into Microsoft Word, such as the date of the invoice. Can anyone help me create VBA that would add 14 days onto the date of the invoice? Regards James Tag: Table Borders Tag: 57859
  - 25
    - Word macro, bringing data from Excel with find command, How do I . I am programming a macro in Word and searching for data in Excel to bring into a Word table. Not all data is in the Excel spreadsheet. My macro errors out when Excel doesn't find the seached-for text. How can I catch this error? Tag: Table Borders Tag: 57858

Is there a way to not print the table borders in a
document - I have 200 documents using tables to lay the
document out efficiently but unfortunately didn't remove
the borders before creating them (they were created
initially using a mail merge).

To save having to remove the borders from all the files
can I just have a print event?

This is the one I have tried but it doesn't work and it
is only set to work on the first table in a document
anyway, I will have many tables- can anyone help please??
Thank you.

Gail

Private Sub appWord_DocumentBeforePrint(ByVal Doc As
Document, Cancel As Boolean)
Set myTable = ActiveDocument.Tables(1)

With myTable.Borders
.InsideLineStyle = wdLineStyleNone
.OutsideLineStyle = wdLineStyleNone
End With
End Sub

Top

Table Borders by Gail

Gail
Fri Oct 15 11:47:29 CDT 2004

I found the answer - thought it might come in handy for
someone else

Sub TblBrdr()
For Each aTable In ActiveDocument.Tables
aTable.Borders.OutsideLineStyle = wdLineStyleNone
aTable.Borders.InsideLineStyle = wdLineStyleNone
Next aTable

End Sub

>-----Original Message-----
>Is there a way to not print the table borders in a
>document - I have 200 documents using tables to lay the
>document out efficiently but unfortunately didn't remove
>the borders before creating them (they were created
>initially using a mail merge).
>
>To save having to remove the borders from all the files
>can I just have a print event?
>
>This is the one I have tried but it doesn't work and it
>is only set to work on the first table in a document
>anyway, I will have many tables- can anyone help please??
>Thank you.
>
>Gail
>
>Private Sub appWord_DocumentBeforePrint(ByVal Doc As
>Document, Cancel As Boolean)
> Set myTable = ActiveDocument.Tables(1)
>
> With myTable.Borders
> .InsideLineStyle = wdLineStyleNone
> .OutsideLineStyle = wdLineStyleNone
> End With
>End Sub
>.
>

Top