Show today's date

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Get a list of a word document reviewers I would like to write a macro that will display a list of the document reviewers to the macro user for selection. The macro will then be able to jump to the next revision made by the selected reviewer. However, i could not find a simple way of getting the list of reviewers (as appears in the Reviewing tool bar). The only way i could think of, is walking through all revisions and look for the author of each one, but this may take tool long. Any idea? Tag: Show today's date Tag: 109127
  - 2
    - Dynamic userforms Hello, I have created a Word template with a userform attached which appears on-screen for the user to fill-in and subsequently insert information into a letter. The macro which initiates this pop-up userform works great. However, it would be nice to place a date field into the userform that displays the date a developer last made a change to either the macro or userform associated with my template. Essentially, I would like to have a dynamic form in the sense that it displays the date when the template is saved. As you know, changes to macros and forms only take effect when the associated template is saved. I know this feature can be done with Javascript for webpages. Is there something similar under the hood of VBA for Word? Iâ??m trying to take the headache away from the developers so they will not have to manually insert a date each time they save changes to the macro and/or form. Not only would this be invaluable to developers for quality assurance but it would keep the end user informed to updates. Thanks! Ellen Tag: Show today's date Tag: 109126
  - 3
    - Code to remove 'Enter' Symbols I recieve Text files that come from a HTML form and they are delimited by comma. One of the fields allows people to paste in account information that has a set format and adds in TABs and Line breaks or the symbols you get get when you hit enter. I need to scrub this out of file. Is there any little script that I can run in Word that would remove these? THanks! Mark Tag: Show today's date Tag: 109125
  - 4
    - Function shortcut help Hi, I recently saw some VB code and there was a shortcut and I was hoping someone knew what is its correct term. When creating an object that required parameters (or a function), rather than putting blanks or nulls in optional parameters, the code named the param and gave it a value. In other words, if the function was defined as functionName(optionalParam1, optionalParam2, optionalParam3, optionalParam4) it could be called as functionName(optionalParamName3=paramValue3, optionalParamName4=paramValue4) or something like that. I would like to read more about this, but what is it called? Tag: Show today's date Tag: 109117
  - 5
    - Macro to Search for Keyword in Files I'm trying to set up a search for keywords in a specific set of files. I don't want to have to go through and check the multitude of boxes over and over again. Ideally a macro button to execute such a search would be a Godsend. Anybody have any ideas? Thanx. Tag: Show today's date Tag: 109114
  - 6
    - Serial Number Macro Problem with zeroes I use the following macro in Word 2003 to produce sequentially numbered certificates & have 2 problems with it. Sub SEQserialnumber() ' ' SEQserialnumber Macro ' Macro created 11/09/2007 by Sharon ' Dim Counter As Long Dim Message As String, Title As String, Default As String, NumCopies As Long Dim Rng1 As Range ' Set prompt. Message = "Enter the number of copies that you want to print. Get it right you can't stop it!" ' Set title. Title = "Print" ' Set default. Default = "1" ' Display message, title, and default value. NumCopies = Val(InputBox(Message, Title, Default)) ' Edit from Jay Freedman to enable user to specify serial number Message = "Enter the starting serial number" Title = "Serial Number" SerialNumber = Val(InputBox(Message, Title, Default)) 'Next line added to cause Ask field to fire pop-ups ActiveDocument.Fields.Update Set Rng1 = ActiveDocument.Bookmarks("SerialNumber").Range Counter = 0 While Counter < NumCopies Rng1.Delete Rng1.Text = SerialNumber ActiveDocument.PrintOut SerialNumber = SerialNumber + 1 Counter = Counter + 1 Wend 'Recreate the bookmark ready for the next use. With ActiveDocument.Bookmarks .Add Name:="SerialNumber", Range:=Rng1 End With 'Next line added to update { REF SerialNumber } 'This is more selective than just updating all the fields; in 'particular, the Ask fields (which have .Type = wdFieldAsk) won't be 'updated the second time. Dim Fld As Field For Each Fld In ActiveDocument.Fields If Fld.Type = wdFieldRef Then Fld.Update Next ActiveDocument.Close SaveChanges:=False End Sub Problem 1: I know find out that serial numbers begin with zeroes e.g. 0000001 to 0000005. If zeroes are entered they do not print and they must do so to much pre-printed labels. Problem 2: The 2nd serial number instance is not printing. This is a mergefield in the document as below. { REF SerialNumber \*MERGEFORMAT } I would be truly grateful for some help with both of these, thanks. Tag: Show today's date Tag: 109107
  - 7
    - Word Macro opening Mail Merge Template I am attempting to upgrade a Word Macro from Word 2000 that runs as a forground task scheduled via windows scheduler on a unattended server. During the running of the macro it opens a template built for mail merge that latter dynamically attaches to a CSV data source. The issue I am having is that under 2003 opening the templete stops with "Opening this document will run the following SQL command:" goes on to list the CSV data source file path which I believe is a request to attach the data source. I need to suppress this request message. Currently the template is being opened with "Documents.Add Template:=Tmplt, newtemplate:=True, documenttype:=0" The current folder contains the template named in the variable "Tmplt". Suggestions? -- Ron H Tag: Show today's date Tag: 109099
  - 8
    - Convert Microsoft Word document to jpeg, multi-page TIFF image Website: http://www.joyprinter.com Joy Image Printer is a high-performance virtual printer which enables you to convert any printable document into standard BMP, GIF, JPEG, PNG and TIFF image, and keep the exact look and feel of the original document. Since the converted image has the complete information from the original file without altering characters or fonts, you don't need to install the original software to view the document. Key Features: (1) Installs as a standard Windows printer, works for all Windows applications directly (2) Converts any printable documents like doc, xls, ppt, rtf, html and CAD into images (3) Supports BMP, GIF, PNG, JPEG and TIFF formats (4)Creates Thumbnails for Printing document (5)Dynamic file and folder generation based on macros (6)Supports both single and multi-page TIFF file formats Tag: Show today's date Tag: 109098
  - 9
    - Subroutine Library I am looking foran efficient way to build a subroutine library. I have thought of just using an excel file with a lot of mofules or using access. They each have drawbacks. How are you managing your subroutines? Tag: Show today's date Tag: 109095
  - 10
    - Remove "TEXT" from CommandBar This is what I am using to remove but in this instance it is not suitable - it does not remove it? I use this in 2003/2007 - any help would be appreciated to get "Style" TEXT removed from CommandBar would be appreciated! 'If you want to remove the item from the menu, you can do it like this: Sub RemoveDoStyles() Dim cb As CommandBar Dim ctl As CommandBarControl CustomizationContext = NormalTemplate Set cb = CommandBars("Text") For Each ctl In cb.Controls If ctl.Tag = "Style" Then ctl.Delete End If Next End Sub This is the macro that puts the "Style" TEXT on the CommandBar? Sub DoStyles() Dim StyleCount As Integer Dim J As Integer Dim x As CommandBar, z As CommandBarComboBox On Error Resume Next StyleCount = ActiveDocument.Styles.count Set x = CommandBars.Add("AllMyStyles", msoBarPopup) Set z = x.Controls.Add(msoControlComboBox) z.Caption = "Active Styles:" For J = 1 To StyleCount If ActiveDocument.Styles(J).InUse Then z.AddItem ActiveDocument.Styles(J) End If Next J z.Text = Selection.Style x.ShowPopup Selection.Style = z.List(z.ListIndex) CommandBars("AllMyStyles").Delete End Sub Tag: Show today's date Tag: 109091
  - 11
    - Is word at end of the line When I seach for a word with the code: Selection.Find.ClearFormatting With Selection.Find .Text = " on" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Is there a way to determinine is the word is the last word on that line? I want to certain words to be moved to the next line if they are at the end of a line. Tag: Show today's date Tag: 109087
  - 12
    - assistant goodbye At the beginning of your code, you set isVisible = Assistant.Visible If the end of your code has .Animation = msoAnimationGoodbye ...and then you finish up with Assistant.Visible = isVisible But if the assistant wasn't visible when the user start the code, then this last line does away with the previous line of animation, so that the assistant just disappears. ...is there a way to fix this? Tag: Show today's date Tag: 109085
  - 13
    - Am I at the end of the document In my code I have: Selection.EndKey unit:=wdLine ...this puts me at the end of that line. It's there a way to tell if that is the last line in the document? thanks. Tag: Show today's date Tag: 109082
  - 14
    - Unicode Find Question Can Unicode be used in the range.Find function? In this case, the Cyrillic font word is pasted in a textbox (MS Forms 2.0 library) that a range.Find.execute() routine uses as its Find.Text. How do you assign an entire Unicode word to Find.Text? Word 2003, Windows XP. Tag: Show today's date Tag: 109078
  - 15
    - Formfield Question I have a document and in it there are 35 checkboxes (Formfields). I have a form to edit the document but I canâ??t set the checkboxes in the document as checked/unchecked base on how the form is filled out. How do you write a macro so that if the checkbox in the form is checked/unchecked it will check/uncheck the checkboxes in the document? Tag: Show today's date Tag: 109076
  - 16
    - Supress blank text Using Word 2003 with Windows XP My VBA skills - Fair I have a template which I inherited. It is a monthly activity report for off site workers. The template contains 6 areas for acitivity reporting. Each area has 25 entry possiblities. In the first area - Meeetings - off site employees are required to report the meetings they attended. There is MeetingDate1, followed by MeetingReport1 all the way down to MeetingDate25 and MeetingReport25. What I would like to do is find some way of supressing any of the Meeting fields that are blank when the report prints. Right now, the report prints over 5 pages but most of the time there may be only 10-15 lines of actual text. Tag: Show today's date Tag: 109075
  - 17
    - Copy borders I want to copy all borders of an HTMLDivision object to a selection. The HTMLDivision will be deleted before the copy. What is the best way to do this without doing so for each individual border? Tag: Show today's date Tag: 109074
  - 18
    - Help with Clipboard / moving data Hello, I have a word vba app (word 2003) that has to get a lot of data from the clipboard, then parse it / display some of it. The clipboard data is in a table format, copied from another application that I can not access programmatically and get zero help from the IT dept here. When I copy it onto the clipboard, all of the stuff that I want is in the first table, but it also copies some text and possible a picture file after the table (which I subsequently ignore when parsing the data) Currently, I copy the data onto the clipboard from the other application, then paste it into a new document, then the table/data is read into an array and the sorting etc takes over and every thing is good. The orginal paste is deleted Is there a way to get the table data directly from the clipboard into a multicolumn array? I have only the vaguest idea what a dataobject is in connection to this and how this could be used with the clipboard object, the word help file is pretty slim. Thanks, Jim jimoc@comcast.net Tag: Show today's date Tag: 109067
  - 19
    - Checkboxes I have a template and in it there are 20 checkboxes. I have created a user form to edit the template. How do I save the checkbox info in the form back to the checkboxes in the template? Tag: Show today's date Tag: 109047
  - 20
    - Merging Bookmarks I have a Word 97 form with bookmarks. I have a command button with code that sends the bookmarked data to an Access database. I want to include in the code a way to check Bookmark A. If Bookmark A contains no data, insert the data from Bookmarks B and C into Bookmark A. Thanks for any help you can give me Ron Tag: Show today's date Tag: 109046
  - 21
    - Problem in macro referencing a Com Class built on Dotnet 2.0 Hi Everyone, I am having a hard time working with Com dll with Word 2003. This is my first post in this forum and i desperately need help. I thank you in advance. Scenerio: I created a Com Class in VB.Net 2.0, which has some public properties, functions. I use WebClient in the class to download data. I created the setup using Deployment Wizard containing Test.dll and Test.tlb. I Install it in a test system and reference the Test.tlb in a word Macro. i can create an object of my com class. Set a property with text. Display the property in a msgbox. The Code as follows: Dim obj As New Testproject.TestClass obj.MyStr= "The Macro works" MsgBox (obj.MyStr) Problems: When i run the macro it gives me error as: -2147024894 File or assembly name Testproject, or one of its dependencies, was not found. Regards Rohim Tag: Show today's date Tag: 109045
  - 22
    - Help text not showing Help text that I have added to a form field does not show on the status bar.... so, I tried putting it into the Help key (F1) but the help text does not appear. Any suggestions? Tag: Show today's date Tag: 109042
  - 23
    - Control Color for Multipage pages I am able to set the backcolor for a Multipage, but the individual pages (and their tabs) maintain the color (apparently) of System:ButtonFace. There is no 'BackColor' in the Properties list at the left for the individual pages. Is there a way to control the color of the individual pages, and their tabs. Ed (in Virginia) Tag: Show today's date Tag: 109032
  - 24
    - Changing chemical notation Hello, I have very large documents with chemical formulas and notation (ex. CH4 or H2SO4 but never 3H2O (The three is at the biggining of the word)) I would like to: For each word in the selection (after I selected something) chek if there is a number sticked (and after) the first and or second and or third ...... letter; if so the to change all the numbers in that word to subscript numbers. I dont have any experience working with word VBA (some with excell VBA) thanks a lot Tag: Show today's date Tag: 109030
  - 25
    - Can I Use VBA to register global templates? Does anyone know how to use VBA to write a windows registry key that tells Word where a global template is located? My Problem: I have several workgroup templates that contain references to one global template which contains a ton of code I use again and again from my workgroup templates. As I create the templates, I use "Tools, References" to set the references. At that point I am logged in as myself and my global template is in the default word startup folder (in the user profile). (I want to keep the folder in the default location so I am not affecting other people who may also be programming for Word and expect to put their templates there.) WHAT IS HAPPENING: Several different people may log onto any given computer. As they do, a login script copies their templates into place for them. WHEN THIS HAPPENS, sometimes my reference gets broken. It seems it is not looking to the current startup folder for the global template -- rather it looks to the other person's location. Internet research tells me when Word looks for referenced, it looks in a location listed in a registry key for that template first. I tried using vba to look for broken refs and fix them, but this isn't working because my templates crash with a "can't find project or library" compile error due to other code in them, before they can even run the "fix references" code. I BELIEVE the problem is that the windows registry key for the global templates is still listing the template in the previous users profile and it is either an old version of the template, or not in a "trusted" location and won't load due to macro security. If I could run a line of code in an autoopen macro in my global template that sets that windows registry key to the current users Word startup directory I THINK that would fix the problem. But I have no idea what they key is or how to write to the registry. Sorry so long! Please help...!!!! Tag: Show today's date Tag: 109021
