VBA code that works in Word2K refuses in Word2K3

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - COnverting Word table to XMl format Hi all, I need to do the following: * Convert a table in DOC format to XML. This could be done using CALS table format or anything of that sort. What I find impossible to detect, is the number of tabs in the table and the spanning in it. When I try saving a DOC in HTM format, I get something like width=10.67 and so on the HTM file. This cannot be properly represented in XML. I will need markups to determine the spanning and other cell information. Does anybody have a suggestion on how I should go about this? Many thanks. Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54342
  - 2
    - Setting break point (F9) causes macro to loop forever I wrote the little macro shown below to increase the paragraph "spacing before" setting by 6 points. It works just fine unless I set a break point (F9) anywhere in the macro. Then it loops forever. If I step through it (F8) or turn it loose (F5), it goes right back to the Sub statement and runs over and over. What am I doing wrong? Thanks Here's the macro code: ---------------------------------------------------------- Sub IncLineSpaceBef6pts() Dim setting As Single, reply As Long, msg As String setting = Selection.ParagraphFormat.SpaceBefore If setting < 999 Then 'If the selection is all the same setting, 'increase it by 6 Selection.ParagraphFormat.SpaceBefore = setting + 6 Else 'Otherwise, ask for instructions msg = "The selection contains multiple Space Before settings. " _ & "Set them all to 6?" reply = MsgBox(msg, vbYesNoCancel + vbDefaultButton2, "SpaceBeforeToggle macro") If reply = vbYes Then 'If they say yes, set them all to 6 Selection.ParagraphFormat.SpaceBefore = 6 End If 'Otherwise, do nothing End If End Sub -- For email, use Usenet-20031220 at spamex.com Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54339
  - 3
    - Insert fields from Excell or Access Is there a way to insert fields from an Excell or Access file into a Word document? I want to enter data into a spreadsheet and then insert it into a Word document. Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54334
  - 4
    - Text out of text box Periodically I copy text in a text box from another program to a Word doc. How do I get the text out of the text box so that the text when formatted is the same as the rest of the document? Any help will be greatly appreciated. Roger Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54333
  - 5
    - tables in tables very slow I'm generating a document in VBA that reads data from a database and then creates a document. I have 5-6 levels of nested tables necessary to format the data. The resultant document is about 100 pages. The generation of the document and formatting of the tables takes 9+ hours to complete on a P4/512MB. Needless to say this will not be acceptable. When I single step thru some of the formatting commands (like setting up borders and bolding text) I can see it takes several seconds for each command. What can I do to improve speed? Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54327
  - 6
    - Suppress Fillin field prompt in vbscript I've got a vbscript that recursively searches for and prints documents in a directory to file. When it stumbles across a document with a fillin field prompt, the vbscript stops until I can hit ok. Is there a way to suppress this prompt? If not, is there a way to automatically hit OK when the prompt comes up? Here's the sub I'm using to accomplish this task. *********vbscript********* Sub ConvertOffice(oCurrentFolder, oWord, oExcel, docnumber, xlsnumber, rtfnumber, txtnumber) Dim strTemp Dim docSearch Dim exlSearch Dim rtfSearch Dim txtSearch Dim strOutput Dim oNewFolder Dim oFile Dim oStream Dim FileOutdoc Dim FileOutxls Dim FileOutrtf Dim FileOuttxt Dim oDocument docSearch = ".doc" exlSearch = ".xls" rtfSearch = ".rtf" txtSearch = ".txt" For Each oFile In oCurrentFolder.Files strTemp = Right(oFile.Name, 4) FileTemp = Cstr(oCurrentFolder) & "\" & Cstr(oFile.Name) FileTemplcase = LCase(FileTemp) FileTempcomma = Replace(FileTemplcase,",","") FileOutdoc = Replace(FileTempcomma,".doc",".ps") FileOutxls = Replace(FileTempcomma,".xls",".ps") FileOutrtf = Replace(FileTempcomma,".rtf",".ps") FileOuttxt = Replace(FileTempcomma,".txt",".ps") If UCase(strTemp) = UCase(docSearch) Then Set oDocument = oWord.Documents.Open(oFile.Path, False, True) oDocument.Fields.locked = True oWord.PrintOut False, False, , FileOutdoc, , , , , , , True Do until oWord.BackgroundPrintingStatus = 0 Loop oWord.Application.ActiveDocument.close False docnumber = docnumber + 1 ElseIf UCase(strTemp) = UCase(rtfSearch) Then oWord.Documents.Open oFile.Path, False, True oWord.PrintOut False, False, , FileOutrtf, , , , , , , True Do until oWord.BackgroundPrintingStatus = 0 Loop oWord.Application.ActiveDocument.close False rtfnumber = docnumber + 1 Elseif UCase(strTemp) = UCase(txtSearch) Then oWord.Documents.Open oFile.Path, False, True oWord.PrintOut False, False, , FileOuttxt, , , , , , , True Do until oWord.BackgroundPrintingStatus = 0 Loop oWord.Application.ActiveDocument.close False txtnumber = docnumber + 1 Elseif UCase(strTemp) = UCase(exlSearch) Then Set oWorkbooks = oExcel.workbooks.open(FileTemp) oWorkbooks.PrintOut , , , , , True, , FileOutxls oExcel.workbooks(Cstr(oFile.Name)).close False xlsnumber = xlsnumber + 1 End If Next For Each oNewFolder In oCurrentFolder.subFolders ConvertOffice oNewFolder, oWord, oExcel, docnumber, xlsnumber, rtfnumber, txtnumber Next End Sub ******end vbscript******* Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54324
  - 7
    - Need a global macro to change table style 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 Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54319
  - 8
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54317
  - 9
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54315
  - 10
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54308
  - 11
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54306
  - 12
    - Highlighting Sections I am using Word XP How can I highlight all the text in just the current section? Thanks very much. Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54302
  - 13
    - Highlighting Sections I am using Word XP How can I highlight all the text in just the current section? Thanks very much. Tag: VBA code that works in Word2K refuses in Word2K3 Tag: 54301
  - 14
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54285
  - 15
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54282
  - 16
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54281
  - 17
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54280
  - 18
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54278
  - 19
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54277
  - 20
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54270
  - 21
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54268
  - 22
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54266
  - 23
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54264
  - 24
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54256
  - 25
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54255
- Next
  - 1
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54254
  - 2
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54252
  - 3
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54248
  - 4
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54238
  - 5
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54236
  - 6
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54234
  - 7
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54231
  - 8
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54230
  - 9
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54228
  - 10
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54214
  - 11
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54206
  - 12
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54205
  - 13
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54198
  - 14
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54197
  - 15
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54191
  - 16
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54189
  - 17
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54188
  - 18
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54170
  - 19
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54169
  - 20
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54167
  - 21
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54166
  - 22
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54162
  - 23
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54159
  - 24
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54158
  - 25
    - 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: VBA code that works in Word2K refuses in Word2K3 Tag: 54157

