Next Bullet

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - ChangeFileOpenDirectory I have installations of the identical VBA program on 20 different computers. I use the following command with some frequency. ChangeFileOpenDirectory newpath With Dialogs(wdDialogFileOpen) .name = "*.doc" CloseNum = .Show End With The command works perfectly on 19. One the 20th it refuses to work. The MyDocuments folder consistently opens when the section of code is encountered. I have doubled the "ChangeFileOpenDirectory newpath" command (I found that suggestion on a board) but that doesn't work either. When I step through (debugging) the vba code it works fine, so I know that the connections are intact. Any thoughts? Ed (in Virginia) Tag: Next Bullet Tag: 107838
  - 2
    - startup folder problem Hi! I have a problem with my global template. I have made several templates and since the most of the functions I have made are the same for the templates I have put my code in two global templates. I have organized my templates in some folders and in Word I set the path to the templates and to the startup folder. It works fine most of the time, but... If I do not have Word open, right click on a document in explorer and choose print then I get the message "could not open global.dot". However if I copy the global templates to C:\Program files\Microsoft Office\OFFICE11\STARTUP it works. Why? I meen I did change the path for the startupfolder in word but it does not seem to matter. Is it something special with this "default" startup folder? Tag: Next Bullet Tag: 107834
  - 3
    - document.Merge() gives inconsistent results (this is a copy of a post I sent to a couple other groups but haven't had a reply) hello, in office 2003, if you did document1.Merge(document2) it would report a line that is in document1 but not in document2 as inserted, and a line that is in document2 but not in document1 as deleted. i.e. it would assume that document1 is the "new" document and document2 is the "old" document. in office 2007 it is almost always the other way round i.e. assumes document1 is the old and document2 is the new (AFAICR this is the same as previous versions of office before 2003 used to do) no problem so far, I just detect in my application (c# .net 2.0 FWIW) which version of word I am connected to, and set the sense of the comparison accordingly HOWEVER, under office 2007, for some pairs of documents, I get the same result regardless of whether I call: document1.Merge(document2) or document2.Merge(document1) I.E. word 2007 is "intelligently" deciding which is the "new" and which is the "old". from my experiments it does not seem that this has to do with the file time stamp or the 'last saved' property. Does anyone know how word 2007 decides which is the newer document and if there is any way I can override it to force the sense of the comparison. TIA Andy Tag: Next Bullet Tag: 107833
  - 4
    - Read & Write Files in Document format with out installing MSWord. Hi All, I am need of a dll or code that can operate on Document format files with all the properties. I must be able to add text, read text, place headers/footers, align pargraphs e.t.c. I must do all these with out Installing MSword in my machine. Is this possible, if so can anybody help me please.... Thanks & Regards, M.Satyanarayana. Tag: Next Bullet Tag: 107831
  - 5
    - Retrieve full path to an attached template when path doesn't exist Hi there, We are using Microsoft Office 2000. Our Workgroup Templates path is going to change, so I need to write a macro to update the path if appropriate. I know I can retrieve properties about an attached template using ActiveDocument.AttachedTemplate.<Property> if the file exists. I can also get the name of the attached template using ActiveDocument.BuiltInDocumentProperties(wdPropertyTemplate). Is there a way to retrieve the value in the Tools ==> Templates and Add-In... Template field when the path to the template no longer exists. Regards, Barry. Tag: Next Bullet Tag: 107821
  - 6
    - Trouble with First Page Different in a Word Document Macro I have a memo template with the company logo on the first page in a header and nothing in the footer. If the memo goes more than one page, from page 2 to the end have no header, but do have a footer with the page number and a smaller company logo. Because of this, First Page Different is checked off in Page Setup. Some people want to be able to insert a landscape table page into the middle of the document. When they section off the document to add these pages, the logo from the first page is displayed on their page. I am trying to create a macro to help the staff that are trying to do this, by having the macro insert the landscape page with the footer that is on all of the pages other than the first page (the page number and smaller logo), followed by a portrait page so they will be ready to type again. However, I cannot get the macro to stop putting in the logo from the first page, even though I have .DifferentFirstPageHeaderFooter = False. I only know how to create macros by example, so this is difficult for me. I hope you can help, because I've tried everything. Thank you for your time. Tag: Next Bullet Tag: 107817
  - 7
    - Cannot set language from macro in Word 2007. I have a selection that includes some Unicode characters (specifically Pinyin). The pinyins are treated as if Chinese and are rendered using the font for Far Eastern Text, which is Simsun. I want these to be rendered as TimesNewRoman, and if I set the selection of the language to EnglishUK, the change takes place as I expect. However, I need to do this in a macro that generates the selected text. If I record the steps in a macro, the change takes place as I record it. But If I then use the recorded macro to do the same thing, the changes do not occur. I cannot find a work-round. Does anyone have any ideas? Tag: Next Bullet Tag: 107815
  - 8
    - Unicode characters in const string I want to put Unicode characters in a constant string from which individual characters will be programmatically selected. Using ChrW is not possible because const does not allow the use of a function. Tag: Next Bullet Tag: 107812
  - 9
    - How alter word 2003 doc last page footer without altering other pa How can the last page footer of a Word 2003 document programmatically be altered without altering the other pages? A word template document is used with a visual basic program to generate over 26,000 individual word documents using details from a file. The individual word documents can have between 2-30 pages. The footer of this word template document contains a two cell table. Cell 1 of this table must contain a different value for the first, middle, and last pages of the word document. For example, the first page cell 1 must be 20. Last page cell 1 must be 10. The middle pages must be 00. The cell 1 values increment for each document and are not the same for each document. If a section break is manually or programmatically added before the footer of the last page, the first page either appears blank or it becomes section 1 with the rest of the pages becoming section 2 even though the goal was for the last page footer to become section 2. Inserting a page at the end of the document and then attempting the section break has the same results. How can a section break be forced before the last footer without impacting the other pages? -- J Smythee Tag: Next Bullet Tag: 107804
  - 10
    - code required Hi Is there any way of reading and modifying word document page by page in VBA....if so can anybody give me the piece of code Awaiting for early response Thanks & Regards Kalyan Tag: Next Bullet Tag: 107802
  - 11
    - Formatting based rendering of quotes How can I set up Word so that when I am in a Courier New font section, and type a single or double quote at the keyboard, it will use Ascii 39 (') or Ascii 34 ("), respectively? Details: I'm writing a document in word (Word 2003 on Win XP Pro) with the default Times New Roman, 12pt formatting. In some sections I am showing computer code, and for those sections I use Courier New, 10pt. The problem is that when I type a single quote or a double quote in the code sections, they come out as ?left leaning? or ?right leaning quotes? (ie matched quotes), instead of the 'straight' "quotes" (Ascii 39 and Ascii 34) that code parsers understand. And I'm getting sick of copying single/double quotes from prior code sections and overpasting them. Hence my question. Csaba Gabor from Vienna PS. I originally sent this during the past weekend, evidently in the midst of the "MI5 posting attack" and my Thunderbird newsreader showed it as sent, but it never showed up in the newsgroup. Anyone know what the story is on that? Tag: Next Bullet Tag: 107799
  - 12
    - Populating userform/sharing data I have two templates, each with their own userforms and they work just fine. Under certain conditions (a checkbox in userform1 = True) a new document based on template2 is created. Again this is working fine. The two documents/templates share a couple of pieces of info and the problem I'm having is populating userform2 with the relevant info from userform1. At the moment a command button on userform1 has the code to populate the bookmarks in template1. The code to test the creation of document2 is in the terminate event of userform1. The two templates must also remain separate, in that a new document can be created from template2 without anything to populate from template1. I hope that makes some sense! Any pointers will be gratefully appreciated. h. Tag: Next Bullet Tag: 107780
  - 13
    - VBA - code for border for a table In Word 97, I have the following code which takes the selected rows from a userform and inserts the data in table format into the Word document. Ideally, I would like the table to be indented at 2.5cm (that is, the left-hand border of column 1 is positioned at 2.5cm). What do I need to include into the code to position the table at that location? Thank you for any suggestions. Private Sub CommandButton1_Click() Dim x As Long, y As Long, tbl As Table, n As Integer x = ListBox1.ColumnCount + 1 ' Count the number of selected records for creation of the table n = 1 For y = 2 To ListBox1.ListCount + 1 If ListBox1.Selected(y - 2) = True Then n = n + 1 End If Next y Selection.TypeParagraph Set tbl = ActiveDocument.Tables.Add(Selection.Range, n, x) tbl.Range.Borders.Enable = False Dim tblcell As Cell For Each tblcell In tbl.Range.Cells tblcell.Borders.Enable = False Next tblcell tbl.Columns(1).Width = CentimetersToPoints(2.7) tbl.Columns(2).Width = CentimetersToPoints(4.75) tbl.Columns(3).Width = CentimetersToPoints(3.25) tbl.Columns(4).Width = CentimetersToPoints(3.25) tbl.Columns(5).Width = CentimetersToPoints(3.25) Dim rg As Range tbl.Columns(4).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft tbl.Columns(5).Select Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft Dim rgStart As Range, rgEnd As Range tbl.Range.Font.Size = 11 tbl.Range.Font.Name = "Times New Roman" tbl.Range.ParagraphFormat.SpaceBefore = 2 tbl.Range.ParagraphFormat.SpaceAfter = 2 tbl.Range.ParagraphFormat.LineSpacing = 12 Tag: Next Bullet Tag: 107776
  - 14
    - Can you capitalize a word in speach recognition> Does anyone know how to capitalize a proper name in the middle of a sentenance when using the voice recognition program in Word 2003? Tag: Next Bullet Tag: 107775
  - 15
    - what is the format xm. file bibliography? where? I'm trying to use word 2007 to write a scientific document, so I started using the new tools to insert citations and bibliography. All this is nice, BUT I can't import my bibliography database to word, this is what Iâ??m doing: Access: Assign the same labels to these use in word (Author, tag, etc.) Export data to a *.xml file Word Manage Sources: Browse, Choose my file Error: this is not a bibliography file It is highly inefficient to write each citation using the tool design for that in Word, especially when one is using about 300 citations I have been looking for the file: http://schemas.open.org/officeDocument/2006/bibliography Which seems to have the attributes for a bibliography file, but yet no success I'll appreciate any help Sandra Correa Tag: Next Bullet Tag: 107769
  - 16
    - Delete blank lines I'm trying to delete some blank lines in my document which are above a bookmark. I want the macro to count the number of blank lines immediately above the bookmark till the line that contains text. If there is more than 1 blank line it should delete it/them so as to leave a single blank line. Many thanks. Tag: Next Bullet Tag: 107763
  - 17
    - Add the document property of Subject to a table in a footer The table is already in the footer and the built in document property of Subject needs to be inserted into this 1 row 3 column table in every footer regardless of how many sections there are in the document. The field needs to be in the 1st column. I have the code working to delete anything in that row/column but can not get it to add without errors. -- CLG Tag: Next Bullet Tag: 107758
  - 18
    - Table numbering / STYLEREF problems Hi, this might not be the most appropriate group (in which case please redirect me), but I've had good luck here in the past... My table numbering is messed up, and it seems to be on account of the STYLEREF, bit I haven't the foggiest notion as to why. I'm on Word 2003 / XP Pro Example: In a fresh word document I put 4 lines with two newlines separating each: Chapter 1 text 1 Chapter 2 text 2 Below text 2 I insert a table, and the automatic table labelling has already been turned on (in a previous document today I selected an entire table, right clicked, selected Caption, AutoCaption, selected Microsoft Word Table, Use label: Table, Position: Below Item; Numbering: Format: A, B, C, ...; Include chapter number selected: Chapter starts with style: Heading 1; use separator: - ) What I get below the table is: Table Error! No text of specified style in document.-A where doing Alt + F9 shows Table { STYLEREF 1 \s }-{ SEQ Table \* ALPHABETIC \s 1 } If I now click in the select the Chapter 1 line, and apply style Heading 1 (from the dropdown with AA to the left I select Heading 1), and similarly for Chapter 2, and then I go back to the text under the table and right click, then Update Field, it shows: Table 0-A In a longer word document, where I originally created the AutoCaption, I have several chapters with style Heading 1, and there I can't get past that Table Error! I've looked on the web for this error, and there is mention, but none of the situations seems applicable here. Any ideas? Thanks, Csaba Gabor from Vienna Tag: Next Bullet Tag: 107756
  - 19
    - Macro Button that invokes an Acrobat PDF search? It would be wonderful if the great power provided by Acrobat PDF Advanced Search Options (when PDF full text indexing is used) could be seamlessly accessed by a Word user within Word, via a hyperlink or macro button. For example, if a tech writer is writing a proposal and needs to very quickly scan all past proposals for examples of [whatever], it would be wonderful if he/she could click on a macro button embedded in the proposal template for just this purpose. This envisioned macro would provide a dilaog box for the writer to type in a search phrase, and then it would launch an Acrobat Advanced Search, automatically passing that search phrase parameter to Acrobat where all past proposals reside, fully indexed, for this purpose. I suspect that macro button would also need to name the index(es) that the template creator intended to be used for that particular macro button. The overall idea is to get the user to the desired reference info as effortlessly as possible, rather than requiring them to go through a bunch of screens in Acrobat. (it takes at over eight mouse clicks to step outside of Word, find and launch Acrobat Reader, negotiate one's way to the indexed search screen, specify which indexes to use, and type the desired search phrase...some people could forget what they were looking for!) Could it be that I've come up with (gasp) a great new idea, or (more likely) i'm just describing something that already exists - or can't possibly exist? Tag: Next Bullet Tag: 107748
  - 20
    - Protected Forms with Macros An end-user will be filling out the Word document form fields in a protected docuemnt. I have created a table. Once they fill in data in the columns I would like the totals columns to auto sum. I figure the best way to do that was to have a macro run on entry in the field after the totals. However, once I protect the document, the macro wonâ??t run. I get a Microsoft Bisual Basic Run-Time Error 4605 "This method or property is not available because the document is a protected document". -- Darlene Tag: Next Bullet Tag: 107736
  - 21
    - Word 2003 has disappeared from my computer Whenever I try to save a Word document, I get a box saying that the content is not compatible with Word 97. I don't have Word 97. I installed Microsoft XP 2003 Student and Home about a year ago. I have since installed updates to bring the software up to service pack 2. I have tried every type of update I can think of, but when I tried to install Word 2003 update to service pack 3, I got an error message saying the update couldn't find the software. I am currently using Symantec virus protection with Windows firewall. Any help would be greatly appreciated. Thanks. M. Hoffmann (GrnIsMom) Tag: Next Bullet Tag: 107735
  - 22
    - Auto_new VBA to autoname a document and autosave to a specific pat Word 2003 I have accomplished most of what I needed to do already but one more issue. I have a Word document that is stored on a SharePoint site as a template (but still a .doc) file. An auto_new sub is started to bookmark a place in the document and auto-name the document based on an external text document that tracks the last used filename and renames the document sequentially and saves it back to the SharePoint site as that sequential filename. It was absolutely great on my machine when the external file is stored/access on a network share. I tried storing the external file in the same directory on the site but that doesn't work. When others try it on their computers (Word 2003), the document opens but they get an error msg that says: Run-Time Error '-2147467259(80004005)': Method 'PrivateProfileString' of object 'System' failed My code is: Private Sub Document_New() ' Unprotect document to run macro ActiveDocument.Unprotect Order = System.PrivateProfileString("\\Northstar\headquarters\Departmental Folders\TWG\ECN.txt", _ "MacroSettings", "Order") 'Order = System.PrivateProfileString("http://docrep/vmc/ecn/ECN.txt", _ '"MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("\\server\share\dir\subdir\ECN.txt", "MacroSettings", _ "Order") = Order 'System.PrivateProfileString("http://servername/site/subsite/ECN.txt", "MacroSettings", _ '"Order") = Order ActiveDocument.Bookmarks("Order").Range.InsertBefore _ Format(Order, "00#") & "-" & Format(Now, "YY") 'ActiveDocument.SaveAs FileName:=Format(Order, "00#") & "-" & Format(Now, "YY") ' Re-protect document for Forms after running macro ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True ' Save ECN with ECN number for file name and in the ECN library ActiveDocument.SaveAs FileName:="http://docrep/vmc/ecn/ChangeRequests/" & _ Format(Order, "00#") & "-" & Format(Now, "YY") End Sub Any ideas why is errors on all others machine but not on mine. Thanks Jack Tag: Next Bullet Tag: 107734
  - 23
    - Styles, styles... how to hide unused styles? I have programmed a vba script that will copy styles, makros, pages, headers, footers, settings ... from one document to another (update template collections). After many a nightshift it works, mostly... One problem could not be solved. The list of the styles visible in the style selector toolbar of the target document will show ALL styles after I have copied the styles. I have been searching the internet for days and found no solution. You are my last chance... Tag: Next Bullet Tag: 107729
  - 24
    - Custom Form Field Type? I need to be able to enter and calculate prices which may have 4 decimal point. The number option only offers limited formatting options. How can I add the ones I need? Ideally I would like to show 2 decimal places unless I enter more places manually. Using a macro would also be fine to turn on the extended decimal places. Thank you for any assistance you can offer. Jerry Tag: Next Bullet Tag: 107726
  - 25
    - Tabstop Word2000 VBA I want to jump to a Tabstop in Word with VBA. There are two Tabstops (Tab1 and Tab2) in the document. Tab1 Tab2 Hello The cursor is at the first character of the word Hello. Now I want to jump to Tab1 or to Tab2. Which code do I use in VBA? Thanks Tag: Next Bullet Tag: 107720
- Next
  - 1
    - VBA code to position a frame object... Hey Gang, Word 2003, Windows XP I have a document I am developing for a client (friend) that requires the use of outline numbering. I have created the STYLES, etc. and all is going pretty good. I ran into a problem getting a line (for initials) showing completion of a step. Got some great help from Klaus and John! My next dilemma is occasionally I will need another initial line (sort of a verification line). I have created a frame and saved it as an AutoText to insert from a button on a toolbar. However, I need some code to "exactly position" the frame. Reason is, this frame has a line and some letters exactly below the line and the text disrupts the flow of the paragraph (if you know what I mean. For example, I need the position the second line and text (all within a frame) to get this look: ____ ____ A. This paragraph might be multiple lines and the "INIT" must stay below the second line. INIT This is easy if the paragraph is a single line, but it isn't always the case and the frame needs to not impact text flow but MUST be in that position. Any ideas? Sampe code you can send me to? TIA! Bill Tag: Next Bullet Tag: 107715
  - 2
    - Bookmarks/Letterheads: Where have I gone wrong? I've asked several questions on creating a letterhead/fax toggle with 3 states: 1. Graphic visible and a bookmarked line reading BY FAX ONLY with the fax number 2. Graphics hidden and a bookmarked line reading FIRST BY FAX with the fax number 3. Graphics hidden and the bookmarked line hidden. With your help I've written the code below which works and for that thanks. But several other programs hate the macro and it often crashes on me just when I open Work. So can I ask: Where have I gone wrong? Many many thanks. It will be used in 2007 but in compatability mode. 'Option Explicit 'Sub ToggleLetterhead() ' ' ToggleLetterhead Macro ' ' Dim boolFax As Boolean Dim ByFaxHidden As Boolean Dim aShape As Shape Dim oBMs As Bookmarks Dim rgeByFax As Range Dim rgeFaxNumber As Word.Range Const strByFax As String = "ByFax" Const strFaxNumber As String = "FaxNumber" Set oBMs = ActiveDocument.Bookmarks If Not oBMs.Exists(strByFax) Then MsgBox "Enter FIRST BY FAX:/BY FAX ONLY: in document, and bookmark it 'ByFax'", vbOKOnly + vbExclamation, "ENTER FAX INFORMATION" Exit Sub End If Set rgeByFax = ActiveDocument.Bookmarks(strByFax).Range 'Setting Bookmarks If oBMs.Exists(strFaxNumber) Then Set rgeFaxNumber = ActiveDocument.Bookmarks(strFaxNumber).Range Else oBMs(strByFax).Range.Select Set rgeFaxNumber = ActiveDocument.Bookmarks("\line").Range rgeFaxNumber.Start = oBMs(strByFax).End + 0 rgeFaxNumber.End = rgeFaxNumber.End - 1 oBMs.Add strFaxNumber, rgeFaxNumber End If 'Check if in First By Fax mode or plain letterhead On Error GoTo ErrorHandler ByFaxHidden = ActiveDocument.Bookmarks(strByFax).Range.Font.Hidden If rgeByFax.Text = "FIRST BY FAX: " And Not ByFaxHidden Then 'in First By Fax mode so toggle to plain letterhead rgeByFax.Font.Hidden = True rgeFaxNumber.Font.Hidden = True Exit Sub Else 'Either toggle to fax or to First By Fax With ActiveDocument ' Check current status - it's in fax format if graphics are visible boolFax = .Sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).Visible ' Show/Hide the graphics With .Sections(1) For Each aShape In .Headers(wdHeaderFooterFirstPage).Shapes aShape.Visible = Not boolFax Next aShape End With ' Toggle style information and Header space If boolFax Then ' We are in a fax and toggling to letter .Styles("LetterRefs").ParagraphFormat.SpaceBefore = 0 .Styles("LetterDate").ParagraphFormat.SpaceAfter = 38 + 17 'Change it to First By Fax rgeByFax.Text = "FIRST BY FAX: " ActiveDocument.Bookmarks.Add strByFax, rgeByFax Else ' Set spacing for Fax .Styles("LetterRefs").ParagraphFormat.SpaceBefore = 17 .Styles("LetterDate").ParagraphFormat.SpaceBefore = 0 .Styles("LetterDate").ParagraphFormat.SpaceAfter = 38 'Toggle bookmarks to Fax Only rgeByFax.Text = "BY FAX ONLY: " ActiveDocument.Bookmarks.Add strByFax, rgeByFax rgeByFax.Font.Hidden = False rgeFaxNumber.Font.Hidden = False End If End With Exit Sub ' Trap attempts to use on damaged or old version document ErrorHandler: MsgBox "Cannot toggle letterhead for this document format", vbOKOnly + vbExclamation, "Show/Hide Letterhead" End If End Sub Tag: Next Bullet Tag: 107713
  - 3
    - Submit word form to Lotus notes Hey guys, I'm trying to submit an internal form as an attachment to Lotus notes. I'm not sure how to go about this. Any suggestions. Thanks Tag: Next Bullet Tag: 107709
  - 4
    - Setting Picture Layout Wrapping Style with Macro Hi, I have a document with with a number of pictures, for each of which I want to set the Layout options to have them floating properly. Doing this by hand requires to go to the Image Properties, to the Layout Tab, go to Advanced, and set some options both in the Picture Position and Text Wrapping tab. So, it's quite a few clicks, and I was hoping I could put it all together as a macro, so that I just have to select a picture an hit a shortcut to set all the options as I want them. Unfortunately, it doesn't seem I can put the actions in a macro. When the macro recorder is started, I can't do a right click on the image, and even if I go through the 'Format' menu and the to 'Picture', all the relevant options are inaccessible (grayed out). Is there a way to put the Wrapping Style options in a Macro? Thanks, Michael Goerz Tag: Next Bullet Tag: 107706
  - 5
    - Cell Object/Collection If I create an table and add some cell specific shading then I can run this code to change the shading: Sub Test() Dim oCell As Word.Cell Dim oTbl As Word.Table For Each oTbl In ActiveDocument.Tables For Each oCell In oTbl.Range.Cells If oCell.Shading.BackgroundPatternColor = RGB(229, 170, 91) Then oCell.Shading.BackgroundPatternColor = RGB(93, 143, 86) End If Next Next End Sub This works for a uniform table and it works on tables where cells are merge horizontally. However, if I merge cells vertically then this code misses the vertical merged cells. If a vertically merged cell isn't a cell or part of a table cell collection then what is it? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Next Bullet Tag: 107702
  - 6
    - MI5 Persecution: Come back, Norma! (34173) Private Eye, 23 Oct 1992 Certainty level: 25% I'm not really sure whether this cover was intended to get at me, or whether it was re-interpreted after publication to be about me. This issue of Private Eye came out in October 1992, by which time I had been under severe continuous pressure at work and from the general population in Oxford for many months. It had John Major saying to his wife, "Come back, Norma!" under the title "Major's support lowest ever". There's a story behind this. In late October I was in the local pub (the Rose and Crown, nice traditional name eh) with two people from work, Simon and Phil. Phil had with him a copy of the current Private Eye. These are both "nice people" and on my side, I hasten to add. Simon pointed out the message on the magazine's cover to Phil, and asked "what do you think about that". Phil answered, "Well usually they [Private Eye] get it right". This exchange happened in front of me. Although I was ill at the time (this was before I'd started taking medicines) I hadn't read anything into the Eye cover until these guys pointed it out to me. Sometime later, again in the same road, a student shouted to one of his friends, "so when are you COMING BACK?", again in front of me. What I realised Phil thought it meant was a double-entendre, the "coming" referring to the act of ejaculation, the "back" referring to the human back-side. So in a play on words you get a person who is referred to as a back-side ejaculating. Charming. Of course, Phil could have been wrong. Perhaps there was no such meaning intended by Private Eye. Perhaps he saw meaning which wasn't there. Perhaps the moon is made from green cheese. Who knows? 34173 -- Posted via NewsDemon.com - Premium Uncensored Newsgroup Service ------->>>>>>http://www.NewsDemon.com<<<<<<------ Unlimited Access, Anonymous Accounts, Uncensored Broadband Access Tag: Next Bullet Tag: 107700
  - 7
    - MI5 Persecution: Bernard Levin - The Times (31998) Fanatic's Fare for the Common Man Certainty level: 90% The article 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. 31998 -- Posted via NewsDemon.com - Premium Uncensored Newsgroup Service ------->>>>>>http://www.NewsDemon.com<<<<<<------ Unlimited Access, Anonymous Accounts, Uncensored Broadband Access Tag: Next Bullet Tag: 107698
  - 8
    - How convert first letter in string to uppercase? Hello. I need to convert first letter of every word "you" and "your" in string to uppercase ("You" and "Your"). I wrote example of code, but it converts all entries even into composition of words (e.g. "young"). What I should change in my code? This code is below. Thank you. ----------------- Sub firstLetter() Dim aLett(3) As String aLett(0) = "you" aLett(1) = "your" For ms = 0 To 1 With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = aLett(ms) .Replacement.Text = StrConv(aLett(ms), vbProperCase) .Forward = True .MatchCase = True .Wrap = wdFindContinue .Format = False End With Selection.Find.Execute Replace:=wdReplaceAll Next ms End Sub Tag: Next Bullet Tag: 107696
  - 9
    - detect system.cursor How can I determine the system.cursor in Word? It always gives me 2, the normal cursor: Sub test() 'Application.System.Cursor = wdCursorWait '0 'Application.System.Cursor = wdCursorIBeam '1 'Application.System.Cursor = wdCursorNormal '2 Word.Application.System.Cursor = wdCursorNorthwestArrow '3 MsgBox Word.Application.System.Cursor 'this will still give 2 End Sub RBS Tag: Next Bullet Tag: 107690
  - 10
    - how to install (free) Word on Windows Vista OS I have two computers, one with Vsita and one with Windows 95. I want to be able to read documents created with Works word processer on the Vista machine on the Windows 95 machine which has Word word processer. I do not have internet access with the Windows 95 computer. Tag: Next Bullet Tag: 107684
  - 11
    - Using Events with the Application Object I was looking in the help and it said the following: Before the procedure will run, you must connect the declared object in the class module (wdApp in my example) with the Application object. You can do this with the following code from any module. Dim X As New EventClassModule Sub Register_Event_Handler() Set X.wdApp = Word.Application End Sub When I debug I get the following error: User-defined type not defined and it points tothe following: Dim X As New EventClassModule What am I doing wrong. Tag: Next Bullet Tag: 107681
  - 12
    - data at root level is invalid. line 1, position 1. my docx file has 10KB data but when i open it i see nothing. o words. i get improperly formatted error.data at the root level is invalid. line 1, position1. it has something to do with systemxml.xml exception. please help me recover my file. i desperately need help. i am not a computer programmer so detailed explanation will be of great help. thanks Tag: Next Bullet Tag: 107668
  - 13
    - Row Formatting Using VBA I am a new VBA user. I would like to format the rows in a Word table based on the contents of the first cell in the row (column #1), which will be either "a", "p", or "d" (which represents active, pending or declined) or the cell could be blank. So, for example, if the first cell is blank, I don't want to make any changes to the row's format. However, if the first cell contains "a", I would like the font of the entire row to be white, the fill to be green and the font to be bold. And so on, with different colors/ formatting for each row that contains a different letter. This doesn't seem like it should be that difficult, but I haven't really found that much information on how to work with tables using VBA. I would really appreciate any help! Also, could anyone recommend a good book on using VBA in Word? Thanks in advance! Tag: Next Bullet Tag: 107663
  - 14
    - Can't Delete Space After Period I can't delete a space (ASCII 32) in Word 2003 after a period, any punctuation mark, and in some instances, for no apparent reason. Why not, and more importantly, how can they be deleted? The code is the condensed version and intentionally uses wildcards (there's additional processing that has been removed) but it still exposes the problem. Public Sub Macro6() On Error GoTo MyErrorHandler Dim whichDocument As Document Set whichDocument = ActiveDocument Dim findrange As Range Set findrange = whichDocument.Range findrange.Find.ClearFormatting findrange.Find.MatchWildcards = True findrange.Find.Text = "*" While findrange.Find.Execute() = True findrange.Delete DoEvents Wend Exit Sub MyErrorHandler: MsgBox "Macro6" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description End Sub Tag: Next Bullet Tag: 107659
  - 15
    - Distributing a file with a macro I've read instructions for distributing macros and must not understand them. I recorded a macro named "Append" to append files that are in a folder to the end of a document named CoverPage.doc. I saved the macro to CoverPage.doc rather than Normal.dot but see also that it is in Normal.dot. The macro in CoverPage.doc worked correctly but I need to distribute CoverPage.doc plus the files that it is supposed to append to other people. I also saved the file CoverPage.doc to a template named CoverPage.dot I created a folder named C:\Macros and copied the template CoverPage.dot, the CoverPage.doc, and the RTF files to be appended to it. I modified my Options for "File Locations" and "Workgroup Templates" to C:\Macros and now the macro does not work anymore. What do I need to correct to be able to distribute the CoverPage.doc with the macro and the RTF files to other people? Thanks for any help that can be provided! -- Larry K Tag: Next Bullet Tag: 107658
  - 16
    - Capitalizing the first letter in a form field I know the code to have Word Capitalize the first letter of sentences... My question is is there any way to apply that to the contents of a form field? So if a user typed in mary in txtField1 Word would automatically turn it into Mary? Tag: Next Bullet Tag: 107650
  - 17
    - Nothing happens over https Hi everyone. we have a page in our web server that users client side VBScript to interac with Word documents, first downloads them in the the clients TEMP dir, and then it copyes them into one single fiile. after that it opens Word Aplliction with the single file just and then is when the user must review it and print it. Everything was working fine, before we secured the webssite with a SSL certificate, vefore clients were receiving just a pop up asking for a permission so the Word Active X was ok to run, but now, nothing happens, not pop up, no nothing, not even an error is thrown. no files are download, not even the word application is opened. If i navigate the same page over HTTP it still works, but in HTTPS, nada. What is going on? Thanks in advance for all your help. -ed Tag: Next Bullet Tag: 107649
  - 18
    - Menu customizations - how to determine them I'm rebuilding my tools global add-ins. I plan to export all the objects, forms, and modules, then import them into a new, otherwise blank template. Reestablishing the keybindings isn't a big problem. But I'm stuck on menu customizations. Does anyone know how to determine and list the menu customizations in an add-in? Bear -- Windows XP, Word 2000 Tag: Next Bullet Tag: 107648
  - 19
    - List o Pages in Document I frequently have to create controlled documents that include a "List of Effective Pages" showing Page Number, Revision Level and Revision Date. All of this information is contained in the Footer of each page, but I have to manually create the list after revising the document. Is there any way to get the information into a table in the (front of) the document? Tag: Next Bullet Tag: 107647
  - 20
    - Drop Down List Widths Word 2003 allows me to control the width of a dropdown list. For example: Set newlist = CommandBars(listnameis).Controls.Add(Type:=msoControlDropdown) newlist.Width = 175 This command does not appear to function when the macro is run in Word2007. Is there a command in Word2007 that approximates the dropdown list width controls of Word2003? Ed in Virginia Tag: Next Bullet Tag: 107642
  - 21
    - Activate vs. Select I have been testing some features from one version of Word to the next to see what is still valid, and if not, then what is the remediation to fix it. One of the things I can't understand is the difference between expression.Activate and expression.Select. Can anyone explain the difference to me? I haven't been able to find an adequate description....I know what the Select Method does, but Activate escapes me, and then to compare them both, it seems like they do the same thing..so confused. TIA Tag: Next Bullet Tag: 107640
  - 22
    - Deleting Shapes when a condition is met Hello everyone I'm struggling and need to ask for some help. It's probably really simple, but my brain is not coping well at all. I have a template which deletes/retains logos according to choices made from a user form. It's working really well, except for one scenario and that is: I want to delete the shapes where the criteria from one list box is met, and the criteria from the others is not. And I've reached a mental block! The code should be something like the "opposite" of the code below, in other words I want to delete the logos if the text in the Combo2 box is anything other than HR, Sales & Marketing or Product Control. Can anyone point me in the right direction please? Thanks for your help Aehan With ActiveDocument.Bookmarks("Combo1").Range If InStr(.text, "Department 1") Then With ActiveDocument.Bookmarks("Combo2").Range If InStr(.text, "HR") Or InStr(.text, "Sales & Marketing") Or _ InStr(.text, "Product Control") Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With Selection.HeaderFooter .Shapes("HR Logo").Delete .Shapes("SM Logo").Delete .Shapes("PC Logo").Delete End With End If End With End If End With Tag: Next Bullet Tag: 107634
  - 23
    - Changing a document's template (preferably before opening) Hi, An application I'm working on needs to change an MS Word document's assigned template before being spawned. The template we wish to assign restricts certain menu items (e.g., forbids the user from saving the document locally) and does some other murky, macro bits and bobs which I won't go into. Unfortunately, DSOFile.dll is no use to me in this matter, because OleDocumentPropertiesClass.SummaryProperties.Template is read only. I'm not sure what that leaves. I've toyed with prototyping some kind of a solution that would open the document, but hide it from the user (along with the undesired menu items) long enough to change the template behind the scenes via normal (i.e., non-DSOFile.dll) automation, but it's messy. I actually have a binary executable that already does this, but it is very flaky and prone to crashes, hence the need for a rewrite. Worse still, the flaky executable is ancient and came from a third party, and we have no source code or way of finding out how it works. The only hint we ever got was that it wasn't going down a conventional route (e.g., OLE), but was manipulating the binary of the MS Word file directly (yuck!) Any ideas/suggestions/tips/fully coded solutions would be warmly welcomed. Cheers, Al Tag: Next Bullet Tag: 107626
  - 24
    - Reusing Form Code Hi I have two forms, let says they are called: * frmEmployee * frmLocation On both of these forms I have two Combo Boxes, one called cboLocation and another called cboDepartment. Both of these boxes are populated by code, so if somebody selects London then the London Departments appears in the cboDepartment, if they select Belfast another set of options appear. I would like to place this code into a separate module but how do i reference two different forms? Regards Tag: Next Bullet Tag: 107625
  - 25
    - How can i transfer the song to my memory card? Plz ans. this question. Tag: Next Bullet Tag: 107623

Im trying to create a macro that adds the text in textbox1 to the end of a
bulleted list in cell B2. All I can seem to do is replace the cells text
with the entire contents of textbox1 ...... but again I just want to add a
bullet the list that is already in the cell. Any help would be appreciated!

HAPPY THANKSGIVING!

Ben Z.

Top

Re: Next Bullet by Helmut

Helmut
Fri Nov 23 07:33:17 PST 2007

Hi Ben,

show us the code you got so far.

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Top