Outlook 2003 Addressbook

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - fillable documents how do I create fillable documents in microsoft word 2003 Tag: Outlook 2003 Addressbook Tag: 75592
  - 2
    - why message: Do you want to save the changes you made to xxx.doc? I am running some code in Excel to print all Word .doc files in a particular folder. With one particular user there is a message popping up when he runs this in Word 2002, but fine in Word 2003: Do you want to save the changes you made to xxx.doc? at the following code. I presume it is the third line, but I can't reproduce it: wd.Documents.Open filename:=arrFiles2(i, 2), ReadOnly:=True wd.ActiveDocument.PrintOut Background:=False wd.ActiveDocument.Close wdDoNotSaveChanges Then whether he clicks No or Yes he gets an Error somewhere in a Word messagebox. Not sure now what the error is. Word is declared like this: Dim wd As Word.Application Set wd = New Word.Application Just no idea why this message and error possibly could occur and grateful for any suggestions. RBS Tag: Outlook 2003 Addressbook Tag: 75589
  - 3
    - Passing String parameter from Access to Word Macro Here is what I have: I created an Access database that is used to import text file data from Novell server configuration text file. In the first step of the process I've set the "Path" that I want all macros to use using a global string parameter(Global strString As String): strString = "I:\Configs". What I would like to do is pass the "Path" from the Access call to the Word Macro: 'This command runs the referenced Macro in the Word Aplication ObjWord.Run MacroName:="Normal.NewMacros.Stepa_CreateServerTextFiles" Does anyone know how this could be done???? Tag: Outlook 2003 Addressbook Tag: 75587
  - 4
    - Conditional drop down list I'm using code that Doug Robbins provided to a previous post. I'm very fortunate to have stumble across that little gold nugget. Thanks Doug. The code is using a table in word to fill in the drop down boxes on a user form. I'm having a problem when I try to show my user form. I get the error message "Run-time error '4198': Command failed." It appears that I am losing the focus on my template/document and the focus is now on the table document. Any ideas on how I can work around this? Thanks. Amy Tag: Outlook 2003 Addressbook Tag: 75583
  - 5
    - How to determine width of tables I need to determine the width of tables prior to copy them into a 2 column document using VBA. I looked at the columns width property but not all the tables have simple columns, some have nested or merged columns. Is there an easy way to detemine the width of any table regardless of the columns? Thanks! Jerry Tag: Outlook 2003 Addressbook Tag: 75581
  - 6
    - Batch process to change security of Word docs? (also posted in Word General) Is there a way to automate changing the security option of standard Word documents to make them read only or password protected? It's easy enough to do one by one (Tools --> Options --> Security) but I'd go crazy having to do this for several hundred. I'm using Word 2003 on a Windows XP platform. Thanks. pjs Tag: Outlook 2003 Addressbook Tag: 75579
  - 7
    - delete style and if style not found what to do.... i am trying to delete few style from activedocument. The macro is in one of the template and people create new document from there. At the end of tabulation etc. people delete unwant styles. It's always style a, b and c to delete. The macro deletes this a, b and c style but what coding I should write if they hit button again. Basically, I would like to run a macro and if style is not found it should gives a pop up saying styles are been deleted instead of run time error which says "styles not found" Any help Tag: Outlook 2003 Addressbook Tag: 75576
  - 8
    - export picture shape Anyone knows if there's a way to export a picture shape into a file? If possible without using the clipboard. Thanks for any hints! Luc Tag: Outlook 2003 Addressbook Tag: 75567
  - 9
    - Check if Word is already active? I pulled up an Excel macro I wrote in my absolute newbie days (not that I'm too much farther down the road!) that opens a Word doc. It still works, but now I can see that it needs some tweaking. I use Dim WD As Object doc = Fpath & "\" & Fname & ".doc" Set WD = CreateObject("Word.Application") WD.Documents.Open doc WD.Visible = True Set WD = Nothing (doc, Fpath, and Fname are all declared as well.) Besides being late binding, this opens an entirely new instance of Word, which can do some strange things to me, depending on what I'm doing in Word at the moment. What I'd really like to do is check to see if Word is running first; if it is, then open the new doc within the current instance - if not, then open a new instance. What's the best way to check if Word is already running? Ed Tag: Outlook 2003 Addressbook Tag: 75564
  - 10
    - can you add automatic sequential numbering to a word template? I would like to create a word template that will automatically enter a serial number on the page that will increase by 1 each time the template is used Tag: Outlook 2003 Addressbook Tag: 75563
  - 11
    - how do I repeat heading row in a word table by code Tag: Outlook 2003 Addressbook Tag: 75562
  - 12
    - Can anyone help with a little math problem? the following code fails with "invalid procedure call or argument". Can you see why? Sub test() cosh = 1.5009 myAnswer = Atn(-cosh / Sqr(-cosh * cosh + 1)) + 2 * Atn(1) MsgBox myAnswer End Sub It calculates the aCos (inverse cosine) of cosh, and uses the nonintrinsic math formula given in Word 2003 help. cosh is normally variable but 1.509 is typical for it. ---- Stephenc Tag: Outlook 2003 Addressbook Tag: 75560
  - 13
    - page break if statement I would like to add a page break if a certain Field condition exist? Is it possible Tag: Outlook 2003 Addressbook Tag: 75556
  - 14
    - Link to Macro in word document Hi I have recorded a simple macro in word to copy and paste an extra section of a table if required. I would like to have a button or link in the actual document that one could click on which would then simply paste the table. This will be a shared document so would really need to be embedded. Does anyone hav eany idea how I would do this, and if I have explained properly?! Many thanks Tag: Outlook 2003 Addressbook Tag: 75554
  - 15
    - looping through variables I have the following problem. I have several tables in a document and I need to work with the tables in a certain style. So I wrote a piece of code that loops through the tables, checks te style and if it is a match creates a variable in the variable collection of which the name is a counter for the matches and the value is a counter for the tables. This works fine, but when the matches exceed 10 the following occurs: While looping through my variables by itemnumber the order is changed. I use the following code: For i = 1 To ActiveDocument.Variables.Count iTmp = ActiveDocument.Variables(i).value and now expect to see my matches from 1,2,3,....,9,10,11... and so on... however I get: 1,10,11,12,..,2,3,4... Am I doing something wrong? Tag: Outlook 2003 Addressbook Tag: 75552
  - 16
    - How can you install Equation Editor on Microsoft Office Pro 2003 I'm trying to get directions to install Equation Editor in Microsoft Office Pro 2003. If you can help please let me know. Thanks Tag: Outlook 2003 Addressbook Tag: 75550
  - 17
    - EMAIL SIGNATURE CLAUSE IN WORD OS is XP Prof with Office 2003. I have a signature clause set up in outlook as well as one in word under Tools, Options, General, Email Options. However when I mail from word using either of the icons "Email" or "Send to Mail Recipient (As Attachment)" it never includes my email signature from either outlook or from word by default. You have to click in Outlook "Insert, Signature, etc. How can I force it to use the signature from either word or outlook by default? Obviously if I create a message in Outlook my signature comes in by default. Tag: Outlook 2003 Addressbook Tag: 75545
  - 18
    - database Dear ALL, My name is Gautam and i m new here... i have a specific query regardin my project. I want to make a template in word where my product (ie engine) i selected from the drop down menus and all information pertaining t that is filled in the lines below. EG. If i selected engine "A" then its parameters ie bore, stroke piston speed etc.. should be filled automatically in the templat below... I have done this successfully in EXCEL by data validation and VLOOKU but dont know for WORD. Please help Thanks in advance Gauta -- gmahendr ----------------------------------------------------------------------- gmahendru's Profile: http://www.highdots.com/forums/m108 View this thread: http://www.highdots.com/forums/t305111 Tag: Outlook 2003 Addressbook Tag: 75541
  - 19
    - Supress Mail Merge Warning Every time i open a megre document it issues a warning "Opening this document will run the following SQL results........." Anyway to supress this? Tag: Outlook 2003 Addressbook Tag: 75540
  - 20
    - Saving word Pages as images Hi, Can anyone suggest me how to save word pages as images. I need to save each page as an individual image from the word doc through coding. Can someone help me with this. Abhishek Tag: Outlook 2003 Addressbook Tag: 75538
  - 21
    - Inserting jpg's into headers with VBA Hi I'm trying to develop a macro in Word to insert a picture (shape object) in a header. I have no problem inserting lines as inline shapes using the addline() method and . However when I use AddPicture(), it always gives me compile errors or runtime type mismatch. Does anyone have a code snippet that works? Thanks Elly Belly Tag: Outlook 2003 Addressbook Tag: 75529
  - 22
    - Mail Merge Update I have a mail merge document that is linked to an Access database table. A VBA procedure runs from Access that updates that table thereafter opens the linked mail merge document. My problem is that when I open the mail merged document through the Access VBA procedure it does not update the record in the merged doc but when I open the same document manually, first it prompts me that it will run a SQL statement from the Access table to merge that data and when I click OK it shows the new record. (keep in mind that when the same mail merge document is opened through the VBA procedure it does not prompt me for anything instead opens the document with the last existing record). Is there a way that I can code the Word document to somehow refresh the merged records on open since it does not do so when I open it through my procedure? Any assistance would be greatly appreciated. Tag: Outlook 2003 Addressbook Tag: 75524
  - 23
    - Print different pages in the same document to different printers We have some pages that are colour, and some that are b&w. Rather than print all pages to a colour printer (ink is more expensive) i would like to be able to pick some pages to automatically go to a colour printer ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=c487deea-aec7-494e-9f3a-a9e5bfa0f1b8&dg=microsoft.public.word.vba.general Tag: Outlook 2003 Addressbook Tag: 75523
  - 24
    - Find # of Pages in First Section of Document Hello, I need to determine the number of pages in the first section of a document using vba. Anyone know how? Any help is very appreciated, thanks! Tag: Outlook 2003 Addressbook Tag: 75519
  - 25
    - Macro Security Error with Managed Assembly If fast food were this hard, grocery store shelves would be empty. Where's a sample or walkthrough on Word documents using managed assemblies from an HTTP location? Sure, Word finds the assembly but it still can't resolve security errors: "The current .Net security policy does not permit SomeDoc.doc to load custom macros." I've combed the web for hours but still haven't found the hidden text to make it work. Can't it just be simple? Of all of the VSTO samples, how about one that has a DOC, and assembly, the steps to authorize the download location from an HTTP, and just work if the user says so. Thanks for any pointers. Tag: Outlook 2003 Addressbook Tag: 75518
- Next
  - 1
    - Mail Merge problems with Microsoft CRm quotes Dear Word experts, How are you? Normally I spent time in the special Microsoft CRM (Customer Relationship Management) newsgroup, but the answer to my question can not be answered...yet. That's when I found this group. Our problem is the following. We are using the Microsoft CRM software to manage customer relationships. This piece of software should 'naturally' tie into other MS applications such as Word and Excel. However....we are facing a big issue when mail merging to Word. The situation is as follows: MS CRM allows you to create a quote on which you can put a number of products (line items). The structure would look something like this: Product Pieces Price Total Price Product X 2 50 100 Product Y 4 20 80 Etc Etc When the quote is finished, you can start a process which brings all your products and other quote details(e.g customer address details) to Word. Now the problem comes up. As an end-user, you seem to haver little influence in how the items are put into the quote template. They are just 'dumped' in randomly. We however, would like to group our products by a unique identifier (in this case: software, hardware and instruction) and display them in their own little section. So, ideally: Software Product X 2 50 100 Hardware Product Y 4 20 80 Etc. I now I am asking a lot, but is it possible (perhaps by putting in 'IF' statements) to design the template in such a way that it will not put all products in one table, but group them according to their type and calculate the subtotals accordingly. This would really, really help us . Microsoft can not help us at this time and we are getting lost. Thanks!!!!!!!! Michiel Tag: Outlook 2003 Addressbook Tag: 75516
  - 2
    - Change Source of all Links I have word file (template.doc) that have several links from excel file (template.xls). Since these files are linked every time a create a new file I do the following steps: 1.- Open both templates and save them as a new files (sample1.doc and sample1.xls). 2.- In the sample1.doc file I go to edit/links and click "Change Source" and change the template.xls file to sample1.xls. Although I click the first file and then I press Shift" to select all file and then I click the change source. It is doing it one by one. I wonder if there is a way (or program) to make the change source for all the links in one time? Could you please help me with some advice? Thanks in advance. Maperalia Tag: Outlook 2003 Addressbook Tag: 75514
  - 3
    - Another TOC question Greetings, Is it possible for word to create a TOC based on styles that reflect not the page number but the paragraph number and line number? i am really strugling with pagination issues. im hoping this might be a work around. i hope to hear from anyone on this topic. thanks Tag: Outlook 2003 Addressbook Tag: 75510
  - 4
    - Package linking and embedding Hi All I have an word document and inserted two .txt files using the menu option Insert->Object->Create from File. For both I checked "Display as Icon" and for only one checked "Link to File". Now in the document, I see two "Packaged" objects. I am trying to use C# to distinguish between the linked and the embedded file but cant do so as all the properties for the two fields are same. Both are fields with code "Embed Package". Can anyone help? Thanking in advance PJ Tag: Outlook 2003 Addressbook Tag: 75496
  - 5
    - Word Macro Error I recently inherited a Word document that is giving me the following error when I first run a customized save macro: "Word cannot copy a file to itself. G:\.....xxxxxxxxxx" Now, if I Ok out of that error and rerun the macro, it runs without incident. What is the probable cause of this error? I'm not too familiar with macro coding, so I don't know what to really look for. Any ideas on how to alleviate this error would be greatly appreciated. Thank you. BTW, I'm using Word 2003 on W2K. The error is below: Sub SODRSave() '******** _LASODR.DOT "SODRSave" MSWord Macro ******************** '** last rev. 05/23/2003 ** '***************************************************************** Dim locfolderprefix$ Dim netfolderprefix$ Dim regionprefix$ Dim fileopenpointer$ Dim a$ Dim namefile$ Dim b$ Dim netfolderyear$ Dim netfoldermonth$ Dim netfolder$ Dim button '****** THESE VARIABLES MUST BE MANUALLY ASSIGNED BY THE USER ****** locfolderprefix$ = "C:\_T&D Operations\Reports\Lancaster" ' C: drive save path prefix. netfolderprefix$ = "G:\ENGRDSGN\T&D Operations\Reports\Lancaster" ' Network drive save path prefix. regionprefix$ = "LA" ' Two character region filename prefix. ' Note: Year and Month sub-folders are automatically created. '******************************************************************* ' fileopenpointer$ = locfolderprefix$ ' "File+Open" command to point to this folder. ' '****** cksaveneeded: ' If WordBasic.IsDocumentDirty() = 0 Then GoTo bye a$ = WordBasic.[FileName$]() If LCase(WordBasic.[Left$](WordBasic.[Right$](a$, 16), 2)) <> LCase(regionprefix$) Then button = WordBasic.MsgBox("Not a valid SODR file name." + Chr(13) + "Must be in the form of '" + regionprefix$ + "2003_02_30.DOC '", " SODR bad filename ", 0) GoTo bye End If ' cdrivesave: 'WordBasic.FileSave namefile$ = WordBasic.[Right$](a$, 29) WordBasic.FileSaveAs Name:=locfolderprefix$ + "\" + namefile$ ' createnetfoldersavename: b$ = WordBasic.[Left$](WordBasic.[Right$](a$, 14), 4) netfolderyear$ = b$ netfoldermonth$ = b$ + "_" + WordBasic.[Left$](WordBasic.[Right$](a$, 9), 2) netfolder$ = netfolderprefix$ + "\" + netfolderyear$ + "\" + netfoldermonth$ ' WordBasic.PrintStatusBar "Saving to Network Drive. PLEASE WAIT. I'll let you know what happened soon." WordBasic.WaitCursor 1 On Error GoTo ErrorHandler ' checknetfolderyear: WordBasic.ChDir netfolderprefix$ On Error Resume Next WordBasic.MkDir netfolderyear$ ' checknetfoldermonth: WordBasic.ChDir netfolderyear$ On Error Resume Next WordBasic.MkDir netfoldermonth$ ' netdrivesave: WordBasic.CopyFile FileName:=a$, Directory:=netfolder$ ' When using SODRSave macro to save the file opened from the G: drive, ' the file will not save to the G: drive the first time ' and a message will indicate cannot copy to itself. ' The file will save to the G: drive on subsequent tries. ' Because after the file is saved to the C: drive on the first try, ' the open file becomes the one saved to C: drive. GoTo done ' ErrorHandler: button = WordBasic.MsgBox("File successfully saved to: " + Chr(13) + a$ + Chr(13) + Chr(13) + "Unable to save to Network drive: " + Chr(13) + netfolder$, " SODR path unavailable ", 0) button = WordBasic.MsgBox("Network may be unavailable at this time." + Chr(13) + "Use 'Save' command from File menu until the network connection is restored.", " SODR path unavailable ", 0) Err = 0 GoTo fileopenpointer ' done: WordBasic.PrintStatusBar "Save completed." ' fileopenpointer: ' This section is to make the File menu + Open command in Word ' point to the folder specified in fileopenpointer$, normally on the C: drive. ' Otherwise it would point to the last save path, which is a network drive. ' This is to help avoid opening a file manually from a wrong location by mistake. On Error Resume Next WordBasic.ChDir fileopenpointer$ ' "File+Open" will now point to this folder. GoTo bye ' bye: End Sub Tag: Outlook 2003 Addressbook Tag: 75491
  - 6
    - Macro Error Message I recently inherited a Word document that is giving me the following error when I first run a customized save macro: "Word cannot copy a file to itself. G:\.....xxxxxxxxxx" Now, if I Ok out of that error and rerun the macro, it runs without incident. What is the probable cause of this error? I'm not too familiar with macro coding, so I don't know what to really look for. Any ideas on how to alleviate this error would be greatly appreciated. Thank you. BTW, I'm using Word 2003 on W2K. The error is below: Sub SODRSave() '******** _LASODR.DOT "SODRSave" MSWord Macro ******************** '** last rev. 05/23/2003 ** '***************************************************************** Dim locfolderprefix$ Dim netfolderprefix$ Dim regionprefix$ Dim fileopenpointer$ Dim a$ Dim namefile$ Dim b$ Dim netfolderyear$ Dim netfoldermonth$ Dim netfolder$ Dim button '****** THESE VARIABLES MUST BE MANUALLY ASSIGNED BY THE USER ****** locfolderprefix$ = "C:\_T&D Operations\Reports\Lancaster" ' C: drive save path prefix. netfolderprefix$ = "G:\ENGRDSGN\T&D Operations\Reports\Lancaster" ' Network drive save path prefix. regionprefix$ = "LA" ' Two character region filename prefix. ' Note: Year and Month sub-folders are automatically created. '******************************************************************* ' fileopenpointer$ = locfolderprefix$ ' "File+Open" command to point to this folder. ' '****** cksaveneeded: ' If WordBasic.IsDocumentDirty() = 0 Then GoTo bye a$ = WordBasic.[FileName$]() If LCase(WordBasic.[Left$](WordBasic.[Right$](a$, 16), 2)) <> LCase(regionprefix$) Then button = WordBasic.MsgBox("Not a valid SODR file name." + Chr(13) + "Must be in the form of '" + regionprefix$ + "2003_02_30.DOC '", " SODR bad filename ", 0) GoTo bye End If ' cdrivesave: 'WordBasic.FileSave namefile$ = WordBasic.[Right$](a$, 29) WordBasic.FileSaveAs Name:=locfolderprefix$ + "\" + namefile$ ' createnetfoldersavename: b$ = WordBasic.[Left$](WordBasic.[Right$](a$, 14), 4) netfolderyear$ = b$ netfoldermonth$ = b$ + "_" + WordBasic.[Left$](WordBasic.[Right$](a$, 9), 2) netfolder$ = netfolderprefix$ + "\" + netfolderyear$ + "\" + netfoldermonth$ ' WordBasic.PrintStatusBar "Saving to Network Drive. PLEASE WAIT. I'll let you know what happened soon." WordBasic.WaitCursor 1 On Error GoTo ErrorHandler ' checknetfolderyear: WordBasic.ChDir netfolderprefix$ On Error Resume Next WordBasic.MkDir netfolderyear$ ' checknetfoldermonth: WordBasic.ChDir netfolderyear$ On Error Resume Next WordBasic.MkDir netfoldermonth$ ' netdrivesave: WordBasic.CopyFile FileName:=a$, Directory:=netfolder$ ' When using SODRSave macro to save the file opened from the G: drive, ' the file will not save to the G: drive the first time ' and a message will indicate cannot copy to itself. ' The file will save to the G: drive on subsequent tries. ' Because after the file is saved to the C: drive on the first try, ' the open file becomes the one saved to C: drive. GoTo done ' ErrorHandler: button = WordBasic.MsgBox("File successfully saved to: " + Chr(13) + a$ + Chr(13) + Chr(13) + "Unable to save to Network drive: " + Chr(13) + netfolder$, " SODR path unavailable ", 0) button = WordBasic.MsgBox("Network may be unavailable at this time." + Chr(13) + "Use 'Save' command from File menu until the network connection is restored.", " SODR path unavailable ", 0) Err = 0 GoTo fileopenpointer ' done: WordBasic.PrintStatusBar "Save completed." ' fileopenpointer: ' This section is to make the File menu + Open command in Word ' point to the folder specified in fileopenpointer$, normally on the C: drive. ' Otherwise it would point to the last save path, which is a network drive. ' This is to help avoid opening a file manually from a wrong location by mistake. On Error Resume Next WordBasic.ChDir fileopenpointer$ ' "File+Open" will now point to this folder. GoTo bye ' bye: End Sub Tag: Outlook 2003 Addressbook Tag: 75490
  - 7
    - Insert Landscape Page I need to create a macro that inserts a page break after the current page (which could or could not be the last page) and creates a landscape page. The problem is I don't know how to test for where the user will be in the document. Is there a code that goes to the bottom of the current page? Is there a code that once you go to the bottom that it can test to see if you are at the end of the document? I've wasted a day trying to figure this out and was hoping someone could help me. Thanks in advance. -- Debra Ann Tag: Outlook 2003 Addressbook Tag: 75489
  - 8
    - Tab stop weirdness In my macro I want to clear all tabs, then set two tabs which should be active for any text that the macro pumps out in the rest of the document. I use this code from a 'Record Macro': 'set tab stops only at 1.25" and 3.0" Selection.ParagraphFormat.TabStops.ClearAll ActiveDocument.DefaultTabStop = InchesToPoints(0.5) Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(1.25), _ Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces Selection.ParagraphFormat.TabStops.Add Position:=InchesToPoints(3), _ Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces But for some reason after this code is executed these two tabs only hold for the first paragraph of text that is pumped out afterwards. After that, the tab setting reverts to one tab every 0.5". What am I doing wrong? Thanks. Tag: Outlook 2003 Addressbook Tag: 75486
  - 9
    - modal status window? i'm familiar with StatusBar, but i was wondering if there is any way to make some kind of modal display similar to a MsgBox but without any buttons, and have the text updated at various points by the macro and then eventually closed? thanks in advance! Tag: Outlook 2003 Addressbook Tag: 75481
  - 10
    - forms I have two word docs. I place a number into a form text field on the first doc. How can I get that number into the second doc form field? Address the second doc's form text field? Tag: Outlook 2003 Addressbook Tag: 75479
  - 11
    - Auto Correct-Option of capitalizing after numbers, i.e., L4-5. I would like to see the "option" of being able to automatically capitalize the first word in each sentence after ending the previous sentence with a numeral. I work for orthopaedic surgeons and a lot of my sentences end in, for example, L4-L5. After becoming accustomed to this with Word 97, it's hard to remember to capitalize those. Also, I used to be able to type 79yog, and using Auto Correct, it translated to 79-year-old gentleman. I now have to put a space after 79 and just have yog transfer to year-old gentleman, which leaves a space after 79 - so it translates to 79 -year-old gentleman. Please make these options available in Word again. Thanks, Terry Lagnston ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=18591416-2ec5-4364-872f-62e2926cbb53&dg=microsoft.public.word.vba.general Tag: Outlook 2003 Addressbook Tag: 75474
  - 12
    - Changing & Saving Settings Hi, I would like to set up one instance of MS-Word 2K3 just the way I want with the options set just the way I like them & then i'd like to export those settings via .pip or via exported registry entries so I can bring them onto other pc's so I don't have to manually setup the settings on all other pc's in the office. is this possble? if yes, can you tell me how to do that? I'm specifically looking to save & export settings from the 'Tools->->Options' and 'Format->->AutoFormat" menus. Any help would be greatly appreciated. Thanks Chris Tag: Outlook 2003 Addressbook Tag: 75472
  - 13
    - Finding string of many spaces I need to find strings of multiple space characters and reduce them to 0, 1, or 2 spaces, depending on the first character. What I think I need to do is find two consecutive spaces, then extend the range forward and backward until I hit a non-space character. What do I use to do that? Ed Tag: Outlook 2003 Addressbook Tag: 75469
  - 14
    - Passing variables between user forms and modules I can't seem to find the best way to pass variables between a user form and a module. Typically, I'm trying to send variables to a module to control how it initializes fields during the load event, and sending variables back to the module to determine subsequent processing based on the user's choices in the form. I know that if the form is still available (even if hidden) the module can access the form objects with proper qualification. But it doesn't seem to work the other way. That is, there doesn't seem to be any way to access module variables from a form, unless I declare the variables as Public. But that seems sloppy, somehow. What's the best way to communicate variables between a module and a form? Bear Tag: Outlook 2003 Addressbook Tag: 75467
  - 15
    - Autofill one field from two others Word 2000, protected form using Forms toolbox. Want to autofill text form field '1' with entries placed in text form field '2' and '3.' Tag: Outlook 2003 Addressbook Tag: 75466
  - 16
    - Auto Tag: Outlook 2003 Addressbook Tag: 75465
  - 17
    - Calling Cindy Meister Hello Ms. Cindy Meister. When I ran your following macro (via a MACROBUTTON) in a protected form and I typed a search phrase, I got a Microsoft Visual Basic error message that said "Run-time error '5941'; The requested member of the collection does not exist." When I clicked Debug, the line "Set ffld = doc.FormFields(Selection.Bookmarks(1).Name)" within the macro was hi-lited in yellow. Ms. Meister, what was I doing wrong? _______________________ Sub FindInForm() Dim doc As Word.Document, ffld As Word.FormField Dim szFindTerm As String, lPos As Long Dim szSearchString As String, rng As Word.Range Dim rngStart As Word.Range, lNumFfld As Long Dim lFfldCounter As Long Set doc = ActiveDocument szFindTerm = InputBox("Enter the phrase you wish to find:") lNumFfld = doc.FormFields.Count lFfldCounter = 0 Set ffld = doc.FormFields(Selection.Bookmarks(1).Name) If Len(szFindTerm) = 0 Then Exit Sub Set rngStart = Selection.Range Set rng = rngStart.Duplicate rng.End = ffld.Range.End szSearchString = rng.Text Debug.Print szSearchString lPos = InStr(ffld.Result, szFindTerm) If lPos > 0 Then Selection.MoveStart wdCharacter, lPos - 1 Selection.MoveEnd wdCharacter, Len(szFindTerm) Exit Sub End If Do Set ffld = ffld.Next If ffld Is Nothing Then Set ffld = ActiveDocument.FormFields(1) End If If rngStart.InRange(ffld.Range) Then MsgBox "All form fields were searched; the phrase was not found." Exit Sub End If ffld.Select Selection.Collapse Set rng = Selection.Range rng.End = ffld.Range.End szSearchString = rng.Text Debug.Print szSearchString lPos = InStr(ffld.Result, szFindTerm) If lPos > 0 Then Selection.MoveStart wdCharacter, lPos - 1 Selection.MoveEnd wdCharacter, Len(szFindTerm) Exit Sub End If lFfldCounter = lFfldCounter + 1 Loop Until lFfldCounter = lNumFfld End Sub Tag: Outlook 2003 Addressbook Tag: 75462
  - 18
    - Printing embedded documents in MS Word 2003 I wish to print a document INCLUDING its embedded document objects (shown as clickable icons) in MS Word 2003 in one single operation. As it is now, I have to manually open and print each of the attachments, which can be very tedious if the document has lots of embedded files. I found a message on microsoft.public.word.vba.general (http://groups.google.com/group/microsoft.public.word.vba.general/browse_thread/thread/cb35eaf1f5a28cd4/) that included a VBA script (attached below) that solves this problem partially - only MS Word objects are handled properly. Does anyone have a solution that will work with MS Excel and plain-text objects as well? Sub PRINT_Attachments() ' ' PRINT_Attachments Macro -- to print attachments in a doc ' Comments: TYPE=1 is an embedded object x = 0 x = ActiveDocument.InlineShapes.Count Do While x <> 0 If ActiveDocument.InlineShapes(x).Type = 1 Then If ActiveDocument.InlineShapes(x).OLEFormat.ProgID <> "Package" Then ActiveDocument.InlineShapes(x).Activate ActiveWindow.PrintOut ActiveWindow.Close End If End If x = x - 1 Loop End Sub -- Karl Erik Birkeland, MDNV http://home.no/blazius/ Tag: Outlook 2003 Addressbook Tag: 75461
  - 19
    - MS Word 2000 Protecting Format Looking for a way to protect the format of a word 2000 document by using a macro or vb code. document has extensive bookmarks that are automatically filled in from a external application, trying to disable the ability of users to change the document but still allowing the bookmarks and macros to run automaticaly as well as allowing them to enter text in the text form fields ? can this be done ? Tag: Outlook 2003 Addressbook Tag: 75459
  - 20
    - VBA Word Macro freezes when exiting sub routine I am searching though some text to break it up into name/value pairs, the names are in bold, and the values follow, see below. BoldName1 Value1 BoldName2 Value2 etc.... When executing the code it freezes Word when as it ends the subroutine. I have stepped through the code and all works correctly (correctly finding all name/value pairs) right up until End Sub which locks up Word. Here is the code: Dim descriptionRange As Word.Range Dim searchRange As Word.Range Dim tempRange As Word.Range Dim names(100) As String Dim values(100) As String Dim Go As Boolean ' Select the area where the Name/Value pairs are Selection.Find.ClearFormatting Selection.Extend With Selection.Find .Text = "Execution Status :" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.HomeKey Unit:=wdLine If Selection.Find.Found <> True Then ' Can not find MsgBox ("could not find description block") End If ' Store this area in a Range Set descriptionRange = Selection.Range.Duplicate Set searchRange = Selection.Range.Duplicate Set tempRange = Selection.Range.Duplicate Selection.Start = descriptionRange.Start Selection.End = descriptionRange.End ' Find the Name/Value pairs pairIndex = 0 Go = True While Go ' Break up range into Name/Value pairs and insert into a table searchRange.Find.ClearFormatting searchRange.Find.Font.Bold = True With searchRange.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With searchRange.Find.Execute If searchRange.Find.Found <> True Then Go = False GoTo exitSearch End If ' Get the name (In Bold) names(pairIndex) = searchRange.Text ' Move searchRange to end of Name searchRange.Start = searchRange.End searchRange.End = descriptionRange.End valueStart = searchRange.Start ' Select the rest of the Value searchRange.Find.ClearFormatting searchRange.Find.Font.Bold = True With searchRange.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With searchRange.Find.Execute If searchRange.Find.Found <> True Then ' Last item so need to take remaining text and make it the Value Go = False tempRange.Start = valueStart tempRange.End = descriptionRange.End values(pairIndex) = tempRange.Text GoTo exitSearch End If tempRange.Start = valueStart tempRange.End = searchRange.Start values(pairIndex) = tempRange.Text searchRange.Start = searchRange.Start searchRange.End = descriptionRange.End pairIndex = pairIndex + 1 exitSearch: Wend End Sub Tag: Outlook 2003 Addressbook Tag: 75458
  - 21
    - Macro Recording - Entering Text in a Text Box I am trying to write a macro that copies text from Document A, opens Document B, and pastes the text into a textbox in Document B. Unfortunately, while recording the macro I can manually open Document B, but can't seem to get the focus on the textbox. The macro ends up just pasting the copied text on the first line of Document B. Any suggestions? Thanks Stephen Tag: Outlook 2003 Addressbook Tag: 75455
  - 22
    - What event occurs on form load? I am trying to make some things happen when my user form loads in Word 2002. I have tried FormName_Load and FormName_Initialize, but neither seem to produce the effect desired. For example, consider a userform that you bring up, and at initialization you want it to make some checks and based on these render certain controls non visible. This is what I am trying to do. Thanks for your help. Tag: Outlook 2003 Addressbook Tag: 75451
  - 23
    - find/replace on tables only is there a way to perform a find/replace but only on selected text or table? thanks! Tag: Outlook 2003 Addressbook Tag: 75448
  - 24
    - Automatically check another checkbox if this one is checked I am trying to do a macro that will automatically check boxes 17 and 20 if 5,6, or 7 are checked. Any simple solutions? I have Word 2000. Tag: Outlook 2003 Addressbook Tag: 75441
  - 25
    - VB API translating into VBA Hi, I'm trying to use a Named Pipe in Word2003. I will let Word talks via this pipe with another application that serves as an pipe server. I have this working in two other programming laguages Xbasic and PureBasic. Now I want add VBA to it The API function (Visual Basic version) doesn't work in VBA and let Word crash is the following: Public Declare Function CallNamedPipe Lib "kernel32" Alias "CallNamedPipeA" _ (ByVal lpNamedPipeName As String, _ ByRef lpInBuffer As Any, _ ByVal nInBufferSize As Long, _ ByRef lpOutBuffer As Any, _ ByVal nOutBufferSize As Long, _ ByRef lpBytesRead As Long, _ ByVal nTimeOut As Long) As Long When I change all the Longs in Integers and call it as an CallNamedPipeA version it doesn't crash anymore and the communication does something. Declare Function CallNamedPipeA Lib "kernel32.dll" ( _ ByVal lpNamedPipeName As String, _ lpInBuffer As Any, _ ByVal nInBufferSize As Integer, _ lpOutBuffer As Any, _ ByVal nOutBufferSize As Integer, _ lpBytesRead As Integer, _ ByVal nTimeOut As Integer) As Integer Both versions do get a connection to the pipe server which is running at that moment. The ReadFile() action in the server doesn't return with success, res = 0. The server does work correct in connection to other programs. -------------- start of VBA code ----------- Option Explicit Private Const pipeName As String = "\\.\pipe\mynamedpipe" Private Const BUFFSIZE = 1024 Private hpipe As Integer Private myerror As Integer Public Const INVALID_HANDLE_VALUE As Integer = -1 Declare Function CallNamedPipeA Lib "kernel32.dll" ( _ ByVal lpNamedPipeName As String, _ lpInBuffer As Any, _ ByVal nInBufferSize As Integer, _ lpOutBuffer As Any, _ ByVal nOutBufferSize As Integer, _ lpBytesRead As Integer, _ ByVal nTimeOut As Integer) As Integer Public Sub CallAPipe() Dim res As Integer, cbRead As Integer, numBytes As Integer Dim lpInBuffer As String Dim lpOutBuffer As String lpInBuffer = "Some text from Word." numBytes = Len(lpInBuffer) lpOutBuffer = String(BUFFSIZE, 0) res = CallNamedPipeA(pipeName, lpInBuffer, numBytes, lpOutBuffer, BUFFSIZE, cbRead, 0) If res = 0 Then myerror = Err.LastDllError MsgBox "Error number " & myerror & Error(myerror), vbOKOnly Else MsgBox "Ok" End If End Sub -------------- end of vba code ----- Is there someone who has done this before and can point me in the right direction with this code? All kind of help with this code is appreciated. Regards, Marcel Tag: Outlook 2003 Addressbook Tag: 75440

Can anyone provide code for Word 2003 that will prompt to pull name/address
info from the Outlook Contacts folder -- specifically from another users
Outlook Contact folder that I have access to.

Thank you in advance for your help.

Top

Re: Outlook 2003 Addressbook by Graham

Graham
Thu Oct 27 02:00:37 CDT 2005

If the Contacts folder's property is defined as an Outlook address book,
then the code shown at http://www.gmayor.com/Macrobutton.htm will allow you
to choose which address book to pick your address from.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Diamonds_Mine wrote:
> Can anyone provide code for Word 2003 that will prompt to pull
> name/address info from the Outlook Contacts folder -- specifically
> from another users Outlook Contact folder that I have access to.
>
> Thank you in advance for your help.

Top

Re: Outlook 2003 Addressbook by DiamondsMine

DiamondsMine
Thu Oct 27 07:14:02 CDT 2005

Thank you for the code. However, I do not see the delegate's Contacts in my
list to be able to select a name. I have access to Sally Johnson's Contacts.
I have added Sally's mailbox to my Outlook View and can switch to her
Contact's folder, but I don't see her Contacts when I'm in Word.

"Graham Mayor" wrote:

> If the Contacts folder's property is defined as an Outlook address book,
> then the code shown at http://www.gmayor.com/Macrobutton.htm will allow you
> to choose which address book to pick your address from.
>
> --
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
> Graham Mayor - Word MVP
>
> My web site www.gmayor.com
> Word MVP web site http://word.mvps.org
> <>>< ><<> ><<> <>>< ><<> <>>< <>><<>
>
> Diamonds_Mine wrote:
> > Can anyone provide code for Word 2003 that will prompt to pull
> > name/address info from the Outlook Contacts folder -- specifically
> > from another users Outlook Contact folder that I have access to.
> >
> > Thank you in advance for your help.
>
>
>

Top