An error occurred while loading "ThisDocument". Do you want to continue loading the project?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Table of Contents created by RD are not hyperlinked. Macro? Hi, our chapters are all splitted into several single documents (one for a section). Additional we have a table of contents document, created with the RD function. It works fine - but the table of contents entries are no hyperlinks (as it would be when you use the toc function within ONE document). Is there any chance to create a macro which adds a hyperlink to each toc entry created by the RD function? Thanks for help Pia Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 53016
  - 2
    - Calculator tape debug window I would like to set up some kind of an "output window" for debugging purposes that would behave like a calculator tape. I could write a little subroutine that would cause a text string to be displayed on the next line in that window so I could follow what's happening in the program. I would then insert calls to the subroutine at various places in the code like this: ... Call DebugWindow("XYZ routine..." ... Call DebugWindow("i=" & i) ... Can someone point me in the right direction to get started on this? Is there a better way to accomplish this? Thanks -- For email, use Usenet-20031220 at spamex.com Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 53015
  - 3
    - How to check word is installed Hi I am creating a VB application to add custom dictionary in word. In that i want to check whether word is installed. Also check for the version whether its 97/2000/XP. How can i do this.. ? Rgds Jinu Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 53010
  - 4
    - Use of connectors in Word 2000 Howdy All, I'm putting together some simple graphics, in which names (provided in textboxes) will be associated with certain shapes (rectangles, chiefly). To make the association obvious, I'd like to be able to draw a connector between the textbox and the rectangle. In the drawing toolbar of Word 2000, however, I can't find a connector graphic. In contrast, that graphic is available in PowerPoint 2000 and in Excel 2000. The help files of the latter two packages also document a ConnectionFormat object. However, the help file I have for Word does not reveal any corresponding object. Have I missed something, or is the Connector feature in Office 2000 not supported in Word? Thanks, Marty Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 53004
  - 5
    - URLs are not formatted as hyperlinks I am doing word automation with VB6 and populating a url at a bookmark using gotoboomark and insertafterbookmark functions. This url doesn't show up as a web link when I open the document. Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 53001
  - 6
    - How do I convert a date to unix-format Hi I need a VBA function to convert a date (e.g. 06-28-2004) to UNIX-format (e.g. 1088433541) Can anyone help me? Thanks Soren Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 53000
  - 7
    - Running Macros in Word I have many 1000s of documents which I want to open, find and delete pictures, save, close and move on to the next. The documents are stored in History files organised into folders so the macro needs to locate all files within these subfolders. This is all fine in principle. Via various sources etc. I have created a macro which checks for Shapes (including first converting any which are InlineShapes), selects and then deletes these. I have then inserted this into the publicly available code for finding all files within a folder (including subfolders) [special thanks to the MS folks for that!]. Problem is that the Shapes macro works fine on single documents but, for some reason, when it is operating within the file find loop, it crashes at the Convert from Inline stage and closes Word altogether. I assumed maybe it was a resources type issue so have tried limiting the scope of the search by running on only a few folders at a time (there are actually 2 main folders each of which has 1000 subfolders) and then to running on 1 folder at a time (each folder has up to 1000 documents). None of this seems to work. If the document is open and I run the Shapes bit on its own, it works fine. If I run the file search and open macro, then the same command causes the system to fall over. Does anyone have any bright ideas at all? For reference the Shapes part of the code is: If ActiveDocument.InlineShapes.Count > 0 Then For Each iShape In ActiveDocument.InlineShapes iShape.ConvertToShape Next iShape End If If ActiveDocument.Shapes.Count > 0 Then ActiveDocument.Shapes.SelectAll Selection.Delete End If Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52995
  - 8
    - Using Word Fields Hey everyone, I have a VBA form where the user will enter all sort of data. Based on that data, I replace certain words in pre- defined Word document. I have no problem with. I do a simple find and replace in my VBA code. However, in certain sitation, i may need to delete an entire sentence or paragraph. What I do now is search for a unique set of words, and do the appropraite deletion. This method works fine. But I was wondering if there might be a better way of doing this. My boss suggested using Fields, but I am not sure how. Can anyone help? I would greatly appreicate it. Thank you! Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52983
  - 9
    - html tags to footnotes Hi! I have a document with citation-sources between html tags (e.g., <fn>Book, p. x</fn>) and I need to convert all of these to regular footnotes. Is there a way? Or, alternatively, is there a more specific user group I should post this message to? Thanks, Moshe Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52982
  - 10
    - Help: Wrapping quotes around selected text Dudes, I would like to have a Word macro that can wrap quotes around each line of selected text, followed by a comma at the end of each line. Preferably it won't append a comma to the last line, but I'll settle for a solution without this extra feature. eg. Dog Cat Fish Bird becomes 'Dog', 'Cat', 'Fish', 'Bird' The reason I need this is to allow me to save a lot of time where I have to manually create an SQL query that includes a long list of search criteria. Thanks. The first to provide a solution goes to the top of the class! Poster Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52976
  - 11
    - Install works on 2 machines, but Word ignores it on 1 Hi; I created a .msi setup program using Visual Studio. It works fine on two machines. On the third the setup runs. The registry has the right settings. The files are on the disk. But... When Word starts it doesn't call the add-in. And in Tools, Templates and Add-Ins it lists nothing under Global templates and add-ins. any ideas? thanks - dave Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52974
  - 12
    - AutoCorrect entries containing punctuation I've discovered that punctuation characters trigger autocorrect expansions even if you've got an autocorrect entry which contains that punctuation character. For example, if you've got entries as follows: Entry Expansion f fyodor f&d fyodor dostoyevsky If you then type: "f&", autocorrect will expand to "fyodor" without checking for the "f&d" entry. Is there a way around this problem? Obviously, you can change "f&d" to "fd", but I'm converting expansions from a third party expander, and can't control entries like that. Thanks... Dan Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52972
  - 13
    - Inserting Tables of Contents, Tables and Figures I have Document Template that contains a Table of Contents. I have a couple of Macros that insert Tables of Tables and Tables of Figures. The Macros look for 2 bookmarks. One bookmark is stored at the end of the Table of Contents field, so that the Table of Tables always ends up in the right place and can't be deleted by mistake. The problem is the 2nd bookmark keeps getting deleted if I delete the Table of Figures and the Table of Tables. Also, if I were to delete the Table of Contents, then the Table of Table bookmark would disappear. What I need to do is be able to insert the Table of Contents in a certain place, if it gets deleted and then insert the other 2 tables after it. For example, if the Table of Tables is there, then the Table of Figures automatically is inserted below the TOT, however if there is no TOT, then the TOF goes under the TOC. At the moment everything works unless the bookmarks get deleted. The easy solution is don't delete the bookmarks, but life isn't easy Appreciate any suggestions Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52971
  - 14
    - Create a Zip'ed Folder I'd like to be able to use Windows XP's built-in capability to create and manipulate zipped folders from within VBA. My VBA program creates a folder and places several files into this folder. Now I'd like to create a Compressed (zipped) Folder from this unzipped folder. I can do this within Windows Explorer by right-mouse-button clicking on the folder and selecting Send To Compressed (zipped) Folder from the Pop-up menu. But how does one do the equivalent under program control? I'd like to be able to create a Compressed (zipped) Folder from within my VBA program. Can this be done using Windows XP's built-in zip capability (involving the zipfldr.dll capability)? Thanks! -Ron Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52970
  - 15
    - Macro to retrieve an OL address and insert it into Word I have recently started using Word (Office 2003). In my 15 years using WordPerfect I developed a macro to use while writing a business letter to insert an address from the address-book. Has someone written a VBA macro which will ask for the input of the first and last name, and then go to OL to retrieve the mailing address and insert it into the Word document at the cursor location? That would be most helpful to me. Thank you. Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52966
  - 16
    - Visual Studio setup - add to the appropiate menu Hi; Does anyone know how I can set the Visual Studio setup program for my Word add-in install to add my items to the user menu if they select install for just them but goes in the all users menu if the select install for all users? thanks - dave Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52963
  - 17
    - Can't use Word 10 interop Hi; I added the Office 10 interops as described in http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoxpta/html/odc_oxppias.asp. And in the GAC I have the Word 10 dll. But it won't show it in the references, add, COM list. And I can't browse to it because it's in the GAC. Any ideas? thanks - dave Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52962
  - 18
    - Microsoft Works I want to know if it is possible to activate Microsoft Works on both my desktop and my laptop. I use both. Thanks for your help, Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52961
  - 19
    - Select x words on either side of Find Here's an interesting request. I'm just looking for the most efficient way to handle this. I have a need to do a find and replace on a text range. The replace is simply a formatting change. However, I need to change the formatting on a specified number of words on either side of the matched word as well. I am looking at the object model, but figured maybe someone who knows it a bit better could point me right where I needed to go. My anticipated approach is to match the word, step back x words, start selecting, step forward ((x*2)+1)) words, end selecting, then apply the formatting to the selection. That doesn't sound like the best way to do it. Maybe I could do a regular expression match? Any other ideas? Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52958
  - 20
    - Automating ms word tasks.. hello everybody i have a problem with a translation work i'm actually busy with, i'll try to explain it as claerly as possible, hopin' to find some good soul out there that could really help me out. THE FACTS: 1) I have a really long list of word documents classified in two folders, each folder containg the same documents, with different filenames, in two different languages (italian/french). Both respectives filenames contain at least a similar string as they are referred to the same product (ex. IT-catalog-bs342.doc - FR-catalog-bs342- NEW.doc) 2) As it was an old translation i made, i'm upgrading the old italian translation to the new french catalog. there are really small differences between the two versions of the respectives documents, such as a footer that has been added and some new items and fonctions in bullets listings. Some values have changed too. (ex. distance: 10m --> distance: 25m) My question is: Is anyway to do this loooong work faster by using scripts and macros to replace automatically what i want them to replace or simply add to the old files using new files as a source? I'm trying to find out how evaluation products such as WordPipe or CrossEyes could help me but i'm really lost in it! please contact me by mail or icq if you feel u can help. by the way thanks for reading all this message. livefast Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52957
  - 21
    - 'Example O'Toole' how to delimate a ' I'm sure this is a real simple one , whats the best trick when your select conditions have a ' in the value "WHERE (People.FullName = 'Example O'Toole' )" ? Chris Example strSQLPeople = "SELECT People.FullName " strSQLPeople = strSQLPeople & "FROM People " strSQLPeople = strSQLPeople & "WHERE (People.FullName = '" & Me.ComboFullName.Value & "' ) " strSQLPeople = strSQLPeople & "GROUP BY People.FullName " Set rstPeople = New ADODB.Recordset rstPeople.CursorType = adOpenStatic rstPeople.CursorLocation = adUseClient Debug.Print strSQLPeople ' strSQLPeople example ' SELECT People.FullName FROM People WHERE (People.FullName = 'Example O'Toole' ) GROUP BY People.FullName rstPeople.Open strSQLPeople , CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52952
  - 22
    - Request for help to rearrange data... Hi, I'm working with Word 97 and I wish to rearrange a data source file so that it is consistent. For example, I have the following sample data records: "John Smith", "1 ABC Lane", "City State Zip" "Jane Smith", "2 DEF Blvd", "Apt G", "City State Zip" As you can see above the Jane Smith record has an additional field "Apt G" field. If I were doing a normal mail merge this would not be a problem. However, I need to export the data for another program rearranging the data using the following format: "", "John Smith", "1 ABC Lane", "City State Zip" "Jane Smith", "2 DEF Blvd", "Apt G", "City State Zip" Is there a Find/Replace command I can use on this data or must I create a macro to handle this problem? Thanks in advance for your assistance. Regards, Greg Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52948
  - 23
    - HELP: can't debug Hello; All of a sudden when I go to debug my add-in (.net/C#/IDTExtensibility2) it launches Word - but won't start my add-in. I have a breakpoint in OnConnection and it never gets there. One thing I recently did - I changed the setup project to create a shim add-in. I can build, install, and run as an add-in. I just can't run under the debugger. Any ideas? thanks - dave Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52945
  - 24
    - vba to stop frame resizing Please can you offer a solution to a cell within a frame resizing. Is it possible to fix it to a size in VBA so that it will not resize no matter what occurs! Cheers John Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52941
  - 25
    - Saving word documents to Oracle database with formatting Hi! I am wandering if it's possible to save a portion of a Word 2000 document to an Oracle 8i database in such a way that the formatting of the text is not lost? I am going to retrieve the document from Oracle and redisplay with the original formatting. Please let me know. Thank you in advance, --Mike Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52940
- Next
  - 1
    - Saving Word Document without Attached macro Hi All, I have created a template with word and VBA that takes all the word docs in a specific folder and allows a user to open the selected document for edit, when the user goes to edit the document it opens the document into another template that i created which has a custom toolbar attached to it and various VBA commands to control the events on this toolbar. The problem i am having is when the user presses SAVE on my custom toolbar, the document saves fine however it also saves the toolbar and all i want is to save the text changes I DON'T want to save the attached toolbar.. how do i do this? this is the code i have for saving in my custom toolbar. ActiveDocument.SaveAs FileName:=docletPath & ActiveDocument.ActiveWindow.Caption, FileFormat:=wdFormatDocument docletPath = "C:\Temp\doclet\" the following is the code i use to open the word document that was chosen for editing into the second template with the custom toolbar. Set docApp = New Word.Application With docApp .Visible = True .WindowState = wdWindowStateMaximize End With ActiveDocument.ActiveWindow = docApp.Documents.Open("C:\_dev\CWBL\PensionDocumentBuilder\Retirement\tempDoclet.dot") docApp.ActiveDocument.ActiveWindow.Selection.InsertFile FileName:=docletPath & Me.txtSource.Text docApp.CommandBars("Menu Bar").Enabled = False docApp.ActiveDocument.ActiveWindow.Caption = Me.txtSource.Text docApp.ActiveDocument.ActiveWindow.SetFocus Thanks in advance for the help. Erin Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52918
  - 2
    - Booklet, back to front, landscape 1/2 page Dear fellows, I hope someone can help me. I want to publish a club handbook that is printed on 8 1/2 X 11 folded in half. This effectively would have the first page printed with the last on the same sheet. Just like a magazine is printed then stapled together. The problem is I don't know how many pages will be involved so I just can't start by typing the first page and the last page on the same page and printing. The number of pages will change several times a year. The question then becomes...is there a template or program that will do this for me? In other words, allow me to type the pages sequentially and when I'm finished rearrange the pages for proper printing regardless of how many pages are involved. Years back in another life I remember a Mac program that allowed me to do exactly what I want, but I can't seem to find it for Word. Thanks for any help you can give. Wolf-==- Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52912
  - 3
    - Using an IF statement I am in the process of creating a letterhead macro/template. I would like it to work like this: Open letterhead template, you are asked to enter a "lawyer number" and based on the lawyer number you type, that lawyer's personal info is inserted in the letterhead. An example I've been playing with is: If txtLawyerNo = 31 Then Application.Run MacroName:="ArsenaultGreg" End If Any help would be appreciated. Brenda Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52910
  - 4
    - Change Table Properties I have a macro which creates a table. I would like to select some cells (e.g. column 1 rows 1, 2 &3) and set the border property to BOX. How could I do that? Also, I would like to delete individual cells in row1, and change the width of the remaining cells. How could I do that? Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52909
  - 5
    - Do While or While & Selection or Range (REPOSTED AS PER REQUEST) Hi Folks, I've written some code to check the character style in paragraphs and 'do stuff' based of the style found. First question: Is it better to use the 'Do While' clause with this (which I'm thinking it might be). Second Question: Is it better to use range instead of selection, and if so how do I convert this to ranges? I've never used ranges before and don't really know that much about the properties/methods. Any pointers/improvements gratefully accepted. Cheers J Dim x As Integer, y As Integer, s As Integer Dim StyleNow As String Dim test As Variant, test1 As Variant StyleNow = "Persname" SavedMemData = ActiveDocument.BuiltInDocumentProperties(wdPropertyParas) For x = 0 To SavedMemData - 1 styletype = Selection.Style For s = 1 To 6 y = 0 test1 = Selection.Paragraphs.Last test = Selection.Document.Paragraphs.Item(x + 1) If test <> test1 Then GoTo End1 If Selection.Style = StyleNow Then StyleNow = Selection.Style Selection.MoveLeft wdCharacter, 1 Selection.MoveRight Unit:=wdWord, Count:=1, _ Extend:=wdExtend If StyleNow = "Persname" Then GoTo Pers1 While StyleNow = "Persname" Selection.MoveRight wdWord, 1, wdExtend If Right(Selection.Style, 5) = "Entry" Then Selection.MoveLeft wdWord, 1, wdExtend Selection.MoveLeft wdCharacter, 1, wdExtend StyleNow = Selection.Style GoTo CheckEntry End If Wend This must be performed on multiple paragraphs and multiple styles to have the effect I need. Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52907
  - 6
    - Macro to edit VBA code I perform (by hand) a certain standard 15 step routine on my VBA code to make the coding that runs in Word2003 workable in Word98. Is there anyway to create a macro that runs directly on the VBA coding so that the manual steps I take to edit the code can be automated? Thanks, Roy Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52902
  - 7
    - double click to update Fill-in field Hello all, I am looking for a way to update Fill-in fields by doubleclicking on them instead of using the update field command by clicking the right mouse button. I have a document with some Fill-in fields. This document is about 10 pages long and every page contains one or more Fill-in fields. I know I can also use the function UpdateAllFields instead off the right mouse button. But then I have to go through all the Fill-in fields when I only want to change, for example, the 11th Fill-in field in the document. I am just a beginner with VBA-coding so I don't know a lot about putting the above problem in a code. I know it has something to do with the WindowBeforeDoubleClick, but the VBA-help doesn't help me out that much. Can anyone help me with the VBA-code for updating/changing a Fill-in field by doubleclicking on it? I am using word 2002 Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52897
  - 8
    - Listing Bookmark By Location in Document Word 2000 I have a simple macro that populates an array with bookmark names by reading the contents of the Bookmarks collection. The only problem is that it fills the array with the bookmark names in alphabetical order, and I need them listed in the order in which they appear in the document from top to bottom. Is there a way to sort the Bookmarks collection by location, and then use that sorted list to populate an array? -- Tom MT DOJ Help Desk Making the world a safer place. Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52896
  - 9
    - Status Bar Appears Mid-Screen Of2k/w2kPro & Of97/nt4 Macro calls for the TOC to be generated. The "re-paginating" message flashes mid-screen rather than staying put on the bottom of the display. Happens with a project that is being developed on both the above platforms (home & work) but the problem occurs (intermittently) on w2k only. This is more of an annoyance than anything else. Any ideas? -- Regards; Rob ------------------------------------------------------------------------ Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52892
  - 10
    - visual basic errer message help when i open word i recieve the following message "Compile error in hidden module:AutoExec" what does this mean and how do i get rid of it. thanks Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52891
  - 11
    - Build Table with Macro I have used a macro to update an existing table by deleting all the rows after the first, and the reading data from a file and adding new rows. I would now like to create the first row of a table with a macro ( that would allow me to set the number of columns). I recorded a macro when I used the tool bar to create a table, but that only showded the number of row and columns. It didn't show me how to set the width of each column. Where could I find out how to set the individual column widths? Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52886
  - 12
    - resize pasted bitmap-picture Hi all, I have an ACCESS database with an embedded OLE-field containing a bitmap-picture. I already mannaged to copy and paste the picture from the database to a word-document, but now i still need to resize it... here is the code i use: imgFoto.Action = acOLECopy Set objWord = CreateObject("WORD.APPLICATION") With objWord .Documents.Add "D:\bitmap\bitmap.dot" .Selection.GoTo What:=-1, Name:="bitmap" .Selection.Paste 'here i should do the resize .Visible = True End With Is this the way it should be done? Anyone got an idea how to do the resize? Jan Hendrickx. Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52883
  - 13
    - NT Username auto fill-in I need to know how I can have a users NT domain username autofilled into a field such as form field or another specific location on a word doc in Office XP. I am presume this would need a macro and if anyone has a working code example I would love to see it. Also, if there is another method, that would also be excellent. -Regards Jon Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52882
  - 14
    - bookmarks save & restore We would like to save & delete any bookmarks at the start of the procedure & then @ the end of the procedure restore those deleted bookmarks. Tried a few things but no banana. HELP! Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52880
  - 15
    - insert page footer on every page Hi, I have a document that consists of section and page breaks. I'm using this code to insert a page number footer onto every page. But on the pages where the content of the document goes to the bottom of the page, the footer(page number) is not showing up. Thanks in advance. _______________________________________________________ Sub insertFooter() Dim mySCTN As Section For Each mySCTN In ActiveDocument.Sections With ActiveDocument.Sections(mySCTN.Index).Footers _ (wdHeaderFooterPrimary) .PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberRight End With Next mySCTN End Sub Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52867
  - 16
    - Saving Word as text I need code to open each document in a specific directory and save them as text files. Any help on this would be greatly appreciated. Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52866
  - 17
    - Macro misfires after move to Word 2003 I was using the code below on a Win 98 machine running Word 2000. It worked fine. I am now trying to run the same code on a Win XP Pro machine running Word 2003. The macro seems to insert all the includetext fields just fine, but instead of ending after the last insert, it goes into a continuous loop. Code: Dim marker As String Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Highlight = True With Selection.Find Do While .Execute(FindText:="", _ Wrap:=wdFindStop, Forward:=True) = True marker = Selection.Text Selection.Delete Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _ PreserveFormatting:=False Selection.TypeText Text:="INCLUDETEXT " & Chr(34) & "I:/htltr/jdltr/prod/" & marker & ".doc" & Chr(34) & " B" & marker Selection.MoveRight wdCharacter, 2 ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes Loop End With ActiveDocument.Fields.Update Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52865
  - 18
    - VB to change Security Level I have a document containing macros that needs to be sent to others. The problem is when the users had Word installed the default security level was set at high and will not allow macros to be run. My question is: Is there a way to change the security settings to medium or low when the document is opened, then reset it to high when the document is closed? Thanks. Vince Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52855
  - 19
    - Iterate paragraphs through VB6? I'm having trouble getting a VB6 app to iterate the paragraphs in a Word doc. It opens the doc fine , but every way I've tried to set an object to Paragraphs is rejected. Migth someone be able to help? Ed Dim objWord As Object Dim objFiles As Object Dim objPar As Object Dim rngPar As Object Dim docFiles As String Dim strFile As String Dim strDest As String Dim strHere As String strDest = "C:\Documents and Settings\emillis\Desktop\XCopy\" Set objWord = CreateObject("Word.Application") docFiles = "C:\Documents and Settings\emillis\Desktop\XCopy\TestDoc.doc" Set objFiles = objWord.Documents.Open(docFiles) 'Error here Set objPar = objFiles.Paragraph Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52852
  - 20
    - Saving a document as and automatically deleting the original Hello, people. Is there a macro that could help me do the following: I am working on a document named ABC that I have already saved on my disk and want to save it with a different name, XYZ, while at the same time getting rid of the ABC document stored on my disk, without having to delete it by getting to its containing folder using Windows Explorer. Any ideas? Regards, Wtbx Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52850
  - 21
    - Missing FilePicker Dialog I had been using the FileDialog object in a Word (2002) add-in until a colleague running Word 2000 tried to use it and got an error. I discovered that the FileDialog object is available only in the Office 10.0 library. Since I need to distribute this add-in to people whose version of Office I won't be able to update, I want to do without using the FileDialog object. But I can't seem to find a filepicker type dialog otherwise. Does one exist? Or will I need to create my own filepicker using a userform? I should note that I considered using Word's built-in fileopen dialog as a workaround. But I don't need to open the file that is picked. (The program simply needs to take the fullname of the document that is picked and assign that value to one of the activedocument's variables.) I'd prefer to avoid that workaround if possible. Thanks for any guidance, GPL Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52848
  - 22
    - Can 3rd Party Tools or Machine Configuration (i.e. Win XP / Office 2000) Interfere with Overridden Word Commands? Hello, I have overriden code that runs for the "EditPaste" Word command. This works fine on a Win98 / Office 2000, Win XP Pro / Office XP Developer and WINNT / Office 2000 machines all of which do not have 3rd party MS Word-associated addins and / or tools. The routine does not fire on a Win XP / Office 2000 machine that also has FactSet addin tools installed. More specifically, a dummy "EditPaste" routine used for testing does fire provided the clipboard is empty when the user does a Ctrl + V or Edit > Paste. Does anybody know of any 3rd party tools, Service Packs or missing Service Packs that could cause such behavior? Thanks, TC Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52845
  - 23
    - Copy Table to End of Document after i do activedocument.tables(1).range.copy how should i go about pasting it to the end of the document? Is there a better/faster way to copy a table to the end of the document? Thanks!! Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52843
  - 24
    - Word Template for Mac Hello I have done Wordtemplates for PC and i now try to change them to also works in MAC. When i start my Wordtemplate i want Word to start with a Form who will fill in som fields from a textfile. Frmfax.txttillavsÃ¤ndare = System.PrivateProfileString("c:\Mallpaket\min info.txt", "Ett", "strNamn") Frmfax is the form and .txttillavsÃ¤ndare is the field. The path is c:\Mallpaket\min info.txt". Mallpaket is folder and Macintosh HD is the computer and "min info.text" is the textfile And thats the problem, can anyone tell me how this path should be written ? And i believe the path should be written like this Macintosh HD: Mallpaket :min info.txt But What about "System.PrivateProfileString" before the path, i believe that this is Wrong but i have no idea what the rigth is ? Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52834
  - 25
    - How do i create and modify a chart in a Word doc from VBA? Hello, i've got a word-document with tables in it. Now i want to generate charts automatically based upon the data in these tables. I've been looking around, but haven't really found any documentation or examples that were helpful to me. These are the questions: * how to create a chart in VBA? * how to get it to base it's data upon a table in my word document? * how to change the type of chart (to bars, pie, ...) Any help would be greatly appreciated! Thx in advance, Thomas Tag: An error occurred while loading "ThisDocument". Do you want to continue loading the project? Tag: 52831

Hi

I have developed a program to convert all word documents in a specified
directory (and subdirectories) into txt files. It's working pretty well but
occasionaly I get this error message, and my application freezes until I say
YES or NO.

Is there a way to ignore the error?
Thanks
Paul

An error occurred while loading "ThisDocument". Do you want to continue
loading the project?

Top

Re: An error occurred while loading "ThisDocument". Do you want to continue loading the project? by Cindy

Cindy
Thu Jul 01 10:26:28 CDT 2004

Hi Msnews,

> I have developed a program to convert all word documents in a specified
> directory (and subdirectories) into txt files. It's working pretty well but
> occasionaly I get this error message, and my application freezes until I say
> YES or NO.
>
Does the document in question contain macro code? Or ActiveX controls?

Which version of Word are you using for this?

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