I am trying to port old code (originally made for Word 97 but working in
WOrd 2000) to Word 2003.

I'm seeing a few problems here though.
when I try to execute the follwing instructions in VBA I get an unknown
error (err.number has a value of -2147319779)

dim ses as object
ses = CreateObject("OracleInProcServer.XOraSession")

On the machine (running Win2K SP4) All needed Oracle components are
installed to allow this instruction to work fine in Word 2000.

Did anyone come across this problem? How can I work around this?

Kind regards,

Romain Voes

Top

Re: VBA code that works in Word2K refuses in Word2K3 by Cindy

Cindy
Mon Aug 23 12:10:32 CDT 2004

Hi Rvo,

It sounds to me as if the project doesn't have a valid reference to
OracleInProcServer, or that this is not correctly registered in Windows.

Place to start would be in the Word VBEditor, Tools/References.

> I am trying to port old code (originally made for Word 97 but working in
> WOrd 2000) to Word 2003.
>
> I'm seeing a few problems here though.
> when I try to execute the follwing instructions in VBA I get an unknown
> error (err.number has a value of -2147319779)
>
> dim ses as object
> ses = CreateObject("OracleInProcServer.XOraSession")
>
> On the machine (running Win2K SP4) All needed Oracle components are
> installed to allow this instruction to work fine in Word 2000.
>

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)

Top