Create custom toolbar controls

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Outlook object not being created When I ran the following code the first couple of times it created the object, but now it won't. My objective is to create an e-mail with variables defined previously in macro, and not sending it right away. Any suggestions? (The reference library Outlook item is check-boxed in the menu.) Dim objOutlookApp As Outlook.Application, objItem As Outlook.MailItem With objItem .To = strEmail .Subject = strCo & ", " & " " & strJ .Body = "message" .Display End With Selection.InsertFile FileName:=strNew, Range:="", ConfirmConversions:=False, Link:=False, Attachment:=True Set objItem = Nothing Set objOutlookApp = Nothing -- Bryan Tag: Create custom toolbar controls Tag: 87549
  - 2
    - Fonts for Word "Fields" when setting values We have a java application in which we create custom fields in MS Word using JACOB. On user initiation the fields are populated with values. If after creating the fields and change the FONT to a BARCODE font and when the fields are getting replaced with values, the BarCode font is not retained. The values are shown in original font. This happens only in Word 2003. The Bar Code font is retained for field values in Word 2000. Is there any setting or property to be set so that Bar Code fonts are retained for field values. The machine has Bar Code fonts installed. Thanks in advance for any suggestion. Tag: Create custom toolbar controls Tag: 87546
  - 3
    - Multiple styles in a selected range I'm using Word 2000 on XP Pro. My problem arises when I select a range that contains multiple paragraph styles, and attempt to determine whether or not all the styles are the same. Any code like objRange.style results in this error: Run-time error '91': Object variable or With block variable not set The MSDN Library says: When you return the style for a range that includes more than one style, only the first character or paragraph style is returned. Why doesn't this happen? Am I reading this wrong? Is it a Word 2000 thing? Bear Tag: Create custom toolbar controls Tag: 87544
  - 4
    - Designate Path when using SaveAs How do I designate the path when using SaveAs. I found that it saves it to My Docs. How do I change the Path, while telling word that it's a text file format at the same time? Thanks. Tag: Create custom toolbar controls Tag: 87543
  - 5
    - TOC helper - replace hidden paragraph with style separator I work at a help desk with a large number of Word users and occassionally run into the problem where users either are not familiar with using the style separator (to assist in creating run-in headings so that only the heading, not the body text, shows up in the TOC) or are older documents that used hidden paragraph marks. Since multiple people can work on a document, we sometimes end up with documents that partly use style separators and partly use hidden paragraph marks - VERY confusing. So I created the following script to replace the hidden paragraph mark with the style separator (for Word 2002 & above). Although this code has been working well for the past several days, we are still testing it. If you would like to use it, PLEASE PLEASE PLEASE save the document you are going to try it on first. Although I cannot imagine why it would cause any problems, it is designed to replace items in the document, so there is always the chance I may have overlooked something. Mike Sub HiddenParaToStyleSep() Selection.HomeKey Unit:=wdStory ' Find hidden paragraph With Selection.Find .ClearFormatting .Text = "^p" .Font.Hidden = True .Forward = True While .Execute ' If hidden paragraph is Style Separator, do not replace If Selection.Paragraphs(1).IsStyleSeparator = False Then ' Replace hidden paragraph with auto color, unhide With Selection.Font .Hidden = False .Color = wdColorAutomatic End With ' Insert style separator Selection.InsertStyleSeparator End If Wend End With End Sub Tag: Create custom toolbar controls Tag: 87542
  - 6
    - Find and Replace only once using .Find Can you only find and replace once using .Find? If I have multiple words to find and replace, is there a better way? Here is my code: Option Explicit Set myrange = appWord.ActiveDocument.Content With myrange.Find .Text = "SiteIn" .Execute replacewith:=SiteInfo & "." & SiteScheme .Text = "SiteBad" .Execute replacewith:=SiteInfo & "_" & SiteScheme & "bad" .Text = "SiteDiscard" .Execute replacewith:=SiteInfo & "_" & SiteScheme & "dis" .Text = "SiteNum" .Execute replacewith:=SiteInfo End With Tag: Create custom toolbar controls Tag: 87539
  - 7
    - Macro to detect manual style overrides (e.g. StyleName + Bold) Hello, I need a diagnostic macro that detects manual style overrides in a document. These style overrides are shown in the Styles and Formatting task pane as "<StyleName> + Bold", for example, if 'Formatting in use' is selected. Apparently, they do not belong to the Styles collection, but I don't know how to address them. Does anybody know how I could list them using a macro? Thanks in advance Heike Tag: Create custom toolbar controls Tag: 87538
  - 8
    - Inserting "notes to pages nn to nn" in endnote page headers Is there any way of inserting "notes to pages 32 to 55" in the header for the endnote pages (where the first endnote that appears on the page occurs in the text at page 32 and the last to appear on the page occurs in the text at page 55)? 1. Is there any way to do this without writing VBA code to do it? 2. If the answer to 1 is no, does anyone have some sample VBA code to do this? Thanks! Tag: Create custom toolbar controls Tag: 87537
  - 9
    - Inserting HTML into Word (Word 2003) Hi, I have a situation in which I need to copy the contents of an HTML, complete with its CSS files and images, into a Word document. The simple solution is to use the command Selection.InsertFile which is equivalent to choosing File / Insert from the menu. However no matter what parameters I give to Selection.InsertFile, I keep getting the same message: "Recording Clipboard style sheet will require copying many styles. Do you want to use Normal style instead?" The correct answer to this question is NO because it preserves all the formatting. However I can't find any switch to make this dialog disappear and answer NO. How can I close this dialog while answering NO programmatically? Thanks, Arie Tag: Create custom toolbar controls Tag: 87536
  - 10
    - Find & Replace Iâ??m using Windows XP and Word 2003. Word has a Find and Replace feature. How do I implement this to find all sequences of letters, symbols, and numbers between a specific word ,â??Startâ??, to the end of the line so that it can be replaced with a new set of letters, numbers and symbols. Example: Start <Appendix 12A> Tag: Create custom toolbar controls Tag: 87530
  - 11
    - I had Microsoft Office 2000. Can I get it back? Last year my computer crashed so I had to buy a new one. I lost my Microsoft Office 2000. Is there a way of redownloading this software without having to repay for it a second time? Tag: Create custom toolbar controls Tag: 87527
  - 12
    - Exporting This Discussion Is there anyway to export all the content of these discussions for offline reading/printing? Thanks! Tag: Create custom toolbar controls Tag: 87521
  - 13
    - Delete Table Rows (Blank) Macro Question Hi all, I have this macro delete table rows blank which does not work on a table after I make changes to a row such as split cell 2 columns or insert rows using CTRL ALT I - am I missing something? Is there a macro that can delete blank rows regardless of how they are inserted. If you just create a blank table using Insert Table, ie drag mouse across number of colums rows and type in some rows it is fine and deletes blank rows. The moment you add rows or split cells on a row it gives this error: Runtime error 5941 the requested member of the collecton does not exist (after running). Can I refine it to acknowledge blank lines inserted using CTRL ALT I and split cells in a blank row? Is it viable? What am I missing? Thank you to whomever can assist. Public Sub DelTableRowsBlank() Dim flag As Boolean, I As Long, j As Long, atable As Table Set atable = Selection.Tables(1) With atable For I = .rows.Count To 1 Step -1 flag = False For j = 1 To .Columns.Count If Len(.Cell(I, j).Range) > 2 Then flag = True Exit For End If Next j If flag = False Then .rows(I).Delete End If Next I End With End Sub Tag: Create custom toolbar controls Tag: 87515
  - 14
    - OutPersonals OutPersonals http://outpersonals.com/go/g671669 Tag: Create custom toolbar controls Tag: 87510
  - 15
    - Deleting bookmarks I am inserting some text via vba from Acces into a Word doc. It is working well except afterwards teh book mark is deleted. Any thoughts?? TIA Bob Tag: Create custom toolbar controls Tag: 87509
  - 16
    - OutPersonals OutPersonals http://outpersonals.com/go/g671669 Tag: Create custom toolbar controls Tag: 87508
  - 17
    - =?utf-8?B?Rm9yIGVhY2ggYml0IG9mIGRvY3VtZW50IGRvID8=?= Hi Marc In a general sort of way, you can For each para in ActiveDocument paras 'Your code here Next To "walk" the paragraphs in a document "Story". Use para.Range.Information(wdWithinTable) to determine whether you're in a table. Look up "StoryRanges" and all related/linked in the VBA Help if you need to deal with anything besides the main body of the document (or look it up anyway, to get an understanding of what it means). -- Cindy -----Original Message----- From: Marc Hillman [mailto:7owsx1j02REMOVE@sneakemail.com] Posted At: 24 June 2006 15:35 Posted To: microsoft.public.word.vba.general Conversation: For each bit of document do ? Subject: Re: For each bit of document do ? I'm trying to check that certain elements appear in a certain order, for instance that every table is preceded or followed immediately by text of style "Caption". I feel I should be able to iterate through something and hit a table and then a paragraph (and check its style). It causes me to wonder, if I wanted to render a word document in some strange way (eg I wanted to write my own HTML exporter) how could you do it? I don't understand how I could find all the different pieces sequentially and export them. (Delete REMOVE from my e-mail to reply direct) Tag: Create custom toolbar controls Tag: 87505
  - 18
    - Web formated calendar to unformated Word text Ops! Perhaps I should have posted this here instead of on 'microsoft.public.word.programming' (Not sure what the diff is) Reqd: a Word version of part of a calendar on a club website for those without web access The following pastes the copied section of the four column calendar Sub PasteUnformatedText() Selection.PasteAndFormat (wdFormatPlainText) End Sub but I now need to do something to make dates stand out A hanging indent is no good unless there were some way of identifying and changing the paragraph marks which do not precede the dates and changing them to manual line breaks Is there some way of identifying the dates and adding a second paragraph mark before them? A separate issue is to add a semi-colon between cells (the four columns are 'Date', 'Venue', 'Event/Name' and 'Info'. Without some break the line runs into one and does not read well If the date/time could be identified it could be emboldened - it is always dd.mm.yyyy hh:mm Here are a few lines of the unformatted text - any help you gan give will be much appreciated Francis Hookham Date Venue Event/Name Info 25.06.2006 10:15 Castle Camps Sunday Walk Sunday Walking Group - 4.5 mile walk from/to The Cock, Castle Camps, nr Haverhill Contact: Bernard Townshend 27.06.2006 13:00 University Arms Hotel Lunch meeting Lunch and The Cambridge Club's Presidential Handover followed by Stephen Kay, managing director Cambridge Water Company speaking about 'Developments at CWC' Host: Charles Hewitson Cashier: Robert Raywood Reception 1: Robert Ransom Reception 2: David Ridgeon 01.07.2006 Coventry RIBI handover RIBI Presidential handover in Coventry 02.07.2006 Cambridge District handover District 1080 Handover hosted by the Rotary Club of Cambridge at Wolfson College - Nigel Neville is due to become the District Governor Contact: FEC 04.07.2006 13:00 University Arms Hotel Lunch meeting Host: Paul Auton Cashier: Victor Bugg Reception 1: Francis Hookham Reception 2: Roger Asbury 04.07.2006 18:00 CUP Council meeting Council Meeting at CUP, Shaftesbury Rd Tag: Create custom toolbar controls Tag: 87503
  - 19
    - For each bit of document do ? How can I go through a Word document sequentially, by paragraph, field, table, etc ? I'm looking for the construct Paragraph followed by Table followed by Paragraph. I can iterate through the paragraphs collection, or through the tables collection, but how do you iterate through all pieces in order ? Delete REMOVE from my e-mail address to reply direct. _______________________________________ Marc Hillman, Melbourne, Australia web: http://users.bigpond.net.au/mhillman/ Tag: Create custom toolbar controls Tag: 87497
  - 20
    - File properties Hi folks I want to change the "Hyperlink Base" in the File -> Properties window programatically. How can I do this? I am using the word interop in C#, but information on how to do it in any other way would be great. Thanks Will Tag: Create custom toolbar controls Tag: 87490
  - 21
    - How to find style separator code through VBA? In our company, we have a number of older documents that used hidden paragraph marks instead of style separators. The purpose of both is to separate headings from body text for easier generation of TOC. I am finding a number of documents that have a combination - hidden paragraphs marks & style separators - and it gets confusing to view these documents when hidden paragraph marks turned on (pagination will change). While my routine works, I do not like the fact that hidden paragraph marks & style separators do not appear to be distinguishable programatically; visually you can tell the difference because style separators have a light dotted frame around them. I was wondering if there is a way to distinguish the style separator from other codes. TIA, Mike Sub HiddenParaToStyleSep() Selection.HomeKey Unit:=wdStory ' Find hidden paragraph With Selection.Find .ClearFormatting .Text = "^p" .Font.Hidden = True .Forward = True While .Execute ' Replace hidden paragraph with auto color, unhide With Selection.Font .Hidden = False .Color = wdColorAutomatic End With ' Insert style separator Selection.InsertStyleSeparator Wend End With End Sub Tag: Create custom toolbar controls Tag: 87486
  - 22
    - Reset Graphic Image I am using Word 2003 and am inserting a *.jpg file into the footer of a document. I'd like to "reset" the picture to it's original size because it is being scaled down to 93% because of the 1" margins. Thank you for your assistance. Tag: Create custom toolbar controls Tag: 87485
  - 23
    - List of available Printers Hi, I am running Word 2000 on Windows XP Professional SP2. I have followed the recommendation to call the Windows API enumprinters as per example. However I am getting runtime error 9 subscript out of range. How can I resolve this? Thank You! Tag: Create custom toolbar controls Tag: 87478
  - 24
    - Microsoft word window Tabs I would just like to suggest that you have each new word document open in a tab format like you have on the new IE7. The tabs should preferrably open at the bottom of the word interface and be approximately where the properties bar is (the bar that tell you the size and all the other info about something wehn you run the mouse over it). This would definately give you guys a edge over anything google is planning. Thank you. ---------------- 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=a7992f03-df90-4362-a78a-58f31aa9b945&dg=microsoft.public.word.vba.general Tag: Create custom toolbar controls Tag: 87477
  - 25
    - Identify a formula field I have code to delete bookmarks and unlink fields in a document once the document is completed, as follows: For Each Mark In .Bookmarks .Bookmarks(Mark).Delete Next Mark For Each Field In .Fields .Fields.Unlink Next Field End With I need to NOT unlink a field if it contains a formula, only unlink the field if it is a bookmark type field, but I don't know how to write this code. Thanks for any help. -- singeredel (Julie) Tag: Create custom toolbar controls Tag: 87475
- Next
  - 1
    - attaching document to an email Hi I am attaching a doucment to an email using Options.SendMailAttach = True ActiveDocument.sendmail if I want to add the email address and a subject line, is this possible please? J Tag: Create custom toolbar controls Tag: 87471
  - 2
    - Opening Access Database from Word Hello, I have Word 2003 and Access 2003. I'm trying to write VBA code to open a database from within Word. Can anyone explain why this code works (see below) ... Sub OpenDatabase() ' Opens the Northwind database Dim MyAccess As Object Set MyAccess = GetObject("C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\Northwind.mdb", "Access.Application") End Sub And this code does not work (see below) ... Sub OpenDatabase() ' Opens the MyDatabase database Dim MyAccess As Object Set MyAccess = GetObject("C:\Program Files\Microsoft Office\OFFICE11\SAMPLES\MyDatabase.mdb", "Access.Application") End Sub My database named MyDatabase.mdb resides in the same path as the Northwind.mdb database so I can't figure out why this code won't work. Any assistance would be greatly appreciated. Tag: Create custom toolbar controls Tag: 87466
  - 3
    - global variables for whole project not just when user form is runn Can anyone help me. I've got a template project with 2 user forms. Code has to stop running between using the two user forms to enable the user to add unique information and check statements created to that point, before calculating of each statement occurs. Then the user re-starts the programme, so I'm trying to find a way to retain the variable information contained in the first user form, to be utilised in code for the 2nd user form. I already know about declaring global variables within modules, but I'm talking about retaining variable input for the whole project, over all modules. Tag: Create custom toolbar controls Tag: 87458
  - 4
    - Adding values in formfields I am trying to create a function that will add the values of 2 text boxes based on if the checkbox is true or false. I am using Word 2003 but it needs to work on Word 2000 also. If the checkbox is true then I want the value of Copy divided by Pages If False then I want the value of Copy times the value of Sheets. Currently: Copy, Pages, and Total are all textbox form fields If CheckBox1.Value = True Then ActiveDocument.FormFields("Total").Result = ActiveDocument.FormFields ("Copy" / "Pages") Else ActiveDocument.FormFields("Total").Result = ActiveDocument.FormFields("Copy" * "sheets") Endif Can this be done somehow? Would I have to use something other than textboxes? The users needs to be able to update the formfields with their data. Thanks for looking. Josh Tag: Create custom toolbar controls Tag: 87455
  - 5
    - Version related issue Hi I am trying to pen a file generated by Word 2000 with Word 2003 and I get an error that file may be corrupted etc. This normally shouldn't happen because the Word can certainly read previous versions Additionally, the same program that was able to generate a document is not able to do that any more (this machine has Word 2003 installed and the program was compiled using Word 2000) Any suggestions will be appreciated, Samuel Tag: Create custom toolbar controls Tag: 87438
  - 6
    - Macro Definition on other computers Hi All, I have a macro "TestData" which is created on my machine. I want this macro definition to be available in other machines where word application is installed. Basically other users who are using word documents need to have this macro definition on their computers. How can I port my macro on to their machines? Thanks, satya Tag: Create custom toolbar controls Tag: 87437
  - 7
    - page How can i know the number of page in which i found a selection text? I have to copy from beginning till the page -1 of the currentpage. Tag: Create custom toolbar controls Tag: 87435
  - 8
    - link text field from Word to Access field in database My boss has a Word table where she updates the status of each matter in our office on a regular basis. Although I have explained to her that I have an Access database where it would be more efficient to keep that data, she refuses to learn anything about Access or to do it any other way. Therefore, although it seems backward to me, is there a way to link the text field in Word to automatically insert itself into a particular field on my access database? Any help is appreciated. Thanks. -- S Tag: Create custom toolbar controls Tag: 87434
  - 9
    - Deleting and Recreating a Numbered List I am attempting to create a technical document to consolidate UML use case diagrams within a document. This document has multiple sections, including a section which actors for the use cases are listed. In order to automate the document, I am attempting to protect the document from changes, except via a custom toolbar. The problem I have run into (probably the first of many) involves a simple numbered (outline) list of the Actors listed in the Use cases. When a new actor is added, I want to recreate the list and add the new Actor (or add the new Actor to the end of the existing list). I have inserted a bookmark at a section which will have a numbered list, named "ActorNames", and move the cursor there by calling: ActiveDocument.Bookmarks("ActorName").Select However, I need to be able to select the entire numbered list (if it exists, if not, create a new one), delete it, and recreate it when a new actor is added to the list. Any help would be appreciated. Tag: Create custom toolbar controls Tag: 87431
  - 10
    - How to get Word Header String from within Excel VBA? I have a macro that pulls information from a word file but can't get to the Header string. In word2003, I can get the following vba command to pull the text from the header. The question is how to run this command from within Excel. Working Word VBA Command test = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text Failed Excel VBA Command test = oWord.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text Excel VBA Error: "Compile Error. Methood or data member not found." For reference, I've used the following other commands to run Word from Excel: Dim oWord As Word.Application Set oWord = GetObject(, "Word.Application") oWord.Selection.Find.ClearFormatting With oWord.Selection.Find .Text = "Product/DRD FAM" .Wrap = wdFindContinue End With oWord.Selection.Find.Execute 'Finds Start of EWO Body oWord.Selection.MoveRight Unit:=wdCell Thanks! Tag: Create custom toolbar controls Tag: 87430
  - 11
    - How to pull Word Header string from Excel VBA? I have a macro that pulls information from a word file but can't get to the Header string. In word2003, I can get the following vba command to pull the text from the header. The question is how to run this command from within Excel. Working Word VBA Command test = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text Failed Excel VBA Command test = oWord.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text Excel VBA Error: "Compile Error. Methood or data member not found." For reference, I've used the following other commands to run Word from Excel: Dim oWord As Word.Application Set oWord = GetObject(, "Word.Application") oWord.Selection.Find.ClearFormatting With oWord.Selection.Find .Text = "Product/DRD FAM" .Wrap = wdFindContinue End With oWord.Selection.Find.Execute 'Finds Start of EWO Body oWord.Selection.MoveRight Unit:=wdCell Thanks! Tag: Create custom toolbar controls Tag: 87429
  - 12
    - Change header StyleRef exec timing? You can use StyleRef fields in a header to detect, say, the first and last names on a page of regular text, but if you use the same header on a page containing endnotes, you get only error field results. This is odd because you can, for instance, use Find to search through endnote text. Why is it that StyleRef in a header fails to do essentially the same thing? Is there a way to force the interface to evaluate a StyleRef field in a header on a page containing endnotes? -- J. M. Unger East Asian Langs & Lits Ohio State Tag: Create custom toolbar controls Tag: 87420
  - 13
    - Count of Documents printed In Word: Can I get a number to appear uniquely on each doc to keep track on how many have printed in case of printer error causing stoppage mid run? Tag: Create custom toolbar controls Tag: 87419
  - 14
    - Radio Button ghost when using scroll bar or mouse wheel I've created a MS Word form with approximately 40 radio buttons on it in a table. In testing, I've noticed that when you use the scroll bar or mouse wheel to go to the second page or further, the radio buttons seem to leave a ghost image of themselves on the second page. Does anyone know what causes this and if it can be fixed? Thanks much! Tag: Create custom toolbar controls Tag: 87417
  - 15
    - Word stopping printer I am using WORD 97. I have a routine which adds text to a document and then prints out. The code batches the documents into two print runs. After the first batch have been sent to the printer. A message box is then displayed which confirms that the documents have been printed. For some reason the message box stops the print routine until 'okay' ot 'cancel' button pressed. Is there any way programmatically that this can be prevented, and if so would someone please supply me with a solution. Thanks -- Mark Tag: Create custom toolbar controls Tag: 87416
  - 16
    - Test whether a table is captioned from VB Am developing a VB script in Word 2003 to perform a few quality checks on documents against a few rules. One of my rules is that "All tables and figures must have a caption". How can I check this? Is there any association between table/figure and caption that I can test? (Delete REMOVE from my e-mail to reply direct) _______________________________________ Marc Hillman, Melbourne, Australia web: http://users.bigpond.net.au/mhillman/ Tag: Create custom toolbar controls Tag: 87412
  - 17
    - Can't find Section Break (New Page) when followed by Table Hi, With Jezebel's kind assistance, I have found how to replace Section Breaks with Page Breaks. (Search ^b replace ^m) Are those control codes listed somewhere in Word Help? But I find that a Section Break(New Page) followed immediately by a Table on the next page is not found. Is there something unusual about such a section break which would require me to search for a control other than ^b? Thanks, John Tag: Create custom toolbar controls Tag: 87407
  - 18
    - Wood 2002 capitalizing first letter in line In Word 2002, how do I stop it from capitalizing the first letter of each line? Tag: Create custom toolbar controls Tag: 87403
  - 19
    - Generating email in Word I have code (below) to generate an email in Word, but I get an error: 'User defined type not defined'. I believe it is referring to oOutlookApp and oItem. I can't figure out what the issue is though. Thanks for the help! *** Sub Email_manager() Application.ScreenUpdating = False ActiveDocument.Save 'email report Application.DisplayAlerts = False Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next If Len(ActiveDocument.Path) = 0 Then MsgBox "Document needs to be saved first" Exit Sub End If Set oOutlookApp = GetObject(, "Outlook.Application") If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If Set oItem = Outlook.Application.CreateItem(olMailItem) FileName = ActiveDocument.CustomDocumentProperties("WeekEndingDate").Value Consult = ActiveDocument.CustomDocumentProperties("ConsultLast").Value With oItem .To = ActiveDocument.CustomDocumentProperties("ManagerEmail").Value .Subject = "SCWU (" & Consult & ") & FileName" 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:="Document as attachment" .Body = ActiveDocument.CustomDocumentProperties("ManagerName").Value & "," & vbCrLf & vbCrLf & "Attached is my SCWU for week ending " & ActiveDocument.CustomDocumentProperties("WeekEndingDate").Value & " ." & vbCrLf _ & "Please let me know if you have any questions or comments." & vbCrLf & vbCrLf & "Thanks," & vbCrLf & ActiveDocument.CustomDocumentProperties("ConsultFirst").Value '.Send .Display On Error Resume Next End With Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub Tag: Create custom toolbar controls Tag: 87402
  - 20
    - How do I protect a document out of design mode? I have created a form that I need to send out to business partners. How can I protect the document out of design mode. I tested the form by sending it to another computer and when it was opened up, the design mode was on and they were unable to write or check in the boxes. How can I fix this? Tag: Create custom toolbar controls Tag: 87391
  - 21
    - Write a console application Convert.the input from the console I need help in programming analysis and solutions The question I have is Write a console application that obtains four int values from the user and displays the product. Hint: you may recall that the Convert. To Double() command was used to covert the input from the console to a double; the equivalent command to convert from a string to an int is Convert.ToInt32().If I can ask is the walk troough version and if possible a little laymans term involved. Thanks for the help Dan Tag: Create custom toolbar controls Tag: 87389
  - 22
    - Merge/Combine Word files I need help! I want to combine 3 word files in one big file and keep the formatting. I tried with Copy/Paste, Paste Special, Insert File, Insert Object but I have the following problems: 1. If I use copy and paste the content of second document that I add to the first one is all made Bold and Centered 2. If I try Paste Special and select there Word Document then it keeps the formatting but it is inserting only one page Is there a solution for my problem, a fast one? Thanks in advance, O Tag: Create custom toolbar controls Tag: 87385
  - 23
    - pasteSpecial centers graphics? I suspect this isn't the optimal group to post this question, so if there's a better place, please point me there... I'm developing some training using Powerpoint and Word 2003. I'm supposed to copy the slides in PPT and paste them into Word using a provided macro. The macro includes: Selection.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, _ Placement:=wdInLine, DisplayAsIcon:=False This works just fine, except one thing. The resulting metafile graphic is always a fixed width (605 pixels, not sure where that came from), which is OK. But the paste-as-WMF insists on CENTERING the graphic in the resulting WMF. This is a pain because it means my nicely-formatted slides end up all over the page. I want them all to be left-justified the way they are in PPT, so they line up with the other objects in Word. Is it possible to control the PasteSpecial operation so it doesn't center the WMF? Thanks! Gary Tag: Create custom toolbar controls Tag: 87379
  - 24
    - Copy template I want to put a load of addresses in a shared template folder and set up a macro which calls up a user form so that the secretaries can type in the relevant name and then it can paste in the address into a form or letter. I've tried the below in my user form but its not working - any ideas please? cheers Documents.Open "o:\msoffice97\winword\template" + txtaddress.TemplateName$ + ".DOT" Tag: Create custom toolbar controls Tag: 87369
  - 25
    - How do I change every Source File Links in Word 2000? Is there a Word 2000 Visual Basic Macro that will change all othe the Source File links all at once? When thare are many embedded links, it is very cumbersum to change the Source File one link at a time. Tag: Create custom toolbar controls Tag: 87367

How do you create toolbar controls (besides ordinary buttons), e.g. similar
to the default highlight control, font color control, etc. Visual basic does
not seem to be able to create these.

Top

Re: Create custom toolbar controls by Jezebel

Jezebel
Mon Jun 26 20:04:36 CDT 2006

Check the types of commandbar controls: covered in the Object Browser

"Pc u" <Pcu@discussions.microsoft.com> wrote in message
news:B1353F9D-AA53-4746-973F-6D60F4EDA004@microsoft.com...
> How do you create toolbar controls (besides ordinary buttons), e.g.
> similar
> to the default highlight control, font color control, etc. Visual basic
> does
> not seem to be able to create these.

Top