accessing outlook contact information in word

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - copy word form field contents into excel spreadsheet Can someone help me with the code to open a word document that is a survey form with 6 form fields. I want to open the document, copy the contents of the form fields (name_txt, email_txt, check1_checkbox, etc) to my excel spreadsheet. I am having my college math students complete a word-form document and want to capture all of the responses into a single worksheet with a row for each students information. Thanks, Dave Was this post helpful to you? Tag: accessing outlook contact information in word Tag: 71798
  - 2
    - problems with code in thisOutlookSession (error 438) Hallo! In Outlook 2002 I've got following code in ThisOutlookSession: Sub RufeBriefSchreibenAuf() AufrufAusWord = True Call BriefSchreiben End Sub In Word 2002 I wrote Sub Test() Dim oOutAppl As Outlook.Application Set oOutAppl = GetObject(, "Outlook.Application") oOutAppl.RufeBriefSchreibenAuf End Sub Error 438 apears. What's wrong? Thanks and regards Heike Pertzel / DATA 5 GmbH Tag: accessing outlook contact information in word Tag: 71785
  - 3
    - start Outlook 2002 via Word 2002 macro Hallo! I would like to check in a Word 2002 macro wether Outlook 2002 is running and if not to start it. I've tried a lot of code I've found via internet but nothing worked correctly. Has somebody any hint for me? Thanks and regards Heike Pertzel / DATA 5 GmbH Tag: accessing outlook contact information in word Tag: 71784
  - 4
    - Hidden Text Using Checkbox Hello, I'm trying to write a macro that will toggle text in a bookmark between hidden and unhidden using a checkbox. I still need the text visible on screen, but I just don't want the text to print. I managed to make it work one time, but something must have gone wrong in my code. Does anyone have a better suggestion or can spot what I'm doing wrong. My macro is below. Sub mcr1A() ActiveDocument.Unprotect Password:="" Set vCheck1 = ActiveDocument.FormFields("chk1A").Range If vCheck1 = False Then ActiveDocument.Bookmarks("bk1A").Select With Selection.Font .Hidden = True End With End If ActiveDocument.Protect Password:="", NoReset:=True, Type:= _ wdAllowOnlyFormFields End Sub Tag: accessing outlook contact information in word Tag: 71780
  - 5
    - make form automation recognize the boolean state of a check box When automating a form, it would be helpful if I could make the exit macro of a check box dependent on the boolean state of that check box. It would be even better if I could enter a command such as "if check1=1 then check2=enabled" or something similar. The current method of using macros is cumbersome in many situations. ---------------- 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=f5a5febb-b019-46e3-9fe3-1c6f831509d7&dg=microsoft.public.word.vba.general Tag: accessing outlook contact information in word Tag: 71774
  - 6
    - HTTP Posting Document I am new to VBA and Word macros in general and have a question. Is it possible to HTTP Post the ActiveDocument to a URL after it has been closed or saved? Perhaps in the autoClose method? Since I am new to Word automation I am having a hard time finding the answer from the Document object docs. I have found examples of how to POST arbitrary data from the Document, but not the entire binary Document itself. Any help would be appreciated. Cheers! -- Jeff Tag: accessing outlook contact information in word Tag: 71773
  - 7
    - Fractions and Autoformatting Sometimes my program will automatically shrink the fractions. I have gone into the tools menu and checked and it should occur but it does not. Is there a way for me to customize the fractions so they appear like the others that do shrink? Please and Thank-you Tag: accessing outlook contact information in word Tag: 71770
  - 8
    - Search for a variable array of numbers in word I am looking at writing a macro in word vba that searches the word document for an array of numeric characters with a fixed length of 14 characters but the characters can be anything numeric ie 0-9. Can anyone help Tag: accessing outlook contact information in word Tag: 71769
  - 9
    - Select from insertion point to text string, and then do it all over again I am creating 850 static HTML Web pages by using Mail Merge in Microsoft Word. (The static Web pages are then compiled into one metafile.) After I merge the Web page data into Word, I have one, long document that is separated by 850 section marks. I have VBA code that allows me to cut a selection from the one, long document and to paste the selection into individual .htm files. I have not figured out, however, how to define the 850 separate selections in the one, long document. I also need help returning to the one, long document and moving the the next section in it. Specifically, I need VBA code to do the following things: 1. To use the current insertion point as the beginning of the selection or range. 2. To extend the selection or range so that it includes everything up to the next occurrence of the text string "</html>". 3. To call the cut-and-paste VBA sub that I already have. (This VBA sub creates, saves, and closes the individual file.) 4. To return to the one, long document as the ActiveDocument. 5. To move the insertion point to the beginning of the next section. 6. To repeat this action as long as another "</html>" text string exists in the one, long document. Thank you, --K Tag: accessing outlook contact information in word Tag: 71768
  - 10
    - Letter printing I work with an application that is used by several (50) users. As part of their work they print letters to send to clients. A parameter is passed to request the number of copies of each letter to print on the network printer. The problem is 90% of the time the correct number of letters is printed, but 10% of the time some letters would not print or the number would be incorrect. I put a log file to check what is being sent to the printer and the parameters are always correct, but I ,sometimes get the wrong number of copies. Any help will be appreciated. The application is VB.net and we are using Office 2003. Tag: accessing outlook contact information in word Tag: 71765
  - 11
    - Formfields in a table Hello, Using VBA with Word 2002, I'm using the code below to add a calculating formfield to a table. Strangely it only works some of the time depending on the range value. When the range is "Cell(3, 1).Range" is works fine, but when the range is "Cell(3, 4).Range" the code stops running without an error. Has anyone every seen this before or have a work around. This is part of a larger sub. "doc" is the active document. With doc.FormFields.Add(Range:=.Cell(3, 4).Range, Type:=wdFieldFormTextInput) .TextInput.EditType Type:=wdCalculationText, _ Default:="=sum(above)", _ Format:="0.00", _ Enabled:=False .Range.Fields.Update End With Thanks Tag: accessing outlook contact information in word Tag: 71761
  - 12
    - Customizing the toolbar with macros Hi, Thank you for your help. I'm on Word 03. I have created a toolbar with menus and submenus. Wondering if you can use icons/pictures to identify menus or submenus the same way you use them to identify features, macros, etc. on the toolbars. It won't let me but I wanted to verify that it can't be done. Thanks much. Tag: accessing outlook contact information in word Tag: 71760
  - 13
    - Normal.dot gets renamed Hi there, Any ideas why [normal.dot] gets renamed to [normal.dot.old] when an instance of word is called from another application. Situation: Powerbuilder application calls MS Word as automation server with general, out-of-the-books automation code. Extra info: OS: Windows XP MS Office XP UK with a Dutch language pack. Word startup folder (in this enterprise setting) located in user's profile. Problem seems to occur with a virgin/clean user's profile (in other words: first enterprise login session or first MS Office/Word session ... MS Office FirstRun entry in registry = true) We've noticed that the problem occurs once: during first MS Word session. Once the normal.dot's owner file (~$) has been properly deleted (by MS Word after this first session) the problem seems to disappear. What is forcing MS Word to rename [normal.dot] to [normal.dot.old]?? or What is set during this first MS Word session in the user's profile? (can't see anything being set in user's profile ...) ------------------------------------- Krgrds, Perry System parameters: POS: WinXP x64 MSO: MSOffice System DEV: VS7 (dotnet) ------------------------------------- Tag: accessing outlook contact information in word Tag: 71758
  - 14
    - VBA error 4605 accessing SaveInterval property while Find dialog o I have a macro that wakes up periodically and checks the SaveInterval property. When there is a Find/Replace dialog open, it gets error 4605 and is unable to obtain the value of the property. Is there any way around this? In other words, any way to obtain the value of SaveInterval or other Word options while the Find/Replace dialog is open? Thanks! Tag: accessing outlook contact information in word Tag: 71755
  - 15
    - Warning Word6.0/95 converter Hello, I have a warning when a macro is saving my word document with the word6.0/95 converter. How could I disable this warning? Thanks for answers Regards Maurice Tag: accessing outlook contact information in word Tag: 71754
  - 16
    - Display a message box I just want to display a simple message box, how do I do that? I tried searching for Option Box, Message Box, everything I could think of and only get something about dialog boxes, none of which have a message box. Thanks for you rhelp. Tag: accessing outlook contact information in word Tag: 71749
  - 17
    - How do I enable a macro I recorded a macro in word. When I run it, the pop-up message tells me the macro is not enabled. I have also come out of word and tried again. Can anyone tell me how to enable the macro? Tag: accessing outlook contact information in word Tag: 71747
  - 18
    - Unsafe ActiveX Initialization Hello, I use an ActiveX in a word document (InkPicture), and I have a warning about "unsafe activeX". How can I hide this warning? I tried to activate the "Unsafe ActiveX Initialization" to the value "Initialize using control defaults" in the Security Settings of Administrative Templates, but with no result. Thanks for answers Regards Maurice Tag: accessing outlook contact information in word Tag: 71746
  - 19
    - Copy Paste Special Challenge Is it possible to copy a word document page but leave the first 3 space behind on every line for the whole document I need to do this for over 3000 pages so do not want to by line by line I am trying to achieve: 001 dsfdsfsd 002 sdfdsfsdf 003 sdfdsfsdf to becomes dsfdsfsd sdfdsfsdf sdfdsfsdf is this possible Many thanks Marcus Marcus Tag: accessing outlook contact information in word Tag: 71742
  - 20
    - Including mail merge filtering in a macro in Word I am currently using Merge to Directory in Word 2003 to pick up details of our staff vacancies from an Excel 2003 spreadsheet and place them in an HTML-ready document. To date, I have been filtering for each division and merging to the relevant document manually. I want to create a macro to do them all automatically but, when I record a macro to do so, it does not change the filtering of the source data and merely produces identical output when I run it, even though doing it manually produces 4 different documents. How do I include the filtering instructions to get output relevant to the selected division? Tag: accessing outlook contact information in word Tag: 71741
  - 21
    - How can I print a letter for each record in my mailmerge table? I am trying to rewrite some code from word.basic to use word.application b/c some of it is not working in XP. I have had some luck with another program but this one is not working properly. It is only printing a letter for the first record in the table instead of a letter for each record in the table. Here is most of the code. Does anyone see something that I am missing?? Thank you. ***** oDoc = oWord.Documents.Open("test.doc") oDoc.MailMerge.MainDocumentType = 0 oDoc.MailMerge.OpenDataSource; (dsname,wformat,wconfirmconv,wreadonly,wlinktosource,; waddtofilelist,wpassworddoc,wpasswordtemp,wrevert,; wprotectdoc,wprotecttemp,wconn,wsqlstatement) oWord.Documents(1).Activate oWord.Printout() oDoc.Close ****** Tag: accessing outlook contact information in word Tag: 71740
  - 22
    - Trim/Split Filename and insert as text field Hi there, hopefully you guys guide me... Im not familiar with VB. I want to add the filename of a special format in the footer of a word doc, automatically everytime I save the doc. This is what I want in detail: 1. When file gets saved - set file name (document property) to the name of the file, trimmed down to the characters before the first underscore (_). E.g. Filename is "myfile_sometxt.doc" -> will get "myfile" 2. Automatically set the filename variable (trimmed down in step 1) into the footer of the document. Any help would be reaaaally appreciated. Tank you! reiner PS: This is what I've done so far... Macro to get the trimmed down filename: Sub InsertFnameOnly() Dim fname, fname2 As String ActiveDocument.Save fname2 = Selection.Document.Name fname = Left(fname2, (InStr(fname2, "_") - 1)) Selection.TypeText fname End Sub Problems: - how to set the filename in document properties? - how to paste the trimmed filename into the footer? - how to do this automatically (ie without the need of explicitely execute any macro)? Tag: accessing outlook contact information in word Tag: 71730
  - 23
    - BreakPage I greet all I form in the macro table and I should make, so that several in a row going table rows would not be transferred (break row) to another page and they were located together on one sheet. As to make this?. -- Grigoriy Chelh chech@aonord.donetsk.ua icq:118106001 Tag: accessing outlook contact information in word Tag: 71727
  - 24
    - Macro runtime error I have set up a macro using the recording wizard to open a file which i use often as a template. Now when i click on the macro button, Run-time Error 5174 keeps coming up. Can anyone help? Thanks Tag: accessing outlook contact information in word Tag: 71718
  - 25
    - Delete Files from Word Macro Hi All - How do you set up a (Windows) command to delete 1 or more files in a specific directory from within a Word Macro? I suspect it is a separate Library function, but don't kmow the details Thanks in advance Mike Tag: accessing outlook contact information in word Tag: 71716
