Subroutine Library

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Subroutine Library Tag: 109091
  - 2
    - 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: Subroutine Library Tag: 109087
  - 3
    - 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: Subroutine Library Tag: 109085
  - 4
    - 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: Subroutine Library Tag: 109082
  - 5
    - 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: Subroutine Library Tag: 109078
  - 6
    - 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: Subroutine Library Tag: 109076
  - 7
    - 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: Subroutine Library Tag: 109075
  - 8
    - 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: Subroutine Library Tag: 109074
  - 9
    - 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: Subroutine Library Tag: 109067
  - 10
    - 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: Subroutine Library Tag: 109047
  - 11
    - 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: Subroutine Library Tag: 109046
  - 12
    - 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: Subroutine Library Tag: 109045
  - 13
    - 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: Subroutine Library Tag: 109042
  - 14
    - 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: Subroutine Library Tag: 109032
  - 15
    - 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: Subroutine Library Tag: 109030
  - 16
    - 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: Subroutine Library Tag: 109021
  - 17
    - 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: Subroutine Library Tag: 109019
  - 18
    - 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: Subroutine Library Tag: 109017
  - 19
    - 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: Subroutine Library Tag: 109011
  - 20
    - 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: Subroutine Library Tag: 109010
  - 21
    - 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: Subroutine Library Tag: 109009
  - 22
    - 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: Subroutine Library Tag: 109002
  - 23
    - 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: Subroutine Library Tag: 108998
  - 24
    - 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: Subroutine Library Tag: 108997
  - 25
    - 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: Subroutine Library Tag: 108994
