Need a global macro to change table style

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - wdDoNotSaveChanges doesn't work after saving in other format? Hello, This is a question about VBA in Word 2002. The problem involves the use of wdDoNotSaveChanges when closing a file. This seems to be the subject of lots of discussions online, because many people seem to have trouble making it work, and none of the solutions I've found seem to help. The problem seems to be this: If I save a file in WinWord 2.0 format, and then try to close the file, Word will always prompt me to ask whether I want to save the file. Nothing I've tried (see the commented lines below) seems to prevent the prompt from appearing; the only workaround I've found is to use SendKeys to say No when prompted, which of course is not exactly elegant. Here is a fragment of the macro, with various attempted solutions commented: ' all this is for saving the file in WinWord2 format ' based on code from Microsoft KB Dim fcCnv As FileConverter Dim strClass As String Dim strFileName As String strClass = "MSWordWin2" strFileName = Environ("TEMP") & "\tempww2.doc" ' Loop through all installed converters. For Each fcCnv In FileConverters With fcCnv ' Test for conversion ClassName. If .ClassName = strClass Then ' Save using the FileConverters.ClassName. ActiveDocument.SaveAs FileName:=strFileName, _ FileFormat:=.SaveFormat, _ AddToRecentFiles:=False End If End With Next fcCnv ' Having saved in Word2 format, close the file without saving ' The next line doesn't prevent the prompt, ' because Word already knows the file is saved - but in a different format ActiveDocument.Saved = True ' the SaveChanges= etc below doesn't help either ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges ' SendKeys says No when asked to save changes ' No other workaround seems to work SendKeys ("%" + "N") Does anyone have a solution to this minor problem? Thanks in advance. Edward Mendelson Tag: Need a global macro to change table style Tag: 54317
  - 2
    - Insert Rows Above Found Text in Table Trying to search for the word "Totals" which occurs towards the end of some tables, and insert 3 rows above it, then underline two of the newly inserted rows. Can't seem to do it without mixing up the range and causing an infinite loop. Here's the code For Each oTbl In objWord.ActiveDocument.Tables Set oRg = oTbl.Range With oRg.Find .ClearFormatting .Text = "Totals" .Format = False .Forward = True .Wrap = wdFindStop .MatchWildcards = False Do While .Execute oRg.Rows(1).Range.Select Selection.InsertRowsAbove 3 ' range gets messed up, finds same "Total For" again and again. Loop End With Next Thanks Jim Tag: Need a global macro to change table style Tag: 54315
  - 3
    - Bulleting in Word I am having difficulty automating bullets in word. I would like to automate bulleting something like: Code: Crane InputFile: CraneHeight.inp OutputFile: CraneHeight.out Any thoughts? I have tried using macros but it didnt help much. Thanks, - Nt Tag: Need a global macro to change table style Tag: 54308
  - 4
    - TOC Placement Hi, I have a procedure (see below) which inserts a table of contents relative to the section. This procedure works wonderfully however the placement of the section contents table is not correct, I would like the table to be inserted under the heading not at the top of the section. I do not know how to change my code. Any advice would be greatly appreciated. Thanks very much for your time. Kerry Sub SecTOC() 'Insert a table of contents for each section 'Highlights all text within a section, naming it as a bookmark 'Inserts a table of contents showing only section sub heading (level 2) styles 'Add switch to the table of contents field to only look in bookmark Dim iSec As Integer Dim oRng As Range Dim oRngStart As Range For iSec = 2 To ActiveDocument.Sections.Count With ActiveDocument Set oRng = .Sections(iSec).Range Set oRngStart = .Range _ (Start:=.Sections(iSec).Range.Start, _ End:=.Sections(iSec).Range.Start) .Bookmarks.Add _ Name:="Section" & iSec, _ Range:=oRng Secbk = "toc \h \z \t ""section sub heading,2"" \b ""section" & iSec .Fields.Add oRngStart, Type:=wdFieldEmpty, Text:=Secbk & """, PreserveFormatting:=False" Selection.Fields.Update End With Next iSec End Sub Tag: Need a global macro to change table style Tag: 54306
  - 5
    - Highlighting Sections I am using Word XP How can I highlight all the text in just the current section? Thanks very much. Tag: Need a global macro to change table style Tag: 54302
  - 6
    - Highlighting Sections I am using Word XP How can I highlight all the text in just the current section? Thanks very much. Tag: Need a global macro to change table style Tag: 54301
  - 7
    - Word 2000+ SaveAs Dialog Is there any way to get a SaveAs dialog in VBA for Word 2000 and above? I was using With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = filesavename .Title = "Save As" fileSaveFlag = .Show .Execute End With But it only works for Word 2003. Also as above, I'd like to specify the filename. Any help would be great, Carolyn Tag: Need a global macro to change table style Tag: 54285
  - 8
    - movenext command in ADO connection Hi- I have a Word97 macro which uses an ADO connection. (icrs.Open cmd, , , adLockBatchOptimistic) The MoveNext command doesn't work. I can move next, but the data is as if it all came from the 1st record in the recordset. (I know that there are 6 records, and I can "count" them in a Do While Not icrs.BOF loop with a MoveNext command inside. I just can't see the data.) I even downloaded MDAC2.8 . I have tried adOpenStatic, but still nothing. What am I doing wrong? Thanks in advance for any and all help. -Marty Tag: Need a global macro to change table style Tag: 54282
  - 9
    - How to distribute VBA-Code Hello! My question is how do I distribute VBA projects to our users' computers, so that I can call the subs/functions that come with that project? The background is we have close to 100 different templates, most of them use VBA code. Now quite a few of these templates use identical sub routines (i.e. a sub that reads from a certain text file). I thought it would be helpful to have a pool of common subs/functions instead of copying one and the same code to all templates. I tried using add-ins or putting a template into the startup folder, but that doesn't work unless you set a reference to the template containing the code. But the reference only works for the current project. Any ideas, links, hints, suggestions are appreciated Herbert Tag: Need a global macro to change table style Tag: 54281
  - 10
    - Word Table and Page Break I wrote a macro that looks at a column in a word table. Starting at the bottom of the table, it looks at each of the cells and if the cell matches the one above it, it removes the lower cell and continues. My problem is that the table breaks between page one and two and when the macro runs, it automatically deletes all items in the third row down on the second page. They do not match any other rows and it will delete them regardless of what they say. If I lengthen the page so that the entire table fits on one page, the macro works great, so I am assuming that it is the page break in the table the causes the problem. I did add 'Application.ScreenUpdating = False' but this only caused it to delete the second instead of the third line. The code is below: Dim tablecell, counter, head1, head2, head3 Selection.Tables(1).Select Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell head1 = Selection Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell head2 = Selection Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell head3 = Selection counter = 0 ' Identify which column we are working with 10 Selection.Tables(1).Select Selection.MoveDown Unit:=wdLine, Count:=1 counter = counter + 1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell ' For first column If counter = 1 Then GoTo 20 ElseIf counter = 2 Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell GoTo 20 ElseIf counter = 3 Then Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.SelectCell End If ' Remove duplicates from the column we are working with 20 tablecell = Selection Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell ' Stop process if at the top cell 23 If Selection = head1 Then GoTo 10 ElseIf Selection = head2 Then GoTo 10 ElseIf Selection = head3 Then GoTo 40 End If ' Delete the duplicates 30 If Selection <> tablecell Then Selection.SelectCell GoTo 20 ElseIf Selection = tablecell Then Selection.MoveDown Unit:=wdLine, Count:=1 Selection.SelectCell Selection.Delete Selection.MoveUp Unit:=wdLine, Count:=1 Selection.SelectCell GoTo 20 End If 40 End Tag: Need a global macro to change table style Tag: 54280
  - 11
    - How to use the organiser programatically Hi Folks, I have a series of templates and wizards that I wish to be able to re-create with options on a userform. Ideally I'd like to be able to create styles and toolbars programatically but I'm told this can't be done (if it can be please let me know :-) ). So what I'd like to do is write some code which can find my templates and copy the styles, toolbars and modules/userforms to a new version of the template. I think the organiser can be accessed using VBA but I'm not sure about importing modules and forms. Can anyone provide a sample of using the organiser and, if it can be done, code to import modules and forms. Any pointers appreciated. J Tag: Need a global macro to change table style Tag: 54278
  - 12
    - Automation: Inserting HTML text into Word 2000 I'm using Word 2000 to produce an output document from a VB application. I'm fine inserting text, images etc at bookmarks within a Word template file, but when I insert text which contains HTML tags, these are inserted as plain text rather than HTML. For instance you end up seeing "<B>Bold Here</B>" rather than just a bolded formatting of the words "Bold Here" Word 2000 can obviously handle HTML, because if you paste in text copied from a browser, you get it rendered as HTML rather than plain text. I'm using code like this to insert the text: Word.Application.ActiveDocument.Bookmarks.Item("IntroParagraph").Range.Text= "<B>Bold Here</B>" Suggestions gratefully received! Thanks, John Tag: Need a global macro to change table style Tag: 54277
  - 13
    - Word Automation: instance running, but can't use it? I have an Access 2000 app were a user may open Word docs, the path to the doc being stored in the db. I have this problem were if I open a word doc via code, and the user then closes word, the next time the user requests a word doc, it doesn't fly. An instance of Word *is* created, you can see it in task manager (only one instance). There is no Word instance in the period between the first and second request. What am I doing wrong? Why doesn't the code below utilize this running instance of Word (word 2002)? Some of this code comes from the Access Web, I'll not include the call that tests for a running instace of word (fIsAppRunning()), it works fine. The error that appears is error 462 "The remote server machine does not exist or is unavailable". Yet, word is running. It opens, without loading the specified doc. Private Sub cmdOpenDoc() On Error GoTo ErrHandler Dim objWord As Object Dim oDoc As Word.Document If fIsAppRunning("Word") Then Set objWord = GetObject(, "Word.Application") objWord.Visible = True Else Set objWord = CreateObject("Word.Application") objWord.Visible = True End If ' This fails if the user has opened then closed a word doc via this code before: Set oDoc = Word.Documents.Open(strMyDoc) ExitHere: Exit Sub ErrHandler: MsgBox "Error " & Err & ": " & Error Resume ExitHere End Sub Tag: Need a global macro to change table style Tag: 54270
  - 14
    - Array problems Hi, I have a weird problem. The Macro I have written uses variants in order to return arrays (For compatability with Word 95). This works fine on both Word 2000 and Word 95 but not on a Macintosh Machine. I get the error 'Cannot assign to array' on the Mac. Can somebody help me with this? Thanks a lot. Tag: Need a global macro to change table style Tag: 54268
  - 15
    - how to move a shape from a page to another page? I am working with VBA,and a problom puzzled me: how to move a shape by vba from a page to another page? I can move it in the current page only.After moved a shape, a "move object" item appears in the undo-toolbar ,and who can tell me which VBA-command can replace it? Tag: Need a global macro to change table style Tag: 54266
  - 16
    - Counting Characters automatically Hello Developers Is there a way in MS-Word 97 and up to count the number of characters automatically in real time as they are being typed. For example: If I have a document that must be 2000 characters long, I would like to count the characters so that when the user gets to 1990, I start flashing messages for the user to stop typing soon before the text becomes longer than 2000 characters. I am hoping to be able to have this happen dynamically as the user types, vs having the user hit a button to fire a macro and then the count will come out. So I think I need an event of a KeyDown or a keyboard buffer or any help from you. Thanks a lot. Tag: Need a global macro to change table style Tag: 54264
  - 17
    - Q. I'd like to be able to do these things with my Word 2000 Hi, Please explain the following, if you can: How can I make my Word 2000 application open up, just showing the text, when I double-click on an html file? Also, if I wanted to automatically update some text strings in that or any html file, like the replacement of certain text strings, would it require any VBA programming, macros, etc. I'm sure I'll have more questions, but's that all I have, right now. George Tag: Need a global macro to change table style Tag: 54256
  - 18
    - Add-in: Remove Hidden Data PROBLEMS Hello, Our firm has installed globally the Office 2003/XP Add-in: Remove Hidden Data. http://www.microsoft.com/downloads/details.aspx?FamilyID=144e54ed-d43e-42ca-bc7b-5446d34e5360&displaylang=en There seems to be major problems with this. If any 2 applications try and launch word you get an error to save normal.dot. For instance Outlook launches winword. If you have word as your default mail editor. Then we have a custom application that launches word. Here is the code. Set oWordApp = CreateObject("Word.Application") Set wordDocument = oWordApp.Documents.Open("c:\x.doc") wordDocument.Save wordDocument.Activate wordDocument.Close False oWordApp.Quit If you run outlook then this code you will get a message that normal.dot is locked and prompt to save it. If you un-install the Add-in: Remove Hidden Data everything works fine. Why does the add-in seem like it is trying to modify the normal.dot? I can understand when you first install it? But why always? Anyone else see this? MS - do you have a fix yet for this? Tag: Need a global macro to change table style Tag: 54255
  - 19
    - delete all?? I have a log file containing login information. Each line is a separate login. What I need to do is delete every line in the document containing a specified string. I've written a macro (see code below) which doesn't work very well. There has to be a better way to do this!! Can someone tell me how to do this more efficiently or better?? Any help/or suggestions is greatly appreciated. TIA, cathy ~~~~~~~~~ code ~~~~~~~~ With Selection .HomeKey Unit:=wdStory With .Find .ClearFormatting .Text = "Login succeeded for user 'me'. Connection: Non-Trusted." .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ' .find End With ' selection Do While Selection.Find.Execute With Selection .HomeKey Unit:=wdLine .EndKey Unit:=wdLine, Extend:=wdExtend .Delete Unit:=wdCharacter, Count:=1 .HomeKey Unit:=wdStory With .Find .ClearFormatting .Text = "Login succeeded for user 'me'. Connection: Non-Trusted." .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ' .find End With ' selection Loop 'do while Tag: Need a global macro to change table style Tag: 54254
  - 20
    - Replace all stories by pasting modified stories over originals? Hello, I'm trying to write a macro that will do the following: 1. Copy all of a document (including headers and footnotes, etc.) into an untitled blank document in a separate window. (This part is easy Ctrl-A, Ctrl-N, Ctrl-V does the job, producing this code: Selection.WholeStory Selection.Copy Documents.Add DocumentType:=wdNewBlankDocument Selection.PasteAndFormat (wdPasteDefault) 2. Make some changes in the untitled copy of the original document and ask the user to approve the modified version. 3. Select and copy all of the changed untitled copy, close the untitled document, and paste the changed version over the orginal document, replacing the original copy. Unfortunately, when I do this, only the main story in the original document is replaced; the modified versions of the headers and footers and footnotes are not changed. Is there a way to select every story in the original document, and paste over all of them? Am I missing something really obvious here? Many thanks for any help. Edward Mendelson Contributing Editor PC Magazine Tag: Need a global macro to change table style Tag: 54252
  - 21
    - Open on Save I'd like to write a macro that will automatically open a file on my desk if someone else saves the file. Is this possible? I tried the following macro, but it would make sense that it would try to open on the users desktop also. Any suggestions. Private Sub Document_Saved() Documents.Open FileName:="""CAP Team PTO 2004.doc""", ConfirmConversions:= _ False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto Tag: Need a global macro to change table style Tag: 54248
  - 22
    - Populating a ComboBox in the form_Load() or form_Activate() or Form_Initialize() event Help...again!! I need to populate a combobox as the result of my userform loading. I can populate the form as a result of a button click event. I know I have done this before...populated a combobox on form load...but I can not for the life of me remember what I did. I know it is not complicated...I think I am just having a major brain fart!! Thanx in advance for anyones help! Tag: Need a global macro to change table style Tag: 54238
  - 23
    - FAQ - Frequently Asked Questions - vba - Please read before posting - unofficial August posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted weekly.- more or less Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2003 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THESE --- http://www.mvps.org/word/FindHelp/Posting.htm http://www.dts-l.org/goodpost.htm Reading these articles will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. (5) Do not use your real email address unless you want spam. (See bottom for sample.) The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at http://addbalance.com/word/index.htm Newsgroup Archives: http://groups.google.com/advanced_group_search MVPs FAQ site: http://www.mvps.org/word/ To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? http://addbalance.com/word/macrosfromnewsgroup.htm or http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm 2. What are some good books for me to read about Word? http://addbalance.com/word/wordbooks.htm and http://www.mvps.org/word/Tutorials/BookRecommendations.htm 3. How can I run a macro automatically when a document opens, closes, is created? http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm 4. What is an MVP? http://www.mvps.org/word/AboutMVPs/index.html and http://addbalance.com/word/mvp.htm 5. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: http://addbalance.com/word/wordwebresources.htm#Forms especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: http://www.mvps.org/word/FAQs/Userforms.htm 6. Where can I find more information on the Web? http://addbalance.com/word/wordwebresources.htm#webvba http://www.mvps.org/word/FAQs/MacrosVBA.htm http://www.mvps.org/word/FAQs/Userforms.htm http://www.mvps.org/word/FAQs/Customization.htm http://www.mvps.org/word/FAQs/OfficeInterdev.htm Comments / corrections / additions may be sent to wordfaq@no.spam.addbalance.com. Remove no.spam from the address. (This is a "proofed" email address, I hope.) Posted 3 August 2004 Charles Kenyon (the editor) Tag: Need a global macro to change table style Tag: 54236
  - 24
    - Word 95 Macfile question Hi all, we are having a problem with a Mac file under word 95. On a system running win95 with office 95 (Serverbased install) the file works just fine. On a workstation running NT4.0 with office 95 (serverbased install) the same mac file fails to load as add in. The environment is the same for both types of clients except for the OS on the workstation. Any ideas what coud be the cause of this? Tag: Need a global macro to change table style Tag: 54234
  - 25
    - word When I open MS Word I get a button on my tool bar with the letters "EZP". When I click on the button I get the following error screen: Microsoft Visual Basic Runtime error "1220" Cannot open application. I have a dozen EZP buttons on my toolbar and can figure out why and cannot remove them. Help please. Thanks Tag: Need a global macro to change table style Tag: 54231
- Next
  - 1
    - word When I open MS Word I get a button on my tool bar with the letters "EZP". When I click on the button I get the following error screen: Microsoft Visual Basic Runtime error "1220" Cannot open application. I have a dozen EZP buttons on my toolbar and can figure out why and cannot remove them. Help please. Thanks Tag: Need a global macro to change table style Tag: 54230
  - 2
    - Paragraph located in a frame Hi, While browsing all the paragraphs of a wdMainTextStory range, how can I know if a paragraph is within a frame or not. Tx in advance. Patrick++ Tag: Need a global macro to change table style Tag: 54228
  - 3
    - Find invisible symbol fields in WP files imported in Word 2002? I'll be very grateful for any help with this frustrating problem that involves a special kind field in Word 2002 that is normally invisible - and that can't be revealed by any combination of the F9 key. This problem does not seem to occur with versions earlier or later than Word 2002 (XP) When you import a WordPerfect 5.x file into Word 2002, and the original file contains typographic symbols like curly quotation marks or dashes, Word 2002 does NOT convert the symbol into the equivalent native character in the current font, but instead creates an invisible field that takes the place of the original symbol. For the em-dash, for example, something that looks like an em-dash appears on screen and on the page, but it's not the same as Word's em-dash character; it's really a field, although nothing on screen shows that it's a field. So, if the original WP document contains an em-dash, you can't search and replace the em-dash in Word by entering ^+ in the search field (by using Find/More/Special), as you can to search for a real em-dash - and as far as I can tell, you can't search for the WP-imported em-dash at all. And you can't search for the invisible field by entering ^d either. If you copy the imported em-dash from the text and paste it into the Find field, you get an upper-case C, which doesn't help at all. You can't reveal these fields by using any combination of the F9 keys, but I found that you can see them by saving the file in WinWord 2.0 format and reopening it in Word 2002. (CrossEyes from www.levitjames.com also displays the fields.) At this point, you can see that (for example) a quotation mark imported from WP is really a field that looks like this: {symbol 65\f "WP Typographic Symbols"\s 12} But you can't search for this field by using "^d symbol" in the Find dialog. You CAN search them if you add a space after the opening brace and before the closing brace, but I can't find a way to add those spaces automatically. Question: is there a way to use VBA to find these fields and replace these hidden fields with the native Windows characters? I'd like to have a macro that will replace invisible fields containging quotation marks, section marks, paragraph marks, em and en dashes when a WP file is opened in Word 2002. Fixing them by hand is a bit time-consuming! Thanks for any help anyone can give. Edward Mendelson Contributing Editor PC Magazine Tag: Need a global macro to change table style Tag: 54214
  - 4
    - Single and double data types Hi I have a theoretical question on this subject but I'm naff at maths so don't laugh. From a book, I can see that the lower and upper limits of a single data type is -3.402823E38 to - 1.401298E-45 for negative values 1.401298E-45 to 3.402823E38 for positive values I don't even know how to do calculations with exponents on my computer to check for myself but what I'd like to know is a How do - exponents work eg 10 to the power of 2 = 100 10 to the power of -2 = ? b Do the limits of a single or double data type leave a 'gap' in between? ie A short data type (-32,768 to 32767) can clearly handle any figure in between but this isn't so clear for me with regards to floating point data types where there seems to be a gap. Why not -0.000000 and 0.000000 or sth similar? Thanks and remember what Einstein4S Maths teacher said about him when he was 16 (ok I ain't 16 anymore but...) Dave Neve Tag: Need a global macro to change table style Tag: 54206
  - 5
    - Loops that zero themselves? Hi The following code in a Visual Basic Net book Dim I As Integer , X As Integer For I = 1 to 3 For X = 1 to 3 Debug.Write("I = " & I & vbCrLf) Debug.Write("X = " & X & vbCrLf) produces I = 1 X = 1 I = 1 X = 2 I = 1 X = 3 I = 2 X = 1 I = 2 X = 2 I = 2 X = 3 I = 3 X = 1 I = 3 X = 2 I = 3 X = 3 I get the gist of this but I am surprised by line 8( X + 1 [again]) There is no code that has actually stipulates that X should return to zero. I would have been less surprised if X had proceeded to 4 and the code had refused to execute after line 8 Can sm give us a quick explanation please? Thanks in advance Tag: Need a global macro to change table style Tag: 54205
  - 6
    - Unvisible Text / property Hello, I have a vba application for word, in which it is nesessary to put information (=text) in the document which is unvisible for the user. Is there any property were this can be done? thanks Peter Tag: Need a global macro to change table style Tag: 54198
  - 7
    - Annoying task pane after loading an XML document with my schema I've defined a custom XML Schema and one solution for it. When I load my XML documents with this schema bound to, Word 2003 always shows an "XML document" task pane, where available presentation (XSLTs) are listed in. How can I suppress appearing of this panel? Tag: Need a global macro to change table style Tag: 54197
  - 8
    - Tabstops Using VBA how to move to the next Tabstop ? I have 4 tabstops, and I want to type something at each of those tabstops. Using Selection.TypeText("\t") works only if the string in the previous tabstop is long enough to push it to the next tabstop. Any ideas anyone? Tag: Need a global macro to change table style Tag: 54191
  - 9
    - Creating secured word "Viewers" Has anyone built or came accross a way to share documents by creating a "viewer" type application. Issue: We sell a tool that produces high value documents. We have automated a complex sales process: ROI to the point that a large sales force can get by with only one user liscense. I am attempting to account for all of the true users of the documents. One solution would be to create a vba application that the user must sign into before opening the document. The sign in data gets validated against a web database server. The users must buy the viewer. We already have the technology in place to link the activated application to the cpu to prevent multiple users from sharing one sign on. Any thoughts, examples, etc..?? -- anthony sarno Tag: Need a global macro to change table style Tag: 54189
  - 10
    - can't open word documents all of a sudden my word documents open up with a grey screen and microsoft word blinking at the top of the screen,also just above the task bar it says-running virus scan.when this happens nothing will get rid of the screen without rebooting.Any suggestions would be greatly appreciated thanks bob Tag: Need a global macro to change table style Tag: 54188
  - 11
    - Unlocking a Protected Form Template Am working on "protect-unprotect method without losing form field data" macro to allow the user to insert documents, use tools that are normally not available in a Word2000 protected document, etc. I already have code written to do most of this. Once unlocked, is there an easy way to designate sections of the document, that when "clicked in", would automatically lock the document down again? Does VBA see "File-Close" and "clicking the "X" in the upper right corner of the active window as the "same thing"? And would an AutoClose macro cover both instances? ...your thoughts please Tag: Need a global macro to change table style Tag: 54170
  - 12
    - Building a VBA Dropdown list I have a requirement to create in a form template a dropdown list. The items in the list, not only exceed the number of items, but the number of characters that the built-in dropdown field can hold. White building the list, is there code or a switch that can be used to make or allow the text to wrap or break? Tag: Need a global macro to change table style Tag: 54169
  - 13
    - Line feed in wdDialogFileSummaryInfo.Title field? I'm building a template for documentation. I'm using a tree control on a user form to allow the user to select from a list of products. I'm storing the product name in the Title field. I'm using the contents of the Title field for the title on the cover page of documents based on my template. Sometimes the text I have to put there is too long for the available space and the line wraps. I want to be able to control the point where the line wraps. For example, rather than having something like: "Product Family Product Variation Name" I need to have: "Product Family Product Variation Name" Right now I'm populating the tree control from an extensive collection of Add statements but I wrote those before I realized the line wrapping would be problematic. The tree control doesn't care about line wrapping... it just puts horizontal scroll bars in place to allow me to see the whole text string. So now, I've got the text that I want to use in a spreadsheet in two columns... Line One and Line Two. What I figure I'm going to have to do is examine the contents of the Line Two column and if there's text there, I want a line break before it. I wouldn't mind being able to populate the tree control out of the same spreadsheet file but that's not a dealbreaker. So what's the best approach I can take to make this happen? Do I need to abandon the concept of using the Title field? Is it possible to both populate the tree control (without line breaks) and create the value to insert in the Title field (with line breaks) from the same spreadsheet? Thanks for the help Mike Starr Tag: Need a global macro to change table style Tag: 54167
  - 14
    - Aligning Decimals in Table I have numbers such as the following in some cells in a Word 2000 table which are pt\ut there by VBA. The numbers are in cells in column 1, in rows 5, 6 and 7 $40,000.00 for the first period $75,000.12 for the next period $100,000.19 at age 89 I would like to execute some VBA which would align the numbers by the decimal point so that the above would appear as $40,000.00 for the first period $75,000.12 for the next period $100,000.19 at age 89 I tried the following VBScript (see below) (which applies to the entire column) and all it does is move numbers such as 3. in other cells of column 1 off to the right but has no effect on the dollar amounts mentioned. How does one do it?? Thanks Jim Sub DecimalTabStopInTableColumn() Dim tbl 'As Word.Table Dim col 'As Word.Column Dim cel 'As Word.Cell Set tbl = objWord.ActiveDocument.Tables(1) Set col = tbl.Columns(1) For Each cel In col.Cells cel.Range.ParagraphFormat.TabStops.Add 40,wdAlignTabDecimal,wdTabLeaderSpaces 'Alternative: ' cel.Range.Paragraphs.Style = "TableColumnDecimalAlign" Next End Sub Tag: Need a global macro to change table style Tag: 54166
  - 15
    - AutoCheck text to another document. What I'm trying to accomplish is to control electronic controlled documents in our company. People keep pulling the word files from the Quality folder to their desktop thus created extra uncontrolled documents. What I would like to do is create a macro or vba code that would autocheck a date on the document located in the quality folder to the one that is open. If its the same then fine if its not then it would stop them from using it. Any help, suggestion, sample code, website, etc.. would greatly be appriciated. TIA Tag: Need a global macro to change table style Tag: 54162
  - 16
    - Pausing Macro, Returning to Pause Point I am working on automating a document compilation task. The number of potential documents to be included in the single document number in the hundreds, and eventually each document will be automated as well before inclusion in the final compilated document. It is unlikely a user would be able to complete the process in a single sitting, both because of the number of documents involved but also because the user may not have all of the information needed to complete the task and may have to look something up. On a userform, I would like to be able to give the user the option to quit and return to the project later where they left off. Basically, I have one userform where the user selects the documents to be included in the project. When the user selects "OK", the documents selected begin compiling. When a document is reached that is automated, a userform for that document appears, the user makes the appropriate selections and that document is then added. The process continues when the user closes the userform until the last document selected has been added. I can save the values of the userform so that if the user quits he can return to the userform with the values he selected saved. The problem is that if a user quits, he quits in the middle of a macro that is running. Is it possible to not only return the values entered on the userform, but to also be able return to the point in the macro where the macro quit running when the user quit? Thanks for any help John Tag: Need a global macro to change table style Tag: 54159
  - 17
    - Macro doesn't perform I am trying to insert preformatted frames in a document. First just recorded a macro of inserting a frame, but then I was unable to record the steps for selectiong and altering the size and fill color. Next I formatted a frame the way I like and created an AutoText entry "AddFrame". I can use Insert>Autotext to insert the frame and I can recorde a macro of preforming that step. The recorded macro looks like this: Sub Macro1() Application.DisplayAutoCompleteTips = True NormalTemplate.AutoTextEntries("AddFrame").Insert _ Where:=Selection.Range End Sub For some reason when I fire this macro nothing happens. Can anyone explain? Tag: Need a global macro to change table style Tag: 54158
  - 18
    - Differentiating in the Dictionary Hi all, I have a brilliant question. Is it possible to distuinguish between proper nouns and regular words using the Word Dictionary in VBA? I mean, I am looking for a function that will give me a result like this: IsItName("John")=True IsItName("Anything")=False IsItName("Kerry")=True Thank you for your time. Vince Tag: Need a global macro to change table style Tag: 54157
  - 19
    - Tiff multi page image in word Hi, Can anyone tell me how to insert Tiff multi page image file in Word Thanks in advance Ravi Tag: Need a global macro to change table style Tag: 54152
  - 20
    - Using OR condition in findtext Hi all, I would like to know if it is possible to search for more than 1 text using find. I mean something like, Selection.find.execute findtext:="A" or "B" and so on... I know I could use an array to do the search for each findtext string, but something like this would make my life easy! Please let me know. Thanks a lot. Vince Tag: Need a global macro to change table style Tag: 54149
  - 21
    - Macro not always works I have a macro in a Word document, which works okay except that the last 2 lines sometimes execute and sometimes don't. They are ActiveDocument.Save ActiveDocument.Close What might the reason for this be, since the rest of the macro always works! -- Les Tag: Need a global macro to change table style Tag: 54148
  - 22
    - Document.PrintOut2000() This is a multi-part message in MIME format. ------=_NextPart_000_001E_01C47594.4EE2C2F0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable HI, I am trying to convert a word document into pdf using the code below. If = i provide the OutputFileName i.e. is my oDestinationPath then the word = document is converted to the pdf, but when i try to open the same i get = a message "Acrobat could not open '_h0071.pdf' because it is either not = a supported file type or because the file has been corrupted". Although = if I provide oMissing to the OutPutFileName then the file is created on = the desktop and opens fine. I want to control where the file is placed. object oDestPath =3D @"c:\ZZZZ\_h0071__.pdf"; wordApp.ActivePrinter =3D "Acrobat Distiller"; // Print wordApp.ActiveDocument.PrintOut2000(ref oBackground, ref oMissing, = ref oMissing, ref oDestPath, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref = oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing); Please tell me what am i doing wrong. Thanks in advance Rahul ------=_NextPart_000_001E_01C47594.4EE2C2F0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>HI,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am trying to convert a word document = into pdf=20 using the code below. If i provide the <FONT=20 size=3D3><STRONG><EM>OutputFileName  </EM></STRONG></FONT><FONT= =20 size=3D2>i.e. is my oDestinationPath then the word document is converted = to the=20 pdf, but when i try to open the same i get a message "<STRONG>Acrobat = could not=20 open '_h0071.pdf' because it is either not a supported file = type  or=20 because the file has been corrupted</STRONG>". Although if I provide = oMissing to=20 the OutPutFileName then the file is created on the desktop and opens = fine. I=20 want to control where the file is placed.</FONT></FONT></DIV> <DIV><FONT face=3DArial size=3D3></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>   object oDestPath =3D=20 @"c:\ZZZZ\_h0071__.pdf";<BR></FONT><FONT face=3DArial=20 size=3D2>   wordApp.ActivePrinter =3D "Acrobat=20 Distiller";</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>    //=20 Print<BR>    wordApp.ActiveDocument.PrintOut2000(ref = oBackground, ref oMissing, ref oMissing, <STRONG>ref oDestPath</STRONG>, = ref=20 oMissing, ref oMissing,<BR>     ref oMissing, = ref=20 oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref = oMissing,=20 ref oMissing,<BR>     ref oMissing, ref = oMissing, ref=20 oMissing, ref oMissing);</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Please tell me what am i doing = wrong.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks in advance</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Rahul</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2> </DIV></FONT></BODY></HTML> ------=_NextPart_000_001E_01C47594.4EE2C2F0-- Tag: Need a global macro to change table style Tag: 54143
  - 23
    - Document variables I am having problems assigning the value of document variables to a text box in VBA. It seams that the active document index for a document variable changes every time I create a document variable. For example, when I start creating variables the first one is usually indexed as 1 then the next would be 2 and then I find that it jumps a few, then when I create a few more variables the active document index goes wild and I am unable to access the variables. The question: How do I find out what active document variable index number each of the document variables is at and is there another way of getting the value of the document variables in VBA. Before the document variable idea, I was using the includeText field to map to external files. The problem with the includeText field feature is that it is not portable. What I would like to do is make the path changeable in VBA. If anyone can help, it would be appreciated. Thanks in advance. Tag: Need a global macro to change table style Tag: 54137
  - 24
    - Forms On a form is there a way that you could set the tabs to tab in an order that you choose???? Tag: Need a global macro to change table style Tag: 54133
  - 25
    - Creating Auto Section Headers I use Word 2000 to create time lines of criminal investigation, which often exceed 50 pages in length. Because of the extensive detail in which each event is described, it is not uncommon for several pages in a row to be without a section heading. This results in reader often loosing track of where they are chronologically in the document. Therefore, I am trying to figure out a way to print the most recent Level 1 section heading, which is the date, as a header atop each page. This would allow the reader to see where they are at anytime, just as one can do by referencing the top of a page in a dictionary and seeing the first and last words listed on the page. Any help would be greatly appreciated. Christian Tag: Need a global macro to change table style Tag: 54131

Hello,

I'm new to this group and have found so much information so far, but now I need your help.

I need a macro that will replace the TableNormal style with TableElegant throughout an entire document. What appeared as simple macro coding has now exacerbated my scant skills.

If you can help, please respond to me personally.
--
Jackie Damrau
Dynamic Online Training (DOT)
Perot Systems Corporation
Ph. 972.577.6243
Cell: 214.505.0100
email: Jackie.Damrau@ps.net

Top

Re: Need a global macro to change table style by Klaus

Klaus
Tue Aug 03 16:46:30 CDT 2004

> I need a macro that will replace the TableNormal style
> with TableElegant throughout an entire document.

Hi Jackie,

Not 100% sure since I haven't needed it myself:

Dim myTable As Table
For Each myTable In ActiveDocument.Tables
If myTable.style = _
ActiveDocument.Styles(wdStyleNormalTable) Then
myTable.AutoFormat Format:=wdTableFormatElegant
End If
Next myTable

One problem could be that .Style might return a paragraph, character or
list style in some cases...
Post back if it doesn't work!

Regards,
Klaus

Top