Word 2000, 2002 and 2003?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Index/Concordance problem I'm creating an index using a concordance file. The index creates fine, but it seems to randomly miss entries and sub-entries. Any suggestions on what could be occuring? Also, in a 2 column format, is there a way to get the second index page to use only the first column on the second page?? Word splits what's left over into 2 columns and I'd like to get it to just put the entries in the first column THX Tag: Word 2000, 2002 and 2003? Tag: 42554
  - 2
    - AutoOpen - How to Hide it from Alt-F8 I have an AutoNew subroutine that is declared as Public, so that when a user creates a new document from our template, this code will be the first thing to run. How can I have this subroutine hidden from the list of available Macros that the user can run? If the user clicks Alt-F8, they are presented with a list of Macros, including my "AutoNew" macro. If I change it to a Function, it will not show, however, by changing it to a Function will prevent it from running when the user creates a new document. Tag: Word 2000, 2002 and 2003? Tag: 42553
  - 3
    - Find/Replace with special characters The following snippet of code will replace occurences of these SGML entities with special characters that are pretty close to the original output: ' Entities ' Handles &circle; entity Selection.HomeKey unit:=wdStory With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "&circle;" While .Execute Selection.Range.InsertSymbol _ Font:="Wingdings 2", CharacterNumber:=-3943, _ Unicode:=True Wend End With ' Handles &bullet; entity Selection.HomeKey unit:=wdStory With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "&bullet;" While .Execute Selection.Range.InsertSymbol _ Font:="Wingdings 2", CharacterNumber:=-3944, _ Unicode:=True Wend End With So far so good. But how can I code this so that occurences of these entities are replaced in the header/footer? -Yeager Tag: Word 2000, 2002 and 2003? Tag: 42546
  - 4
    - Macro errors after installing Q822036 Am I the only one who had macros fail after installing the latest security patch. 822036 More Details: Fully patched WinXP and OfficeXP. Running macros in Word that look for a footer on the last page of a document as in Q 209220. If the footer is found it is removed. All of a sudden I have two errors. 1. I get a run-time error 4605 saying "This command is not available." 'ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument' OR 2. The macro finishes, but I can not switch "views" by using the four little view buttons on the Lower Left hand corner of the Word window, these are the "Normal view, Web Layout view, Print Layout view, Outline view". Once I switch from Word to another program then switch back into Word these buttons are working again. Anybody else see any problems with the new pacthes. Matt Tag: Word 2000, 2002 and 2003? Tag: 42544
  - 5
    - vba word question Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Word 2000, 2002 and 2003? Tag: 42543
  - 6
    - Word Object Hello All! I need help for programming Equation Object example. I paste to Word document new Equation Object Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", LinkToFile:= _ False, DisplayAsIcon:=False and I'll must program my new object with some rules 1. 10 Q= ------- A 2. 100*d Q= ----------- A*b Can I program Equation.object? And Where I can find help files about methods or properties of Equation.object. Thanks. Stas. Tag: Word 2000, 2002 and 2003? Tag: 42540
  - 7
    - ActiveDocument.SaveAS I'm using Office 2000, Win98. I've developed a UserForm and trying write the code to save it before it closes. The code I've written is: ActiveDocument.SaveAs ("C:\WINDOWS\Desktop\Debi & ' " & strLastSave & " " & strFirstSave & " " & strDateSave & " ' "), wdFormatDocument I've double checked this Path several times but I keep getting this error message: "Run-time error 5152 "This is not a valid File name Try one or more of the following: *Check the path to make sure it is typed correctly. *Select a File from the list of Files and Folders." I've copied and pasted the path from Window's Explorer, so I know the path is correct. I can do this in Visual Basic 6.0 and I know that VBA is not quite like VB6.0, but could someone help me code a SaveAs? I greatly appreciate the time and effort put into any help you give. Debi Tag: Word 2000, 2002 and 2003? Tag: 42538
  - 8
    - out of memory error 7 When I click on a form object/control in VBA word during programming I get the error 7 message. It is not a 64k limit issue or other memory issues. I am using word 2002 alone with NT home edition. Any ideas???? Please help..... Tag: Word 2000, 2002 and 2003? Tag: 42537
  - 9
    - Arrays I wonder if someone could direct me to a simple use of an array. I can't make any sense out of the material on arrays in Word 97 VBA Help. I would just like to get a idea of what they are and what a practical use of them would be. Larry Tag: Word 2000, 2002 and 2003? Tag: 42536
  - 10
    - The RichText box problem in Word2003 Re the problem with a RichText box not showing up on the UserForm in Word 2003, this is a Microsoft Rich Textbox Control 6.0 (SP4). Isn't this part of Visual Studio? From my partner: Yes the ocx is on the machine. It appears in References. Security has been set to low. It works on ther versions of Word, so registering should not be an issue. If anyone can point out further ways to figure this out, we would really appreciate it. Tag: Word 2000, 2002 and 2003? Tag: 42532
  - 11
    - ToolsGrammarStatisticsArray I have a Word macro that uses the ToolsGrammarStatisticsArray. My document is 13 pages long. When I run the Word macro on my 13 page document in Word 2000 I get an error message that states "ToolsGrammarStatisticsArray cannot be run on a document that contains more than one language format". When I open the same document and run the same macro in Word 6.0, I do not get this message. How can I get it to run in Word 2000? The macro works on a new document in Word 2000. Tag: Word 2000, 2002 and 2003? Tag: 42531
  - 12
    - maximum size log file? Hello, I have a VBA application, in which I also write debugging information to a log file, using the following statement: Open LOG_FILE For Append As #1 Print #1, PrefixText & tMessage Close #1 Does anybody know how big this file can get before the application will generate an error? I.e. what is the maximum file size to write to? thanks for any help, Ward Tag: Word 2000, 2002 and 2003? Tag: 42525
  - 13
    - RichText in Word Hi, I=B4m Roby, vb Developer. I=B4m trying to paste some RichText in the Word, but=20 without success. Paste it in the Word will only show the RichText Script. Please Help! Thank you, Roby E Martins Tag: Word 2000, 2002 and 2003? Tag: 42522
  - 14
    - detection of end-of-paragraph Dear experts how can I detect an end-of-paragraph sign, namely ChrW(10)? I want to extend a selection as far as the next blank appears or the next end-of-paragraph sign through Do While Not (Selection.Text Like "* *" Or Selection.Text Like "*" & ChrW(10) & "*" Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExten Loo but the loop recognizes blanks only Best regard Martin Tag: Word 2000, 2002 and 2003? Tag: 42521
  - 15
    - How to jump to a bookmark in a pagefooter I can't seem to jump to a bookmark in a footer. I have to jump to a certain place in the footer, and a bookmark will be a fine way to place the text, I want to insert right there. Can anybody help me to find the way to place the cursor at that specific point by using bookmarks? Tag: Word 2000, 2002 and 2003? Tag: 42520
  - 16
    - =?Utf-8?Q?timeglasset_popper_op_tilf=C3=A6ldigt?= Tag: Word 2000, 2002 and 2003? Tag: 42516
  - 17
    - Using MSWORD9.OLB to create Word Documents hi all I am trying to create a word document , using Microsoft Word 9.0 Object Library.(MSWORD9.olb). I made a setup file of VB application with follwing code, using deployment and setup wizard of visual studio. Dim objApp As Word.Application Set objApp = New Word.Application 'Start a new Normal template document Documents.Add 'Format document heading The code works fine on a system which got Microsoft Word 2000 installed, whereas when i run this code on a clean system without Microsoft Office / Word 2000 it gives out error message saying cannot create object of Activex Component. When i do a research on this problem, i came across this info saying "The Package and Deployment Wizard does not recognize the *.olb file extension as a type library and incorrectly assumes it to be a binary executable" from here http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com: 80/support/kb/articles/q249/8/43.asp&NoWebContent=1 I need to create a word document on a system where MS - Office will not be there. How do i do this ? Any help is appreciated Thanks Srinivas Tag: Word 2000, 2002 and 2003? Tag: 42511
  - 18
    - File Save As Dialog I have a form created in Word ' 97 that updates numerous fields when the user presses an update button. At the end of the updates a message box asks if the user wants to save the form and if they do then are asked if they want to save it with a new name. If yes then the File Save as dialog box is called using this code. x = Dialogs(wdDialogFileSaveAs).Show My question/problem is that if the user selects the same file name as an existing one at this point absolutely nothing happens. I would have thought the "File Name already Exists" message box would appear. If a diferent file name is entered it saves without a problem. I have tried removing the Application.DisplayAlerts = wdAlertsNone code, setting it to "wdAlertsAll" but all to no avail. I want the "file name already exists" message box to appear. Your help will be most appreciated Greg Mc Tag: Word 2000, 2002 and 2003? Tag: 42505
  - 19
    - Getting spell check to ignore non-breaking double hyphens Here's an interesting puzzle for experts. In my Word 97 documents that use Courier (the font in which I do most of my drafts), instead of double hyphens I use a non-breaking hyphen followed by a regular hyphen, that is, in VBA language, Chr(30) followed by Chr(45). This keeps the two hyphens together and keeps them both togehter with the word that precedes them, so that they don't divide across the end of a line. I have a macro that inserts this non-breaking double hyphen and use it all the time. Unfortunately, spell check stops at each non-breaking double hyphen. (I get around this with a macro that converts the font to Arial and the double hyphens to M dashes; then another macro that the document to its original format when I'm done.) But I just noticed today that spell check does NOT stop at regular double hyphens. My question is, is there any way that I can get spell check to ignore my special non-breaking double hyphens? I tried selecting a non-breaking double hyphen and applying "no proofing" to it, but that didn't do the trick. Thanks Larry Tag: Word 2000, 2002 and 2003? Tag: 42502
  - 20
    - printbutton in Worddocument I want to use a printtbutton in Word. I know it is easy, but I don't know how it was. What steps doe I need to make a button in a document to print that document Rlo Tag: Word 2000, 2002 and 2003? Tag: 42499
  - 21
    - printbutton in document I want to use a printtbutton in Word. I know it is easy, but I don't know how it was. What steps doe I need to make a button in a document to print that document Rlo Tag: Word 2000, 2002 and 2003? Tag: 42498
  - 22
    - listing which documents were changed by macro I have a macro which goes through hundreds of documents and changes old product names to new product names. This uses Word's find and replace functions. After the macro is finished, I would like to have a list of which documents were changed and which were not. I have to redistribute hard copies of the documents that were changed, so I don't want to worry about the documents that were not changed. Is there a way to know whether a find/replace search for a document made any changes or not? Thanks. Tag: Word 2000, 2002 and 2003? Tag: 42493
  - 23
    - Word scripting problem Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Word 2000, 2002 and 2003? Tag: 42491
  - 24
    - Visual Basic error I am getting the following error when I open Micorsoft Word while Outlook is open (Office 2003) "Microsofrt Visual Basic Compiole error in hidden module: Auto Exec" How do I correct this? R o b e r t E F i n e Robert E Fine refine13@adelphia.net "Knowledge is of two kinds: we know a subject ourselves, or we know where we can find information upon it." Life of Johnson (Boswell). Vol. v. Chap. ix. 1775. Tag: Word 2000, 2002 and 2003? Tag: 42486
  - 25
    - Page and line How can I return which page and/or line I am on in a word doc in VBA? Tag: Word 2000, 2002 and 2003? Tag: 42479
- Next
  - 1
    - Locking the section Hello, I wanted to lock certain lines of the word document. To achieve this, I have defined bookmarks at these locations and inserted section breaks. It works fine. It allows me to lock the text in the protected section. However, it doesnot maintain the location of the bookmark..If I delete certain lines above the section, the section along with the bookmark shifts up. I wanted to freeze the location of the bookmark (section). Any ideas? Thanks Kamur Tag: Word 2000, 2002 and 2003? Tag: 42478
  - 2
    - Separating a string I am using Word 97 and I want to be able to pickup a person surname from their full name which has previously been stored with a string entitled sName. Can someone assist me please Thanks Mark Tag: Word 2000, 2002 and 2003? Tag: 42472
  - 3
    - Count files in diectory Hello, Kind of new to VBA in Word, but I have an opportunity to use it. I want to know if it is possible to count the number of files in a directory. My ultimate goal is to save a file as <filenametext??> where the "??" is the filenumber count + 1. If that is too hard I can just add a msgbox with the next file name and have the user save the file manually. The need for this macro is to help users save a copy of a protected document in the proper directory with the proper name. My plan is to write a procedure that would fire automatically when the user tries to type onto a protected document. Thanks, Jim Tag: Word 2000, 2002 and 2003? Tag: 42470
  - 4
    - Deleting table based on contents of a bookmark I appreciate the help received from Doug and Jean-Guy in response to my November 11 post concerning deleting tables based on the contents of a particular bookmark in a forty- page Word 2000 form used to collect information from faculty about their activities. The code works perfectly, and is included at the end of this post for reference. Four questions about our project have come up that I am unable to answer, no doubt because this is my first vba project. I have looked through the MVPS Word FAQs, and the subject lines in the vba.beginners and vba.general lists, but haven't found solutions yet, though I may have overlooked a posting that would be helpful. 1. How do I include my vba code as part of a Word 2000 form emailed as an attachment? I tried to email a test version of the form to a colleague and myself so we could test it, but found that no vba code was included along with the attachment when I opened the form and then the VB Editor (from Tools->Macro->VB Editor). I believe I correctly saved the code along with the document (not in Normal) before sending the email with attachment, but there was no sign of any vba code. I emailed myself the code separately, and pasted it into the code window of the VB Editor, and then it works fine. But this is too complicated for the faculty to do. I've read 'Distributing macros to other users' and 'What do I do with macros sent to me by other newsgroup readers to help me out?' but neither really addresses how one sends a Word form as an attachment when the form includes vba. The fact that I haven't found any FAQ references to what must be a common activity, leads me to conclude that I'm missing something really obvious! 2. How do I make a macro button run the vba code associated with my form? The code works fine when I run it from within the VB Editor using the 'Step Into' button where I can observe its operation, and also runs fine from the 'Run' button, but only when the cursor is at the first line of the Sub() in the code window. I'm not clear about how to attach my macro button to the code it is supposed to activate: when I click on the macro button, the cursor simply moves into the first field in my form, if I double click, the cursor moves into the second field in the form, but in either case does not run the Sub code as I would have expected. I do of course have the name of the vba routine in the macrobutton. The macro button is located at the end of section 3 (please see following question). 3. How do I run the 'delete empty tables' code on only sections 2 and 3 of the three-part form? The form is in three sections, with a section break following each of the first two sections with each new section starting on the next page (Insert->Break- >PageBreak->Next Page). We want to run the 'delete empty table' code only on sections two and three, and include the related numeric total (from Cell 1,1 of any remaining tables) at the end of section two or three, rather than the one GrandTotal that is generated now. 4. In the tables that remain after running the 'delete empty tables' code, how do I delete rows that haven't been used and therefore have no text in their text bookmarks, along with completely empty 'spacer rows' (for readability) located between rows containing text? After looking at the results from running the code as it is now, it occurred to us that a cleaner document would result, if within a table that _contains_ text in its first text bookmark (which is always row 3, column 2), it would be possible to delete any rows that follow but that may not contain any text. These rows may be completely empty 'spacer rows' inserted for readability between rows with text bookmarks, or simply another row like row 3 that contains a text bookmark but no text in the bookmark. Tables may contain between 2 and 16 rows having text bookmarks. I think the code to do this would need to: a. Look for the last row in a table that has text in column 2 (not just the existence of a text field, but a text field with a Len of > 5 which seems to be the default length of my text bookmarks for reasons I don't understand at this point) b. Delete rows (if any) in the table that follow this last row. Thank you very much for any assistance you are able to provide with these four questions. Peter The current version of the code provided by Doug with additions by Jean-Guy follows: Sub FSR() Dim myrange As Range, i As Integer, GTotal As Long ActiveDocument.Fields.Update ActiveDocument.Unprotect For i = ActiveDocument.Tables.Count To 1 Step -1 Set myrange = ActiveDocument.Tables(i).Cell(3, 2).Range myrange.End = myrange.End - 1 ' Check row 3 column 2 to see if empty-default empty length is 5 If Len(myrange) = 5 Then Set myrange = myrange.Tables(1).Range myrange.SetRange Start:=myrange.Start, _ End:=myrange.End + 1 myrange.Delete End If Next i ActiveDocument.Protect wdAllowOnlyFormFields, NoReset ScholTotal = 0 For i = 1 To ActiveDocument.Tables.Count ScholTotal = ScholTotal + ActiveDocument.Tables(i).Cell (1, 1).Range.FormFields(1).Result Next i ActiveDocument.FormFields("ScholTotal").Result = ScholTotal End Sub Tag: Word 2000, 2002 and 2003? Tag: 42456
  - 5
    - open website in word hello ! how I can opened the website (it's a security website) ? when I open this line: http://user:pass@gulp.de/cgi-gulpsearch/gp.exe/ubprof?4401 then opening the next window and I must add manualy the user name and password. How to do it if I can open this website automaticaly and I not must add manualy user name and password ? Pawel Tag: Word 2000, 2002 and 2003? Tag: 42455
  - 6
    - Return line of text iteratively Hi All, I'm having a hard time breaking through this barrier. I need to iteratively go through the word documnet and pull each line individually from beginning to end. Right now I'm just trying to write each line of text to the debugger just to see if it'll work. I'd really appreciate an example or some helpful pointers. Thanks, Zac Tag: Word 2000, 2002 and 2003? Tag: 42449
  - 7
    - Word as XML Hi Is there a way to save a word doc as XML / Word ML If so, does naybody know how to loop thru each of its content sections Here is my requirement: In Windows Share Point Service, there is a provision to assign user & status to each of the WORD documents section, I'm trying to figure out how to read the docs sections & their attributes Any help would be great Thank PP Tag: Word 2000, 2002 and 2003? Tag: 42448
  - 8
    - Writing HTML in word VBA Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Word 2000, 2002 and 2003? Tag: 42445
  - 9
    - How can I return user's options to their original values? Is there anyway I can save the user's AutoCorrect and Options settings so that they can be reinstated when the user leaves the template? I have a template in which I need to disable all of the "Apply as you type" settings on the "Autoformat As You Type" tab. I want to do a similar thing with certain settings on the Options tabs. I am changing the settings in the AutoNew macro associated with the template. However, I want to return the user's original settings when the user closes the document associated with my template. Is there any way to do this Tag: Word 2000, 2002 and 2003? Tag: 42443
  - 10
    - MERGEFIELD? Hi, How to defined MERGE FIELD(Datasourc), so it avaialbe for selection? Thanks. Tag: Word 2000, 2002 and 2003? Tag: 42441
  - 11
    - Automatically display UserForm when Word Document Opens I have a UserForm which has pulls information from a Word document that contains nothing but two tables of information. The UserForm works great, and exits gracefully, but will not automatically display when the end user opens the word document it is built upon. I don't want the tables to be visible to the user, just the form. Code follows: Private Sub ThisDocument_Document_Open() Load UserForm1 UserForm1.Show vbModeless End Sub Private Sub CommandButton2_Click() Dim Msg, Style 'set dim for message box when Exit is pressed Msg = "Please wait while program shuts down" ' define message Style = vbYesOk + vbCritical + vbDefaultButton2 ' define message response buttons Response = MsgBox(Msg, Style) ' Display message If True Then Unload UserForm1 Application.DisplayAlerts = False Word.Application.Quit End Sub Private Sub UserForm_Initialize() Dim MyArray() As String RowCount = ActiveDocument.Tables(1).Rows.Count RowCount = ActiveDocument.Tables(1).Rows.Count ColCount = ActiveDocument.Tables(1).Columns.Count ReDim MyArray(RowCount - 1, ColCount - 1) For i = 1 To RowCount For j = 1 To ColCount 'Select each cell in the table Celldata = ActiveDocument.Tables(1).Cell(i, j) 'Remove the paragraph and end-of-cell markers 'as we lod the array MyArray(i - 1, j - 1) = Left(Celldata, Len (Celldata) - 2) Next Next ListBox1.ColumnCount = ColCount ListBox1.List() = MyArray Dim MyArrayExternal() As String RowCount = ActiveDocument.Tables(2).Rows.Count RowCount = ActiveDocument.Tables(2).Rows.Count ColCount = ActiveDocument.Tables(2).Columns.Count ReDim MyArrayExternal(RowCount - 1, ColCount - 1) For m = 1 To RowCount For n = 1 To ColCount 'Select each cell in the table Celldata = ActiveDocument.Tables(2).Cell(m, n) 'Remove the paragraph and end-of-cell markers 'as we load the array MyArrayExternal(m - 1, n - 1) = Left(Celldata, Len(Celldata) - 2) Next Next ListBox2.ColumnCount = ColCount ListBox2.List() = MyArrayExternal End Sub Private Sub ListBox1_Click() For x = 0 To ListBox1.ListCount If ListBox1.Selected(x) = True Then MsgBox ListBox1.List(x) & ListSeparator & " " & " Office Symbol: " & ListSeparator & " " & ListBox1.List(x, 1) & " Project: " & ListBox1.List(x, 2) End If Next x End Sub Private Sub ListBox2_Click() For x = 0 To ListBox2.ListCount If ListBox2.Selected(x) = True Then MsgBox ListBox2.List(x) & ListSeparator & " " & " Office Symbol: " & ListSeparator & " " & ListBox2.List(x, 1) & " Project: " & ListBox2.List(x, 2) End If Next x End Sub Obviously code is rough and not fully documented yet, but will be at end product. How do I automatically Display a UserForm when the Word Document is Opened? Any ideas? Thanks PAM Tag: Word 2000, 2002 and 2003? Tag: 42439
  - 12
    - Problems with this VBA code - please help The code below opens a new Word doc based on a template. It generally works fine but for some PC's delivered by Dell where they pre-installed Office XP Professional (Word 2002) the Find code doesn't work. Anyone any ideas why the Find would not work - the Find works on my test PCs - including a test PC running Windows XP and Office XP Professional. But not on these Dell delivered PC's. I can't understand why? Code: Dim objWord As Word.Application Dim objWordDoc As Word.Document Dim docspath As String ' Path to template [Template has <Address> and <Dear> in document] Dim StrToWord As String StrToWord = "Angus Comber 1 The Avenue Berks" Dim sDear As String sDear = "Angus" On Error Resume Next 'WordStart Set objWord = GetObject(, "Word.Application") If Err.Number = 429 Then Set objWord = New Word.Application End If If objWord Is Nothing Then MsgBox "objWord is nothing" Exit Sub End If objWord.Visible = True ' To run this code you will need to change this path to the path you save letter.dot docspath = "c:\program files\ioffice\ltemplat\letter.dot" Set objWordDoc = objWord.Documents.Add(docspath, False) ' Sometime get a valid objWord object but problem creating document based on template. ' So still need to check a valid objWordDoc created If objWordDoc Is Nothing Then MsgBox "Unable to create Word Document object based on template: " & docspath & " Unable to proceed with Word creation", vbCritical, "Word Error" Exit Sub End If Dim bRet As Boolean objWordDoc.Range.Find.ClearFormatting objWordDoc.Range.Find.Replacement.ClearFormatting objWordDoc.Range.WholeStory ' All the Find code lines below do NOT work on Dell delivered PC's bRet = objWordDoc.Range.Find.Execute("<Address>", False, False, False, False, False, True, Word.wdFindContinue, False, StrToWord, Word.wdReplaceAll) MsgBox bRet & " returned from objWordDoc.Range.Find.Execute ..." ' returns False with Dell Office XP Pro pre-installed PC's bRet = objWord.Selection.Find.Execute(findtext:="<Dear>", replacewith:="FormattedDear", Replace:=wdReplaceAll) MsgBox bRet & " returned from objWord.Selection.Find.Execute ..." bRet = objWordDoc.Range.Find.Execute("<Dear>", False, False, , , , , , , sDear, True) MsgBox bRet & " returned from objWordDoc.Range.Find.Execute ..." MsgBox "Just to show you that other Word automation commands work OK, Next we will type in some text" ' TypeText works fine ALWAYS! objWord.Selection.TypeText "This is some text here I have typed in!!" I would really appreciate some help on this. Angus Comber ac@NOSPAMiteloffice.com Tag: Word 2000, 2002 and 2003? Tag: 42438
  - 13
    - Macro for Paragraph Hi All! Is there a way that I can have a macro look for a certain word in a report, but only when it is at the start of a line and not in the middle of a name. For example: I need to delete the word "MED" out of a report. It is on multiple lines, and the number of lines varies per report. The word "MED" can also be found in certain words like MEDical, interMEDiate, or arMED. How do I get the macro to only go to the start of the line (paragraph), grab the information I need to delete, and then move to the start of the next line (not grabing other words)? I have posted what I have below. Thanks in advance and have a great weekend. Julie Selection.Find.ClearFormatting With Selection.Find .Text = "MED" .Replacement.Text = _ " " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do Selection.Find.Execute If Selection.Find.Found = True Then Selection.MoveLeft Unit:=wdCharacter, Count:=2 Selection.MoveRight Unit:=wdCharacter, Count:=18, Extend:=wdExtend Selection.TypeBackspace Else Exit Do End If Loop Tag: Word 2000, 2002 and 2003? Tag: 42429
  - 14
    - Replacing VBA code on Mass Hi people, I have a wonderful task of replacing a line of code in a sub routine with word document. Whats bad about that I hear you ask, well this line of code is in over 250 documents! Is there a way to code something that can do a find and replace within the VB code. Any help will be much appreciated Thanks Mark Tag: Word 2000, 2002 and 2003? Tag: 42424
  - 15
    - Prevent BeforeClose event from running for every open document In my project I subscribe to the BeforeClose event. If I have two or more documents open with this macro, all the documents gets hit by the event, not just the one I am closing, no worries there. But what I would like to do is to only have the document that's closing to run the code in the event. Is there a way to prevent the other documents from running the code in the events? /Peter Tragardh Tag: Word 2000, 2002 and 2003? Tag: 42423
  - 16
    - Copying Doc Content to Email Hi, I have a situation where I need to copy the entire content of a Word document to an email. The document will always contain a bitmap. I've tried using the Content property of the document, but this excludes the bitmap. I've also tried using the clipboard to cut and paste the content, but again, this excludes the bitmap. I've also tried setting the format of the email to RichText and HTML. Still no joy. I don't particularly want to send the doc as an attachment, but unless anyone can shed any light on this I will have to. Thanks for any help Mark Tag: Word 2000, 2002 and 2003? Tag: 42416
  - 17
    - group undo actions Hi, Is there a way to "group" VBA actions, so that when the user performs undo (e.g. by pressing CTRL-Z), all the VBA actions I have grouped are undone at once? I would like something like the following: ---- Suppose there is some VBA command to start an undo group (e.g. application.undo.start), then write some VBA commands, and then close the undo group (e.g. application.undo.end) With my imaginary method, code could look like this: application.undo.start .range.delete .range.insertafter "test" application.undo.end If the user now performs undo, both the delete action and the insertion of text action would be undone at once. In the real world, the user now has to press undo twice. ------ Of course, it doesn't work with my imaginary method, but maybe somebody knows a way to do what i want...? thanks WArd Tag: Word 2000, 2002 and 2003? Tag: 42414
  - 18
    - Subdirectories into a userform I am not very familiar with userforms, but I use a lot of VBA and I'm very thankful for a lot of help from this groups. I have a directory with hundreds of subdirectorys. They are quite difficult to "navigate" between. I want to make a userform where the user can write one or more letters in a field. I want the combo-box tol be filled (is that the same as populated?) with all subdir that starts with that letter(s). From that combobox the user can choose one directory and then the fileopen dialog is opened. I'm sure this is possible. Hope someone can help me in the right direction! Thanks! Torstein Tag: Word 2000, 2002 and 2003? Tag: 42412
  - 19
    - Insert bold text after range Hi, I have so far the following code, being executed in a for/next-loop: Set oRange = objWordDoc.Range oRange.InsertAfter "some text" oRange.InsertAfter vbcrlf oRange.InsertAfter vbtab & "again text" & vbcrlf my question: How can I set "some text" to appear in bold in the document? (I'm using VB6 to create word documents) Many thanks, O.B.1. Tag: Word 2000, 2002 and 2003? Tag: 42411
  - 20
    - Please Help! Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Word 2000, 2002 and 2003? Tag: 42405
  - 21
    - Word VBA code with Windows XP and Word 2002 works for my test PC but not customer system I have written a VB6 program which generates a Word letter based on a template and then runs the command below: objWord.Selection.Find.Execute "<Address>", , , , , , , , , strToWord, True where objWord is of type Word.Application This works fine on Office 97, 2000 and on my Word 2002 on XP test PC. It is funny because most of the VBA code works - ie the code to load a Word document based on the correct template works fine. The problem is that the <Address> text is NOT replaced with the contents of the strToWord variable. Anyone any ideas why? Angus Comber angus@NOSPAMiteloffice.com <Remove NOSPAM to email me> Tag: Word 2000, 2002 and 2003? Tag: 42394
  - 22
    - Closing w/Save an Excel file from a Word macro I have a Word macro that opens a merge document and also opens the corresponding source file in Excel. But when the macro closes the Word document, the Excel spreadsheet won't close until I answer the prompt for a save. How do I get the Excel spreadsheet to close without prompting? Thanks. Tag: Word 2000, 2002 and 2003? Tag: 42390
  - 23
    - Retrieving userform info into a document Hey, I posted this at the vba for beginners list, but I am going to post it here just in case. Plus, I am just putting the basics down. This code retrieves bookmarked information and puts it in the textbox located on a userform: UserForm2.TextBox17.Text = source.Bookmarks ("Chapter3_1").Range This code is in a series of userforms, but the user would like to use this function when not using the userforms. They would like to click a button on a toolbar and insert the same type of information (over 100 bookmarked sections) into any place where there cursor is located, specifically if they forgot to insert some information after they are finished filling out the userforms. I am not sure how to create code that can retrieve the same type of information into wherever there cursor is located. Any help would be much appreciated. Thanks, Jason Tag: Word 2000, 2002 and 2003? Tag: 42388
  - 24
    - VBA command to break links I have a Word doc with links to Excel. Is there a way using Word VBA to break the links to Excel? Tag: Word 2000, 2002 and 2003? Tag: 42387
  - 25
    - VBA command to break links Is there a way using VBA to break links to Excel in a Word document? Tag: Word 2000, 2002 and 2003? Tag: 42386

Hi Folks,

Can anyone point me in the direction of in depth information about these
products please? I'm looking to get into the Object model level of these
products and the changes between versions (which I know there are) but can't
seem to find any helpful resources with the level of documenttaion I need.

I know there have been changes in the selection and range objects between
2000 and 2002/3 and I would like to know about any problems encountered
between versions.

Also the database side of things would be nice to find out about too! file
formats, conversion issues etc and how this relates to an comercial
enterprise with a large network running different platforms.

Any pointers appreciated

J

Top

Re: Word 2000, 2002 and 2003? by Doug

Doug
Wed Dec 10 00:58:43 CST 2003

Hi Johnnybhoy,

I have been using all of those versions of Word since the first Betas of
each and have not come across any changes in the Selection or Range objects.

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
"JB" <> wrote in message news:%236efhvkvDHA.1872@TK2MSFTNGP09.phx.gbl...
> Hi Folks,
>
> Can anyone point me in the direction of in depth information about these
> products please? I'm looking to get into the Object model level of these
> products and the changes between versions (which I know there are) but
can't
> seem to find any helpful resources with the level of documenttaion I need.
>
> I know there have been changes in the selection and range objects between
> 2000 and 2002/3 and I would like to know about any problems encountered
> between versions.
>
> Also the database side of things would be nice to find out about too! file
> formats, conversion issues etc and how this relates to an comercial
> enterprise with a large network running different platforms.
>
> Any pointers appreciated
>
> J
>
>

Top