- Next
  - 1
    - 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: Subroutine Library Tag: 108993
  - 2
    - 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: Subroutine Library Tag: 108984
  - 3
    - 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: Subroutine Library Tag: 108983
  - 4
    - 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: Subroutine Library Tag: 108982
  - 5
    - 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: Subroutine Library Tag: 108979
  - 6
    - 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: Subroutine Library Tag: 108970
  - 7
    - 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: Subroutine Library Tag: 108968
  - 8
    - 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: Subroutine Library Tag: 108967
  - 9
    - 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: Subroutine Library Tag: 108964
  - 10
    - 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: Subroutine Library Tag: 108963
  - 11
    - 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: Subroutine Library Tag: 108962
  - 12
    - 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: Subroutine Library Tag: 108961
  - 13
    - 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: Subroutine Library Tag: 108960
  - 14
    - 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: Subroutine Library Tag: 108959
  - 15
    - 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: Subroutine Library Tag: 108958
  - 16
    - 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: Subroutine Library Tag: 108957
  - 17
    - M'I`5 Persec ution ' who kn ows ab out i t? -=-=-=-=-=-=-=-=-=-=-=-=- -=. who knows about it? =- -=-=-=-=-=-=-=-=-=-=-=-=- Many people know, both in the establishment and media,. and among the general public. Despite an absence of its target. from the UK for more than two years, the echoes of paranoia can still be heard loud. and clear from across the water. When it. started in 1990, the only people who knew were those in BBC television who were spying on. my home, and a few radio broadcasters. There were. a few cases of public harassment, but very little compared to the situation that developed a couple of years. later. The list today includes BBC TV staff (newsreaders. such as Martyn Lewis, Michael Buerk, Nicholas. Witchell), people from radio stations such as Chris Tarrant of Capital and Radio 1 DJs,. people in the print media, but also many people in the general public. All. united in a conspiracy which breaks the laws which the UK. does have regarding harassment, and all completely uncaring for. any semblance of decency or elementary respect for. individual rights. The British police (obviously) do know the nature of the harassment and. in all probability the identity of those behind it. Some time ago. I made a complaint to. my local police station in London, without positive result. The UK police. are failing in their duty to see the law enforced in not checking the. abuse. 4084 Tag: Subroutine Library Tag: 108956
  - 18
    - how to create a keyboard layout for arabic language? hello, i found a few arabic keyboard layout on the net but i was not satisfied with their letter arrangement, also the default arabic keyboard layout provided in Win Xp didn't suit me either, so i thought of creating one myself, i came to know of microsoft's keyboard layout creator and used it but after doing everything and finalizing the project, creating dll's and a setup, when i installed the layout, i didn't get the results that i was hoping for. the font that i chose for creating the layout was no where to be seen in ms-word, plus other arabic fonts already installed would not correspond to the keystrokes. so can some one help me out here, and assis me in creating a custom phonetic arabic keyboard layout? Tag: Subroutine Library Tag: 108955
  - 19
    - M`I 5.Pers ecution . ho w an d wh y di d it st art? -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -= how and why. did it start? -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- The harassment didn't start by itself, so someone. must have been there at the outset to give. it a firm push and set the "animals" after me. It looks as if I was set up in June. 1990, and the timing indicates someone from university. was responsible. >One thing which has been missing from this discussion is this. simple >prognosis: that maybe he is right and that, despite. his admitted >mental condition, there really is a. campaign against him organised by >now-influential ex-students of. his university. In May or June 1990, Alan Freeman on Radio 1 read out a letter. from someone who had known me for a few years, who. wrote of the one who "wore out his welcome with random precision" (from the Pink. Floyd song). Freeman went on to say to. the writer "that's a hell of a letter you wrote there". The indication is strongly that people I had parted from soon before nursed. a grudge against me and were trying to cause trouble. for me. The suggestion is that Freeman might. have shown the letter to other people, and things could. have snowballed from there. Right from the start the real source (security services presumed). didn't announce themselves as the origin, but let the "talkers",. the radio DJs, believe that they were the originators. Think about it; if you. announce, "we're MI5 and we have a campaign against this bloke" then people might. not go along with it; but if you say, "everyone else is getting at this. bloke because he 'deserves' it" then people will join in. with fewer qualms. >Why would "they" wish to. assassinate your character? It's the classic case of hitting a. cripple to prove you're stronger. Why would the security services expend hundreds of thousands. of pounds and more than six years. of manpower to try to kill a British citizen? Because they are motivated by people who knew me at university and feel. personal animosity; because they. knew me to be emotionally weak, and it is in the nature of bullies to prey on those known to be weak; and. because they can rely. on the complicity of the establishment, which the security services manipulate and derive funding from. This is. England's biggest humiliation today, and the British security services are intent on. preventing their humiliation becoming reality by. continuing their campaign of attempted murder. to suppress the truth from becoming public. 1654 Tag: Subroutine Library Tag: 108953
  - 20
    - M.I'5`Perse cution - co st of th e ope ration -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -= MI5: cost of the. operation -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Here's what a couple of other people on Usenet (uk.misc). had to say regarding the cost of. running such an operation... PO: >Have some sense, grow up and. smell reality. What you are talking about PO: >would take loads of planning,. tens of thousands of pounds and lots of PO: >people involved in the planning, execution and maintenance. of it. You PO: >must have a very. high opinion of yourself to think you are worth it. PM: >But why?. And why you? Do you realize how much it would cost to keep PM:. >one person under continuous surveillance for five years? Think about PM: >all the man/hours. Say. they _just_ allocated a two man team and a PM: >supervisor. OK., Supervisor's salary, say, #30,000 a year.. Two men, PM: >#20,000 a. year each. But they'd need to work in shifts -- so it would PM:. >be six men at #20,000 (which with on-costs would work out at more like PM: >#30,000 to the employer.). PM:. > PM: >So,. we're talking #30,000 x 6. #180,000. plus say, #40,000 for the PM:. >supervisor. #220,000. Then you've got the hardware involved. And PM:. >any transcription that needs doing. You don't think the 'Big Boss' PM: >would listen. to hours and hours of tapes, do you. PM:. > PM: >So, all. in all, you couldn't actually do the job for much less than PM: >a quarter million a year. Over five years. What are you doing that. makes PM: >it worth the while of the state to spend over one and a quarter. million PM: >on. you? Those are pretty much the. sort of calculations that went through my head once I stopped to consider what it must be costing them to run. this operation. The partial answer is,. there have been periods when the intensity has been greater, and times when little has. happened. In fact, for. much of 1993 and the first half of 1994, very little happened. Although I don't think that was for reasons of money - if they. can tap into the taxpayer they're not going to. be short of resources, are they? The more complete answer is in the enormity. of what they're doing. Relative to the cost to British. pride of seeing their country humiliated for the persecution of their own citizens, isn't is. worth the cost of four or five people to try to bring things to a close. in the manner they would wish? To the government a million or two is quite honestly. nothing - if they can convince themselves of the necessity. of what they're doing, resources will not be. the limiting factor. 8944 Tag: Subroutine Library Tag: 108951
  - 21
    - M'I.5,Persecution Cap ital Radi o - Ch ris Tarran t -=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-= -=. Capital Radio - Chris Tarrant -= -=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-= Capital Radio DJs have been "in on it". from the start. One of the first things I heard in the summer. of 1990 was from a Capital DJ who said, "If he. listens to Capital then he can't be all bad" (supportive, you see. We're not bastards).. Much of what came over the radio in 1990 is now so far away the. precise details have been obliterated by time. No diary was kept of the details, and although archives if they exist may give. pointers, the ambiguity of what broadcasters said would leave. that open to re-interpretation. In spring 1994, Chris Tarrant on his Capital morning show made. an aside to someone else in the studio, about a person he didn't. identify. He said, "You know this bloke? He says we're. trying to kill him. We should be done for attempted. manslaughter". That mirrored something I had said a day or two before. What Tarrant. said was understood. by the staff member in the studio he was saying it to; they said, "Oh no, don't say that" to Tarrant. If any archives exist of. the morning show (probably unlikely) then it could be. found there; what he said was so out of context that he would be very hard put to find an. explanation. A couple of days later, someone at the site where I was. working repeated the remark although in a different way;. they said there had been people in a computer room when automatic fire extinguishers went off. and those people were. "thinking of suing for attempted manslaughter". Finally, this isn't confined. to the established radio stations. In 1990 after I had listened to a pirate radio station in South. London for about half an hour, there. was an audible phone call in the background, followed by total silence for a few moments, then shrieks of laughter. "So what. are we supposed to say now? Deadly torture? He's going to talk to us now,. isn't he?", which meant that they could hear. what I would say in my room. 6514 Tag: Subroutine Library Tag: 108950
  - 22
    - M-I 5-Persecution . bugg ing a nd counter-surveillance -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -= MI5: bugging. and counter-surveillance -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- PO: >Did you ever. look for the bugs in your house ? If not, why not ? I mean if PO: >I thought that was happening. to me, I'd search the place from top to bottom, PO: >I mean I live there I would know if anything was. out of place. If I was PO: >really suspicious, I. would call in one of those bug detection teams which PO: >have those machines that pick up the transmitted radio waves.. This PO: >reminds me of BUGS,. that new programme on BBC1 on That's exactly. what we did. We went to a competent, professional detective agency in London, paid them over 400 quid. to debug our house. They used scanner devices which go to. over 1 GHz and would pick up any nearby transmitter in that range, they also checked the phones. and found nothing... but if the tap was at the exchange, then they wouldn't. find anything,. would they? CS: >Doesn't this suggest to you that there. are, in fact, no bugs to be found? You can assume that they've done this. sort of thing to other people in more "serious" cases, where they would know the targets would suspect. the presence of electronic surveillance.. So they will have developed techniques and devices which are. not readily detectable either by visual inspection or by electronic means. What those techniques might. be, I couldn't guess. In this case, the existence of bugging devices. was clear from the beginning,. and they "rubbed it in" with what was said by the boy on the coach. It. was almost as if they wanted counter-surveillance people to be called in, who. they knew would fail to detect the bugging devices, causing loss of credibility to the other things I. would have to say relating to the harassment. I did all the things someone in my situation would do. to try to find the bugs. In addition to calling in professional. help using electronic counter-surveillance, I made. a close visual inspection of electrical equipment, plus. any points where audio or video surveillance devices might have been concealed. Of course, I found nothing.. Normal surveillance "mini-cameras" are. quite noticeable and require visible supporting circuitry. It. seems to me the best place to put a small video surveillance device would be additional to. a piece of electronic equipment such as a TV or video. It. would be necessary to physically break in to a property to fit such a. device. 4084 Tag: Subroutine Library Tag: 108949
  - 23
    - M`I,5-Persecut ion - the B BC, television and r adio -=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-= -=. the BBC, television and radio -= -=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-= The first incident in June. 1990 was when a BBC newsreader made what seemed to be a reaction to something which. had happened in my home, and out of context. of what they were reading. My first reaction was disbelief; nothing of the sort had ever happened before, the idea that such a thing. could occur had not crossed my mind, yet there was no doubt of what had. just taken place. My disbelief. eroded as this recurred time after time. Besides the news,. offenders included shows such as Crimewatch (!), Newsnight, and "entertainment" shows. There. seems to be very little moral understanding among the people. who make these programmes; they just assume they will never be. caught, so they carry on without a thought for the illegality or amorality of what they do. The only time. I ever heard a word raised in doubt was by Paxman being. interviewed by someone else (I think by Clive Anderson) back in. 1990; referring to the "watching" he said it troubled him,. and when asked by the host what you could do about it, replied "Well, you could just switch it. off" (meaning the surveillance monitor in the studio). He clearly didn't let. his doubts stand in the way of continued surreptitious spying from his own or other people's shows,. though. Now you're convinced this is a troll,. aren't you? This story has been the subject of much debate on the uk.* Usenet newsgroups. for over a year, and some readers believe it to be an invention. (it has even been suggested that a. group of psychology students are responsible!), others think it symptomatic of a derangement of the author, and a few give. it credence. Quite a few people do know part or all of the story already, so this. text will fill in the. gaps in their knowledge. For the rest, what may persuade you of the third possibility is. that some of the incidents detailed are checkable. against any archives of radio and TV programmes that exist; that the incidents involve named people. (even if those hiding in the shadows have not made their identity or affiliations evident), and. those people may. be persuaded to come out with the truth; and that the campaign of harassment is continuing today both in the UK and on the. American continent, in a none-too-secret fashion; by. its nature the significant risk of. exposure increases with time. On several occasions people said to my face that harassment from the TV. was happening.. On the first day I worked in Oxford, I spent the evening in the local pub with the. company's technical director Ian, and Phil, another employee. Ian made a few references to me and said to Phil,. as if in an aside, "Is he the bloke who's been on TV?" to. which Phil replied, "Yes, I think. so". I made. a number of efforts to find the bugs, without success; last year we employed. professional counter-surveillance people to scan for bugs (see later) again without. result. In autumn 1990 I disposed of my TV and watched virtually no television for the next three years. But. harassment from TV stations has gone on for over six years and continues to this day. This. is something that many people obviously know is happening; yet the TV. staff have the morality. of paedophiles, that because they're getting away with it they feel no. wrong. Other people. who were involved in the abuse in 1990 were DJs on BBC radio stations, notably disc jockeys from Radio 1 and other stations. (see the following section). Again, since they. don't have sense in the first place they. can't be expect to have the moral sense not to be part of criminal harassment. 1654 Tag: Subroutine Library Tag: 108948
  - 24
    - Using Events with AddIns I have a document template with the following code: A standard project module: Option Explicit Private myDynamicMenu As myClass1 Sub AutoOpen() Set myDynamicMenu = New myClass1 End Sub A Class Module (myClass1): Option Explicit Private WithEvents mWordApp As Word.Application Private Sub Class_Initialize() Set mWordApp = Word.Application End Sub Private Sub mWordApp_WindowSelectionChange(ByVal oSel As Selection) MsgBox "Test" End Sub When I change the selection the Msgbox fires. When I try to use this template as an AddIn, the Msgbox doesn't fire. I am thinking that this is because the class isn't initialized when the AddIn is loaded. How do I modify this code so that if this code was in an AddIn and the AddIn is loaded then I would see the message box every time the selection is changed? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Subroutine Library Tag: 108945
  - 25
    - Automated Forms issue G'day there One & All, Please forgive my indiscretion if I've contravened polite usage of crossposting. I've not needed to send to more than one group before so I'm unsure of the protocols or accepted practices. I'm currently working on an automation project in which I have a report in Word that refers to data in various Excel worksheets which are of different layouts. The layouts are preset (by higher powers than my humble position) in the database report builder and I have no ability to influence the layouts or formats. To select which cells are referred to for data I have a form in my Word document which is used to select & open the appropriate Excel document - fortunately there is only a single worksheet in each workbook - and then allow my users to simply click on a cell to select the appropriate heading or list. I don't want to hijack my user's systems and prevent them from opening or using other applications (although a few of them are absolute gumbys and that wouldn't be a bad idea) but I want to keep my automation windows layered so that I have the Word document on the bottom, Excel window next, then my userform. I don't care if anyone wants to check their email while it's open, but when they come back to work on it I want it to have my windows in that order. At the moment, the form appears; I select & open the desired workbook; I click the control to select the worksheet cell and when I click the worksheet cell the Excel application is brought to the front of the screen - which is exactly what I expected, but I want my modeless form to remain on top as I switch Office applications. Is it possible in some way to switch the parent of the form in mid run? I've not found such a procedure and doubt it's possible but more knowledgeable minds may be able to think of somehow to do it. I don't know if it's possible to do any the above, but the only alternative I can think of is to write code in Word to insert code in Excel and its VBE that builds a userform with its code to run in the XL app. Something I may spend weeks writing only to find it doesn't work anyway. Thanks for listening, Ken McLennan Qld, Australia Tag: Subroutine Library Tag: 108940

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?

Top

Re: Subroutine Library by fumei

fumei
Wed Jan 09 13:49:42 PST 2008

As this is the Word programming forum, the answer is: global template files.

ALL - just about - my code modules are in global templates. These are loaded,
or unloaded as required. I have virtually nothing at all in my normal.dot.

For example, my main code library has:

modBookmarks - all my procedures that deal with bookmarks
modFormfields - all my procedures that deal with formfields
modNavigation - navigation procedures
modPrintingStuff - duh......
modStringSubs - various string manipulation functions and procedures
modTables - for a bunch of procedures dealing with tables

etc. etc.

I do NOT have this code library file in Startup. I have a wee .dot file in
Startup that has a simple and small procedure that allows me to load/unload
my various global templates (code containers...routine libraries..whatever
you want to call them) from a network folder.
Larry wrote:
>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?

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200801/1

Top