DocumentBeforePrint in Word 97

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Automatically generating Microsoft Chart graphs from a file list I have a large number of experiment results (around 350+ samples) store in separate Excel format (tabs/newlines) files. I would like to generate a single Microsoft Word document with each file converted into a Microsoft Graph object. I have a template graph which I wish to use. Is there any way of creating a macro or other set of commands that would allow me to do this automatically. Sort of For each file Create a Microsoft chart object Import datasheet from file Endfor Tag: DocumentBeforePrint in Word 97 Tag: 71487
 - 2
 - embed image in template so available for insert can I embed an image in a template so it's available for insert on any computer (like how a macro is saved in the dot file) - So you can't see it but you can use it, and a macro that calls for it doesn't need to look in a path on the terminal computer? Tag: DocumentBeforePrint in Word 97 Tag: 71475
 - 3
 - Prevent pages from displaying/printing I'm not very VBA or SQL literate so I'm trying to figure a way to make this form work. I created a form out of a word document. It populates bookmarks and references with data from a SQL database. The form is static. It allows up to 9 employees names, addresses, etc to display. For example: Laura Smith 15 Street Princeton, NY 08696 US citizen Larry Kole 58 Rd New York, NY 90012 UK citizen Jen Reilly 40 Avenue Miami, FL 10012 FR citizen So there are 3 employees that print per page. So I end up having 3 pages each everytime. My problem is that I don't always have 9 employees everytime. Sometimes I may just have one which would only need to print on page 1 or four employees which would print on 2 pages. Is there any way to write a macro that will prevent pages from displaying and printing depending the the number of employees. So if there are 3 employees then page 1 will print. If there are 4 to 6 employees then page 2 will print. If there are more than 6 employees pages 1 thru 3 will display and print. Any suggestions? Many thanks Microsoft experts Tag: DocumentBeforePrint in Word 97 Tag: 71473
 - 4
 - Can I add user-defined styles to a customized toolbar button? I am using Word 2002. I work with manuals, and would like to have my most often-used styles as buttons on a custom tool bar. Can I do that? Maybe I am using the wrong keywords, but I am not finding it. -- Thanks! Mary Lee Tag: DocumentBeforePrint in Word 97 Tag: 71471
 - 5
 - VBA to search in comments attached to an xl cell Is it possible to write VBA code that will search inside the comments attached to a cell in excel for each sheet in the workbook. The number and names of the sheets will constantly be changing. Ideally what I'd like to do is something like: 1. Go to first sheet in workbook 2. for each sheet in workbook search the comments for desired info 3. On finding result return message stating the sheet name and cell that the comment is attached to and the choice to end searching here and go to that cell or continue searching 4. On not finding result return message with simple 'OK' button and end the macro. Thanks for any help/pointers in the right direction. Tag: DocumentBeforePrint in Word 97 Tag: 71465
 - 6
 - How can I conditionally hide text in a subdocument? I'm writing a users manual in a Word Master Document. I have a subdocument that I'd like to include in a couple of places with a minor change in the text. There is a sentence that I want to drop when it is included in a another particular subdocument. Perhaps this outline will help you understand my question better. masterdoc subdoc1 sub-subdoc1: show the sentence subdoc2 sub-subdoc1: do not show the sentence Tag: DocumentBeforePrint in Word 97 Tag: 71463
 - 7
 - email confirmation Dear all, I want to automatically send out an notification by email when a word document has been saved, whithout sending the actual document. I do have the code to send out an email. What I'm missing is the code to initiate the sending subroutine when the document is saved. I think I need something like a "send on save". Any Suggestions? Thanks a lot for you assistance. best Mathias Tag: DocumentBeforePrint in Word 97 Tag: 71458
 - 8
 - Reassigning custom toolbar button functionality In the interest of organization, I moved some subs to another module. Trouble is, they were linked to some custom toolbar buttons. When I clicked one those buttons, I got the "The macro cannot be found or has been disabled because of your Macro security settings" warning box. In Excel, it's easy to reassign a toolbar button. But I don't see the same "Assign Macro" menu item in the Word customization pop-up menu that is in Excel. Is there a way to reassign custom toolbar buttons? Or am I doomed to create new buttons and assign them to the subs? Tag: DocumentBeforePrint in Word 97 Tag: 71457
 - 9
 - MailMerge Doc whit VBA I have a mailmerge document that I want to populate with VBA. I have a copy of a subroutine BatchReplaceAll from the MVP website. I would appreciate some suggestions on what methods I would use to populate the mailmerge fields. Point me in a direction to look. Thanks -- FL Consultant Tag: DocumentBeforePrint in Word 97 Tag: 71454
 - 10
 - in visual basic how do return the cursor position I need to identify the position of the cusor in a document, particularly the line number, using VB, any ideas? Tag: DocumentBeforePrint in Word 97 Tag: 71452
 - 11
 - Clean Out Linked "Char" Styles Codes doesn't work on word 2003 This is very useful code to remove troublesome "Char" Styles on Word document. But it only works on word 2002 and this code just hangs on word 2003. This is the code ==> http://hacks.oreilly.com/pub/h/2597#code I like to know why this code just hangs on word 2003. Thanks, JB Tag: DocumentBeforePrint in Word 97 Tag: 71445
 - 12
 - Previously working replace macro gave error today A macro which has operated properly many times in the past halted with an error this morning. The debugger indicated line 10 below as the error. After trying to determine why, I did a manual find/replace and the replace window came up with use wildcards checked. I guess that the last replace I did yesterday (different document) used wildcards and Word remembered this setting. How do I unset this in the macro? I am using Word 2002. 1 Selection.WholeStory 2 Selection.Find.ClearFormatting 3 Selection.Find.Replacement.ClearFormatting 4 With Selection.Find 5 .Text = "^l" 6 .Replacement.Text = " " 7 .Forward = True 8 9 End With 10 Selection.Find.Execute Replace:=wdReplaceAll 11 With Selection.Find 12 .Text = " ^p" 13 .Replacement.Text = "^p" 14 .Forward = True 15 16 End With Tag: DocumentBeforePrint in Word 97 Tag: 71444
 - 13
 - Coding To Open/Format/Save/Close All Files In Single Directory Hi, My problem surounds the fact that I have 100 + files in the following directory C:\My Documents|Import The first few filenames for example are ABEG, ABMN, ABXX The files all have the extension .rpt as they have been imported via ftp routine. What I'm aiming to do is open each file in the directory in turn, perform identical formatting and editing in each file (for which I have code that works!), and save the file as a word document in the same directory as above (or preferably one called C:\My Documents|Reports). I have cobbled together some coding, but am basically stuck and any input provided would be incredibly welcome. The coding seems to open the first file "ABEG", but somewhere in the routine the filename is then lost and the routine ends up doing a loop, saving the file with name "False" and resulting in a forced quit to get out of word. I'm also not sure what the coding would be that ensures the macro ends normally once the routine has been performed on each file in the directory once only. I'd be grateful if someone could have a look at the code below and advise accordingly Thanks Graham Sub RunNR6() Dim myFile As String Dim PathToUse As String Dim myDoc As Document PathToUse = "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" myFile = Dir$(PathToUse & "*.rpt") While myFile <> "" Set myDoc = Documents.Open(PathToUse & myFile) 'then perform required editing and formatting myFile = Left$(myFile, Len(myFile) - 3) = "doc" ActiveDocument.SaveAs FileName:=myFile, FileFormat:=wdFormatDocument ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges Wend myFile = Dir$() End Sub Tag: DocumentBeforePrint in Word 97 Tag: 71441
 - 14
 - About CustomDocumentProperties Hi everyone, Does anyone know if there is a command in VBA that removes a CustomDocumentProperty? I found a reference in MSDN library about adding a CustomDocumentProperty but not about removing it as well. I noticed also that if a property is added manually -that means I go file->properties->custom- then I can write in my macro ActiveDocument.CustomDocumentProperties(index).Delete and it is removed. But if the property is added by my code with a command like this: ActiveDocument.CustomDocumentProperties.Add xNode.ParentNode.nodeName, False, msoPropertyTypeString, xNode.NodeValue and then it gets a value with the command: ActiveDocument.CustomDocumentProperties.Item(xNode.ParentNode.nodeName).Value = xNode.NodeValue then I cannot remove this property. Could anyone please tell me what I am doing wrong? Tag: DocumentBeforePrint in Word 97 Tag: 71438
 - 15
 - How to use %systemdrive% and %username% Hello all (In Word 2003) I need to call with my shell command to explorer.exe, it works shell "explorer.exe" or shell "explorer.exe c:\Data" But I need use the variables %systemdrive% and %username% and an error message appears: "this file doesn't exist". How can I use the variables with shell or whitout it? Thanks in advanced. Henpat Tag: DocumentBeforePrint in Word 97 Tag: 71423
 - 16
 - BatchReplaceAll Help I was pointed to the MVP website and the routine to perform BatchReplaceAll. I am a programmer but have not done much with VB. It was suggested that I need to use this routine. After looking at it, it appears that I can use it but I need some assistance. What I am doing is updating many contracts with the same data ( name, address, company number, store numbers etc.). I want to automate the process. I understand correctly, I see that BatchReplaceAll is a subroutine. Where can I learn about it functionality. I don't need to have the person enter any information. Do I use the same kind of fields that you use in mailmerge? Where can I go to get info on word VB? Thanks -- FL Consultant Tag: DocumentBeforePrint in Word 97 Tag: 71421
 - 17
 - new file format to be opened in word automatically ? Hi I have saved a .doc file after RSA encryption under "filename.glk" I would like to open through word and the appropriate decryption VBA routine(stored in a decryption.dot template) this .glk file with just a double clik on it. That is to say double clicking on the glk file will start word start the decryption routine to then open the "filename .GLK" file in word. automatically Who can help me to this end ? any help much appreciated ! Code snippet is a must ! Best regards from Paris to all. Herve Cadieu Tag: DocumentBeforePrint in Word 97 Tag: 71415
 - 18
 - win32 How to solve the error message " X (null) not a valid win32 application while opening the MS WORD Tag: DocumentBeforePrint in Word 97 Tag: 71414
 - 19
 - Need Index # of current line/para/word [cont. after delay] Thanks for the response. > I get the answer 27785 in a second. For me, that's terrible. I need to display the progress of many hundreds or even thousands of hits. Even if I only call the progress bar once every 10 hits this is still an unacceptable overhead --- and I will also get a jumpy bar. Thanks. Avraham. (Btw, greetings from Israel.) >> same with sentences Well, I am sure that counting sentences does not work very well on our machines, so if paras and words take as long then they also won't work. Maybe I will get around to trying them later. Thanks. Avraham. Helmut Weber wrote: > Hi Avi, > > 1 GHz, 768 MB Ram, 200 pages document, > insertion point on the last page > > MsgBox ActiveDocument.Range(0, Selection.Range.End).Words.Count > > I get the answer 27785 in a second. > > Same with paragraphs, same with sentences. > > Processing lines is something completely different, > they depend on e.g. pagesetup, printer, font etc. > > > ActiveDocument.Range(0, Selection.Range.End).Sentences.Count > > convoluted? > > How about this one, which is essentially the same. > Just a bit easier to read, maybe. > > Dim rDcm As Range > Set rDcm = ActiveDocument.Range > rDcm.End = Selection.Range.End > MsgBox rDcm.Words.Count > > > Greetings from Bavaria, Germany > > Helmut Weber, MVP, WordVBA > > Win XP, Office 2003 > "red.sys" & Chr$(64) & "t-online.de" Tag: DocumentBeforePrint in Word 97 Tag: 71413
 - 20
 - Call to U: drive from Word Hello all I need to create a button that calls the U: drive How can I do it? .... Word 2003 Windows XP PRO SP2 ... Thanks a lot. Henry Tag: DocumentBeforePrint in Word 97 Tag: 71412
 - 21
 - To check the call of Save event on DocumentBeforeSave event Hello All, I want to know that when the DocumentBeforeSave event is called in Word then is it possible to know from where the event has been fired. Is it Save, Save As, Save As Web Page, Auto Save, etc. I want to track from which of these functions i have recieved the call. Thanks for help. GS Tag: DocumentBeforePrint in Word 97 Tag: 71411
 - 22
 - How do I create a new symbol for Word 2002 I have a document in Word that I want to be able to insert a symbol, which currently does not exist in the format dropdown box to insert a symbol. The symbol I would like to be able to add would be a box with an x inside it. Any ideas would be very helpful. Tag: DocumentBeforePrint in Word 97 Tag: 71406
 - 23
 - Multiple Selections in Calendar Control Is it possible to make multiple selection within the calendar control ie. can I allow users to use the SHIFT or CONTROL keys to select multiple days within the calendar? (I didn't see any options for multiple selections within control properties). Can I program for this functionality using a couple lines of code? If so what would it look like. Thanks in advance. Tag: DocumentBeforePrint in Word 97 Tag: 71403
 - 24
 - Loop thru doc problem Hi, The following code is working perfectly for me except when it hits a table. I would like it to SKIP tables and not put the sequential number field there. I only want it if the paragraph style is Normal and not in a table. Right now it is placing sequential numbers in each cell of the first table. I'm getting the following error message when it gets to the end of the first row: Run-time error 5251. This is not a valid action for the end of a row. I've tried several different options to get this to work. I've been looking at it all day and am still not getting anywhere. Any help would be greatly appreciated. Thanks. jbc ********************************************* Dim oPar As Paragraph Dim oRng As Range ActiveWindow.View.ShowFieldCodes = True For Each oPar In ActiveDocument.Paragraphs If oPar.Style = "Normal" Then If Not Mid(oPar.Range.Text, 3, 3) = "SEQ" Then oPar.Range.InsertBefore vbTab Set oRng = oPar.Range.Duplicate oRng.Collapse direction:=wdCollapseStart ActiveDocument.Fields.Add Range:=oRng, Type:=wdFieldSequence, Text:= _ "Paragraph \# ""[0000]"" \n " oRng.Paragraphs(1).Range.Fields(1).Result.Font.Bold = True End If End If Next oPar ActiveWindow.View.ShowFieldCodes = False ActiveDocument.Fields.Update ************************************************* Tag: DocumentBeforePrint in Word 97 Tag: 71402
 - 25
 - VBA and numlock. A client claims that a VBA macro is turning numlock off. I looked in the docs and see no way for VBA to do this - tell whether numlock is on or off, yes, but change it, no. Any ideas? -- Peter Aitken Remove the crap from my email address before using. Tag: DocumentBeforePrint in Word 97 Tag: 71397
- Next
 - 1
 - Documents.Open Causes Terminating Error The following Open code generates a hard kind that terminates the application and never gets trapped. It shows up only on Windows 2000 or Word 2000 and is fine on XP or later (and is developed on Windows XP with Word 2003). Dim wordApp As Word.Application Set wordApp = New Word.Application wordApp.Documents.Open "d:\some_file_name" Is there a reason for this? What is the work around? Tag: DocumentBeforePrint in Word 97 Tag: 71393
 - 2
 - Run-Time Error 4608 I have been trying to finalize a document by running a macro to "cleanup" page setup values. I want to havea header setup in the end of InchesToPoints (.38). The document page setup is with A4 paper sizing. The code that is giving me the run-time error is: docWd.PageSetup.HeaderDistance = InchesToPoints(0.38) when I get to that point in the code and hover, the value is 84.95 on the left-hand side. Does anyone have any ideas? Thanks. Tag: DocumentBeforePrint in Word 97 Tag: 71392
 - 3
 - Highlighting mechanism like protected documents Hi, I want to highlight text in a Word document, that has track changes enabled and the highlight operation should not appear as a tracked change. For example, when we protect a in Word 2003, Word automatically highlights the regions of the document that is editable by different users in different colors. This highlight does not cause any tracked change, moreover, when I look at the properties of the range object, I do not see anything different from a normal range without protection. And when I switch the option to view the bookmarks, I see that the highlighted regions are surrounded by bookmark symbols. But the range object does not contain any bookmarks. Can someone help me out here, as to how this can be done?? Thanks and Regards, Laks Tag: DocumentBeforePrint in Word 97 Tag: 71389
 - 4
 - Can I create a macro to transfer info from a Word doc to Access? I created a blank form in Word to be sent out electronically and completed before being returned to me. All the data on the Word "form" is in text boxes, check boxes or frames. Is it possible to write a macro that would transfer the data captured in the form to an Access database already created? Tag: DocumentBeforePrint in Word 97 Tag: 71384
 - 5
 - Create Error Message I am working in Word 2002. I have a form with many input fields. I have a tab order macro in the document to guide through the form. Because of the tab macro the user cannot tab to a previous field (shift + tab), doing so tabs them out of the current field and into the next field. I would like to have an error message come up when the user uses the shift + tab key combination, stating they can not tab backwards, so the user is left at the same field they were in when they pressed shift + tab. Thanks! -- Jamie Tag: DocumentBeforePrint in Word 97 Tag: 71383
 - 6
 - word SDK i have a vb program that currently creates word documents using the various word objects available within Word.Application. currently i have microsoft word installed on my machine. is there something else like an SDK i could install and still use my program so i can delete the actual word program from my computer? Tag: DocumentBeforePrint in Word 97 Tag: 71382
 - 7
 - How can I speed this up?? Hi All, I am wits end trying to find a way to speed up this procedure. Below is a brief description of what I am trying to do followed by my code: ---Description--- We needed a way for users to import a document into our application. The Word doc needs to be tagged in such a way that the procedure "knows" what tag item needs to be placed in what column in the database. Here is an example of what an Item structure looks like: [~Item~] [~ItemType~]Single Answer Multiple Choice [~ItemATID~]70-057.6.2.2 [~ItemText~]What is the best installation method to use? [~Alternative~] Custom [~Alternative~] Typical [~Alternative~] Complete [~Alternative~] Ad Server [~Alternative~] Commerce Interchange Pipeline [~CorrectAnswer~] Custom [~Difficulty~]3 [~Editor~]dvdastor [~RemediationText~] The Typical installation option installs Commerce Server and Ad Server. It does not install the Trey Research sample site or the SDK. The Ad Server installation option only installs Ad Server. The custom installation option allows you to add or subtract from the Typical installation. The complete option installs all the components and is not the best answer. [~ReferenceText~] 1. Implementing a Commerce Enabled Web Site Using Microsoft SS 3.0, Commerce E - Installing Commerce Server - Commerce Server Installation As you can see, the tags ([~TagName~]), determine what needs to be read and imported. I run through the document looking for the tags and set the tag value up as a range. I then need to do some processing on the range to capture any HTML formatting that may be included. If I have 20 or so Item structures like the one above in a document, the process runs for about 5 minutes and will eventually do what I would like. However, if the document contains, 30 or more, it takes upwards of 40 minutes or so. Most often though, I get the dreaded, "Message Filter indicated the application is busy" error. ----My code---- 'create the app If oWord Is Nothing Then oWord = New Word.Application End If oWord.Visible = False oWord.DisplayAlerts = Word.WdAlertLevel.wdAlertsNone .... 'open the document If File.Exists(SaveLocation) Then oDoc = oWord.Documents.Open(SaveLocation) Else ErrorLabel("The file does not exist. Please check the file name and try again.") End If ..... 'At this point, I am merely crawling through the doc looking for tags and tag values. 'Once I obtain a range, I pass the range to this function and utilize the return value to import into the database: Public Function PrepareTagsforImport(ByVal rngToSearch As Word.Range) Dim rngResult As Word.Range Try rngResult = oDoc.Range(start:=rngToSearch.Start, End:=rngToSearch.Start + rngToSearch.Text.Length) With rngResult.Find .ClearFormatting() .Execute(findtext:="^m", ReplaceWith:="", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Replacement.ClearFormatting() .Replacement.Font.Bold = 0 .Replacement.Font.Italic = 0 .Replacement.Font.Underline = 0 .Replacement.Font.Subscript = 0 .Replacement.Font.Superscript = 0 .Execute(findtext:="^p", ReplaceWith:="^p", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .Text = "&" .ClearFormatting() .Replacement.Text = "&" .Replacement.ClearFormatting() .Execute(Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .Text = "<" .ClearFormatting() .Replacement.Text = "<" .Replacement.ClearFormatting() .Execute(Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .Text = ">" .ClearFormatting() .Replacement.Text = ">" .Replacement.ClearFormatting() .Execute(Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Bold = 1 .Replacement.ClearFormatting() .Replacement.Font.Bold = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Italic = 1 .Replacement.ClearFormatting() .Replacement.Font.Italic = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Underline = Word.WdUnderline.wdUnderlineSingle .Replacement.ClearFormatting() .Replacement.Font.Underline = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Subscript = 1 .Replacement.ClearFormatting() .Replacement.Font.Subscript = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Superscript = 1 .Replacement.ClearFormatting() .Replacement.Font.Superscript = 0 .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Tahoma" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Courier" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Courier New" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Verdana" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Times New Roman" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Name = "Arial" .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 8 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 10 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 12 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 16 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 18 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 24 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With With rngResult.Find .ClearFormatting() .Font.Size = 32 .Replacement.ClearFormatting() .MatchCase = True .Execute(findtext:="", ReplaceWith:="^&", Format:=True, Replace:=Word.WdReplace.wdReplaceAll) End With Return rngResult Catch ex As Exception ErrorLabel(ex.Message) End Try End Function ------------------------ I believe my slowdown comes from this procedure having to run on most of the ranges (I don't care about formatting on some, so I just skip this procedure for thost ranges). With so many Finds and Replaces, could this be my issue? As I mentioned, it works fine with smaller docs, but with larger ones, it takes forever... Is there any way from what you see above that I can improve the performance of my process? Thanks for any help you can provide. Tag: DocumentBeforePrint in Word 97 Tag: 71376
 - 8
 - Programming Re Document Save Hi, I'm using Word97 and have approx 100 unformatted text files in the following directory \\FINPC13\SHARE FIN01\NR6 Draft .rpt\ I want to open each in turn, perform identical formatting on each file and then save the file as a word document within the same directory. The following programming performs the first part of this routine (I think!) Sub RunNR6() Dim myFile As String Dim PathToUse As String Dim myDoc As Document PathToUse = "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" myFile = Dir$(PathToUse & "*.rpt") While myFile <> "" Set myDoc = Documents.Open(PathToUse & myFile) Selection.WholeStory Selection.Font.Size = 8 With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientLandscape .TopMargin = InchesToPoints(0.5) .BottomMargin = InchesToPoints(0.5) .LeftMargin = InchesToPoints(1) .RightMargin = InchesToPoints(0.5) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(11.69) .PageHeight = InchesToPoints(8.27) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False End With I am struggling with the code which will then save each file (the active document at the time) as a fully formatted word document within the following directory:- \\FINPC13\SHARE FIN01\NR6 Draft .rpt\ Help gratefully appreciated. Graham Tag: DocumentBeforePrint in Word 97 Tag: 71373
 - 9
 - Programming Query Re Document Save Hi, I am using MS Word 97. I have approx 100 files in the following directory "\NR6 Draft . rpt" which are unformatted text files.I have the start of some programming which should open each file in turn and perform identical formatting in each file as follows:- Sub RunNR6() Dim myFile As String Dim PathToUse As String Dim myDoc As Document PathToUse = "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" myFile = Dir$(PathToUse & "*.rpt") While myFile <> "" Set myDoc = Documents.Open(PathToUse & myFile) Selection.WholeStory Selection.Font.Size = 8 With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientLandscape .TopMargin = InchesToPoints(0.5) .BottomMargin = InchesToPoints(0.5) .LeftMargin = InchesToPoints(1) .RightMargin = InchesToPoints(0.5) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(11.69) .PageHeight = InchesToPoints(8.27) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False End With On completion of the formatting above I would like help with the programming which then:- saves the active document as a fully formatted word document in the same directory "\\FINPC13\SHARE FIN01\NR6 Draft .rpt\" before repeating the procedure with the next "text" file in the directory. Help gratefully appreciated. Graham Tag: DocumentBeforePrint in Word 97 Tag: 71372
 - 10
 - Run a macro in Word from command line to open envelope window I want to create a desktop icon that will open word and automatically open the the "Tools | Letters and Mailings", "Envelopes and Labels" window. I have recorded a macro that opens this window, but the window is modal so the macro cannot be terminated until the window is closed and the code behind the macro uses ActiveDocument.Envelope.Insert with the proper arguments to insert the envelope. I have also tried to use Sendkeys in the macro to send the [Alt] + "T" (Tools), [Alt] + "e" (Letters and Mailings), [Alt] + "E" (Envelopes and Labels) {Sendkeys "%(TeE)"} but when I run it, the current time gets inserted into the document. Any ideas? Tag: DocumentBeforePrint in Word 97 Tag: 71371
 - 11
 - Event Sinks Hi, I have a Visual Basic COM addin which is handling the "DocumentBeforeClose" event however there is another addin on the machine which is getting this event before my COM addin. If my COM addin sets the "Cancel" variable to TRUE the document will close regardless. Is there anyway to catch this event before any other addins get it? I am using Word 2003. Tag: DocumentBeforePrint in Word 97 Tag: 71364
 - 12
 - Memory Management Question I have some VBA code that gets run within Word in which the user clicks a menu selection (a macro launched from a toolbar). Every time the code runs, a collection is created and populated with freshly created instances of a class. When the macro ends, I do not have any cleanup code to set the class instances or the collection to nil. Will this leak memory? Tag: DocumentBeforePrint in Word 97 Tag: 71361
 - 13
 - VBA to find third decimal point? The cells in one column of a table contain numbers separated by decimal points. The numbers can have several points (1.2.3.4.5), or none. I would like to go through each of these cells and truncate the number just before the third decimal point, if it exists; if not, the number would be left alone. What method do I need to find the third decimal point in these strings? Thanks. Ed Tag: DocumentBeforePrint in Word 97 Tag: 71352
 - 14
 - Context Help with Custom Menus Is there a way to add a tooltip, or context Help to custom menus that are pointing to macros? Tag: DocumentBeforePrint in Word 97 Tag: 71348
 - 15
 - Word2003 doesn't save normal.dot anymore Hi, In a 'normal' Word environment when I change something that affects normal.dot - adding a menubar, change a profile- I got the question "Do you want to save the changes in normal.dot". I do have ticked the option in Tools, Options, Save, "Ask the user if normal.dot has to be saved". In my situation Word doesn't ask me nothing. The changes aren't saved etc. I now have explecitly has to open normal.dot and make the changes literal in de normal.dot file. Normal.dot isn't read-only, I have all rights to access normal.dot. I have done the next thing to overcome this problem: De-install Office 2003 Re-install Office 2003 It didn't help. Does someone have idea what's wrong? Regards, Marcel Tag: DocumentBeforePrint in Word 97 Tag: 71344
 - 16
 - Grouping Option Buttons I am creating a form that has repetitive groups of option buttons. In other words, I have several identical groupings of options buttons. How can I ensure that one button within each group can be selected, instead of only one option button out of the entire form? Thanx! Tag: DocumentBeforePrint in Word 97 Tag: 71342
 - 17
 - Inserting Logo in Header Hi all, I am using the following code to insert a letterhead logo into a document: If chkLetterhead.Value = True And cmbOffices.Value = "NYLetterhead" Then If ActiveDocument.Bookmarks.Exists("Logo") Then Set mBmRange = ActiveDocument.Bookmarks("Logo").Range mBmRange = "NYLetterhead" mBmRange.InsertAutoText ActiveDocument.Bookmarks.Add Name:="Logo", Range:=mBmRange End If End If If chkLetterhead.Value = True And cmbOffices.Value = "DCLetterhead" Then If ActiveDocument.Bookmarks.Exists("Logo") Then Set mBmRange = ActiveDocument.Bookmarks("Logo").Range mBmRange = "DCLetterhead" mBmRange.InsertAutoText ActiveDocument.Bookmarks.Add Name:="Logo", Range:=mBmRange End If End If If the bookmark named "Logo" is on the first page of the document this works just fine. However, if the bookmark is in the header, it freezes. I am using this same code in a different template to insert a logo and it works just fine. The only real difference between these two documents is that the one that works is a Fax cover sheet which *DOES NOT* have Different First Page turned on. The other two templates that use it are a Memo and Letter which both *DO* have Different First Page turned on. Also, I have another question regarding headers and footers. I read the following article on the Word MVPS page about preventing users from editing headers/footers in a document: http://word.mvps.org/faqs/customization/ProtectWord2000PlusHeader.htm. First, will the code from this article work in Word 2003? And if it will, can I change the line that reads: Case wdEvenPagesFooterStory, wdEvenPagesHeaderStory, _ wdFirstPageFooterStory, wdFirstPageHeaderStory, _ wdPrimaryFooterStory, wdPrimaryHeaderStory ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument so that only the First Page Header cannot be changed, or does it have to protect all headers and footers? The client wants to lock the header so that when the document is e-mailed no one can delete the firm logo from the header. Thanks, Anne P. Tag: DocumentBeforePrint in Word 97 Tag: 71336
 - 18
 - How do I format O'Reilly and McDonald correctly using userforms Using Word 2003 User complete userforms to update bookmarks within templates. Where names and addresses are used I use ProperCase to format the entries correctly. I cannot, however work out how to format names such as O'Reilley, McDonald, MacIntosh, De la Taste or Banham-McGuffug etc Please help Tag: DocumentBeforePrint in Word 97 Tag: 71330
 - 19
 - Saving document after adding custom property? Hi All This is my first dip into VBA, so apologies if the question is trivial. I am wanting to add the same set of custom properties to a large number of documents, and hoped the following code (synthesized from various examples) would work. The problem is that the SAVE statement does not have any effect, although the CLOSE statement does. If I interrupt execution before the CLOSE, I see that the custom property has been added successfully. The debugging display before the SAVE shows a value of TRUE for ActiveDocument.Saved. What should I do to SAVE the document? Thanks & regards Derrick (Code follows: Public Sub AddProperty() ' Display FileOpen dialogue box to select file If Dialogs(wdDialogFileOpen).Show = -1 Then ' OK button selected, process file With ActiveDocument.CustomDocumentProperties .Add Name:="MyNewProperty", _ LinkToContent:=False, _ Type:=msoPropertyTypeString, _ Value:="My new value" ' Debugging: following line displays a value of "True" MsgBox (ActiveDocument.Saved) ActiveDocument.Save ActiveDocument.Close 'Also tried following option to save document 'ActiveDocument.Close SaveChanges:=wdSaveChanges End With End If End Sub Tag: DocumentBeforePrint in Word 97 Tag: 71328
 - 20
 - wordObject Iâ??m developing a windows based .net application and Iâ??m using Word object for maintaining and printing documents. Well, here is my problem: I managed to do the printing stuff using the word object's property itself. I picked the Bin Numbers of my printer and I assigned them like wrodObject.FirstPageTray = (int) 260; (the number for "Tray 2" I got it from DeviceCapabilities API). But still the paper is not picking from the "Tray 2" it is taking only from "Tray 1". But in order to solve this Issue I contacted HP Printer support team and they said to change the "Tray Mode" to "Cassette" from "First" in "Paper Handling Menu" of the printer itself. Then surprisingly my code works fine! But still I have one more problem, that at the time of giving printout if the printer has no paper in it then it gives me error on printer. So, I decided not to change the printer setting and I revert back the change from "cassette" to "First" on the Paper Handling of the printer itself. And I tried doing my tray selection from the Word Application itself (not programmatically) there in File->Print. I can able to see "options" button in the left corner of the "Print dialog" and by seeing the below web-site I'm able understand that our code(word object) is trying to controlling the settings in the "options" button's Dialog. http://www.microsoft.com/technet/scriptcenter/topics/office/manage/wordpr.mspx But this alone will not help us to do the job, so in the same File->Print dialog there is one more button "Properties" in the Right Top corner. If you click through that you can see "Paper/Quality" tab and there one more "Paper Source" combo box is available. If I change that also to "Tray 2" I'm able to print in "Tray 2". But I do not know how can I control this setting programmatically? Or Am I missing out anything in word object itself? Can any one please help me to solve this issue? Thanks! Regards Karthikeyan Tag: DocumentBeforePrint in Word 97 Tag: 71327
 - 21
 - Inserting data into text files At work we receive a txt file with client data (comma delimited) directly from a system. This file then needs to be used as a mail merge data source. I am trying to write code to open this data source by first asking the user to specify the file name (input box), and then open the file and insert headings into the first row of the file (before client data), as these headings are used as the mail merge headings. Currently I am stuck on the code necessary to open the txt file and then to insert the headings (as a string) into the file in the desired location (line 1) without deleting any of the data in it. So basically process is File 30060418.txt is received User opens word template Runs macro Asks for file name Headings inserted into file Mail merge reads txt file with headings Any help on the code would be appreciated. Tag: DocumentBeforePrint in Word 97 Tag: 71326
 - 22
 - Word document vs Outlook message Hello, In Outlook, there is an option that says that a user can use Microsoft Word as create/modify a message. Because this user have a .dot file in his startup directory, he gets some functions that was not intend for Outlook. How can I detect with VBA that a macro runs in a Word document and not in an Outlook message? ThisDocument.Parent, Application.AddIns.Parent and Application.Name always return "Microsoft Word" either if it's a document or a message. Thank you for your advices! Fr=E9d=E9ric Laurent Bonjour, Dans Outlook, il y a une option qui indique qu'un utilisateur peut prendre Microsoft Word pour cr=E9er/modifier un message. Mais si l'utilisateur a un fichier .dot dans son r=E9pertoire de d=E9marrage (r=E9p. startup), il peut ex=E9cuter des fonctions qui ne sont pas pr=E9vues pour Outlook. Comment puis-je d=E9tecter, avec VBA, qu'une macro s'ex=E9cute dans un document Word et non dans un message Outlook ? ThisDocument.Parent, Application.AddIns.Parent et Application.Name retournent toujours "Microsoft Word" peu importe que l'on soit dans un document ou dans un message. Merci pour vos conseils. Fr=E9d=E9ric Laurent Tag: DocumentBeforePrint in Word 97 Tag: 71322
 - 23
 - Template help? Hi there, I hope you kind folks can help me. I have a friend who's quite advanced in his use of Word templates but who seems to have hit a block in a template he's developing. In his words: I've created a ZIP file (http://www.davecockrum.net/ComicScript.zip) containing the comic book script template (DOT file), the required INI file, some brief instructions on installation and use (originally written for beta testers), and the script for LAST STAND ON KRYPTON, which was written with a version of this template. As you'll see, it's more than a collection of paragraph styles and convenience macros. It really *is* a little program for writing comic book scripts. Here's what has me stumped: I need a way to insert a new story page between two extant pages. (Not a new script page, but a new page of the comic book story. If you look at the Superman script, you'll see what I mean.) The code not only needs to read the number of the current page and the next page (which is easy), it also needs to be able to process the rest of the extant script, revising the page numbers contained in the SEQ fields for story pages, panels, and balloons. (It was necessary to use SEQ fields rather than any of Word's internal numbering schemes, because a comic book script requires running three separate numbering sequences in parallel.) My failure at getting this to work begins in the module called "New Story Page" with the subroutine called "Tweener". If your contacts have any idea how to make this work -- or any other suggestions for improving the template in general -- I'm all ears/eyes/whatever the hell organ is appropriate. .... Can I persuade anyone to help Steve out? Thanks for your attention! [Note that I work for Microsoft but this is non-work related.] Tag: DocumentBeforePrint in Word 97 Tag: 71321
 - 24
 - WORD TEMPLATE I have a word template with some FILLIN fields and a table with 2 formula fields (SUM(ABOVE)). The formula fields works fine if I check the update fields option in TOOLS > options > Print tab. However when I print, it prompts for all FILLIN fields again. Is there any way to write a macro to only update the 2 formula fields that I have? Thanks! Tag: DocumentBeforePrint in Word 97 Tag: 71316
 - 25
 - check boxes We create a lot of forms for our workers to use. A supervisor would like us to put all parts that the worker types in in Bold. I have been able to do this for all parts except for checkboxes. I tried using darker fonts, larger sizes,?? I cannot get those check boxes to print bold. Can you help??? Tag: DocumentBeforePrint in Word 97 Tag: 71313

I just realised that this isn't implemented in Word97.
Took me a little while to figure out why it wasn't triggering. <g>

I am after a workaround, can't find one using Google, which is surprising.

Regards
Mark Dormer

Top

Re: DocumentBeforePrint in Word 97 by Helmut

Helmut
Fri Jul 22 06:59:20 CDT 2005

Hi Mark,

intercept the printout-methode.

Greetings from Bavaria, Germany

Helmut Weber, MVP, WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Top

Re: DocumentBeforePrint in Word 97 by Jonathan

Jonathan
Fri Jul 22 06:52:29 CDT 2005

"Mark Dormer" <markd@mvpsx.org> wrote in message
news:uXv%23UanjFHA.1948@TK2MSFTNGP12.phx.gbl...
>I just realised that this isn't implemented in Word97.
> Took me a little while to figure out why it wasn't triggering. <g>
>
> I am after a workaround, can't find one using Google, which is surprising.
>
> Regards
> Mark Dormer
>
>

Hi Mark,

Create macros named FilePrint and FilePrintDefault, like this

Sub FilePrintDefault()
'Your custom code goes here
ActiveDocument.Printout
End Sub

Sub FilePrint()
'Your custom code goes here
Dialogs(wdDialogFilePrint).Show
End Sub

The macros will run in place of the built-in commands of the same name.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Top