- Next
  - 1
    - Macro to make text/field codes superscripted in header/footers. Hello, I want to create a macro that will search the whole document including headers and footers for specified text and then replace with superscripted text. the field codes used are {SUBJECT \*MERGEFORMAT} and {TITLE \*MERGEFORMAT} I found this reference but am not sure how to incorporate the superscript part. http://word.mvps.org/FAQs/Customization/ReplaceAnywhere.htm Does anyone have any advice. I've only used recorded macros and this is my first foray into the macro world. So any advice/guidance is appreciated. Thanks. RenÃ©e Tag: Show today's date Tag: 109019
  - 2
    - clip and copy do not work on toolbar or keyboard I am unable to activate clip and copy toolbar buttons on either my keyboard or the toolbar. The Paste works okay. I have gone into the customize on the Edit menu and tried to correct that way but the changes I make are not retained after I close the customize window. Does anyone have any suggestions. I have just had to install everything as my XP totally crashed and installed XP Office Professional Suite which has Word 2003 etc included. Tag: Show today's date Tag: 109017
  - 3
    - Appending REF Field data to a csv file I'm trying to write a macro to take REF field data in MS Word and save/append that data in a csv file. So far, I've been able to pull the REF field data and put it in a variable named sOutput. (i.e. [sOutput = sInvno & ", " & sDate & ", " & sPartno & ", " & sSerno & ", " & sDesc & ", " & sStatus & vbCr]) The output of this variable outputs each of the data points comma separated. I want to take this data, append it to a csv file and automatically save it without any user interaction. I haven't been able to find any code that can help me. Can somebody help me out? Thanks, Davis Tag: Show today's date Tag: 109011
  - 4
    - Printing contents of a section twice First I am using Word 2003. My macro needs section 2 to be printed twice in a certain order, for example, Client #1, two copies, Client #2, two copies, Client#3, two copies, etc. The number of clients can vary, but the beginning page number in the macro is always Page 2. Then I only need to print 1 copy of Section 1 and one copy each of Sections 3-9. Tag: Show today's date Tag: 109010
  - 5
    - How to "unset" table parameters Hello, I have written two macros for copying and pasting table formats. If the first table does not have a preferred width set, the value is 9999999. The second table may have a preferred width but since I want to make the same as the table copied, I cannot set the preferred width to 9999999 because I get an error. How then do I "unset" this parameter? Also, the preferredwidthtype of the first table does not appear to be wdPreferredWidthAuto. I have a similar problem with cell widths but the width returned is 255919243. I get an error with this one as well. Peter Tag: Show today's date Tag: 109009
  - 6
    - Error closing files and quitting Word 2007 SP1 I'm using C# for Word interop and can't find another newsgroup so here goes. I'm creating an instance of Word 2007 SP1 and successfully loading in a file. However, when I ask it to close all documents, it fails with a COM error of "Command Failed", HRESULT -2146824090. The code I'm using is as follows: // To open the document... // Not included all variables, but should be obvious what they are... object format = WdOpenFormat.wdOpenFormatAuto; this.wordApplication.Documents.Open( ref theFilename, ref missing, ref isReadOnly, ref oFalse, ref missing, ref missing, ref missing, ref missing, ref missing, ref format, ref missing, ref isVisible, ref missing, ref missing, ref missing, ref missing); And to close all documents... object saveChanges = WdSaveOptions.wdDoNotSaveChanges; object missing = System.Type.Missing; this.wordApplication.Documents.Close(ref saveChanges, ref missing, ref missing); When I open another document I get another window for Word which I don't want (all documents must open in the same window). Any suggestions welcome. Thanks. Haydn Tag: Show today's date Tag: 109002
  - 7
    - triggering formfield formatting I have a legal document set up as protected for filling out forms, and some of the field forms have formatting applied to dates & currencies. When I populate the document programmatically, the field formats I need aren't applied until I manually tab through the doc. I tried the code below but it doesn't do the trick. TIA, Eric Private Sub TabThruForm(doc As Word.Document) Dim k As Integer Dim frmFlds As Word.FormFields Set frmFlds = doc.FormFields For k = 1 To frmFlds.Count If k <> frmFlds.Count Then frmFlds(k).Next.Select Next k frmFlds(1).Select End Sub Tag: Show today's date Tag: 108998
  - 8
    - adv: Design reports in Word This is a bit off-topic but should be of interest to auite a few here. If you are looking for a reporting solution where you can design the reports in MS Office (which is a lot faster) - please take a look at Windward. Windward Reports, the leader in enterprise report generation, has released the worldâ??s first enterprise reporting software that enables use of Excel as a design tool. The Windward Reports Server Engine is perfect for users creating both java reports and .net reports alike, and now allows users to design reports in both Microsoft Word and Microsoft Excel as well. Windward, a leader in with its design-in-Word reporting software because of its ease of use, now adds the advantages of Excel to its portfolio of simple-to-use, superior reporting products. Windwardâ??s new AutoTag 6.0 reporting software uniquely uses Excel to intelligently figure out sums and number formatting, and allows users to build a table which supports calculations. AutoTag 6.0 still outputs to Word, or any other output format, to produce reporting documents. Why is this Excel release so important? Simply put: Freedom. By creating an easy-to-use design tool which allows users to design their reports in Excel (in addition to word), Windward is freeing up thousands of IT man-hours normally allocated to report design, and including Excel business users in their â??power-to the peopleâ?? philosophy. Now, non-technical business users who prefer Excel, can design their own reports and stay within their comfort zone while doing so. Windward Reports AutoTag for Excel doesnâ??t just look like Excel, it IS Excel. How Does It Work? Begin with a worksheet. Using the AutoTag pull-down menu, select a data source such as an SQL database or XML file. (AutoTag works in conjunction with the Windward Reports Standard Server Engine, which gives your PC the ability to communicate with your organization's data sources, such as its SQL databases and XML files.) You use standard Excel commands to format and edit the report, and you assign tags to the data fields using the AutoTag pull-down menu. When finished, you save your template and, if you wish, verify that tags are correct with AutoTag's "validate" function. What makes this unique? With AutoTag for Excel, your number formatting always carries through â?? it doesnâ??t matter if you output to RTF, PDF, or any other type. And, by using Excel templates you have a way to easily, and automatically generate reports that perform calculations on a collection of values! For instance, you might use Excel to sum all of the line-item amounts that are generated by an AutoTag. While AutoTag was always easy to use, this additional capability offers functions not available in a word-designed template, allowing the software to be used by more people, in more ways. When you generate the report Windward Reports merges this template with the data you have selected. The finished report, with all of your formatting, positioning and design, is available in minutes instead of hours or even days. Download a demo or check out a sample report at http://www.windwardreports.com. For more information on how you can use Excel or Word to design your reports, call 303-499-2544. Tag: Show today's date Tag: 108997
  - 9
    - Problem with numbering Hi, I was wondering if i could get some help here with style and numbering for word 03. I've been writing some VBA codes that would insert new sections as well as sub-sections. For example, in a word doc, Section 1 Test Section1 1.1 My Test Section11 1.2 My Test Section12 and so on This works so far. However, when inserting another section break, it shows Section 2 Test Section2 1.3 My Test Section21 It seems that it's unable to detect which section it has been up to. It just remembers that it's still under section 1. There has been disconnection between Section and Sub-Section. Greatly appreciate if anyone might be able to show how to get around this problem. Here is the code for "insert a section" Sub InsertSection() ' Insert a section break to begin the new section. Selection.InsertBreak Type:=wdSectionBreakOddPage ' Insert a heading for the new section. Selection.Style = ActiveDocument.Styles("Section Heading 1") ' Insert the heading's text based on InputBox entry. ' Add a paragraph break to return to "Normal" text. With ListGalleries(wdOutlineNumberGallery).ListTemplates(4).ListLevels(1) .NumberFormat = "Section %1." .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft .TextPosition = CentimetersToPoints(0) .TabPosition = CentimetersToPoints(2.9) .ResetOnHigher = 0 .StartAt = 1 With .Font .Bold = True .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdColorGreen .Size = 16 .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "Garamond" End With .LinkedStyle = "Section Heading 1" End With ListGalleries(wdOutlineNumberGallery).ListTemplates(4).Name = "" Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _ wdOutlineNumberGallery).ListTemplates(4), ContinuePreviousList:=True, _ ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _ wdWord10ListBehavior Selection.TypeText Text:=InputBox("Please enter the section heading:", "Enter Section Heading") Selection.TypeParagraph End Sub =============================================== Sub marginstyle() Dim styleName As String Dim oStyle As Style styleName = "Section Heading 1" 'Create/Setup the style For Each oStyle In ActiveDocument.Styles If oStyle.NameLocal = styleName Then GoTo Setup Next oStyle ActiveDocument.Styles.Add Name:=styleName, Type:=wdStyleTypeParagraph Setup: With ActiveDocument.Styles(styleName) .AutomaticallyUpdate = False .BaseStyle = ActiveDocument.Styles(wdStyleHeading1) .NextParagraphStyle = "Normal" End With With ActiveDocument.Styles(styleName).Font .Size = 16 .ColorIndex = wdGreen .Name = "Garamond" End With MsgBox "First Style setup completed" End Sub ================================================== Here is the code for "insert Sub Section" Sub subSectionSetup() With ActiveDocument.Styles("Heading 1") .AutomaticallyUpdate = False .BaseStyle = "Normal" .NextParagraphStyle = "Normal" End With With ActiveDocument.Styles("Heading 2") .AutomaticallyUpdate = True .BaseStyle = "Normal" .NextParagraphStyle = "Normal" End With With ActiveDocument.Styles("Heading 1") .AutomaticallyUpdate = True .BaseStyle = "Normal" .NextParagraphStyle = "Normal" End With With ActiveDocument.Styles("Heading 3") .AutomaticallyUpdate = True .BaseStyle = "Normal" .NextParagraphStyle = "Normal" End With ActiveDocument.Styles.Add Name:="Document Heading 2", Type:= _ wdStyleTypeParagraph ActiveDocument.Styles("Document Heading 2").AutomaticallyUpdate = True With ActiveDocument.Styles("Document Heading 2").Font .Name = "Garamond" .Size = 14 .Bold = True .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 0 .Animation = wdAnimationNone End With With ActiveDocument.Styles("Document Heading 2").ParagraphFormat .LeftIndent = CentimetersToPoints(1.02) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 12 .SpaceBeforeAuto = False .SpaceAfter = 3 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = True .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(-1.02) .OutlineLevel = wdOutlineLevel2 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 End With ActiveDocument.Styles("Document Heading 2"). _ NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("Document Heading 2").ParagraphFormat.TabStops. _ ClearAll With ActiveDocument.Styles("Document Heading 2").ParagraphFormat With .Shading .Texture = wdTextureNone .ForegroundPatternColor = wdColorAutomatic .BackgroundPatternColor = wdColorAutomatic End With .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone With .Borders .DistanceFromTop = 1 .DistanceFromLeft = 4 .DistanceFromBottom = 1 .DistanceFromRight = 4 .Shadow = False End With End With ActiveDocument.Styles("Document Heading 2").LanguageID = wdEnglishUK ActiveDocument.Styles("Document Heading 2").NoProofing = False ActiveDocument.Styles("Document Heading 2").Frame.Delete With ActiveDocument.Styles("Document Heading 2").Font .Name = "Garamond" .Size = 12 .Bold = True .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 0 .Animation = wdAnimationNone End With With ActiveDocument.Styles("Document Heading 2") .AutomaticallyUpdate = True .BaseStyle = "Heading 2" .NextParagraphStyle = "Normal" End With ActiveDocument.Styles.Add Name:="Document Heading 3", Type:= _ wdStyleTypeParagraph ActiveDocument.Styles("Document Heading 3").AutomaticallyUpdate = True With ActiveDocument.Styles("Document Heading 3").Font .Name = "Garamond" .Size = 12 .Bold = True .Italic = False .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Scaling = 100 .Kerning = 0 .Animation = wdAnimationNone End With With ActiveDocument.Styles("Document Heading 3").ParagraphFormat .LeftIndent = CentimetersToPoints(2.77) .RightIndent = CentimetersToPoints(0) .SpaceBefore = 12 .SpaceBeforeAuto = False .SpaceAfter = 3 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = True .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = CentimetersToPoints(-2.77) .OutlineLevel = wdOutlineLevel3 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 End With ActiveDocument.Styles("Document Heading 3"). _ NoSpaceBetweenParagraphsOfSameStyle = False With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(1) .NumberFormat = "Section %1" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 0 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "Document Heading 2" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(2) .NumberFormat = "%1.%2" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(1.02) '.TabPosition = CentimetersToPoints(1.02) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 1 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = False .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "Document Heading 2" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(3) .NumberFormat = "%1.%2.%3" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(2.77) '.TabPosition = CentimetersToPoints(2.77) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 2 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "Document Heading 3" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(4) .NumberFormat = "%1.%2.%3.%4" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(1.52) '.TabPosition = CentimetersToPoints(1.52) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 3 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(5) .NumberFormat = "%1.%2.%3.%4.%5" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(1.78) '.TabPosition = CentimetersToPoints(1.78) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 4 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(6) .NumberFormat = "%1.%2.%3.%4.%5.%6" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(2.03) '.TabPosition = CentimetersToPoints(2.03) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 5 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(7) .NumberFormat = "%1.%2.%3.%4.%5.%6.%7" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(2.29) '.TabPosition = CentimetersToPoints(2.29) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 6 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(8) .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(2.54) '.TabPosition = CentimetersToPoints(2.54) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 7 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "" End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(9) .NumberFormat = "%1.%2.%3.%4.%5.%6.%7.%8.%9" .TrailingCharacter = wdTrailingTab .NumberStyle = wdListNumberStyleArabic .NumberPosition = CentimetersToPoints(0) .Alignment = wdListLevelAlignLeft '.TextPosition = CentimetersToPoints(2.79) '.TabPosition = CentimetersToPoints(2.79) .TextPosition = CentimetersToPoints(0.5) .TabPosition = CentimetersToPoints(0.5) .ResetOnHigher = 8 .StartAt = 1 With .Font .Bold = wdUndefined .Italic = wdUndefined .StrikeThrough = wdUndefined .Subscript = wdUndefined .Superscript = wdUndefined .Shadow = wdUndefined .Outline = wdUndefined .Emboss = wdUndefined .Engrave = wdUndefined .AllCaps = wdUndefined .Hidden = wdUndefined .Underline = wdUndefined .Color = wdUndefined .Size = wdUndefined .Animation = wdUndefined .DoubleStrikeThrough = wdUndefined .Name = "" End With .LinkedStyle = "" End With ActiveDocument.Styles("Document Heading 3").LinkToListTemplate _ ListTemplate:=ListGalleries(wdOutlineNumberGallery).ListTemplates(7), _ ListLevelNumber:=3 With ActiveDocument.Styles("Document Heading 3") .AutomaticallyUpdate = True .BaseStyle = "Heading 3" .NextParagraphStyle = "Normal" End With MsgBox "Second Style setup completed" End Sub =============================================== Sub AutoNew() Call marginstyle Call subSectionSetup End Sub ================================================ Sub InsertSubSection1() Selection.TypeText Text:=InputBox("Please enter the sub-section heading 2:", "Enter Section Heading") Selection.Style = ActiveDocument.Styles("Document Heading 2") End Sub ================================================= Sub InsertSubSection2() Selection.TypeText Text:=InputBox("Please enter the sub-section heading 3:", "Enter Section Heading") Selection.Style = ActiveDocument.Styles("Document Heading 3") End Sub Thank you in advance Tag: Show today's date Tag: 108994
  - 10
    - Excel cell reference in Word Macro I have an Excel Spreadsheet that contains some information and I'am try to reference to one cell in the Excel workbook. This cell needs to be entered into a New Word document Macro so I can go to our Company Intranet and open the word document that contains the information I need. The information needed form our Intranet is to be copied and entered into a New Word documeny that is to be printed. Example of code. e = Excel cell of = "http//www.psc.uss.com/documents/ECP/02/01/" & e & ".doc" Documents. Open FileName:=of The above works when I put the Excel cell information in the Macro. I can then copy all the information needed and the rest of the Macro runs fine. I am new at writting code for Word, but do a good job of Excel code. Please help. Thanks, ekreider Tag: Show today's date Tag: 108993
  - 11
    - help! email attachment is blank I've created a document template with a userform. When I pull up a new document, I want to be able to "fill in the blanks" on the user form, update the document, and have it sent automatically to a specific email address. I'm using Word 2003 and Groupwise. So far so good ... it sends the document to my email, but when I open the document from my email, it is a new - blank - document, not document with saved information. Here is the code I'm using: Private Sub Commandok_Click() Application.ScreenUpdating = False With ActiveDocument .Bookmarks("text1").Range.Text = TextBox1.Value .Bookmarks("text2").Range.Text = TextBox2.Value .Bookmarks("text3").Range.Text = TextBox3.Value End With Application.ScreenUpdating = True Unload Me Temp = ActiveDocument.Name 'Open a GroupWare session Object Set GWApp = CreateObject("NovellGroupWareSession") ' login to GW 'Login using () will login to the open account or run the login 'script if none was opened. Set gWAccount = GWApp.Login() 'Create a new message in the Mailbox Set gwMessage = gWAccount.MailBox.Messages.Add gwMessage.Subject = "Complaint Form" gwMessage.BodyText = "Please review the enclosed complaint form" gwMessage.Recipients.Add "nikolatv@ah.org" gwMessage.Attachments.Add Temp 'Add an open workbook to the attachments gwMessage.Send 'Send out MsgBox ("Your message been successfully sent!") ActiveDocument.Close End Sub I'm missing something, somewhere ... any help at all would be MUCH appreciated Tag: Show today's date Tag: 108984
  - 12
    - Table Cell Data AddIn I just posted a modification of my Table Cell Data Addin to my website: http://gregmaxey.mvps.org/Table_Cell_Data_Word2007.htm This version is for Word2007 and it uses Ribbon customization to display the data in a "Table Information" tab that I added to the Table Tools tab. I think it is pretty neat, but I am just a dabbler in XML and I am not sure if there will be any ill effects of using the Ribbon in this perhaps unconventional manner. I would appreciate any thoughts or advice on that matter. Secondly, if you download the Addin and look at the code, you will see that I had a problem suppressing the display of the calculation results. My goal is to show the results only after the Calculate button is depressed, but then hide that label (e.g., set it to "") when the selection is moved. The problem is with the value that the .Calculate method returns. It is a Single and if the value is bogus (e.g., attempts to calculate a selection of letters) it returns still returns 0. As a work around I picked a relatively unique number .000000009000000001 and set the Calculation result label to "" if the result of the calculation is .00000000090000000001. This of course means that if the actual value of a calculated selection is .00000000090000000001then the label will not display the answer. I am looking for a way to set the Calculation result button to "" initially and then reset it to "" when the selection is moved. Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Show today's date Tag: 108983
  - 13
    - cancel a macro in progress Are there shortcut keys that will safely cancel a macro in progress? I am speaking of macros that ask the user for input (i.e. a number or date). Sometimes the people I support realize they chose to run the wrong macro or otherwise want to stop the one they started. I want to give them a safe way to cancelling the macro in progress that will still be available to them at a future time. Any ideas would be appreciated. Tag: Show today's date Tag: 108982
  - 14
    - Update Text In All Footers Hi Everyone, I have a VB macro that I need to add something to. I am trying to amend the text in all footers. I need the text to show: "Document Title v1.0 " & "_" & PNAME & "_" & PCODE & ".doc" where PNAME and PCODE have already been defined earlier. Can anyone help? Thanks! :) Dave Tag: Show today's date Tag: 108979
  - 15
    - go to last page of the document -word 2003 Hi, I'm trying to program a macro. One of the steps is to go to end of document and change the header. I'm unable to find the command (or write the program) to go to last page of the document. (I don't have number of pages neither bookmarks) Thanks -- meme Tag: Show today's date Tag: 108970
  - 16
    - New Word 8 publisher features vs publisher 97+ As a new Mac user waiting for a compatible program to my old MS Publisher that I can use on my Mac, I learned of the new publishing features in Word 08 that will be bundled in the MS Office 8 for Mac. What I would like to know is if the new Word publisher option has at least the same features as the old MS Office. If not, what is missing and why? Can anyone direct me to where I can find the answers to my questions if no one can answer them on this forum? Tag: Show today's date Tag: 108968
  - 17
    - How do I get spell check to work in my MSN Email I've tried everything and cannot get spell check to work in my MSN Email. Says I don't have dictionary for language choosen. I'm set for English. How do I correct this. Tag: Show today's date Tag: 108967
  - 18
    - M-I,5.Persecut ion . my respon se to t he harassment -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=. my response to the harassment -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- My first reaction. in 1990/91 was to assume that if I broke contact then they would not be able to follow. and would lose interest. So I did the things that have been suggested by. other people; I sold my television, stopped listening to the radio. and tried to withdraw away from the sources of abuse as much as possible. I reasoned that they must have more. important things to. deal with and that normal people would simply leave me alone if it were made difficult for them to continue. their harassment. I reckoned without the sheer vindictiveness of the abusers. They did. not let up but instead "got to" people around. me, mainly people at work, to do their dirty work. for them. I went to see my GP, who refused to believe what he was being told, and refused to direct me on to. anyone who could be of practical assistance. It was not. until three years had passed that the GP admitted the matter was. outside his competence and suggested going to the police. In the summer of 1994 we called. in counter-surveillance experts from a private detective. agency to sweep our house and telephone for bugging devices. They conducted a thorough search and found. nothing; but as noted above, since. the existence of surveillance was being forced in my face by the harassers, you would expect them to have taken the possibility. of a counter-surveillance sweep into account. when planning the type of devices to. be employed. In Easter 1995 I made a complaint to my local. Police station in London, but the. police have not expressed any intention to do anything about the continuing harassment ("we're not saying it's. happening and we're not saying it isn't happening" were. the words used). I think the officer I spoke to at Easter wasn't aware of it happening, although. other members of the police force obviously. do know. From April 1995 until the present time the matter has. been discussed in a lot of detail. on the Usenet (Internet) "uk.misc" newsgroup. That discussion has given birth to the article which you are now. reading. My hopes in posting to Usenet were that wider publicizing would discourage. the security services from. continuing their harassment, and "draw people out" into concurring with the truth of what was being said.. Neither of those have followed, but the discussion has served. a purpose in allowing this structured report to. be created. 8944 Tag: Show today's date Tag: 108964
  - 19
    - M'I-5 Persecut ion ' purpose in publ icizing i t; censorsh ip in u k.* newsgroups -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -= purpose in publicizing it; censorship in uk.*. newsgroups -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= The postings. to uk.misc newsgroup generated a very defensive reaction from Usenet readers in the UK. So much so, that. they tried strenuously to suppress what was being said, both by breaking the rules. of netiquette in their responses on the forum, and directly by action to revoke. the account from which the postings were. issued. Yet the postings were within the normal. boundaries of behaviour for uk.misc, and other less partisan. spectators did not see justice in the censorship which was. effected, as the following excerpt shows; :Karen. Lofstrom (lofstrom@lava.net) wrote :>It. does seem that the frequency and the size of his posts are :>approaching net abuse. However, IMHO, they. aren't quite there yet. If :>his postmaster were to act in this instance, it would. raise troubling :>censorship. issues. The inescapable. conclusion of the censorship effected on the uk.* newsgroups is that the. British are intent on their wrongdoing remaining concealed, and therefore seek to subvert and suppress freedom. of speech, not only in their own country where the. media shows xenophobic bias and bile against all. perceived enemies within and without, but also in other countries which have their. own statutes to guarantee the basic human right of. free speech. It is absolutely necessary. to bring their hate campaign out into the open where it can be placed under scrutiny and the harassers. seen for what they are. That is the only. way of making it impossible for the security services to carry it out. There. is a wider dimension, though. Xenophobia as demonstrated by. British people and institutions over the last few years belongs to the same stable as racial hatred. In one case, two youths. on a Tube train made that racism explicit. by referring to their victim as a "soft toy, not up to. British Standards". Doubtless others victimize partly on the basis of. race (isn?t it odd that they chose to torment someone who is not ethnically. English?) while expressing their abuse in terms of another genetic attribute,. namely mental illness. All xenophobia on a genetic basis is wrong, but. while racial insults are illegal, abusing the mentally ill is neither against the. law nor subject to similar condemnation when it is. exposed. 6514 Tag: Show today's date Tag: 108963
  - 20
    - Range.Calculate Does anyone know how Range.Calculate manages to define the "range" of a selection of cells to just those cells and exclude adjacent cells? I created a simple 3 column x 2 row table and put the number 2 in each cell. Then I selected the middle column and ran this code: Sub Test() Dim oCell As Word.Cell Dim i As Single MsgBox Selection.Range.Calculate MsgBox Selection.Range.Cells.Count 'Returns 4 as unfortunately is expected. For Each oCell In Selection.Range.Cells On Error Resume Next i = i + CSng(Left(oCell.Range.Text, Len(oCell.Range.Text) - 2)) Next oCell MsgBox i 'Again returns 8 as unfortunately expected. End Sub It is the same range, but somehow Range.Calculate knows to process only the values that are actually selected, and not the entire selection range. How does it do this? Thanks -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Show today's date Tag: 108962
  - 21
    - M`I'5.Perse cution ` abu se in set-u p si tuations a nd in public -=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=- -= abuse in. set-up situations and in public -= -=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=- Strangers in the street have recognized me on sight many times, and. shown awareness of. the current thread of abuse. To give you one example, in 1992 I was. seriously ill, and a manager at work somewhat humorously said that "it wasn't fair" that people. were bullying me. A few days later, I attended for the first time a clinic in London. as an outpatient, and on my way out was. accosted by someone who asked if "they had paid my fare", with emphasis on the word "fare". He repeated the word several times. in this different context;. that they should have paid my "fare", each time emphasizing the word. For two and a half years from the. time their harassment started until November. 1992 I refused to see a psychiatrist, because I reasoned that I was not ill of my own action or. fault, but through the stress caused by harassment, and that a lessening of the. illness would have to be consequent to a removal of its immediate cause, in. other words a cessation of harassment. I also. reasoned that since they were taunting me with jokes about mental illness, if I were. to seek treatment then the abusers would think that. they had "won" and been proved "right". Remember, the constant theme of any. persecution is, "we must destroy you because you're X", whether. X is a racial or other attribute. In this case the X was "we persecute you because you have brain disease". The similarity of this. logic to Nazi attitudes to the mentally ill. is striking. The same. manager who'd said "it wasn't fair" asked me in winter 1992 why I didn't seek help from a. psychiatrist; was it, he asked, because "they would think they had won" if I sought treatment? That was. something I'd never said at work... again, taken separately it proves nothing, but. many such things over a period of months proves conclusively that people. in the company knew what was going on, and in quite. a lot of detail. Usually harassment. in public lacks the level of finesse of "paying your fare". Most people's. imagination does not go beyond moronic parroting of the current term of. denigration. That is not surprising given the average level of the abusers; if. they do not have the intelligence to distinguish wrong from right then neither will. they have the capacity for anything other than mindless repetition of. a monosyllabic term calculated to fit into their. minds. The first incidents of verbal assault in public were. in again in the summer of 1990, although they increased in frequency and venom with. time. In July 1990 the first public incident occurred on. a tube train on the Northern line. Two men and their girlfriends recognised me;. the women sprang to my defence, saying "He looks perfectly normal, he doesn't look. ill". Their boyfriends of course knew better, and. followed the party line; one of them made reference to an "operation", apparently to work at the. tube station but implicitly to a visit that I had made to. hospital a couple of weeks previously. In August 1990 going home from college, soon. after getting on a tube train at Gloucester Road I was followed by a. group of four youths, who started a chant of abuse. That they were targeting me was confirmed by. other people in the carriage, one of whom asked the other "who are they going on at,. is it the bloke who just got on?" to which the second. replied "yes, I think so". I was tempted to reply, but as. in every other instance the abusers are enabled in their. cowardice by physically outnumbering the abused; any confrontation would result in my being. beaten up, followed by a complaint to the police. that "he attacked us", and of course he's ill, so he must have been imagining that we were getting at him. Shitty, aren't. they? But the shittiness of the four youths on the tube train. is as nothing compared to the episode. on the National Express coach to Dover in the summer of 1992. While. going on holiday to the Continent I was verbally set upon by a couple travelling sitting a few rows. behind. The boy did the talking, his female companion contributing. only a continuous empty giggling noise. He spoke loudly to ensure other people on the coach heard,. always about "they" and "this bloke". but never naming either the abusers or the person he was talking about. He. said "they" had "found somebody from his school, and he. was always really stressed at school". They must have dug deep to find enemies there; perhaps someone who dropped out of. school, someone who didn't do too well later, who was jealous and keen to. get their own back? The boy also said "he was in a bed and. breakfast for only one night and they got him". By a not unexpected coincidence I had been. in a B&B in Oxford a week previously, which had. been booked from work; other things lead me to the conclusion that the company's. offices were bugged for most of the 2 1/2 years that I was there,. so "they" would have known a room in the B&B had been booked. (But I'll bet. "they" didn't tell the company's managers their. offices were bugged, did they?). After a few minutes of this I. went back to where they were sitting and asked where they were travelling. The. boy named a village in France, and the. girl's giggling suddenly ceased; presumably it permeated to her brain cell what the purpose. of the boy's abuse was. This and other set-up situations. are obviously calculated to provoke a direct confrontation. which would bring in the police, with the abusers claiming that they were. the ones attacked. Again in 1992, outside the house where I was living in Oxford I. was physically attacked by someone - not punched, just grabbed by the coat, with some verbals thrown in. for good measure. That. was something the people at work shouldn't have known about... but soon after a couple of people were talking right. in front of me about, "I heard he was attacked". The. UK police have a responsibility for preventing assault occurring, but. they do not seem to take any interest in meeting. that responsibility. I suppose their attitude is that harassment does not come within their remit unless it involves physical. assault, and they will only become involved once that happens. That is of course. quite the wrong. attitude for them to take, but as I now understand, the police investigate only the crime they wish. to investigate; if they do not take your complaints seriously then there is nothing you can do to. make them take. action. 4084 Tag: Show today's date Tag: 108961
  - 22
    - M`I,5-Perse cution ` w hy won' t th e Bri tish po lice do thei r job and pu t a sto p to i t? -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -= why won't the British. police do their job and put a stop to it? -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- The British police obviously do know what. is taking place. Besides my interpretations of what individual officers. have said which forces that conclusion, it would be inconceivable for. them to be unaware of something on. this scale. If they know, then they will know that the abusers have broken laws in. the UK and abroad. Recently the UK introduced. laws against electronic spying which. carry a penalty of several years jail if caught. If the police know illegal harassment is taking place, and do nothing about. it, then they are failing. in their responsibilities. Last Easter. (1995) I went into the local police station in London and spoke to. an officer about the harassment against me. But I couldn't provide tangible evidence; what people said, in many cases years. ago, is beyond proof, and without something to support my statements. I cannot expect a police officer to take the. complaint seriously. The current situation with regard to the police is not. one which allows a breakthrough in dealing with the problem. On. the one hand, most individual officers at a local police station may not know about. the ongoing assaults, so a complaint at that level will. not yield results. Yet the police as an organisation do know of. the harassment, and they must be aware that a complaint has been made at a police station. So it is. clearly their duty to take preventative. action against the continuing molestation, but because the criminals are operating on behalf. of a state agency, the police are not carrying out. their duty. 1654 Tag: Show today's date Tag: 108960
  - 23
    - M I-5'Persecution why won' t the Brit ish p olice do thei r jo b and put a stop to i t? -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -= why won't the British police do their job and put a. stop to it? -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- The British police obviously do know what is taking. place. Besides my interpretations of what individual. officers have said which forces that conclusion, it would. be inconceivable for them to be unaware of something on this. scale. If they know, then they will know. that the abusers have broken laws in the UK and. abroad. Recently the UK introduced laws against electronic spying which carry a penalty of several years jail if caught. If. the police know illegal harassment. is taking place, and do nothing about it, then they are failing in. their responsibilities. Last Easter (1995) I went into the local police station in London and. spoke to an officer about the harassment against me. But. I couldn't provide tangible evidence;. what people said, in many cases years ago, is beyond proof, and without something to support my statements. I cannot expect a police officer to take the complaint. seriously. The current situation with regard to the police is not one which. allows a breakthrough in dealing with. the problem. On the one hand, most individual officers at a. local police station may not know about the ongoing assaults, so a complaint at that level will not yield results.. Yet the police as an organisation. do know of the harassment, and they must be aware that a complaint has been made at a police station. So it is clearly. their duty to take preventative action against the continuing molestation,. but because the criminals are operating. on behalf of a state agency, the police are not carrying out. their duty. 1654 Tag: Show today's date Tag: 108959
  - 24
    - M.I,5.Persecut ion - Be rnard Lev in exp resses hi s v iews The article of which part is reproduced below was penned by. Bernard Levin for the Features section of the Times on. 21 September 1991. To my mind, it described. the situation at the time and in particular a recent meeting with a friend, during which I for the. first time admitted to someone other than my GP. that I had been subjected to a conspiracy of harassment over the previous year and a. half. >There is a madman running. loose about London, called David Campbell; I have >no reason to believe that he. is violent, but he should certainly be >approached with caution. You may know him by the curious glitter. in his >eyes and a persistent trembling of his hands; if that does. not suffice, you >will find him attempting to thrust no fewer than 48. books into your arms, >all hardbacks, with a promise that, if you should return. to the same >meeting-place next year, he will heave another. 80 at you. > >If, by now, the police have arrived and. are keeping a close watch on him, >you may feel sufficiently emboldened. to examine the books. The jackets are >a model. of uncluttered typography, elegantly and simply laid out; there is >an unobtrusive colophon of a rising sun,. probably not picked at random. >Gaining confidence - the. lunatic is smiling by now, and the policemen, who >know. about such things, have significantly removed their helmets - you >could do worse than. take the jacket off the first book in the pile. The >only word possible to describe the binding. is sumptuous; real cloth in a >glorious shade of dark green, with the title and author in black and. gold >on. the spine. > >Look at it more closely; your eyes do not deceive you - it. truly does have >real top-bands and tail-bands, in yellow, and, for good. measure, a silk >marker ribbon in a lighter green. The paper is. cream-wove and acid-free, >and the book is sewn,. not glued. > >Throughout the. encounter, I should have mentioned, our loony has been >chattering away, although. what he is trying to say is almost impossible to >understand; after a time, however, he. becomes sufficiently coherent to make >clear that he is trying to sell the books to you.. Well, now, such quality >in. bookmaking today can only be for collectors' limited editions at a >fearsome. price - #30, #40, #50? > >No, no, he says, the glitter more powerful. than ever and the trembling of >his hands rapidly spreading throughout. his entire body; no, no - the books >are priced variously at #7, #8 or #9, with the. top price #12. > >At this, the policemen understandably put their helmets back on;. one of >them draws his truncheon and the. other can be heard summoning >reinforcements on his. walkie-talkie. The madman bursts into tears, and >swears it. is all true. > >And. it is. > >David Campbell has acquired. the entire rights to the whole of the >Everyman's Library, which died a lingering and shameful death a decade. or >so ago, and he proposes to start it. all over again - 48 volumes this >September and 80. more next year, in editions I have described, at the >prices specified. He proposes to launch his amazing venture. simultaneously >in. Britain and the United States, with the massive firepower of Random >Century at. his back in this country, and the dashing cavalry of Knopf >across the water, and no one who. loves literature and courage will forbear >to. cheer. At the time this article. was written I had believed for some time that columnists in the Times and. other journalists had been making references to my situation. Nothing unusual about this. you may think, plenty of people have the same sort. of ideas and obviously the papers aren't writing about them,. so why should my beliefs not be as false as those of others? What. makes this article so extraordinary is that three or four days immediately preceding its publication, I had a meeting with. a friend, during the course of which we discussed the media. persecution, and in particular. that by Times columnists. It seemed to me, reading the article by Levin in Saturday?s paper, that. he was describing in some detail his "artist?s impression" of that meeting.. Most telling are the final sentences, when he writes, "The madman bursts into. tears, and swears it is all. true. And it is." Although I did not "burst into tears" (he seems to be using a bit of. poetic licence and exaggerating) I did try hard to convince my. friend that it was all true; and I am able to concur with Mr Levin, because, of course, it. is. At the beginning of the piece Levin reveals a fear of. being attacked by the "irrational" subject of his story, saying. "I have no reason to believe that he is violent, but he. should certainly be approached with caution". This goes back to the. xenophobic propaganda of "defence" against a "threat" which. was seen at the very beginning of the harassment. The impression of a "madman running loose" who needs. to be controlled through an agency which assigns to itself the mantle of the "police" is also. one which had been expressed. elsewhere. In the final. paragraph of this extract, his reference to Everyman?s Library as having "died a lingering and shameful death a decade or so. ago" shows clearly what sort of conclusion they wish to their campaign. They. want a permanent solution, and as. they are prevented from achieving that solution directly, they waste. significant resources on methods which have been repeatedly shown. to be ineffective for such a purpose. 1654 Tag: Show today's date Tag: 108958
  - 25
    - M'I.5,Persecutio n ' Berna rd Levi n express es hi s v iews The article of which part is. reproduced below was penned by Bernard Levin for the Features section of the Times on 21 September 1991.. To my mind, it described the situation at the time and in. particular a recent meeting with a friend, during which I for the first time admitted. to someone other than my GP that I had been subjected. to a conspiracy of harassment over the previous year and. a half. >There is a madman running loose about London, called David Campbell; I. have >no. reason to believe that he is violent, but he should certainly be >approached with caution. You may know. him by the curious glitter in his >eyes and. a persistent trembling of his hands; if that does not suffice, you >will find. him attempting to thrust no fewer than 48 books into your arms, >all hardbacks, with a promise. that, if you should return to the same >meeting-place next. year, he will heave another 80 at you. > >If, by now, the police have arrived and are keeping a. close watch on him, >you may feel sufficiently emboldened to examine the. books. The jackets are >a model of uncluttered typography, elegantly and simply laid out; there. is >an unobtrusive colophon of a rising sun, probably. not picked at random. >Gaining confidence - the lunatic is smiling by now, and the. policemen, who >know about. such things, have significantly removed their helmets - you >could do worse than take the jacket off the. first book in the pile. The >only word. possible to describe the binding is sumptuous; real cloth in a >glorious shade of dark green, with. the title and author in black and gold >on the. spine. > >Look at it more closely; your eyes do not. deceive you - it truly does have >real top-bands and. tail-bands, in yellow, and, for good measure, a silk >marker ribbon in a lighter. green. The paper is cream-wove and acid-free, >and the book is sewn, not. glued. > >Throughout the encounter, I should. have mentioned, our loony has been >chattering away, although what he is. trying to say is almost impossible to >understand; after a time, however, he becomes. sufficiently coherent to make >clear that he is. trying to sell the books to you. Well, now, such quality >in bookmaking today can only. be for collectors' limited editions at a >fearsome price -. #30, #40, #50? > >No, no, he says, the glitter. more powerful than ever and the trembling of >his hands rapidly spreading throughout his entire body; no, no - the. books >are priced variously at #7, #8 or #9, with. the top price #12. > >At this, the policemen understandably put their helmets back on; one. of >them draws his truncheon and the other. can be heard summoning >reinforcements on his. walkie-talkie. The madman bursts into tears, and >swears. it is all true. > >And it. is. > >David Campbell has acquired the entire. rights to the whole of the >Everyman's Library, which died a lingering and shameful death. a decade or >so ago, and he proposes to start. it all over again - 48 volumes this >September and 80 more next year, in editions I have. described, at the >prices specified. He proposes to launch his. amazing venture simultaneously >in Britain. and the United States, with the massive firepower of Random >Century at his back in this country, and the. dashing cavalry of Knopf >across the. water, and no one who loves literature and courage will forbear >to. cheer. At. the time this article was written I had believed for some time that columnists in the Times and other journalists had been. making references to my situation. Nothing unusual about this you may think,. plenty of people have the same sort of ideas and. obviously the papers aren't writing about them,. so why should my beliefs not be as false as those of others? What makes this article so extraordinary is that. three or four days immediately preceding its publication, I had. a meeting with a friend, during the. course of which we discussed the media persecution, and in particular that by Times columnists. It. seemed to me, reading the article by. Levin in Saturday?s paper, that he was describing in some detail his "artist?s impression" of that meeting. Most telling are the. final sentences, when he. writes, "The madman bursts into tears, and swears it is all true. And it is." Although I did not "burst into tears" (he seems. to be using a bit of poetic licence and exaggerating) I did. try hard to convince my friend that it was all true; and I. am able to concur with Mr Levin, because, of course,. it is. At the beginning of the piece Levin reveals. a fear of being attacked by the "irrational" subject of his story,. saying "I have no reason to believe that he is violent, but he should. certainly be approached with caution". This goes. back to the xenophobic propaganda of "defence" against a "threat" which was seen at the. very beginning of the harassment. The impression of a "madman running loose" who. needs to be controlled through an agency which assigns. to itself the mantle of the "police" is also one which had been expressed. elsewhere. In the final paragraph of this extract, his reference to Everyman?s. Library as having "died a lingering and shameful death a decade or so. ago" shows clearly what sort of conclusion they wish to their campaign.. They want a permanent solution, and as they are prevented from achieving. that solution directly, they waste significant resources on methods. which have been repeatedly shown to be ineffective. for such a purpose. 6514 Tag: Show today's date Tag: 108957

Hi! Every day I write a report. In the heder of that report is todya's date.
Is there any way that I can write code (or some other way) so that the date
in the header is always todays date? Thanks!

Top

Re: Show today's date by Doug

Doug
Mon Jan 07 11:08:28 PST 2008

In the template that you use for the report, insert a { CREATEDATE } field.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Arne Hegefors" <ArneHegefors@discussions.microsoft.com> wrote in message
news:EA5C118B-05C3-4BEB-AC3E-D38027F7E4D7@microsoft.com...
> Hi! Every day I write a report. In the heder of that report is todya's
> date.
> Is there any way that I can write code (or some other way) so that the
> date
> in the header is always todays date? Thanks!

Top