- Next
  - 1
    - correct count of pages Hi all, I am create word document in maross and I put count of pages this document Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="NUMPAGES", PreserveFormatting:=True When i am print this document i obtain a incorrect quantity of the pages. ActiveDocument.Fields.Update For Each aField In ActiveDocument.Fields aField.Select Selection.Fields.Update aField.Update Next aField ActiveDocument.PrintOut False ActiveDocument.Close False Application.Quit As to obtain a correct count of pages of the document before print ? Grigoriy Chelh chech@aonord.donetsk.ua icq:118106001 Tag: accessing outlook contact information in word Tag: 71710
  - 2
    - Programmatically Adding References Is there a way to programmatically add references to a project? I have this control (Microsoft Calendar Control) added on my machine but when I transfer my template to another user, I get an error. I tried this code to add a reference but I get the following error: Application.VBE.ActiveVBProject.References.AddFromFile ("C:\windows\system32\mscal.ocx") 'Programmatic access to VB Project is not trusted.' Is there a way to do this outside of adding the reference manually for each user? Tag: accessing outlook contact information in word Tag: 71700
  - 3
    - A Find loop inside a Find--possible? Here's the pattern I use for macros in which some action is performed after each item is found. But the steps done inside the loop don't work if they involve Selection.Find. In other words, it doesn't seem possible to do a Find inside a Find. Is there any way around this? Thanks, Larry Application.ScreenUpdating = False With Selection.Find .ClearFormatting .Text = "text" .Forward = True .Wrap = wdFindContinue Do While .Execute ' do steps Loop End With Tag: accessing outlook contact information in word Tag: 71698
  - 4
    - Prevent Tables.Add Jumping To Selection? Adding Tables or rows to tables always jumps to the insert point. Although most of the time this is not a problem, there are instances that I use range rather than Selection to insert material into a file. In those cases, Add always jumps to one location and ScrollIntoView jumps to another and it looks awful. Is there a way to prevent jumping to the insert point? As a sample: 'table already defined For Each myRevision In theSource.Revisions theCount = theCount + 1 targetDoc.Tables(1).Rows.Add With targetDoc.Tables(1) .Cell(Row:=theCount + 1, Column:=1).Range.InsertAfter Text:=theCount 'and other stuff End With targetDoc.Windows(1).ScrollIntoView targetDoc.Tables(1).Cell _ (Row:=theCount + 1, Column:=1).Range, False Next Tag: accessing outlook contact information in word Tag: 71632
  - 5
    - Word Template Hello, I create a new Word empty template file. When I open it, and immediately close it (whithout modification), word ask whether modfications have to be saved. When I create a new document based on this model, I save the new document, and Word still ask whether modfications of the template have to be saved. I can save the word template as many times as I want, it always do the same thing. Thanks for answers Regards Maurice Tag: accessing outlook contact information in word Tag: 71630
  - 6
    - Listing Word macros Hi, I am working on a project for designers to create automated templates for authors to work into. I am creating a set of standard macros that our designers can amend and take into the code window of a template document, and I would then like to be able to access the macro names to automate the creation of a custom toolbar containing the macros used in the document. Is there a way to access macros as a collection (as you do documents, tables, etc.)? If not, is there any way of getting this information from the active document easily? I have currently written a routine to access the code window, strip out the text to a new document, delete all lines that are not macro declarations and copy them back into the main document to iterate through with a second macro that populates a new custom toolbar. While this works, it is not easily extensible and is pretty inflexible, so I am keen to find a more elegant solution if one exists! I am thinking something along the lines of ActiveDocument.macros(1).name kind of simplicity... Many thanks, Nigel Tag: accessing outlook contact information in word Tag: 71622
  - 7
    - Extra characters in Rng.txt compared to Rng In Word 97, I've accessed the text of a range I've defined using Rng.Text. This works fine, but there are sometimes more characters in the text than there are in the range. This occurs if I have a table, for instance, where an empty cell or an end of row is represented by one character in the range but two characters in the text string. It also occurs if there's some autoshapes present in the document. This causes problems to me since I'm using the VB function InStr() on the text string, but need to find the position of my search string in the range. How do I get around this problem? Tag: accessing outlook contact information in word Tag: 71621
  - 8
    - merging multiple documents pages into one? hi all.. i have a dynamic insurance offer i need to generate dynamically. the offer should be for 4 types of insurance, and includes 3 pages. while the last 2 are rather the same, the first page is mostly marketing stuff and changes greatly from type to type. so is there a way to create a different page in different documents, and then have word merge it with the last 2 document pages? Tag: accessing outlook contact information in word Tag: 71610
  - 9
    - File Log I need some code that will add the filename and path as well as the current date and time to a log file called word files.txt each time a word document is opened or saved. Anyone Help Regards -- JoeBo Tag: accessing outlook contact information in word Tag: 71609
  - 10
    - Log File I need some code that will add the filename and path as well as the current date and time to a log file called word files.txt each time a word document is opened or saved. Anyone Help Regards JoeBo Tag: accessing outlook contact information in word Tag: 71608
  - 11
    - VBA Book or other resource for learning Would like a good book on VBA or other location for learning. I do have software programming experience and a little VB experience. Thanks -- FL Consultant Tag: accessing outlook contact information in word Tag: 71606
  - 12
    - Macro to replace Please. Hello from Steved 1st: 2nd: 3rd: 4th: 5th: 6th: 7th: 8th: 9th: 10:th 11th: 12th: 13th: 14th: 15th: 16th: 17th: 18th: 19th: 20th: 21st: 22nd: 23rd: 24th: with please 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Yes I know how to replace but I have my time looking like this 1:30 Thankyou. Tag: accessing outlook contact information in word Tag: 71589
  - 13
    - 'Person Name Smart Tag' custom functionality 'Person Name Smart Tags' are available with To/From/Cc/Bcc e-mail addresses of Outlook. If you move the mouse pointer to e-mail ids in these fields, a 'Windows Messenger' icon will appear and you can get a context menu by clicking on that icon. This Smart Tag of Outlook provides the functionality to call or send mail to that person using smart tag menus by leveraging the functionality of 'Windows Messenger'. I want to do some preprocessing (like providing default message body or displaying a message box before placing call) on the click of these menu items using outlook automation or plug in or any other possible way. Is there any way to modify the name of these smart tag menu items and hooking or capturing the click event of these menu items? How Microsoft Outlook integrated with Windows messenger to provide call facility? Which DLL is responsible for it? Can I hook into that DLL to trap the click of Call menu? Please help me if you have any ideas in this regard. Let me know if I am not clear with my points. NB : I donâ??t want to do this activity via adding â??Additional Actionsâ?? in the smart tag menu, but I want to use the existing â??Call Work..â?? menu click event. Tag: accessing outlook contact information in word Tag: 71580
  - 14
    - Check Box to Hide Text Hello All, I'm trying to use a check box on my template to determine whether a paragraph should be hidded. I managed to get it to work a couple times but it stopped when I added an additional macro to do the same thing except on a different check box/bookmark. I will have at least 8 other check boxes on this template that I would like to do the same thing. Any ideas on what I'm doing wrong?? Here's the code: Sub mcr1A() ActiveDocument.Unprotect Password:="" Set vCheck1 = ActiveDocument.FormFields("chk1A").CheckBox If vCheck1 = True Then ActiveDocument.Bookmarks("bk1A").Select With Selection.Font .Hidden = False End With Else ActiveDocument.Bookmarks("bk1A").Select With Selection.Font .Hidden = True End With End If ActiveDocument.Protect Password:="", NoReset:=True, Type:= _ wdAllowOnlyFormFields End Sub Tag: accessing outlook contact information in word Tag: 71562
  - 15
    - Trying to automate several Word tasks in VB6 Hi, I've got a Word Doc that I'm using as a template for a mail merge (MyTemplate.Doc). I'm using a text file for the data records (MyData.txt). I need to automate the following tasks: 1. Open MyTemplate.Doc 2. Select a specific printer (HP LJ 9050DN PCL 6) 3. Set the page size to 11X17 4. Set the duplexing to Vertical 5. Set the Orientation to Landscape 6. Perform the Mail Merge 7. Print the newly merged document 8. Save the newly merged document using a filename parameter supplied by VB 9. Close both documents I've been able to perform some of the above tasks (1, 6, 9) but I could use some help on the others. Thanks for any help. Keith Tag: accessing outlook contact information in word Tag: 71558
  - 16
    - How can I populate a list box with all open word docs in VBA Hi, Using VBA: How would I populate a list box with the filenames of all open word docs? User then selects the file they want. How could I ensure future macros operate on that file? For completeness, I'd like this to check all open incidences of Word, but if that's really hardcore, then I'll stick with what won't go straight over my head as I've still a lot to learn and need to ensure I can mantain what I build. Many thanks. Tag: accessing outlook contact information in word Tag: 71550
  - 17
    - How to compute text width in paragraph How can I compute the length in inches of a substring in a paragraph? I need a function that takes a Paragraph object, and a string that's part of the text of that paragraph, and tells me whether the string's width in the document is more than 1/4 inch. Any help appreciated. Tag: accessing outlook contact information in word Tag: 71535
  - 18
    - Select all text in first column of table I have a 2 column table which has two bookmarks named CapBegin and CapEnd (both in the first column). The number of rows in the table will vary (usually between 1 and 4 rows). I have tried using the following code to capture the text in between those two bookmarks and assign it to a variable. All variables are declared in my module. However, what is happening instead is that all of the text from both columns is being added to the variable. Set bmRange2 = ActiveDocument.Range(ActiveDocument.Bookmarks("CapBegin").End, _ ActiveDocument.Bookmarks("CapEnd").Start) bmRange2.moveend unit:=wdCharacter, Count:=-1 strCaseInfo = bmRange2.Text Is this the proper way to do what I am trying to do? If not, I then found the following two snippets of code for working with tables, but I can't figure out how to modify them to do what I need. Example 1: Dim myRange As Range, myTable As Table Dim myRow As Long, myCol As Long Set myTable = ActiveDocument.Tables(1) myRow = 1: myCol = 1 Set myRange = myTable.Cell(myRow, myCol).Range myRange.MoveEnd unit:=wdCharacter, Count:=-1 MsgBox myRange.Text Example 2: Sub RetrieveCellValueFromTable() Dim oRow As Row Dim oCell As Cell Dim sCellText As String ' Turn on error checking. On Error GoTo ErrorHandler ' Loop through each row in the table. For Each oRow In ActiveDocument.Tables(1).Rows ' Loop through each cell in the current row. For Each oCell In oRow.Cells ' Set sCellText equal to text of the cell. ' Note: This section can be modified to suit ' your programming purposes. sCellText = oCell.Range ' Remove table cell markers from the text. sCellText = Left$(sCellText, Len(sCellText) - 2) MsgBox sCellText Next oCell Next oRow Exit Sub ErrorHandler: If Err <> 0 Then Dim Msg As String Msg = "Error # " & Str(Err.Number) & Chr(13) & Err.Description _ & Chr(13) & "Make sure there is a table in the current document." MsgBox Msg, , "Error" End If End Sub Anyone have any ideas on what to do? I have searched Google and the message boards but can't find anything (perhaps I used the wrong search terms). Thanks, Anne P. Tag: accessing outlook contact information in word Tag: 71525
  - 19
    - How can I erase files from my removable disk I would like to delete files fro my removable disk, i.e. drive E Tag: accessing outlook contact information in word Tag: 71521
  - 20
    - Visual Basic I know absolutely nothing about Visual Basic, but I would like to learn. Can anyone recommend a good book for starters? -- Thanks! Mary Lee Tag: accessing outlook contact information in word Tag: 71519
  - 21
    - Replicate information in other form fields I have a document that includes 2 related forms that will be protected for form data entry and distributed. From #2 is an attachment to #1 and includes some of the same information that is shown on form #1. I would like to automate the replication of text so that it automatically appears on form #2 after it is entered on form #1. I tried a calculated field approach but that seems limited to numerical calculations and doesn't seem to like text strings. Any help will be appreciated. -- KMS Technical Solutions Tag: accessing outlook contact information in word Tag: 71516
  - 22
    - Improving the AddRow function in a form I would like to know if the add row function could be improved a little more. I would like to add a control icon to a form that would allow the user to manipulate a table by growing it or shrinking it. I am currently using this code to add a row if the answer is yes. This code duplicate the row and fills in the fields to match the existing row. Sub SpecSheet_AddRow() response = MsgBox("Add Additional Row?", vbQuestion + vbYesNo) If response = vbYes Then Dim rownum As Integer, i As Integer ActiveDocument.Unprotect Selection.Tables(1).Rows.Add rownum = Selection.Tables(1).Rows.Count For i = 1 To Selection.Tables(1).Columns.Count ActiveDocument.FormFields.Add Range:=Selection.Tables(1).Cell(rownum, i).Range, Type:=wdFieldFormTextInput Next i Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, Selection.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro = "SpecSheet_addrow" Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, 1).Range.FormFields(1).Select ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End If End Sub This code has done well until somebody answered yes but meant to say no. Because this is a locked form, they couldn?t delete the added row and ended up sending a quote to a customer with a dead line? I would like to see if the functions in InfoPath can be recreated in VBA. For licensing reasons, InfoPath isn?t available to me in this usage. Here is what I would like to try; When a user is working in any cell on the row of a table. A control icon appears next to the beginning of that row. If the cursor is clicked on the icon, a pull-down menu with a few options appears just below the icon. These options would be to insert a new row above the current row, insert a new row below the current row, remove the current row and perhaps clear the current row. I would like to make the form better, all suggested will be appreciated. Please anotate any code as I'm trying to learn VBA and this helps. Tag: accessing outlook contact information in word Tag: 71514
  - 23
    - Helmut Weber -- Info please I have inherited a number of document template with embedded macro's. The WITH.SELECTION.FIND code that you posted on 2005/07/21 repeats throughout these macro's. We are taking a report that is in multiple paragraph form and converting it to tabbed columns, with BOLD, CENTERED headings; some paragraph text; certain words BOLD. Anyway, lots of manipulation of the text. I've done various types of programming fo over 35 years -- VBA and I have a severe adversarial relationship. To the point: You use the .EXECUTE within the WITH LOOP. The code I have uses either a SELECTION.FIND.EXECUTE or SELECTION.FIND.EXECUTE . . .REPLACE ALL immediately AFTER the END WITH What's the difference? Also, can I use IF-THEN-ELSE constructs within the WITH statement depending on certain conditions. I'm trying to transform this WITH LOOP into a SUB FINDREPLACE(Param1, Param2. . .) construct. Thanks Phil Montgomery Tag: accessing outlook contact information in word Tag: 71513
  - 24
    - Range.MoveUntil is not doing what I need...Any suggestions? Hi All, I have a document that contains multiple instances of the following tag: [Test ID=xxxx] (where xxxx is a numeric variable). Each "Test" tag signals the beginning of a section that I need to perform some procedures in. In some instances, I need to remove a Test if that ID has already been worked. What I am trying to do for those cases is locate the [Test ID=xxxx] tag and set the "[" as my Range.Start. I then need to find the next instance of "[Test ID=" and set the "[" as the Range.End. Once I have that Range selected, I can delete it and move on. I was hoping MoveUntil("[Test ID=") would do the trick, but it does not work like that. As you know, it just stops at the next instance of "[". Does anyone have any suggestions on how to find one item, set that as the start and then find the next item and set that as the end? Thanks! Tag: accessing outlook contact information in word Tag: 71512
  - 25
    - Word File Format Hi, I am trying to build a document indexing tool for a .NET application. I am fine with the indexing bit and but I cannot find any real information on Converting word documents into Text. I do not want to use the word object and application as I will be indexing around about 40,000 word documents. So I want to be able to read the file directly and extract the text and index. Does anyone know where I can find out about the word file format or can point me in a direction were I can find out more information on this. Thanks for any help, James Tag: accessing outlook contact information in word Tag: 71511

Hi,

I'm using Word and Outlook 2003. In previous versions, I was able to use
the code: WordBasic.GetAddress, in a Word user form to access the Outlook
contacts to choose an address. This code is not recognized by Word/Outlook
2003.

Does anyone know the equivalent of the code, WordBasic.GetAddress, for
Office 2003?

THANKS!
--
kurt

Top

Re: accessing outlook contact information in word by Mark

Mark
Thu Jul 28 01:19:01 CDT 2005

Application.GetAddress

See
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd11/html/womthGetAddress1_HV05210864.asp
and
http://word.mvps.org/FAQs/InterDev/ControlOLFromWord.htm

Regards
Mark Dormer

"kurt" <kurt@discussions.microsoft.com> wrote in message
news:E9CAC733-B8CF-4C19-BEF6-A7637CB35423@microsoft.com...
> Hi,
>
> I'm using Word and Outlook 2003. In previous versions, I was able to use
> the code: WordBasic.GetAddress, in a Word user form to access the Outlook
> contacts to choose an address. This code is not recognized by
> Word/Outlook
> 2003.
>
> Does anyone know the equivalent of the code, WordBasic.GetAddress, for
> Office 2003?
>
> THANKS!
> --
> kurt

Top