[crosspost] word 2002 book

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - open file Is there a way to add to the default list of folders that appear when I am trying to open a file in Word? Specifically, there is a list under the "look in" column that has the following options: my recent documents; desktop; my documents; my computer; and my network folders. I would like to add another folder to this list if I can. Thanks Lewis Shanks Tag: [crosspost] word 2002 book Tag: 54620
  - 2
    - My VBA code not working for other users I have created a form in Word 2000. I have used the controls from the Control Toolbox and not the Forms toolbox, because I want to write some VBA code to fill combo boxes dependent on the choices the user has made in previous combo boxes. This all works quite nicely until someone other than myself opens the document. Then, the combo boxes drop down completely blank and my code isn't getting executed at all. Also, the user's see a lot of menu options greyed out e.g. Protect/Unprotect. It's probably something obvious I'm missing but I can't see anything like this in the newsgroups. Any help/advice appreciated. Tag: [crosspost] word 2002 book Tag: 54615
  - 3
    - Authenticate Once Only For Oracle How do I specify an Oracle connection so that the user only has to enter there username and password once regardless of how many times the module us called? When I used to connect to our old Ingres DB using an ODBC DSN with the code copied below, . And this ensured the user only had to authenticate once and use the template as many times as they needed. Set ws = DBEngine.CreateWorkspace ("MyWorkspace", "admin", "", dbUseODBC) Set cn = ws.OpenConnection("ODBCConnection", dbDriverNoPrompt, False, "ODBC;DATABASE=live;UID=;PWD=;DSN=remus") I'm trying to update this template and connect to Oracle using ADODB, but if I leave the username and password blank in my connection string (as I have done above) it fails ask for the logon credentials: Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=MSDAORA;" & _ "Data Source=oracle_db;" Is this possible with ADODB? TIA, Colin Tag: [crosspost] word 2002 book Tag: 54608
  - 4
    - Points to Centimeteres Hi Folks, I've written a macro that displays certain properties of styles such as font size and paragraph spacing but I'm not sure how to translate pt into cm. Any pointers? J Tag: [crosspost] word 2002 book Tag: 54605
  - 5
    - The Trim method (Trim, LTrim and RTrim) I am having problems determining what reference controls the Trim, LTrim and RTrim methods. The invironment that I am designing this VBA application will not except the use of Trim method. The error message comes from Visual basic and reads "Compile error: Can't find project or library. I am using it to save files from a database name value but the string value of the database name field creates a blank space which I need to remove. Thanks in advance, Andrew Tag: [crosspost] word 2002 book Tag: 54604
  - 6
    - Lots of problems migration to Word 2003 Here at the office the decision was taken to migrate to from Office 2000 to 2003. Since I'm the only one writing VBA stuff I was asked to check if any issues occured when migrarating. I encounter a lot of problems though. - I simply can't open the VBA environment (ALT-F11) on a fresh installed Office 2003. The mousecursor just turns into a sandglass forever. - On 1 machine I was able to fix it, but I don't know what exactly caused the fix. On this machine I constantly get the error that the environment for macros could not be opened. I'm totally stuck on this and I'm under quite a lot of timepressure, any help would be very welcome. Tag: [crosspost] word 2002 book Tag: 54603
  - 7
    - Changing font Hi, We are about to change font from Times New Roman to Garamond in all the templates. In normal.dot, the standard font is Times New Roman. Is it possible, by modifying an existing company-created template, change the standard font in Normal.dot automatically? We do not want to replace the whole normal.dot for the users. / Ulf Tag: [crosspost] word 2002 book Tag: 54602
  - 8
    - How to disable recovery? Hi there. I start Word as an Automation object from a C++ program on a server. Is there a way to tell Word, "never try to recover anything, just open this file and say nothing" ?? Per Aage Tag: [crosspost] word 2002 book Tag: 54596
  - 9
    - VBA Code to read doc and apply/unapply hard CR at 4 inches Using Word 2000 What VBA code will accomplish the challenge below: Wish to use Word as my text editor for a Visio 2000 Text Box insertion. In Word, I wish to format the "page width" to 4 inches which is exactly the width I wish in the Vision Text Box. Of course as I enter text into Word, wrapping occurs (without a CR, of course) at about 4 inches (the page width) which is just fine. When I copy/paste the text (in Word) to Visio, only hard Word CR's are recognized in Visio. Is there VBA Code that will read a .doc file and wrap with a hard CR at exactly 4 inches. Also code that will (in reverse) remove existing hard CR's at exactly four inches - leaving all other CR's alove? [NOTE: When I add a hard CR to each line manually, the copy/paste to Visio works fine.] TIA Dennis Tag: [crosspost] word 2002 book Tag: 54594
  - 10
    - Next Record I have written a VBA program to test fields of each record for certain conditons during a mailmerge. The testing works but I do not know the command in the VBA Macro to tell it TO NOT merge that record but to go to the next one TIA Tag: [crosspost] word 2002 book Tag: 54593
  - 11
    - email as attachment - save first? Hi, I have some code which attaches the current Word document to an email (outlook 2002) and completes the recipient address and subject line automatically. This is fine but prompts me to save the document before I can email it. If I create a new document and click Word's own "mail as attachment" button I'm not required to save the document first. It works for Microsoft but not me :-( So, is there a way around this problem? Cheers Mike. Tag: [crosspost] word 2002 book Tag: 54591
  - 12
    - Rename word document i have a file called "abc1.doc".. can u suggest something that whenever i edit the file, it will automatically be renamed as "abc2.doc" . whenever i edit +1 will be added automatically. eg: "abc3.doc" then "abc4.doc" etc.. i hope u understand my question. KINDLY PLEASE REPLY TO MY EMAIL ADDRESS ALSO.. thank you My email: arjundutta12@hotmail.com Tag: [crosspost] word 2002 book Tag: 54584
  - 13
    - TextBox_Exit not receiving event when user tabs off of multi-page form I have a textbox control on a page of a multi-page control. If the user enters text into that control and tabs out of the control to the OK button (not contained within the page of the multi-page control) then the TextBox_Exit event isn't received. If I keep tabbing and the focus comes back into the Multi-Page control, the TextBox_Exit event is received and processed. How can I always catch this event? Tag: [crosspost] word 2002 book Tag: 54573
  - 14
    - Canned responses/mail integration I've seen this done before, but it's been a long time. I'm doing a fair amount of email support and easily accessible canned responses would make the entire process oodles easier. I'm using Outlook for mail management, but I've seen canned responses that could be set up, organized, and selected within Word to create the email and then simply copied and paste to be sent out through Outlook. Anyone know how I can create and organize canned responses within Word? I'm a novice when it comes to it, but surely it can't be that hard. It's either this, my little folders full of text files that aren't nearly as convenient and limit productivity, or I somehow manage to convince management to actually purchase an email database system that could support this, but that would actually be overkill for our needs. Tag: [crosspost] word 2002 book Tag: 54571
  - 15
    - word error msg.: insufficient memory I have Windows XP, Msft Word XP 2002. When attempting to save a document, I receive following error msg.: "Word had insufficient memory. Do I want to save the document as 'Received Document'?". My computer has over 500 mb internal memory available according to ms3winfo.exe. When it says that "Word has insufficient memory", is it referring to a separate memory resource for Word? If it is, how do I determine the size of this resource and adjust it so the error message does not appear? All replies welcomed! Aaron in N. Hollywood Tag: [crosspost] word 2002 book Tag: 54567
  - 16
    - Table of Contents Hi all I create table of contents in my VB.NET application and I find that entire chapter is inserted into the table of contents when I look in the Option of the table of contents only header 1 and are listed with a number Is that a bug in Word Thank you in advance Shmuel Tag: [crosspost] word 2002 book Tag: 54563
  - 17
    - Multiple index sub-entries When I try to create an index with subentries, I find that the same main entry sometimes appears for each sub- entry instead of only once with the sub-entries listed below. For example, instead of the following: adding, email messages footers I get this: adding, email messages adding, footers However, oddly enough, there are some entries where it does work correctly. The index field codes look exactly the same in both cases, so I don't know why they look differently in the generated index. Help? Tag: [crosspost] word 2002 book Tag: 54562
  - 18
    - vba code to open doc based on template Hello, I want to write vba code to open a document. Something like this: documents.open ("c:\test.doc") attached template ("c:\test.dot") with a execution of the document new event. Is thispossible? Thanks Tag: [crosspost] word 2002 book Tag: 54554
  - 19
    - Memory error I'm having problems using the word.applicationclass to load a word document. I've created this very simple code and I get the error below on the WordApp.Documents.Open("C:\temp\worddocs\1.doc", 0, 1) line. An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in test.exe Additional information: There is insufficient memory. Save the document now. This is my full code! Please help, this is getting annoying. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim WordApp As New Word.ApplicationClass Dim contentsofword As String WordApp.Documents.Open("C:\temp\worddocs\1.doc", 0, 1) WordApp.Selection.WholeStory() contentsofword = WordApp.Selection.Text WordApp.ActiveDocument.Close() End Sub Tag: [crosspost] word 2002 book Tag: 54551
  - 20
    - Create an add-in I am working in Office XP. This may sound like a real no-brainer, but how do I create an add-in for Word? I have written a macro that I would like to make available to all documents based on a specific template. However, I do not want a copy of this macro put in every document I create from the template. Do I want to turn this into an add-in, or should I do something else? Note: This template and macro must be available to several users on a network. Thanks for your help! Monique Tag: [crosspost] word 2002 book Tag: 54548
  - 21
    - Table of contents Hi all I create table of contents in my VB.NET application and I find that entire chapter is inserted into the table of contents when I look in the Option of the table of contents only header 1 and are listed with a number Is that a bug in Word Thank you in advance Shmuel Tag: [crosspost] word 2002 book Tag: 54547
  - 22
    - Duplex printing This is not a question. It's a sharing. I was having trouble with Duplex printing, similar to the threads posted on 7/12 and 7/21. While we were all on the right track, there is a slight error in the sample code posted on the Microsoft Knowledge Base article 230743. This error was hinted at in one of the threads, but to really undertsand why, take a look at http://word.mvps.org/FAQs/MacrosVBA/SetDuplexOnOff.htm Suddenly it all made sense. Oh, and now my code works, too. Tag: [crosspost] word 2002 book Tag: 54546
  - 23
    - Macro with Replace in it locks up. I have created a macro to replace one phrase with another. Generally it runs correctly, but when I run it with the last occurrence of the phrase in the document the macro hangs. I have to press Esc to get back to the document. If I then insert the phrase a few more times then run the macro again it does nothing (as if it has been disabled). Closing and opening the document again - and the macro runs OK (until I get to the last occurrence again). I note that if you do the same Replace from the menus, Word tells you it has reached the end of the document and awaits an OK. Is this my problem? - if so how do I deal with it in the macro.? Thanks for you help on this. Here is the macro text: +++++++++++++++++++++++++++++++++++ Sub noSig() ' ' noSig Macro ' Macro recorded 8/5/2004 by Simon ' Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "*quote " .Replacement.Text = "=removed by SI =" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute With Selection If .Find.Forward = True Then .Collapse Direction:=wdCollapseStart Else .Collapse Direction:=wdCollapseEnd End If .Find.Execute Replace:=wdReplaceOne If .Find.Forward = True Then .Collapse Direction:=wdCollapseEnd Else .Collapse Direction:=wdCollapseStart End If .Find.Execute End With Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=1 End Sub Tag: [crosspost] word 2002 book Tag: 54544
  - 24
    - Page numbers, is i possible to count differently in header and foo this doucument needs to be counted two ways, by section in the footer for example 1 of 5 and squentially for the entire volume in the header 1-2-3-4... is it possible to do this in word. thank you Tag: [crosspost] word 2002 book Tag: 54543
  - 25
    - Make Word macro find text in footnotes, headers, etc? Hello, This is a question about a macro in which all the good ideas were offered by Helmut Weber in answer to questions that I posted here in earlier threads. Thanks to Helmut, I have a Word macro that helps fix a problem with WordPerfect 5.1 documents imported into Word 2002 - but so far, the macro works only with the main story in a document - not with the footnotes and headers, etc. Can anyone help with this last part of the problem? Here is the background: When Word 2002 opens a WordPerfect 5.1 document with typographical symbols such as curly quotation marks and em or en dashes, or some non-English alphabetical characters like the "oe" ligature, these symbols are not converted into native Windows characters, but are stored as invisible symbols. Helmut showed me how to devise a macro that replaces these symbols, and the code is at the foot of the message. I found this page has example code for making a find/replace operation work through an entire document, but I have not been able to adapt it to work with the kind of operation in this macro: http://word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm Can anyone help adapt it to the needs of this macro? Many thanks for any advice. Here is the code of the macro that works in the main story: Cut on the dotted line: ----------------------------------------------------------- Sub ChangeWPCharactersToNativeWindowsCharacters Set dlg = Dialogs(wdDialogInsertSymbol) FirstOccasion = True Dim rDcm As Range Dim oChr As Object Dim sFnt As String ' font name Dim iFnt As Integer ' character number ' for the following lines to work correctly, insert a form anywhere ' in the VBA project - simply use Insert/User Form, and then ' press Ctrl-F4 to close the form Dim oDat As DataObject Set oDat = New DataObject Set rDcm = ActiveDocument.Range For Each oChr In rDcm.Characters If Asc(oChr) = 40 Then ' applies to most (or all) decorative fonts? oChr.Select ' If Asc(Selection.Text) <> iAsc Then ' from previous posting would fit in here ' plus select case SendKeys "%f^c{ESC}{ESC}" ' English version dlg.Display iFnt = Dialogs(wdDialogInsertSymbol).charnum oDat.GetFromClipboard sFnt = oDat.GetText ' for determining font name when adding changes ' MsgBox (sFnt) ' Debug.Print sFnt, iFnt ' change for WP TypographicSymbols font only ' fill in more characters later If sFnt = "WP TypographicSymbols" Then If Asc(Selection.Text) <> iFnt Then Select Case iFnt Case 64: Selection.TypeText Text:=Chr$(148) 'closing curly quote Case 65: Selection.TypeText Text:=Chr$(147) 'opening curly quote Case 66: Selection.TypeText Text:=Chr$(45) 'en dash Case 67: Selection.TypeText Text:=Chr$(150) 'em dash End Select End If End If ' change for Multinational Ext font only ' fill in more characters later If sFnt = "Multinational Ext" Then If Asc(Selection.Text) <> iFnt Then Select Case iFnt Case -3951: Selection.TypeText Text:=Chr$(156) 'oe ligature End Select End If End If ' insert changes for other WP fonts here End If Next End Sub --------------------------------------------------------- Many thanks for any help Edward Mendelson Tag: [crosspost] word 2002 book Tag: 54539
- Next
  - 1
    - Adding menu items to a separate menu section on doc template attach Hello all, I just finished the nitty gritty of checking through a doc template for valid bookmark entries. This is working fine. Now I want to add a menu item whenever the doc template is attached (added through Templates and Add-ins) For this, I over rode the subroutine Autoexec and here I tried to create the menu item. I am not able to figure out how to add a new menu section itself. Currently I am trying out like this: Set myMenuBar = CommandBars.ActiveMenuBar Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, _ Temporary:=True) newMenu.Caption = "Review" Set ctrl1 = newMenu.Controls.Add(Type:=msoControlButton, ID:=1) ctrl1.Caption = "Find Invalid Comments" ctrl1.Style = msoButtonCaption Set ctrl2 = newMenu.Controls.Add(Type:=msoControlButton, ID:=2) ctrl2.Caption = "Display Review Summary" ctrl2.Style = msoButtonCaption The behaviour is that the menu item "Review" is now appearing after the current menu bar. I want an own separate section for this menu item. (I know, the problem is with using ActiveMenuBar, but any other approach of adding a new MenuBar didn't seem to work for me) Also, I am not able to delete this menu item in the Autoexit subroutine. I am not able to figure out how to use the CommandBar -> Delete method to achieve this. Any pointers for the 2 problems above, anyone? Thanks and regards, Sena Tag: [crosspost] word 2002 book Tag: 54533
  - 2
    - Hide styles In a specific template in Word 2000 I would like to hide or in another way disable all build-in styles. The users should only be able to use the custom designed styles. Can I do that? Tag: [crosspost] word 2002 book Tag: 54531
  - 3
    - fields.update in macro does not update TOC My template has a TOC and at the end of my AutoNew macro I have included the statement ActiveDocument.Fields.Update, because the TOC includes some text (headings) that contain text inserted with the AutoNew macro. The problem is that the text apparently is not updated in the TOC. One heading contains the name of a person ("Personal objectives for Peter") - this name is inserted during AutoNew - but the TOC only shows "Personal objectives for ". If I update the fields manually (rightclicking TOC, choosing Update field and Update evreything) the TOC is OK - so I thought the problem might be related to some missing parameter for the ActiveDocument.Fields.Update statement, but I can't see any possible parameters. Tag: [crosspost] word 2002 book Tag: 54528
  - 4
    - Find text & Replace entire paragraph Hi there, I wonder if anyone out there could help me? I need to do a find & replace text in documents via a macro. The text may appear any number of times in a given doc but its not just *that* text that needs replacing - its the entire paragraph . The pseudo code would look something like this I guess... Find 'Lorem ipsum dolor sit amet' If found select the whole paragraph replace with Null (or delete text) ....But I cant seem to translate this into successful VBA code! Any help greatly appreciated Phil Tag: [crosspost] word 2002 book Tag: 54524
  - 5
    - highlight all when using Find Hi , How can I highlight all the results of find query when using content/selection.Find. Tag: [crosspost] word 2002 book Tag: 54523
  - 6
    - Testing for ansi 0145 and ansi 0146 in selection Dear all, 1) I'm looking for a way to test whether the ansi-0145 and/or ansi-0146 (curly quotes ` and ') are present in a selection. Does anyone know a method to tackle this problem? I do know how to evaluate a selection character by character, so that's not the problem. I tried the "asc" function, but that doesn't do the trick. 2) And I also would like to find a way to insert text containing these ansi characters using VBA code. I ask this in the same thread, since I suspect that the solution of both questions may be based on the same principle. Best regards, AndY ^^^^ Tag: [crosspost] word 2002 book Tag: 54522
  - 7
    - Hide styles In a specific template users should not be able to apply the default styles to the text. I would like to hide the default styles so that only custom styles are visible. I think it can be done in Word XP, but I'm on Word 2000 so I think that I have to use VBA to create a solution. Can it be done? Tag: [crosspost] word 2002 book Tag: 54519
  - 8
    - Find and Replace crash when installing Office Security Patch kb830349 Hi, I am doing Find and Replace in MS Word from VB Code. It was working fine till I installed Office Patch(kb 830349). There is a piece of code in which I am doing find and replace in my document, actually replacing some text in the document with a link object. The code is as follows '---------------------------------------------------------- Set objRange = letter.Content With objRange.Find .ClearFormatting If Not .Execute(FindText:="[BodyText]") Then Set objRange = Nothing End If End With letter.Fields.Add Range:=objRange, Type:=wdFieldLink, Text:="Word.Document.8 ""c:\\Socrates\\Templates\\Temp\\RTFTemp.rtf"" \a \r" Set objRange = Nothing '---------------------------------------------------------- This piece of code was working fine before the update was installed. After the update install, it gives an error after line: .ClearFormatting "Class does not support Automation or does not support expected interface". After clicking OK, Memory read error occurs and the application terminates and if I am running from VB, then it also closes. Any solution for this will be greatly appreciated Thanks in advance, Manish Katiyar Tag: [crosspost] word 2002 book Tag: 54516
  - 9
    - StyleRef in following pages Template used Heading 1 style at start of new part of report. Heading 1 has "page break before" so it is always at the top of page. Report part may be one or many pages. I need to create a page header that is -- blank on the page containing a Heading 1 style entry; but on later pages the header is "[heading1 text] continued.." So far as I can see a {StyleRef "Heading 1"} entry will put the [heading text] on every page, but I need to supress it on the first page, and display it (plus the "continued..") on subsequent pages. Any Ideas, please? Tag: [crosspost] word 2002 book Tag: 54508
  - 10
    - Checking for bookmark How do I get a template to check for a bookmark (or a variable, or text etc) and if it is present, run a userform? Once the userform has been filled in, I want to delete this once user has clicked OK. Tag: [crosspost] word 2002 book Tag: 54507
  - 11
    - Custom Toolbar within Template I have create a custom toolbar which leave within a Startup Template. When clicked, this toolbar runs the following code which inserts a hyperlink. Sub Hyperlink() Dim fd As FileDialog, displaytext As String 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog (msoFileDialogFilePicker) 'Use a With...End With block to reference the FileDialog object. With fd 'Set the initial path to the Agenda Attachments folder. .InitialFileName = "\\alchemy\data\processes\documents\agenda attachments\" .Title = "Select the File to which you want to create the link" 'Use the Show method to display the File Picker dialog box and return the user's action. 'If the user presses the action button... If .Show = -1 Then displaytext = .SelectedItems(1) While InStr(displaytext, "\") > 0 displaytext = Mid(displaytext, InStr (displaytext, "\") + 1) Wend displaytext = Left(displaytext, Len (displaytext) - 4) ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=.SelectedItems(1), TextToDisplay:=displaytext ' 'If the user presses Cancel... Else End If End With 'Set the object variable to Nothing. Set fd = Nothing End Sub The problem I am now having is that when the document (new doc based on template) is saved, it changes the hyperlink from \\alchemy\data\processes\documents\agenda attachments\(filename) to ..\data\processes\documents\agenda attachments\(filename) so it loses it's link. Any ideas why? Tag: [crosspost] word 2002 book Tag: 54506
  - 12
    - Removing a custom commandbar Hi, I have added a few custom commandbars in Word, but not matter what I do they keep coming back. I have tried deleting using the Customize window and it deletes until I load Word again. I have also tried deleting via VBA and the same happens. The code I used to create is on a different Doc. Any ideas on how to get shot of them? Thanks Tag: [crosspost] word 2002 book Tag: 54503
  - 13
    - Trouble installing ADO reference library Trying to install the ADO reference library in Word (2000 to 2003), but there are some problems with this. One of them is that variables can't be declared as ADO objects if this is not installed, causing the error: compile error: User-defined type not defined So this can't work: Public ADOConn As ADODB.Connection I can declare as variant and then do: Set ADOConn = CreateObject("ADODB.Connection") rather than Set ADOConn = New ADODB.Connection But then for some reason ADO doesn't install. I just can't figure this out and wonder what the best way is to approach this. This is my routine that installs ADO: Sub AddADO() 'this has to be in a different module as the module where there is the 'declaration: Public ADOConn As ADODB.Connection, otherwise there will be 'a compile error: User-defined type not defined 'the other option would be to declare ADOConn as variant '------------------------------------------------------------------------ Dim R For Each R In Application.VBE.ActiveVBProject.References If R.GUID = "{00000205-0000-0010-8000-00AA006D2EA4}" And R.Major = 2 Then Exit Sub End If Next 'although usually the ADO version will be higher, doing Minor:=0 will install 'the higher version if available. On the other hand when you specify Minor:=5 'and only a lower version is available, this can't be installed '--------------------------------------------------------------------------- - Application.VBE.ActiveVBProject.References.AddFromGuid _ GUID:="{00000205-0000-0010-8000-00AA006D2EA4}", _ Major:=2, Minor:=0 Exit Sub NOTFOUND: MsgBox "CAN'T RUN THIS CODE" & vbCrLf & vbCrLf & _ "ADO 2.x IS NOT ON THIS COMPUTER" End Sub Thanks for any advice. RBS Tag: [crosspost] word 2002 book Tag: 54501
  - 14
    - Metafile Problem Word 2003/VB6 The following code places an EMF onto the clipboard and when pasted into a Word 97 or Word 2000 document, displays a yellow square surrounded by a blue border. But in Word 2003 the blue border disappears. Can anybody please explain why? Excuse code (I'm no programmer) The code needs a command button and picturebox on the form and was written in VB6. *************************************************** Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function CreateEnhMetaFile Lib "gdi32" Alias _ "CreateEnhMetaFileA" (ByVal hdcRef As Long, _ ByVal lpFileName As String, lpRect As RECT, _ ByVal lpDescription As String) As Long Private Declare Function CloseEnhMetaFile Lib "gdi32" (ByVal _ hDC As Long) As Long Private Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As Long, ByVal lpszFile As String) As Long Private Declare Function DeleteEnhMetaFile Lib "gdi32" (ByVal _ hemf As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal _ wFormat As Long, ByVal hMem As Long) As Long Private Declare Function MoveToEx Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, lpPoint As Any) As Long Private Declare Function LineTo Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long) As Long Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hDC As Long, _ ByVal x As Long, ByVal y As Long, ByVal crColor As Long, ByVal _ wFillType As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, _ ByVal hObject As Long) As Long Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, _ ByVal nWidth As Long, ByVal crColor As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Const FLOODFILLBORDER = 0 Const FLOODFILLSURFACE = 1 Const CF_ENHMETAFILE As Long = 14 Const PS_SOLID = 0 Dim myrect As RECT Private Sub Command1_Click() myrect.Left = 0 myrect.Top = 0 myrect.Right = Picture1.Width myrect.Bottom = Picture1.Height metadc = CreateEnhMetaFile(Picture1.hDC, vbNullString, myrect, metafilename) myPen = SelectObject(metadc, CreatePen(PS_SOLID, 5, 65535)) MoveToEx metadc, 20, 20, ByVal 0& LineTo metadc, (Picture1.Width / 36), 20 LineTo metadc, (Picture1.Width / 36), (Picture1.Height / 36) LineTo metadc, 20, (Picture1.Height / 36) LineTo metadc, 20, 20 fillbrush = SelectObject(metadc, CreateSolidBrush(vbBlue)) x = ExtFloodFill(metadc, 0, 0, 65535, FLOODFILLBORDER) HmetacloseDC = CloseEnhMetaFile(metadc) api_return = OpenClipboard(Picture1.hwnd) If api_return > 0 Then EmptyClipboard SetClipboardData CF_ENHMETAFILE, HmetacloseDC CloseClipboard Else DeleteObject HmetacloseDC End If DeleteEnhMetaFile HmetacloseDC DeleteEnhMetaFile HcopymetaDC End Sub Hope someone can help Demonic Tag: [crosspost] word 2002 book Tag: 54495
  - 15
    - select text and assign to variable My document has four lines of text. Each line ends with a paragraph mark. How do I select the first line and assign it to string variable sItem1 select the second line and assign it to string variable sItem2 select the third line and assign it to string variable sItem3 select the fourth and assign it to string variable sItem4? I'm new to vba for word 2002 and any pointers in the right direction will be most appreciated. -- Regards, David Tag: [crosspost] word 2002 book Tag: 54488
  - 16
    - Why won't my switch-language key setting (Ctrl-Shift) work in Word My language switch key key (Shift-Ctrl) has stopped working in Word2002. It works in other apps. I had added a bunch of macros to normal.dot. But even when I removed them, the language-key switcher is still dead in word. Suspected a textbridge add-in (tbrun9.dot), but removing it didn't help. Any ideas? Tag: [crosspost] word 2002 book Tag: 54480
  - 17
    - Exit a Macro While debugging a macro, there are times I would like to exit the macro at a certain point. Is there a command to do that? Tag: [crosspost] word 2002 book Tag: 54479
  - 18
    - Paragraph Smasher Macro--to Improve? Hi, I've written a VBA script (for Microsoft Word 2000 on the PC) that highlights the current paragraph, then breaks it up into sentences that are separated by paragraph marks. Now the author can analyze the structure of the writing, and move the sentences around. The script adds double paragraph marks after "." "!" "?" and ";". Afterwards, it also removes the new, unnecessary paragraph marks after "Mr." "Ms." "Mrs." "a.m." and "p.m." However, it doesn't fix other abbreviations. I was wondering if someone can improve this macro. Thanks. Here's the script. - - - Sub Paragraph_Smasher() ' ' Paragraph_Smasher Macro breaks up a paragraph to help you see each sentence ' Select the current Paragraph Selection.StartOf Unit:=wdParagraph Selection.MoveEnd Unit:=wdParagraph ' Put double paragraph marks after periods Do Selection.Find.ClearFormatting ' Use the Find object to search for text. With Selection.Find .Text = ". " ' Use the replacement object to replace text. .Replacement.Text = "~.~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With ' If no more occurrences, exit the loop. If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~.~" .Replacement.Text = "." .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Remove paragraph marks after instances of "Mr." "Ms." Mrs." Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mr.^p^p" .Replacement.Text = "Mr. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Ms.^p^p" .Replacement.Text = "Ms. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "Mrs.^p^p" .Replacement.Text = "Mrs. " .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put instances of a.m. and p.m. back together Do Selection.Find.ClearFormatting With Selection.Find .Text = "a.^pm.^p" .Replacement.Text = "a.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "p.^pm.^p" .Replacement.Text = "p.m.^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after exclamation marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "! " .Replacement.Text = "~!~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~!~" .Replacement.Text = "!" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after question marks Do Selection.Find.ClearFormatting With Selection.Find .Text = "? " .Replacement.Text = "~?~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~?~" .Replacement.Text = "?" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop ' Put paragraph marks after semicolons Do Selection.Find.ClearFormatting With Selection.Find .Text = "; " .Replacement.Text = "~;~^p^p" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop Do Selection.Find.ClearFormatting With Selection.Find .Text = "~;~" .Replacement.Text = ";" .Execute Replace:=wdReplaceAll, Forward:=True End With If Selection.Find.Execute = False Then Exit Do Loop End Sub -- Please delete "ANTI-SPAM" from email address daveg7777777@ANTI-SPAMyahoo.com David Godinger: Go player, student of Mahatma Gandhi, the Buddha, and Dr. Martin King Tag: [crosspost] word 2002 book Tag: 54477
  - 19
    - Merge many Word documents using a Excel macro I have created a macro that uses an Excel spreadsheet to merge many Excel files together. The spreadsheet has file name and location information. I want to do the same for many Word documants. Currently I have a Word macro that simply creates a new word document then just adds and formats all the required documents. What I want to do is add another tab on the Excel spreadsheet and have all of the file name and location information for the Word documents there and have Excel create the Word document. I have taken some code from another post and it seems to almost work... Dim wrdAPPnew As Word.Application Dim wrdDOCnew As Word.Document Set wrdAPPnew = CreateObject("Word.Application") wrdAPPnew.Visible = True With wrdDOCnew . . . Selection.InsertFile Filename:=currentInsertFileName, Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False . . . End With The "Selection.InsertFile..." command works fine while inside Word but not from within Excel even though I have referenced the "Microsoft Word 10.0 Object Library". When run I get a Run-time error 438, object doesn't support this property or method. Any ideas are appreciated Alan Parekh Tag: [crosspost] word 2002 book Tag: 54475
  - 20
    - Newbie Question Hey all, I got started with VBA using MS Access. I'm now trying to learn to apply it to Word. At this point, I'm not even sure of what events there are, besides open, close, and new, that I can use to trigger my code. I have no idea how to use form controls, etc. Anyone have any suggestions (and I'm sure you do) of what I could read to get me started? Thanks grep Tag: [crosspost] word 2002 book Tag: 54457
  - 21
    - Ignore All (spell check) on words with curly quotes In Word 2000 and Word XP, when I check the spelling of a document that contains curly quotes, words that contain an apostrophe are not included in the Ignore All list when I click a misspelled word in the text and select the Ignore All option. (The curly quotes are formed by the AutoFormat As You Type option for replacing "Straight Quotes" with "Smart Quotes"). Example: What was Bwa'ana looking for? In this example, Bwa'ana is considered two words, Bwa and ana. Now if I use only straight quotes, Bwa'ana is considered a single word, which is included in the Ignore All list. So now comes my question: Is there a way to have Word 2000 and XP include words with curly quotes in the middle into the Ignore All list (or in a custom dictionary, for that matter) as a single word? I know I can use a placeholder for the apostrophe and replace it after the spell check, but that can be quite inconvenient when you have lots of those words. TIA from AndY Tag: [crosspost] word 2002 book Tag: 54456
  - 22
    - Locating specific range points Here's my requirement: I have to find specific text located in various places in a document. Once I identify the location of a spceific character (ASCII 167 in this case), I need to locate the VERY NEXT ")" character. My selected range must start at the 167-char, and end at the ")" char. I then need to replace the text in that range with a hotlink (easy enough to do). What I need to know is: 1) How to identify the absolute character position of the first & last character, and set the RANGE to those values 2) Is there a different way to do that? If so, how? I'm using vB6. thanks!! Tag: [crosspost] word 2002 book Tag: 54448
  - 23
    - How get page numbers??? Hi!!!!! I need count numbers of pages of a document. How I get this number en VBA or VB.NET? Thanks in advance? Tag: [crosspost] word 2002 book Tag: 54441
  - 24
    - Document_Open() I have looked through and followed (to the best of my ability) the instructions on the MVP web site regarding having macros run when a document is opened based on a specific template. Let me explain what I need to do: I need a DOS (yes DOS) based application to: 1. Open Word. 2. Launch a template. 3. Run a mail merge macro. 4. Print the results. 5. Close Word. I have accomplished 1 and 2 by envoking Word from a command line using the /t switch to open a new document based on a specific template. I have accomplished 3, 4, and 5 in a macro. The problem is that I can't seem to figure out how to get 3, 4, and 5 to happen automatically when a new document is opened based on the template. I have tried using the Document_Open() procedure. However, I can only get it to work when I open the template, not when a new document is created based on the template. What am I missing? Thank bunches in advance for your help. Gilley Tag: [crosspost] word 2002 book Tag: 54439
  - 25
    - Template into the user's Word startup folder, macro name conflict When a template in a startup folder has a macro with the same name as a macro in normal.dot, which one will be executed ? How can I manage to have the macros in the template located in the startup folder detect that macro name conflict exist ? And better, how can a macro in the template remove a macro in normal.dot ? -- francois.piette@overbyte.be Author of ICS (Internet Component Suite, freeware) Author of MidWare (Multi-tier framework, freeware) http://www.overbyte.be Tag: [crosspost] word 2002 book Tag: 54438

I'm Giovanni from Italy.

I own the Italian version of "Special edition using Word 2002" called
"Guida
all'uso Word 2002" published by Mondadori Informatica.

The book shows a different format from the english version, so I can't
pass
the test of "last word at bottom of page 388" required by the web site
Quehelp to download other free chapters.

Can you help me, telling me the "magic word" to read the other material?

Thanks for your help.

Giovanni

Top

Re: [crosspost] word 2002 book by Howard

Howard
Tue Aug 10 23:03:16 CDT 2004

See my response in the microsoft.public.word.newusers newsgroup.

--
http://www.standards.com/; See Howard Kaikow's web site.
"Giovanni" <utats@libero.it> wrote in message
news:NZ7Sc.35564$1V3.908584@twister2.libero.it...
> I'm Giovanni from Italy.
>
> I own the Italian version of "Special edition using Word 2002" called
> "Guida
> all'uso Word 2002" published by Mondadori Informatica.
>
> The book shows a different format from the english version, so I can't
> pass
> the test of "last word at bottom of page 388" required by the web site
> Quehelp to download other free chapters.
>
> Can you help me, telling me the "magic word" to read the other material?
>
> Thanks for your help.
>
> Giovanni
>
>

Top