msgbox html

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - VBA vs. VB6? I'm just curious: how similar/different are VBA and Visual Basic 6? I'm more or less functional in VBA at this point and have just seen a job posting where Visual Basic 6 is a "nice to have". I'm wondering if it would be reasonable to cite my experience with VBA as proof that VB6 would not be a big challenge? Or are they totally different animals? -- Rhino Tag: msgbox html Tag: 81104
  - 2
    - Copying a range from excel into word I have an excel sheet in which there are several named ranges. I would like to write a macro to copy the information, create a new word doc and then paste into the new word doc. Do I write it from excel or from word. How do I control the paste function? Tag: msgbox html Tag: 81101
  - 3
    - font color how can i change color for example font.color = wdColorRed for the text i replace? like this Dim rDcm As Range Set rDcm = ActiveDocument.Range With rDcm.Find .Text = strfind .Replacement.Text = strReplace .Execute Replace:=wdReplaceAll .... end with tia Marco Tag: msgbox html Tag: 81097
  - 4
    - Getting to the end of range Hello I use Range object to insert text in paragraphs. when text is inserted, the cursor still stays at the beginning (at the book mark). Set rBMRange = .Bookmarks("P1_WhatYouMightGetBack").Range rBMRange.Text = Trim(rsMYS!para_text) I want to carry on typing more text from database, without having unnecessary bookmarks. How do I get to end of text, and how do I type carriage return (selection.typeparagraph with selection). Tag: msgbox html Tag: 81089
  - 5
    - Error automatically adding bookmarks in Word 2003 Hi, i am having trouble creating a macro that creates a bookmark, then uses the selection as the name. I have written the following macro... Sub AddBookmarkUsingSelection() Dim strSelection40 As String Dim lngBookmarkCount As Long strSelection40 = Left(Replace(Selection, " ", ""), 40) lngBookmarkCount = Application.ActiveDocument.Bookmarks.Count With ActiveDocument.Bookmarks .Add strSelection40, Selection.Range .DefaultSorting = wdSortByLocation .ShowHidden = False End With MsgBox "Bookmark number " & lngBookmarkCount + 1 & " added: " & strSelection40, vbInformation End Sub ... but as soon as i run it, it gets to the '.Add strSelection40, Selection.Range' range then stopps with an error: 5828 - Bad bookmark name. If i analyse the contents of the variable strSelection40 in the Immediate window it confirms that the string contains no blanks. If i then assign the same string value back to the string, the macro runs as required, see Immediate below: ? strSelection40 Mainnut strSelection40 = "Mainnut" Does anyone know a workarround for this? Thanks in advance. Mark Tag: msgbox html Tag: 81088
  - 6
    - Totaling Columns I have a document that i am in the process of formatting, however i need to total up columns of data. I know where the bottom on the data will be and can activate the cell either at the last column with data or the column below this. this action is then repeated within my loop. Can anyone help?? Tag: msgbox html Tag: 81085
  - 7
    - Can i change the Expansion Pack Dyanamically for diff Templates? Hi, I am working on WORD 2003 Smart Document Solutions. I am using Vertigo Managed Smart Document wrapper. Is it possible for me to change the XML Expansion pack dyanamically based on the template i open, If i have multiple templates on the same machine. I want to know if this can be done? Tag: msgbox html Tag: 81084
  - 8
    - Is there a mouseover VBA event I can use to tickle a hot spot comm Good morning and happy VD: In Excel, I can insert a comment into a cell, and excel puts a little red flag in the corner of the cell, and you can mouseover that flag and see the comment. Does anyone know how to make a "hot spot" in word such that when you mouseover a flag, it displays some text not visible otherwise? I already know how to insert comment in word and then do the show-hide trick, but then you see all the junk in the entire document, which is not the behavior we desire. Thanks in advance for any suggestions. -- Ron Ehrlich -- Ron Ehrlich Tag: msgbox html Tag: 81077
  - 9
    - VBS sript to remove menu items Hello, all: We have recently installed ADOBE ACROBAT 7.0. Hard-coded into one of their DLLs is an instruction to add the 'Adobe PDF' and 'Acrobat Comments' menus to the WORD Menu Bar. Short of uninstalling part of the product, there is no way to stop Adobe from adding these menu items. Is it possible to run a simple script that removes the ADOBE menu items when WORD starts up? Or would a macro be better? Right now, I'm manually removing these menu items whenever I start the application. Thanks! Mike Tag: msgbox html Tag: 81073
  - 10
    - Macros disappearing Can someone direct me to an easy to read article on transporting macros with your document. I have written on several occasions about this project and keep getting more frustrated. Latest.... I have a large forms template with many macros in it. When the template is accessed as the basis for a new word document some of the macros disappear. I made sure all of the macros were in the template by going to the organizer and copying them over. Security is set to low and when the form was first created...it worked great. It has however been through several iterations and passed from person to person through email....which I stopped them from doing because I think server rules were stripping the macros. I need to get this project finished and assure the endusers that they will have the macros needed to make the form work. I would appareciate any advice you can give. The endusers will need to email completed forms to each other, because they may use that form with minor content changes as the basis for another study, etc. Tag: msgbox html Tag: 81066
  - 11
    - How to find differences in images while comparing 2 word documents Tag: msgbox html Tag: 81062
  - 12
    - i have a major problem hey i need to get a document that was replaced during saving this project is due 2/16/o6 so i really need ur help Tag: msgbox html Tag: 81055
  - 13
    - cannot activate product? Hi um i was about to activate the office 2003 product when all of a sudden I get this message ( Your installation cannot be activaged because you have activated up to the imit for you product key). i would like to know what they are talking about Help please Thank you. Tag: msgbox html Tag: 81053
  - 14
    - AttachedTemplate is missing...please help me find it! Hey everyone, I am trying to change the AttachedTemplate property of a document using C# and the office2003 PIA. in VBA, the property is there, and no problem using it. in C#, with the referances to the com dll, the document object doesnt have the property! I saw tons of code samples in C# using that property, so I must be doing something wrong. my project does not compile! help! Tag: msgbox html Tag: 81050
  - 15
    - how to run a macro in another active document Is it possible to have a button on my custon toolbar run some code in another document that is open. the other document that has the code is called "Schedule.dot". The code is sub Finder() thanks, ck Tag: msgbox html Tag: 81037
  - 16
    - creating a taskpane Is there any examples of how to create your own taskpane. Is would serve much better than a toolbar for me. I'd like to put some links on it to run different macros. You you customize this new taskpane like changing the font size and color? thanks, ck Tag: msgbox html Tag: 81035
  - 17
    - How do I capitalize the letter following "Mc" or Mac" in a name? Mail merging from an Excel list with names in all caps, some caps and all small. First, used "PROPER" in Excel to convert names to standard initial capital letter, the rest small. How can I then capitalize the letter following "Mc" or "Mac" in Scottish names? Tag: msgbox html Tag: 81034
  - 18
    - VBA access to Header references ? I am writing a macro that translates Word documents to PmWiki format. I want to convert cross-references to internal page links. I find no information about any collection of the existing references. The only information I find is about how to insert new references. Any ideas ? Tag: msgbox html Tag: 81032
  - 19
    - Getting the actual footnote/endnote symbol I am writing a macro to translate Word documents into PmWiki format. I want to get the actual character Word displays for as the footnote or endnote symbol (e.g. *, =87). Does the Footnote/Endnote object have a secret property with this information ? Can I at least access the Word function that returns the symble given the index and format ? TIA Tag: msgbox html Tag: 81030
  - 20
    - Deleting a Macro from a VBS Script I have a large number of documents that have a digitally signed macro in them. I am attempting to mass-delete this macro from the documents. I created a VB Script which searches the given directory, instantiates a Word Object and opens each file one at a time. How do I delete a macro if I have a Word.Document Object and I know the name of the macro? My current VBCode is attached. Thanks in advance for any help. -Jim -------------------Begin Included VB Script----------------- 'Set Type of Files To Act Upon DocumentType="Microsoft Word Document" 'Generate Objects for Filesystem, Folder, and Files within the current folder Set FileSysObj = CreateObject("Scripting.FileSystemObject") Set FileSysFolder = FileSysObj.GetFolder(FileSysObj.GetAbsolutePathName(".")) Set FileSysFiles = FileSysFolder.Files Set Word = CreateObject("Word.Application") Word.Visible = True 'Loop through each File In the Folder For Each ObjFile in FileSysFiles If (objFile.Type = DocumentType) Then Doc_Name = FileSysFolder & "\" & objFile.Name Word.Documents.Open(Doc_Name) 'INSERT CODE TO DELETE MACRO AutoOpen Word.Documents(Doc_Name).Save() Word.Documents(Doc_Name).Close() End If Next Word.Quit --------------------End Included VB Script ------------------------------------ Tag: msgbox html Tag: 81029
  - 21
    - toolbar button running a macro in a different document Is it possible to set the .OnAction property of a toolbar button to run a macro in a different Word document that is open? The Document name is "SP Template" that contains the macro I want to run. thanks, ck Tag: msgbox html Tag: 81026
  - 22
    - Macros have disappeared All my macros have disappeared. When I open the list it is empty and opening VBA it is empty as well. Normal.dot is still in the right place. It will be many hours work creating them all over again. Any suggestions how I might get them back and what the cause might be? Thanks Dudley Tag: msgbox html Tag: 81024
  - 23
    - different letterhead layout I have created a layout for the letterhead of the company I work for. I created it where the logo and address are right aligned. There are also 3 more partner logos below the company logo and address(also right aligned). The logos are seperated from where I want to control where the text goes via a vertical line. I do not want anyone to be able to edit (meaning screw up) the layout when I send it out to the franchises. I know about inserting headers and footers and keeping them behind the text, but about a situation like this? I appreciate your help. Also, the layout is also saved as an indesign file, pdf, and a jpeg. Maybe I can set a background image, but can you do that for print and not only web? Tag: msgbox html Tag: 81019
  - 24
    - re-order a color-coded document Hello everybody, I have a huge Word document with mixed color-coded sections (usually paragraphs). I'd like to have a macro to re-order the document based on the colors (for example: all the red paragraphs, followed by the greens etc.). I am thinking to a macro starting from the beginning, cutting each paragraph, evaluating it for the color, and pasting it at the end of the document in a specific section. Can anybody point me in the right direction? (Existing macros, commands to evaluate the format etc.)? I'd also like to put the document back like it was, but I don't know how to do it (especially after modifications...). Thanks in advance for your help Giovanni Tag: msgbox html Tag: 81016
  - 25
    - Subdocuments.AddFromFile behavior I have created a set of macros that use the master/subdocument functions to create and manage multi-chapter documents. These have worked fine (with minor modifications) since Word 97. As suggested in the subject line, I use the Subdocuments.AddFromFile method to insert subdocs into the master document. Because, the individual chapters use a different template than the master document, the user normally gets a message box notifying her of this fact (answer OK). Also, because the two templates have the same set of styles, another message box is displayed asking whether the styles of the subdocument should be renamed. I tell my users to answer "No to All" so that the styles from the master document are used throughout. This functionality has worked consistently until some of my users upgraded to Office 2003. Now, when they insert a new chapter (subdocument) file, these message boxes do not appear, and the styles from the subdocument are renamed, resulting in multiple versions of the same style in the document. The odd thing is that I also use Word 2003, and, on my machine, the macro functions as it always did. I cannot see any obvious differences in the Word settings between my machine and the others. Does anyone know what might control this behavior, either within Word or in the VBA environment? Any suggestions as to how I can make sure styles in a subdocument are not renamed? Tanks. Rick Martin Tag: msgbox html Tag: 81014
- Next
  - 1
    - Macro security settings? I just helped a coworker this morning who couldn't run a macro I wrote. Her security setting was High. She set it to Medium, and the macro ran fine. So now I'm wondering if I should put this into an Add-In, so she can run it with security on High. I stopped, because I'm that familiar with this, and I'm not really sure that Add-Ins run on High. So I set _my_ security to High. But my regular macros in Normal.dot still run! Why? And _will_ Add-Ins run on High security, if "Trust all Add-Ins" is checked? Ed Tag: msgbox html Tag: 81011
  - 2
    - Creating a new word document If I'm running code from a word doc. how do I create a new word document (Word XP). Then how would I copy strData to that document. Sometimes I need to make strData Bold Thanks, ck Tag: msgbox html Tag: 81007
  - 3
    - How to find duplicate data in an array I have a string arrary Schedule(Names, Info) There are about 100 names in the array, but some of them are duplicates. How can I debug.print each Name, then the info that goes with it, and if it has a duplicate Name in the array, the info from that part also. The array is not sort in any way thanks, ck Tag: msgbox html Tag: 81006
  - 4
    - Macro Director Won't Display I can create macros which are automatically stored in the templates directory but I can't view this directory from Windows Explorer. Does anyone know why? Tag: msgbox html Tag: 81001
  - 5
    - DSO Framer Questions I now am using DSO Framer control, now wants to control for this increases one method, but this method is wants to realize in the current documents inserts one picture, now does not know how wrote thanks! Tag: msgbox html Tag: 80999
  - 6
    - Delete text in first cell of table in footer My situation has changed a bit since my last post. Issue: I may have several sections in a document that may have a different first page footer and additonal sections that may not. Every footer however will have a table consisting of 3 columns and one row. The first column will always contain Page ? of ? field code, a date and time field and document path and file field plus some text. The second column will have a page number. I want to delete everything ONLY in the first cell in every section in every footer. I think I am complicating the issue with my old code. Here is my new code which is not even selecting in a footer but rather stays in the document text. Here is my simplified code (which certainly does not work!) Dim oSec As Section For Each oSec In ActiveDocument.Sections With oSec.Footers(wdHeaderFooterPrimary)'I want this to be all footers not just primary Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 End With Next oSec I am using Word 2003. Thanks for any help -- CLG Tag: msgbox html Tag: 80990
  - 7
    - How do I remove Redaction form my word program? I want to delete the "redactio"n upgrade from my word 2003 program. Does anyone know how to go into the registry? Thank you, Jay Tag: msgbox html Tag: 80983
  - 8
    - Including graphics in Access to Word merge I have a routine that creates a standard letter to a variety of people. The routine uses a Word template that contains doc properties to receive the content of fields such as â??nameâ??, â??addressâ??, â??Todaydateâ?? etc. At the end of the routine, the fields are unlinked. I would like to insert a signature .jpg file that would vary according to whether I have addressed the recipient by their first name or their title and surname. I have experimented with INSERTPICTURE, but only managed to create an empty graphic box. Is there a work round? Help gratefully received. Tag: msgbox html Tag: 80964
  - 9
    - Macro to remove date field, page number field as well as file and path name field. These fields are located in the first cell of a one row table located in every footer in every section (also first page footer exists). How can I delete all of these fields in a macro? I appreciate any help regarding this. Using Word 2003 -- CLG Tag: msgbox html Tag: 80955
  - 10
    - VB to Insert Thumbnails I'm trying to develop a macro that will insert all images into a Word Table to allow comments to be entered for each image. I plan to resize the images to thumbnail size, and hope to be able to have two columns of photos, with a comment column next to each (4 columns total). I assume this is not too complicated, but am hoping someone can give me a head-start. I just want something that will grab a copy of all JPEG files in a given folder, and insert them one at a time into the table. I'm thinking that I would got right to left, then down, so the first image would go in cell A1 (using Excel nomenclature), the second in cell C1, the third in A2, and so on. I assume there's a collection I could use to cycle through all files with an exention of JPEG, right? Can anyone give me any tips on doing this. If possible, I'd really love to get a shell of a program that I can then tweak. Thanks in advance for any ideas. Todd Tag: msgbox html Tag: 80948
  - 11
    - Module 1 v New Macros Hello I've just noticed that in my doc with my macros, they seem to be in two places, Module 1 and New Macros. Besides solving the mystery of how they got themselves separated, I'd like to know if I can get them back together while keeping the links between macros and my special toolbar. Thanks in advance Dave Neve Tag: msgbox html Tag: 80945
  - 12
    - Need help sizing table columns correctly I need some help getting a macro working exactly the way I want. I've looked in the Help but can't quite figure out what I need to do. I'm creating a series of small tables, that will appear one after the other. Each table will have two rows. The first of the two rows will have 4 columns, the second row will contain only one column. I'd like each table to use all of the available width between the left and right page margins, which are set at 60 points each. I want the first three columns of the first row of each table to have a specific fixed width. I'd like the fourth column of the first row of each table to get whatever space is left over after the first three columns have been written. The second row of each table should get the full available width between the left and right page margins. This is my current sub for creating the table and setting the desired column widths: ================================================================= Sub createTable() 'Create a two row, four column table. Set newTable = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:= _ 4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed) 'Format the table. Set the column widths and merge the cells on the second row into a single cell. With newTable If .style <> "Table Grid" Then .style = "Table Grid" End If .AllowAutoFit = False .PreferredWidthType = wdPreferredWidthPercent .PreferredWidth = 100 .ApplyStyleHeadingRows = True .ApplyStyleLastRow = False .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = False 'Set widths of columns (in inches) .Columns(1).Width = InchesToPoints(1.1) .Columns(2).Width = InchesToPoints(1.2) .Columns(3).Width = InchesToPoints(1.7) .Columns(4).Width = InchesToPoints(3.2) 'Merge the cells on the second row into one cell .Rows(2).Cells.Merge End With 'Make sure table isn't split across pages. Selection.Tables(1).Select With Selection.ParagraphFormat .KeepWithNext = True End With End Sub ================================================================= This _almost_ does what I want but there are two things that I don't like: a. "AutoFitBehavior:=wdAutoFitFixed" in the 'set' statement and ".AllowAutoFit = False" seem to contradict one another; the 'set' seems to be saying that I should use AutoFit while the 'with' seems to turn it off. Should the 'set' be written differently to prevent the columns from ever having had the ability to resize themselves? b. I want the widths of the first 3 columns on the first row of each table to be fixed at the sizes shown. I want the 4th column to automatically get whatever space is left between the 3rd column and the right margin without first having to calculate an actual length in inches. I thought that by leaving the width of the 4th column unspecified, it would get all of the remaining space but, in fact, it gets quite a bit less than the available space, with the result that the table is narrower than it needs to be and the right margin is much bigger than I want in the area where the tables are written. How can I get that behavior? I've looked in the Help but I must be searching on the wrong keywords because I can't find a clear answer to either problem. I was going to do some 'trial and error' with the width of the 4th column. I erased the line after the "=" on the line that sets column 4's width but the other options never appear. I was hoping to see something like "UseRemainingSpace". Shouldn't I be getting a list of options when I do that? If yes, I must have something wrong in my VBE settings; can someone tell me what I need to turn on? If you can help me solve these last two problems, I think my document will be absolutely perfect instead of just 98%. -- Rhino Tag: msgbox html Tag: 80943
  - 13
    - Identify the page you are on Hi, I'm trying to write a bit of code that will obtain the page number that the cursor is currently on. Can anyone help? Thanks. Tag: msgbox html Tag: 80941
  - 14
    - Offer Word with "manual" type mode option without auto format The auto format is very aggravating to me an many people I talk to. We used to use word perfect which was much easier to use , at least in its earlier versions. Most of us (older users) do not have time to spend learning a lot of how to use what should be a simple program that we can just use instead of spending a lot of time learning how to program a typed in document. A full "manua" option should be offered so that we can type in what we want without the program changing or "correting it for me ." Because of limited funds, I often do not have access to a secretary that might know how to format a Word document. I often have to do my own typing of documents and I am ( along with others) extremely frustrated with the Word auto formating and how it changes something back after I try to change it or it won't let me change something on the document. I learned to type in the 1960's and I would like to be able to just type. The program should have a very simple method of programing features such as "auto return" etc. I would be more than happy to discuss this in greater detail. I believe you would have a lot more happy users if this would be offered. As I said, many people I talk to are frustrated with Word. We use it because it seems to have become the standard format for most users. When I have to stop and try to go into help to try to figure out what to do, I waste time that I don't have and often can't easily find what I need. Again I mention the high levels of frustration me and many of my coworders have with Word. We had a hard time getting several staff members in my office to switch from word perfect to word. Anything you can do soon to make this an option would be greatly appreciated. ---------------- 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=34ea0d5b-9ccd-4825-a5b7-487eea09c806&dg=microsoft.public.word.vba.general Tag: msgbox html Tag: 80936
  - 15
    - starting VBA fron any of the MS office app cause this app to end Hi, I have beed suggested to post my problem here. I have recently done a fresh install of MS Windows XP SP2 with all the last windows update I have installed .Net Entreprise 2003 and MS Office 2003 Pro Every time i am trying to launch the VBEditor for any of th office app, i return on my desktop without any warning :( Any idea about this problem ? Any help will be greatly appreciated. Thanks for your help Tag: msgbox html Tag: 80931
  - 16
    - Need to refine simple code ending in Wend Hello Helmet gave me some code as usual and I have managed to create a second macro from the original to handle characters instead of words (one small step for man, one gaint leap for nevekind) The macro is a follows _____________________________________________ Sub GOL() ' GOL Macro (Go one letter) ' Macro créée le 11/02/2006 par Dave Neve ' Dim l As Long Application.ScreenUpdating = False ActiveWindow.View.ShowHiddenText = True l = 1 With Selection.Cells(1).Range While .Characters(l).Font.Hidden = False l = l + 1 Wend .Characters(l).Font.Hidden = False End With ActiveWindow.View.ShowHiddenText = False Application.ScreenUpdating = True End Sub _____________________________________________________________________________________________ The problems comes when I reach the end of the last word but don't necessarily know as I can't remember how many words are in the cell. I click on the macro again and nothing happens, probably cos there is a space character. But the next click is 'fatal'. There is an error that the 'collection object'(not sure of exact term in English) can't be found and worse still, this seems to trigger Word to activate 'show masked text' in the whole table which I then have to untick manually. Can anyone help please? Thanks Tag: msgbox html Tag: 80928
  - 17
    - macro effect on browse control button I have created a macro that runs through the sections of a document and adds a footer to each page. A side effect has been that the "browse" control that is located just below the vertical scroll bar changes from "previous page / next page" to "previous section / next section". This is a minor annoyance for users since they can change it back again, but I am wondering if there is any way to reset this programmatically to its default, since it does not appear to be a customizable option that can be set anywhere in Word - tools - options thanks, -- Steve Paul Tag: msgbox html Tag: 80921
  - 18
    - Copy all styles starting with certain characters? Generic user na I can record macros, but know zero VBA. Instead of a macro that copies certain styles from a template into a document, how can I indicate copy all styles that start with certain letters - in this case BP? Also, since the template will be stored in the user's emplate path, how can I indicate some sort of generic user name? I don't want to have to edit the macro for every user . Thank you in advance, I know these are basic questions. Boy, do I feel dumb!! Tag: msgbox html Tag: 80915
  - 19
    - All search & replace lines needed? I am doing a long Word search-and-replace macro in 14-line chunks exemplified as follows: With Selection.Find .Text = "del^13" .Replacement.Text = "delivery^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Of those lines above, these never change: .Forward = True .Wrap = wdFindContinue .Format = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False Am I allowed to expunge those lines from each of the 14-line blocks since they are always the same and, presumably, are at default values? Or do I at most just have to keep the .Wrap statement? Tag: msgbox html Tag: 80908
  - 20
    - Using Nested If expressions in field codes I am trying to find a way to use Nested If expressions within a field code to limit a document property that displays the document name from appearing only on the last page of the last section of a document. The first If expression cehcks the current page number against the n umber of pages within the current section of the document. The second If expression checks the current section number against the number of sections in the document. If both If expressions are true, then the fild is supposed to display the document name, otherwise it should display nothing. I am able to get the result to come out correctly using the code shown below to generate the field code. I had to create a custom document property named SectionsCount in order to get the number of sections in the docuemnt to display within the field: Private Sub BuildIndentifierField() On Error GoTo Err_Handler With Selection ' Begin the First IF expression: .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="IF ", PreserveFormatting:=False .MoveRight Unit:=wdCharacter, Count:=5 .Fields.Add Range:=Selection.Range, Type:=wdFieldPage .TypeText Text:=" = " .Fields.Add Range:=Selection.Range, Type:=wdFieldSectionPages .TypeText Text:=" " ' If the First IF expression is TRUE then use the Second (NESTED) IF expression: .TypeText Text:=Chr(34) .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="IF ", PreserveFormatting:=False .MoveRight Unit:=wdCharacter, Count:=5 .Fields.Add Range:=Selection.Range, Type:=wdFieldSection .TypeText Text:=" = " .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="DOCPROPERTY ""SectionsCount"" " .TypeText Text:=" " ' Add the result to display if the Second IF expression is TRUE: .TypeText Text:=Chr(34) .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="DOCPROPERTY ""Identifier1"" " .TypeText Text:=Chr(34) ' Add the result to display if the Second IF expression is FALSE: .TypeText Text:=" " & Chr(34) & Chr(34) .MoveRight Unit:=wdCharacter, Count:=2 .TypeText Text:=Chr(34) ' Add the result to display if the First IF expression is FALSE: .TypeText Text:=" " & Chr(34) & Chr(34) End With Exit Sub Err_Handler: MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error" ActiveWindow.View.ShowFieldCodes = False application.ScreenUpdating = True I always get a message saying "Error! Missing test condition." within the nested If expression of the field. For example, I get this to display whenever the document is saved: { IF 1 = 6 "Error! Missing test condition." "" } If were to toggle the field code over the error message, I can see that my second If expression is being read correctly by the code, as shown here: { IF 1 = 6 " { IF 1=2 "{ DOCPROPERTY "Identifier1" \* MERGEFORMAT }" "" }" "" }. Thanks. Tag: msgbox html Tag: 80907
  - 21
    - Revealing hidden words Hi I've written the following simple bit of code (to reveal the first hidden word in a cell) but as usual, it doesn't work as expected ______________________________________________________ GetOneWord() ' ' Macro enregistrée le 10/02/2006 par Dave Neve Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend With Selection.Font .Hidden = False End With End Sub _______________________________________________________ It reveals all the hidden words in the cell and not just the first one. Why is this please? Thanks Dave Neve Tag: msgbox html Tag: 80904
  - 22
    - Macro to diplay printer list Hello, We have Word 2003. I'd like to create a macro that would pull up a userform and allow my users to choose which printer they want. I know some visual basic and I know how to create the userform. What I need is the code to be able to select the printer. We have HP Laserject printers. Thanks! Tag: msgbox html Tag: 80900
  - 23
    - Transferring macros and toolbars Hello A little question about copying macros and toolbar from one .dot to another .dot I have a "normal.dot" and a "special.dot" with my macros. I needed to create a new .dot which I will call "test.dot". Firstly, when I tried opening "special.dot" and "test.dot" and using the tools>macro>organise option, I could not manage to transfer the macros from "special.dot" to "test.dot" directly. I had to send the macros to "normal .dot" and then to "test.dot" Is this a limitation of Word? Secondly, I finally managed to copy my special toolbar from "special.dot" to "test.dot" also. But the link between the macros and the toolbar seems to have been broken.(the macros can not be found) How can I relink the macros with the toolbar? Both are certainly present in special.dot. Thanks in advance Dave Neve Tag: msgbox html Tag: 80897
  - 24
    - Macro to change style based on style of current paragraph Hi! Though I've made a couple of attempts at this, I have yet to figure out how to create a macro that does the following. 1. Determine the style of the paragraph in which the cursor is sitting. 2. Compare the style determined in step 1 to a short list of style names. If the style = A, change the style of the paragraph in which the cursor is sitting to A1;if the style = B, change to B1, and so on. 3. If the style is not equal to one that is on the list, return an error message. ANybody have something liek this I can look at or some suggestions about how to create this macro? Thanks! Beth Tag: msgbox html Tag: 80892
  - 25
    - Userforms and bookmarks Hi! For my template, I've created an autonew macro that displays a userform prompting the user for a title, code, and date. The responses are displayed in the file via bookmarks. I've also created an autoopen macro that prompts the user for a new date. The problem is that the new date gets added to the bookmark in front of the existing date (entered when the file was created. I end up with this: 10 Feb 200609 Feb 2006 Any suggestions on how to fix this would be welcome! Thanks! Beth Tag: msgbox html Tag: 80891

I have a file "summary.html" that i use as "htmlbody" for sending emails
created in html with personal functions.

I'd like to show this file as a msgbox.
If i open it as an object of filesystem i have as message
"<body><Table ..." and so on

How can i display the fle html as a messagebox before creating emails?

tia, marco

Top

Re: msgbox html by MarcoPolo

MarcoPolo
Sun Feb 19 13:26:43 CST 2006

> I'd like to show this file as a msgbox.
> If i open it as an object of filesystem i have as message
> "<body><Table ..." and so on
>
> How can i display the fle html as a messagebox before creating emails?
>
> tia, marco
>
solved using an internetexplorer application and putting visibile

Top