Run macro in a encrypted template.

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Give textbox focus when form loads modeless Hello all, Using Word 2003. I have a VBA userform which contains a textbox (txtFindText) and some buttons. When the form is displayed I would like the textbox to have the focus. I have a line - txtFindText.SetFocus - in the form's initialisation handler and this seems to work when I invoke the form by "MyForm.Show". However, if I invoke the form by "MyForm.Show vbModeless" the textbox does not seem to get the focus and I seem to need to press the Enter key to give the box the focus. Is there a way to give the textbox the focus when the form is displayed as modeless? Thanks. Ed. Tag: Run macro in a encrypted template. Tag: 101966
  - 2
    - Form behaviour when called from toolbar button Hello all, Using Word 2003. I have a VBA userform which I would like to be semi-transparent. The form contains the following sub (as well as declarations and other stuff): Private Sub UserForm_Initialize() Dim hwnd As Long Dim ret As Long Const Transparency As Integer = 128 hwnd = FindWindow(vbNullString, Me.Caption) ret = GetWindowLong(hwnd, GWL_EXSTYLE) ret = ret Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, ret ret = SetLayeredWindowAttributes(hwnd, 0, Transparency, LWA_ALPHA) End Sub The relevant constants are declared in the form module as: Private Const LWA_ALPHA = &H2 Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 The form is instantiated by the following macro: Sub EditFind() Dim MyForm As frmFind Set MyForm = New frmFind MyForm.Show Unload MyForm Set MyForm = Nothing End Sub (Originally I tried just using frmFind.Show rather than using the MyForm variable.) When I run the macro in the VBA IDE it works, but when I add a toolbar button in Word to call the macro, the form remains opaque. No errors are reported. Any ideas? Thanks. Ed Tag: Run macro in a encrypted template. Tag: 101965
  - 3
    - Macros Hi I am trying to record a macro in word 2003. I go to 'insert, picture, from scanner or camera' then the scanner box comes with options to insert, custom insert or cancel. The whole page is not scanned so I have to go to custom insert when another box opens with scanning options and I click colour picture and then scan. But the macro will not record the bit when I go into custom insert. Is there a way I could include that part in the macro and I'm afraid I don't know how to use Visual Basic. Thanks Tag: Run macro in a encrypted template. Tag: 101963
  - 4
    - Word document in WebControl Hi! I'm opening Word document in standard VB6 WebControl. After execution of PrintOut method of Word document object I'm trying to open another Word document. But the WebControl asks me to save changes to the document. The question is: how can I prevent WebControl from displaying these messages. The silent property does not effect. Thanks! Igor. Tag: Run macro in a encrypted template. Tag: 101960
  - 5
    - create a new document consisting just of comments does anyone know how I can either print to pdf, or create a new document, of just the comments and their reviewers in Word? I have tried being in 'final showing markup'; show = comments (i.e. insertions & deletions and formatting are turned off), and printing 'list of markup', but still I get all the other stuff. I just want the comments. I also tried generating a TOC using the comments text as the style from which to generate it, but Word couldn't find any entries, even though when you click on the comments text it tells you that is the name of the style. can anyone help? ruthd Tag: Run macro in a encrypted template. Tag: 101958
  - 6
    - find, format tabs and replace in table cells I've got tables with counts and percentages in many of the table cells in the form "35.3% (47/133)". I want the percentages to align so I wrote a macro to define right-aligning tab positions at 40% and 100% of the cells usable width and then insert a tab character between the percentage sign and the opening parenthesis. It works but it's a very brute force method because it defines tabs in each cell of all tables in a document. What I'd like to be able to do is to search for a cell with percentages and counts and only then to define the tab positions. Could someone help me out in this? Here's my macro in its present state. It takes about 25 seconds on a 19 page document. Public Sub TabsForPctAndCount() Dim aRange As Word.Range Dim oTable As Word.Table Dim oCell As Cell Dim UseableWidth As Single Set aRange = ActiveDocument.Range(0, 0) System.Cursor = wdCursorWait ' Displays the hourglass StatusBar = "Defining tab positions in tables ..." 'Insert right aligning tab positions at 40% and 100% of each cell For Each oTable In ActiveDocument.Tables For Each oCell In oTable.Range.Cells UseableWidth = oCell.Width - oCell.LeftPadding - oCell.RightPadding oCell.Range.ParagraphFormat.TabStops.ClearAll oCell.Range.ParagraphFormat.TabStops.add Position:=UseableWidth * 0.4, Alignment:=wdAlignTabRight oCell.Range.ParagraphFormat.TabStops.add Position:=UseableWidth, Alignment:=wdAlignTabRight Next oCell Next oTable StatusBar = "Inserting tabs between percentages and counts ..." 'Replace a "XX.X% (" by "\tXX.X%\t(" With aRange.find .ClearFormatting .Replacement.ClearFormatting .Text = "([0-9.]@%)[ ]@\(" .Replacement.Text = "^t\1^t(" .Forward = True .Wrap = wdFindContinue .MatchWildcards = True .Execute replace:=wdReplaceAll End With System.Cursor = wdCursorNormal ' Normal cursor StatusBar = "Macro TabsForPctAndCount completed." End Sub Thanks for any help, John Hendrickx Tag: Run macro in a encrypted template. Tag: 101954
  - 7
    - Get data into MS Word with Stored procedrues? Hi, I need to find out how to get data from stored procedures in a Sql server. I need to update it on Document_Open event by vba code. Does anybody have a suggestion or code examples? Kind reagrds Tskogstrom Tag: Run macro in a encrypted template. Tag: 101952
  - 8
    - Can't see stored procedures in 'select data source' windows hi, I tried to get data from a sql database where the data is in stored procedures. I couldn't find the stored procedures in the "Select data source" window, neither in Word or through Excel. Should it be visible, or is there any other suggestion with VBA to get the data? (I will probably make vba code anyway, because I want to update the data on the file open event) Kind reagrds TSkogstrom Tag: Run macro in a encrypted template. Tag: 101951
  - 9
    - how do i create a bilingual table of contents I am trying to create a table of contents in both english and french but when i update the english one the french one updaes in english also Tag: Run macro in a encrypted template. Tag: 101947
  - 10
    - Accessing embedded Excel Docs Hi I've been hunting for a solution for this for a while and was wondering if anyone could help. I need to write a script or macro which will open a MS Word (2003) doc then from with in that doc open an embedded excel spreadsheet. Unfortunately there are a number of spreadsheets in the doc and I don't know how to reference the different ones. Any suggestions would be gratefully appreciated Thanks Tag: Run macro in a encrypted template. Tag: 101944
  - 11
    - MsgBox showing number of replacements for all affected story ranges, not just the main story Hello everybody, I recently wrote a macro that indicates the number of replacements of a search and replace operation in a MsgBox. It is working fine, but the trouble is that it covers only the number of replacements of the main story range. Is it possible for somebody to re-write the code to include ALL THE STORY RANGES of the document, so that the MsgBox shows the TOTAL NUMBER OF REPLACEMENTS OF ALL STORY RANGES? I tried it several times, but to no avail. Help is much appreciated. Thank you very much in advance. Regards, Andreas Sub ReplacementOperatonWithMsgBoxShowingNumberOfReplacements Dim rng As Word.Range Dim bfound As Boolean, i As Long 'start counter at -1 i = -1 Do Set rng = ActiveDocument.Range With rng.Find .ClearFormatting .Replacement.ClearFormatting .MatchWildcards = True 'Check if word is found bfound = .Execute(findtext:="find", replaceWith:="lost", Replace:=wdReplaceOne) 'increment counter i = i + 1 End With Loop While bfound MsgBox CStr(i) & " replacements made." Set rng = Nothing End Sub Tag: Run macro in a encrypted template. Tag: 101943
  - 12
    - [C#/Interop] Setting focus on page just above footer Hallo, I'm fumbling around with C#, Interop and Word. I'm wondering how I could set focus on the page so that the cursor is on the line just above the footer, or the last line on the MainDocument? Tag: Run macro in a encrypted template. Tag: 101942
  - 13
    - Saving .doc as .html with vba Hi all, I need to convert some .doc files to .html with vba. I tried to record a macro that did this but to save the file it has a static name eg. "filename.doc" becomes "filename.html". And that is also recorded in the macro. Is there anyone who can help me make it so that the file name of the saved file is the name of the current document? Thanks asger Tag: Run macro in a encrypted template. Tag: 101940
  - 14
    - VBA VBE Object Hello all, Anyone work with the VBE object before? If you have can you give me any ups and downs about it and more, some good links on this subject? After finding that Office does have an Object for the Macro Editor I would like to know what are the limitations? Thanks, Jeff Mathewson Tag: Run macro in a encrypted template. Tag: 101934
  - 15
    - Using vba Find/Replace Bullets Hi All I am using Word 2000, hope someone can assist, I know alot about Excel vba but am To maintain the formatting of a document, I am requiring the users to paste sometimes large amounts of text into a userform that pastes it as unformatted text into the relevant bookmark in the doument. One problem I have is that where a portion of the text was bullet points it becomes =B7(followed by a tab). Using Selection.Find.Text =3D "=B7" & vbTab allows me to find the unformatted bullet point. After pasting of the information I need to: Start from the top of the doc Find the first unformatted bullet Apply bullet formatting Delete the "=B7" & vbTab Find next unformatted bullet and repeat til all are formatted bullet points Using vba I managed to find the unformatted bullet and change to a formatted bullet point but could not get it to move on to the next one etc. I guess I am having trouble applying this into some sort of loop. Hope this makes sense, any help would be appreciated. Regards Andy Tag: Run macro in a encrypted template. Tag: 101930
  - 16
    - FormFields(1).Result - maximum 255 characters I am trying to fill in a form while the form remains locked and protected. Manually I can type as much information as I like into one of the formfields but when I try to use FormFields(1).result = myString then I get an error "string too long" whenever the string is more than 255 characters. Can some please tell me how I can get more than 255 characters in to the formfield without unlocking the form. The must remain locked and protected. Thanks Fred Tag: Run macro in a encrypted template. Tag: 101927
  - 17
    - Saving document with new name via vba Hi, Following is the scenario: I have a document named: CCPC_01.doc The user opens up the document makes the changes. I want a macro which would save the updated version of this document (doesnt matter if its in the same folder) with the following name: CCPC_01_locked.doc All Help is Appreciated Tag: Run macro in a encrypted template. Tag: 101925
  - 18
    - Insert picture in a speicific location within a document I'm trying to insert a picture in a speicific location within a word document from a vb.net application. It was not that difficult simply to insert a picture on the current cusor position but I don't know how to insert a bmp (or jpg) image on the botton of last page only. I couldn't insert a picture in a speicific location which I want. If you have any idea, Please help this novice. I am using Word 2003 Thank you. Tag: Run macro in a encrypted template. Tag: 101912
  - 19
    - renaming a module? How do I rename a module inside the Modules folder in my TemplateProject? If I right-click on my module name inside the Project Explorer, there's no rename option. Thanks. Tag: Run macro in a encrypted template. Tag: 101909
  - 20
    - A macro to replace check boxes Does anyone have a macro that will replace every formfield check box that is true with the capital letter "X"? I want the user to click a commend button on the form and the macro will replace all the check boxes that are true with a "x" and just delete the check boxes that are false. I can probably do it myself if I use bookmarks and write logic for each checkbox but i have over 300 on the word document! Any help would be excellent, thank you! Tag: Run macro in a encrypted template. Tag: 101908
  - 21
    - Change the template for an existing document I need to change the template for a number of existing documents. Can anyone tell me how to programmatically change the document template from normal.dot to newtemplate.dot and then save the document (i.e., overwrite the original file)? I have tried unsuccessfully to do this manually. Thanks in advance, Raul Tag: Run macro in a encrypted template. Tag: 101904
  - 22
    - Check Box Form Field Value in If Then Else Calculation I would like to use the Checked/Unchecked value of a Check Box Form Field in a Word protected form in a calculated field without having to use a macro, but I can't figure out what to use as the value for the conditional statement. Using Word 2003. {IF {Check1} = (What do I put here) "Value if True" "Value if False"} -- Jan Pahls Tag: Run macro in a encrypted template. Tag: 101902
  - 23
    - PageNum and NumPages I am building complex documents that need Page X of Y in the footer, and this is happening all in VBA. I am combining documents in code, and cannot have the pagenum and numpages fields linked when the document is completed, because it is combined with other documents. So I will get a final document and need to write my own page numbers in the footer. Every page will be in its own section and linktoprevious will always be false. I do not see a Pages collection to loop through. Does anybody have a sample of how I might do this? Use bookmarks perhaps? I just want to loop from page to page and fill in the bookmark with Page X of Y. Please help! Derek Tag: Run macro in a encrypted template. Tag: 101900
  - 24
    - Need Macro to Lock all Links I need a macro which will lock all links in the document on screen. For Word 2003. There are two ways we can do this manually: 1. Select the entire document and press Ctrl+F11 2. Edit-Links-(Select all links in document), click Locked under "update method for selected link") But I need a macro to do this since the users who need to take these actions may find the process confusing. I haven't been able to record a macro to do this. Can anyone provide me with the code to do this? Tag: Run macro in a encrypted template. Tag: 101897
  - 25
    - =?Utf-8?Q?Mscomm_PortOpen_error_=E2=80=93_does_any?= Hi Everybody: Iâ??ve run across this error on several computers and much has been written about it on the web but no one seems to understand what causes it or how to fix it. The problem became evident when I was trying to use the â??Dialerâ?? sample code in Visual Basic. ALL the ports came back with a â??Run-time error 8012 device not openâ?? even when the statement before it is: â??MSComm1.PortOpen=Trueâ?? and of course the state before it is â??MScomm1.ComPort = 3â?? the port number to my modem. Similar problems exist on the HyperTerminal. The HyperTerminal wonâ??t work on COM 3 my modem port number, it will work on GTW V.92 Voicemodem the name associated with the modem, and of course non of the other port numbers wonâ??t work either. Iâ??ve tried changing the port number of my modem and in the Visual Basic sample program, but the problems remained the same. Does anyone really know how to fix this problem? Thanks Kurt Tag: Run macro in a encrypted template. Tag: 101893
- Next
  - 1
    - Include several nonbreaking spaces in an expression Dear Experts: I came up with the following macro to insert a nonbreaking space between the =A7-symbol followed by any number of blank spaces (usually one or two) and any following number. For example: =A7nonbreakingspace138 (=A7 138). It is running fine. See the code below. Sub InsertNonBreakingSpace() Dim rngStory As Range For Each rngStory In ActiveDocument.StoryRanges With rngStory.Find .Text =3D "(=A7) {1;}([0-9])" .MatchWildcards =3D True .Execute Replace:=3DwdReplaceAll, ReplaceWith:=3D"\1^s\2" End With Next rngStory End Sub But now I would like to expand the macro to insert a nonbreaking space not only after the =A7-symbol but also after the number (can be a number with one, two, three, four etc. digits) that immediatley follows the first nonbreaking space as in: =A7-NonbreakingSpace-138-NonbreakingSpace-Corporate Code (=A7 138 Corporate Code) I did not manage to re-write my code to include the second nonbreaking space. Help is appreciated. Thank you very much in advance. Tag: Run macro in a encrypted template. Tag: 101891
  - 2
    - Identify Active Formfield Item Number? I am creating a locked Word 2003 document containing a number of (un-bookmarked) Text Form Fields. Owing to a problem with the limited availability of number formats for the Text Form Field (see previous Discussion Group question), I need to run a Macro on exiting the field to reformat the Result. The Macro will something like the following: Sub FieldFormatter() With ActiveDocument Dim X as Integer ' Item number of the Text Form Field that ran the Macro X = ?????????????????????????????????? ' WHAT? HELP! .FormFields(X).Result = Format(.FormFields(X).Result, "Â£#,##0") End With End Sub Can anyone please advise me as to how I can identify the Item number for the FormField (Text Form Field) that called the Macro? All contributions will be gladly accepted! Paul J Tag: Run macro in a encrypted template. Tag: 101888
  - 3
    - Macro help (open doc from template - then close template) Hi all, Can anyone help please. I have the following macro which runs based on a selection of 'Y' or 'N' in an excel spreadsheet which opens a word doc from a word template. My question is how can this be modified to open the word doc based on the template, but close the actual template once the new doc is openend. Currently when you save the new document, it also asks if you wish to save ythe template(basically overwrite), which leave the document template open to be overtyped!! Sub GetWordDocument() Dim oWordApp As Object Dim oDoc As Object Dim sFilename As String Set oWordApp = CreateObject("Word.Application") If Range("G3").Value = "Y" Then sFilename = "M:\001_Quality\Manual advice Notes\Template\ST011AFO Issue 1 Advice note AND Customs invoice.dot" Else sFilename = "M:\001_Quality\Manual advice Notes\Template\ST011FO Issue 4 Manual Advice Note.dot" End If Set oDoc = oWordApp.Documents.Add(sFilename) oWordApp.Visible = True Set oDoc = Nothing Set oWordApp = Nothing End Sub Private Sub CommandButton1_Click() End Sub THANKS ALL Tag: Run macro in a encrypted template. Tag: 101887
  - 4
    - this key is already associated with an element of this collection A macro I'm creating (see partial code below) reads tab-delimited fields from a text file. The strange thing is that after I shut it down then start it up again for testing, I receive the message "This key is already associated with an element of this collection"--almost as if the process is kept in memory from the previous session. The hangup occurs on the line that reads "arrHeaderNames(intCtr)" at the end. Then, even more strange, when I bump the yellow highlighted step indicator back up about three lines to "Line Input #1," it runs OK. Thanks in advance for any thoughts. 'get some key values from source file and assign them to main variables Open strPathWkFile For Input As #1 Line Input #1, strScrap arrHeaderNames = Split(strScrap, Chr(9)) For intCtr = LBound(arrHeaderNames) To UBound(arrHeaderNames) colHeader.Add Item:=Trim(str(intCtr)), Key:=arrHeaderNames(intCtr) Next intCtr intCtr = 0 Do While Not EOF(1) intCtr = intCtr + 1 Line Input #1, strScrap arrFieldData = Split(strScrap, Chr(9)) strLead_ID = arrFieldData(Val(colHeader.Item("Lead_ID"))) I even tried changing the value of intCtr in the troubled line from 0 to 1 but to no avail. -- Bryan Tag: Run macro in a encrypted template. Tag: 101885
  - 5
    - Word templates on new server are inaccessible when old server is o A group of Word templates was created on SERVER1 some years ago. The original server location is reflected in the file location field code in the footer as \\SERVER1\[template location]. A couple of years ago, the templates were MOVED to \\SERVER2\[template location] where users have been accessing them without a problem using Word 2003. There is no copy of the templates on SERVER1. After decommissioning SERVER1, it was turned off. Afterwards, users reported that Word would hang when they tried to create new documents from the templates. This was remedied by turning SERVER1 back on again. QUESTIONS: How could access to the templates be impeded by turning off SERVER1 when the templates no longer reside there? Is there somehow a hidden pointer to SERVER1 within the template code that redirects back to SERVER2? The following obvious causes have been ruled out: 1. Both file locations for Word templates (user and workgroup) are pointing to SERVER2. 2. Checking the VBA editor within Word, there is no hard-coding in any of the templates (including normal.dot) that points to SERVER1. 3. There are no startup macros or templates in ..\Office11\Startup. Users DO share a network normal.dot. Autotext entries in this template are updated by a single person, the same person who created the templates on SERVER1. A search of the VBA code for normal.dot does not reveal any pointers to SERVER1. The goal is to decommission SERVER1 without impeding access to the templates on SERVER2. Any assistance in this regard would be greatly appreciated. Thanks, Clark Tag: Run macro in a encrypted template. Tag: 101878
  - 6
    - VBA file/save I have a .dot that I'd like nun a macro to rename <file name>.dot to <file name_><textbox41>.doc & set the directory to H:\my Documents and have it appear in the und user's file/save dialog box. I'm a novice, so please be verbose. Thanks John Tag: Run macro in a encrypted template. Tag: 101873
  - 7
    - Text Form Field - Number Format Problem I am creating a (Word 2003) protected form using Text Form Fields to accept input (and to perform a calculation on previously input Number fields). The Number Format dropdown box in the Text Form Field Options menu where the Type is Number, offers only a limited set of number of available formats. One of these formats, Â£#,##0.00;(Â£#,##0.00), can be edited to Â£#,##0;(Â£#,##0) to allow input of values of whole Pounds (Sterling) only. HOWEVER, I am not happy with the format of the negative values (i.e. in parentheses) and I would REALLY prefer to use "Â£,0;-Â£,0". I am able to use my prefered number format to display the result in the Calculation type of Text Form Field - but I have been unable to see how I can apply this format to a(n input) Number type Text Form Field. Can anybody help, please? PJ Tag: Run macro in a encrypted template. Tag: 101866
  - 8
    - Set Active Printer using automation in word for C# How to set the active printer in late binding for word.application using C#? Try the following, cannot work: Parameters = new Object[2]; Parameters[0] = printername; Parameters[1] = 1; String[] argNames = new String[] { "Printer", "DoNotSetAsSysDefault" }; wordApplication.GetType().InvokeMember("FilePrintSetup", BindingFlags.InvokeMethod, null, wordApplication, Parameters, null, null, argNames); Thanks. Tag: Run macro in a encrypted template. Tag: 101864
  - 9
    - Need troubleshooting help with 3 lines of VBA code This crashes Word 2007 even though it works with previous versions. Current doc is just standing for the name of the currently active document. Sub FollowLink() Selection.Hyperlinks(1).Follow Documents("current.doc").Close End Sub Any one got any idea why? Tag: Run macro in a encrypted template. Tag: 101858
  - 10
    - AutoClose and file path in footer Hi I would like to create a AutoClose macro that enters the file path in the footer of page 1. Any ideas? Tag: Run macro in a encrypted template. Tag: 101855
  - 11
    - Mail merge and AutoNew Hi I have a template that merges data from an Excel document and I need to create a AutoNew macro in it. I have created the AutoNew macro and it works fine if I open up the document and run it through Visual Basic. If I open up the template to create a new document it asks me to accept the SQL command that gets the information from Excel and then it seems like it forgets to run the AutoNew macro. Have anyone seen this problem before and is there a way around it? Tag: Run macro in a encrypted template. Tag: 101847
  - 12
    - Save Document oddity I have used macros similar to the following to insert (in this instance) the path at the foot of a document. However testing this in Word 2007 has thrown up an anomaly in that the check for whether the document is saved is completely ignored inevitably causing an error at the line pPathname= if the document has not already been saved. This always worked in Word 2003, however on testing again in Word 2003 (my PC currently has both Word 2003 and 2007 installed in parallel) it no longer worked there either. Following a reboot, it worked again in 2003, but not in 2007, and then on closing 2007 and reopening 2003 it no longer works there. Reboot and open 2007 without first opening 2003 and it still doesn't work :( Initially I thought that the presence of both versions was the problem, but my laptop only has 2007 and it doesn't work there either. Any ideas? I am trying to like 2007 ..... honest .... but it seems to throw up one problem after another. On an entirely different note my laptop's Word 2007 has an AddIns tab on the Ribbon, that of my desktop doesn't. My desktop has Acrobat 8.1 instead. I guess that may be getting in the way, in the inimitable manner Adobe has of screwing with Word :( ? Sub InsrtPath() Dim pPathname As String Dim pFoldername As String With ActiveDocument If Not .Saved Then .Save End If pPathname = Left$(.FullName, (Len(.FullName) - Len(.Name) - 1)) pFoldername = Right$(pPathname, (Len(pPathname) - InStrRev(pPathname, "\"))) End With Selection.TypeText pPathname End Sub -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Tag: Run macro in a encrypted template. Tag: 101839
  - 13
    - Reading a .txt file Hey guys, I have a ms word document that contains a table. I'm looking for a script that will read variables from a .txt file (output from another program) and insert them into my word document (report) I cannot seem to find anything on the web. Thanks Tag: Run macro in a encrypted template. Tag: 101830
  - 14
    - mscomm not opening Hi Everybody: I've been trying to get the Dialer software example that came with VB to work. I changed the port number to match my modem port number and I keep getting the "The device not open " error message after the "MSComm1.PortOpen = True" is executed. There is no sound that generally heard when a modem port is opened. Does anyone have a suggestion? Thanks KAB Tag: Run macro in a encrypted template. Tag: 101827
  - 15
    - Word 2003 ActiveDocument.Name Hi group I have a macro that uses the ActiveDocument.Name property, but it seems that when I create a new document based on the template that holds this macro, the new document is not always the active document. I would assume that when you create a new document, this would automatically be set as the active document, but I can see it happens many times, that the new document it placed behind one or more documents currently opened in Word, and one of these is the active document instead of the newly created one. How can I force the newly created document always to be the active document? Best regards Hans-Henrik Tag: Run macro in a encrypted template. Tag: 101825
  - 16
    - Inserting a field that users cannot edit I am using custom doc properties to store some values and update several fields in a word document after a particular event. I do not want users to be able to overwrite any of the fields by typing. I believe that this can be accomplished by selecting the field and pressing ctrl+shift+F11, but how can I accomplish this programatically? (These are fields as in ActiveDocument.Fields) Thanks! Tag: Run macro in a encrypted template. Tag: 101820
  - 17
    - Tidy up Checking text before inclusion in my club bulletin, I use a 'Tidy up' macro to get rid of white space, make sure there is a space after a period and comma and not before, etc, etc. With MVP help it also makes sure there is not a space after a full stop and comma in a figure, as in £1,000.00 The only remaining problem is to make sure there are not spaces in URLs. Any suggestions? Francis Hookham Tag: Run macro in a encrypted template. Tag: 101819
  - 18
    - What's changed in vba in Word 2007? Hi folks, According to a friend, this macro works fine in Word 2003 but causes a crash in Word 2007. The name boat-03 is the name of the current active document. Sub FollowLink() Selection.Hyperlinks(1).Follow Documents("boat-03.doc").Close End Sub I personally don't have Word 2007 to test it myself. Can anyone shed any light on this? Tag: Run macro in a encrypted template. Tag: 101815
  - 19
    - Styles help I was working with Russ on this but I had a family emergency and gone for 5 days. I have the following macro but canâ??t get it to work right. When I run the macro for example it converts "^dLISTNUM 24 \l 2" to the word "Heading 2". It doesn't see that as an Outline Number style and make it â??1.2â??. Dim SearchRange As Range Set SearchRange = ActiveDocument.Range SearchRange.TextRetrievalMode.IncludeFieldCodes = True With SearchRange.Find .Forward = True .Wrap = wdFindStop .ClearFormatting .Format = True .Text = "^dLISTNUM ^#^# \l ^#" .Replacement.Text = "" While .Execute SearchRange.Text = "Heading " & SearchRange.Characters.Last.Previous SearchRange.Select Selection.Style = ActiveDocument.Styles("Heading " & _ SearchRange.Characters.Last) SearchRange.SetRange Start:=SearchRange.End, _ End:=ActiveDocument.Range.End Wend End With LEU Tag: Run macro in a encrypted template. Tag: 101790
  - 20
    - MI5 Persecution: Stasi 21/4/96 (16220) Subject: Chief Constable Alderson Condemns "Stasi" MI5 Newsgroups:uk.misc,uk.politics,uk.media,uk.legal,soc.culture.british Organization: Toronto Free-Net Summary: Keywords: John Alderson, former Chief Constable of Devon and Cornwall, had the following to say about the expansion of the Security Service's powers, in a recent magazine article; "It is fatal to let the secret service into the area of ordinary crime. MI5 is not under the same restraints as the police. They infiltrate organisations, people's jobs and lives. They operate almost like a cancer." "At the moment the acorn of a Stasi [the former East German communists' secret service] has been planted. It is there for future governments to build on." The message is clear. Criminal subversion and criminal harassment by an unpoliced minority not subject to the law, "infiltration of people's jobs and lives" is with us today. 16220 Tag: Run macro in a encrypted template. Tag: 101788
  - 21
    - MI5 Persecution: Leant On 7/4/96 (14706) From: Green <Green@guidion.demon.co.uk> Newsgroups: uk.misc,uk.politics,alt.politics.british,soc.culture.british Subject: Re: MI5 Persecution: Why Aren't the British Police Doing Their Job? Reply-To: Green@guidion.demon.co.uk Date: Sun Apr 7 21:13:30 1996 In article <DpIE0r.736.0.bloor@torfree.net> bu765@torfree.net "Mike Corley" writes: > 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. This in itself dos not suggest that the police have it in for you. The old bill operates on extremely tight spending limits forced on them by that pillock Michael Howard, and without evidence, they often have higher priorities than chasing something that cannot go to court. I doubt that the police are actually being leant on, but they probably realise that if they looked into this, they would be leant on hard. The met always stays away from anything that looks like it has Defence, Security or secret service interest already, because they realise that they are below these government agencies in the general pecking order. This attitude was made clear in a TV show where a left wing comedian heckled some aristocratic Tory candidate in a local election. The police officer gave the comic a ticking off, even though you could see that this young copper sympathised with the comedian, and regarded the Tory as an upper-crust wanker. He said, and I quote "I'm giving you the ticking off and not him because he's a Lord and I'm a Police Constable." If I walked into my local nick and complained that MI5 were snooping on me, they would show me the door without even looking at my evidence, because that bored desk seargant with only five years to go before he retires doesn't want to start fucking about with somebody who has incurred the wrath of Stella Rimington. He would rather deal with the lost dogs and driving licence producers, eat his cheese and pickle sandwiches and piss off home at the end of his shift than have some high ranking spook having a go at his boss and getting him a bollocking. In short, you have earned much sympathy but little surprise. Just remember that saying about the enemy of your enemies. Have a nice day. ******************************************* QUOTE OF THE DAY****************** * You have just read the opinons of : * "Common sense is merely the set * * * of prejudices a person acquires* ========================================================================= Subject: Re: MI5 Persecution: Why Aren't the British Police Doing Their Job? Newsgroups: uk.misc,uk.politics,alt.politics.british,soc.culture.british Followup-To: uk.misc,uk.politics,alt.politics.british,soc.culture.british References: <DpIE0r.736.0.bloor@torfree.net> Organization: Toronto Free-Net Distribution: >This in itself dos not suggest that the police have it in for you. >The old bill operates on extremely tight spending limits forced on >them by that pillock Michael Howard, and without evidence, they >often have higher priorities than chasing something that cannot go >to court. I think the police know well what's going on. It is up to them to do something about it. They know I've made a complaint at a police station. I could probably do more to try to help myself (I think someone suggested making a written complaint to the chief constable) but even then I nthink they would not take action. > >I doubt that the police are actually being leant on, but they probably >realise that if they looked into this, they would be leant on hard. >The met always stays away from anything that looks like it has Defence, >Security or secret service interest already, because they realise that >they are below these government agencies in the general pecking order. > So we have a situation where the security service breaks the law, everyone knows MI5 breaks the law, and the police won't investigate crimes that would otherwise earn a jail sentence. Oh good, I'm really glad the UK is a democracy. (<sarcasm>, for those of you who didn't catch that) >If I walked into my local nick and complained that MI5 were snooping on me, >they would show me the door without even looking at my evidence, because >that bored desk seargant with only five years to go before he retires >doesn't want to start fucking about with somebody who has incurred the >wrath of Stella Rimington. He would rather deal with the lost dogs and >driving licence producers, eat his cheese and pickle sandwiches and piss >off home at the end of his shift than have some high ranking spook having >a go at his boss and getting him a bollocking. In this case I think it is 'high-ranking' police officers who are aware of the persecution, they know a complaint has been made, and they're doing nothing. What is more, I don't think there is anything I can do that would make them take action, both because they may be being 'leant on' and through the wider view that it could be deleterious to the state to have a persecution by state organs exposed. They're wrong in taking that point of view, because sooner or later this will all out anyway, and they it will be n years of police inaction (n>=6) that will be questioned. > >In short, you have earned much sympathy but little surprise. Just remember >that saying about the enemy of your enemies. > >Have a nice day. 14706 Tag: Run macro in a encrypted template. Tag: 101787
  - 22
    - MI5 Persecution: Shoot to Kill 4/4/96 (13192) Newsgroups: uk.misc,uk.politics,alt.politics.british,soc.culture.british From: jbaker@pobox.com (Jill Baker) Subject: Re: MI5 Persecution: How and Why Did it Start? Reply-To: jbaker@pobox.com Date: Thu Apr 4 05:03:01 1996 jbaker@pobox.com (Jill Baker) wrote: >bu765@torfree.net (Mike Corley) wrote: >>Why would >>the security services expend hundreds of thousands of pounds and more than fiv >>years of manpower to try to kill a British citizen? Because ... >So why didn't they just shoot you dead? >It would have been a lot cheaper. Please make the effort to respond to this point Mike. It was a serious question. Jill (my opinions are entirely my own, no-one else's) ================================================================= Subject: Re: MI5 Persecution: How and Why Did it Start? Newsgroups: uk.misc,uk.politics,alt.politics.british,soc.culture.british Followup-To: uk.misc,uk.politics,alt.politics.british,soc.culture.british References: <Dp5IAr.1EB.0.bloor@torfree.net> Organization: Toronto Free-Net Distribution: jbaker@pobox.com (Jill Baker) wrote: >bu765@torfree.net (Mike Corley) wrote: >>Why would >>the security services expend hundreds of thousands of pounds and more than fiv >>years of manpower to try to kill a British citizen? Because ... >So why didn't they just shoot you dead? >It would have been a lot cheaper. I think there are two reasons nobody has taken physical action as opposed to verbal; a) A lot of people "know". Perhaps you the reader might not know, but lots of people in the media etc do. Remember, I was born in the UK and lived there until a couple of years ago. I don't think these people would condone state-sponsored murder of someone who might be seen on a good day as one of their own. b) Rather than doind anything directly, they're going for spying, verbal harassment, media harassment, every form of persecution short of the physical. Because as soon as anything turns physical, the police become involved; and unless it turns physical, the police can shrug and say 'not our problem'. So they persecute you and try to get you to react, either by hitting one of them (in which case I clearly find myself in the wrong as far as the police are concerned), or by trying to harm myself (in which case they can pretend they weren't responsible). It's a pretty unproductive form of harassment actually, because if you don't react then they're wasting they're time. Or perhaps they're just cheap bullies and trying to wreck someone's life, without any ulterior motive? 13192 Tag: Run macro in a encrypted template. Tag: 101786
  - 23
    - MI5 Persecution: Email Cruelty 11/3/96 (11678) From: D.S.Toube@qmw.ac.uk (David Toube) Newsgroups: uk.misc,uk.politics,uk.legal,uk.media,soc.culture.british Subject: Re: Why Censorship Must Not Be Allowed on Uk.* Reply-To: D.S.Toube@qmw.ac.uk Date: Mon Mar 11 11:47:13 1996 A OSHINEYE <TA5330@QMWCC7.qmw.ac.uk> wrote: :D.S.Toube@qmw.ac.uk (David Toube) wrote: :>I would also be very pleased if Mike Corley would not mailbomb me :>via my university account with messages entitled 'This Is What :>You Get For Censorship', thus closing down the entire college :>email system. :> :>Although it does not personally inconvenience me, it is rather :>dull for the college. :When did this happen? BTW you can always use Pegasus Mail to send all :email from Corley's address back to him and see how he likes it. :--Ade : This weekend. The result, Mike Corley will be gratified to hear, was that all users of the college system were prevented from using email. I suspect that there is no stopping Mike Corley. If mail is automatically returned to him, he will return it back to you tenfold. If he is thrown off his account, as he surely will be, he will find another one. I do not care whether Mike Corley has an email account or not. It is a matter of supreme indifference to me whether his fanciful account of persecution is aired or not. If he thinks that he has been persecuted by M15 and Chris Tarrant, then that is a matter for him. But there is a world of difference between repeatedly spamming usenet - which is unacceptable - and setting up a Web Site containing his post, which is entirely acceptable. Then it will be possible to choose whether or not to partake of his fantasy. However although I would not like to see the censorship of posts because they demonstrate evidence of mental illness, I suspect that Mike Corley will inevitably be censored by his ISP following a number of complaints of usenet abuse and mailbombing. ---- David Toube Lecturer in Law QMW, University of London WWW: http://www.qmw.ac.uk/~ugtl027/index.html David Boothroyd's British Elections Home Page WWW: http://www.qmw.ac.uk/~laws/election/home.html 11678 Tag: Run macro in a encrypted template. Tag: 101785
  - 24
    - MI5 Persecution: Jeff Rooker MP 5/3/96 (10164) From: rael@midnight.org (Rael A. Fenchurch) Newsgroups: uk.misc,uk.politics,uk.media,uk.legal,alt.politics.british Subject: Re: Persecution in the U.K. Date: Tue Mar 5 04:37:52 1996 Mike, >"go away" replies, and one from a Labour MP saying he was aware of my situation >but wouldn't help me because he regarded me as the "bad guy". Gee thanks, they >do this and then offload the shame they should feel onto you by telling you "oh >but it's your fault". It's a mad world. Do you happen to have a copy of this MPs letter? After all, a scanned copy of it would lend great weight to your case here. At the moment, you've offered us nothing in the way of evidence, which is one of the main reasons we all think you've truly gone fishing. So? Rael... ----------------------------------------------------------------------------- --- Rael A. Fenchurch (rael@midnight.org, http://www.midnight.org/rael/) --- --- "I don't think compassion's the language of our time" --- --- "Doubt or Die" --- ----------------------------------------------------------------------------- ========================================================================== From: Andy Howard <andy@kiss100.demon.co.uk> Newsgroups: uk.misc,uk.politics,uk.media,uk.legal,alt.politics.british Subject: Re: Persecution in the U.K. Reply-To: andy@kiss100.demon.co.uk Date: Tue Mar 5 06:06:15 1996 In article: <DnrMsq.239.0.bloor@torfree.net> bu765@torfree.net (Mike Corley) wr I got a few > "go away" replies, and one from a Labour MP saying he was aware of my situatio > but wouldn't help me because he regarded me as the "bad guy". Which Labour MP Mike? > -- --------------------------------------------------------------------------- | Andy Howard EMail andy@kiss100.demon.co.uk | | My opinions, not my employer's (Jolly nice people though they are). | | If my employers shared my opinions... Well, frankly I'd be amazed | --------------------------------------------------------------------------- ==================================================================== Subject: Re: Persecution in the U.K. Newsgroups: uk.misc,uk.politics,uk.media,uk.legal,alt.politics.british,soc.culture.br$ Followup-To: uk.misc,uk.politics,uk.media,uk.legal,alt.politics.british,soc.culture.b$ References: <DnFtLs.E37.0.bloor@torfree.net> <4h45nq$87o_002@leeds.ac.uk> <4h6gkb$ivc$ Organization: Toronto Free-Net Distribution: Mike Corley (bu765@torfree.net) wrote: : >Do you happen to have a copy of this MPs letter? After all, a scanned : >copy of it would lend great weight to your case here. At the moment, : >you've offered us nothing in the way of evidence, which is one of the : >main reasons we all think you've truly gone fishing. So? : The letter was by email, not on paper. (In addition to snail-mailing, I : emailed all the relevant addresses I could find.) I'll see if I can find : it, I keep a record of most of this correspondence so I may still have it. I'm afraid I don't have a copy of the correspondence. In future I will keep useful letters, so with luck there may be a "next time". The MP was Jeff Rooker, Labour MP. Having looked again at the Labour web page I find he doesn't have an address listed, but I have a record of his address as having been jeff.rooker@geo2.poptel.org.uk. I don't know where I got the address from. I'm so disorganised! ==================================================================== Newsgroups: uk.misc,uk.politics,uk.media,uk.legal,alt.politics.british From: J.J.Smith@ftel.co.uk (John J Smith) Subject: Re: Persecution in the U.K. X-Nntp-Posting-Host: death-on-the-rock.ftel.co.uk Message-ID: <Dnw49L.D1H@ftel.co.uk> Sender: smid@death-on-the-rock.ftel.co.uk (RFC931) Organization: Fujitsu Telecommunications Europe Ltd References: <DnFtLs.E37.0.bloor@torfree.net> <DnrMsq.239.0.bloor@torfree.net> <Dnsrnu.Jr1.0.bloor@torfree.net> <DntKEo.86E.0.bloor@torfree.net> Date: Thu, 7 Mar 1996 09:12:56 GMT Lines: 54 In article <DntKEo.86E.0.bloor@torfree.net>, Mike Corley <bu765@torfree.net> wrote: >Mike Corley (bu765@torfree.net) wrote: >: >Do you happen to have a copy of this MPs letter? After all, a scanned >: >copy of it would lend great weight to your case here. At the moment, >: >you've offered us nothing in the way of evidence, which is one of the >: >main reasons we all think you've truly gone fishing. So? > >: The letter was by email, not on paper. (In addition to snail-mailing, I >: emailed all the relevant addresses I could find.) I'll see if I can find >: it, I keep a record of most of this correspondence so I may still have it. > >I'm afraid I don't have a copy of the correspondence. In future I will keep >useful letters, so with luck there may be a "next time". Don't believe you. Because that might be proof, and we just *cant* have that. >The MP was Jeff Rooker, Labour MP. Having looked again at the Labour web page I >find he doesn't have an address listed, but I have a record of his address as >having been jeff.rooker@geo2.poptel.org.uk. I don't know where I got the >address from. I'm so disorganised! I did Email this MP yesterday. This is what I wrote: Smid>I am sorry to bother you, but there is a person with a known Smid>personality disorder on the internet usenet, claiming that you Smid>as an MP have backed up his claims that he is being persecuted Smid>by MI5. Smid>His name is Mike Corely, and posts from canada (email address Smid>available if you require). Smid> Smid>He claims that you have told him that his claims that the Smid>"television is watching him", are justified, yet cannot find the Smid>email in which he did so.. Smid>I'd be interested in what you have said to him, because we have Smid>had a long term battle to convince him that he really is schizophrenic Smid>and that Chris Tarrent, MI5 and Martin Lewis from News On Ten are Smid>persecuting him... If you do have the original Email, then that'd Smid>be nice... Smid>If you nothing of this subject, it would not suprise me, however. His reply, surpise, suprise was: MP>No idea what you are on about. I am getting really sick of some of MP>the junk on E mail. I just dump it so he may have contacted MP>but as to an answer I 've better things to do. Your move, Mike. Smid 10164 Tag: Run macro in a encrypted template. Tag: 101784
  - 25
    - MI5 Persecution: Flight or fight 7/1/96 (8650) From: huge@axalotl.demon.co.uk (Hugh Davies) Newsgroups: uk.misc Subject: Re: persecution rant (re-post) Reply-To: huge@axalotl.demon.co.uk Date: Sun Jan 7 04:43:41 1996 Yo, Mike, Happy New Year! Haven't you killed yourself yet? In article <DKMIs5.158.0.bloor@torfree.net>, bu765@torfree.net (Mike Corley) wri >For anyone who hasn't yet read this, There is no-one in the known Universe who hasn't read this at least 5 times. >and really really wants to then here No-one wants to read it, Mike. It's drivel. >is the article that was posted last year in this newsgroup.... Over and over and over and over and over and over and over and over again.... -- Regards, Huge. ================================================== Subject: persecution rant (re-post) Newsgroups: uk.misc Organization: Toronto Free-Net Summary: Keywords: >Yo, Mike, Happy New Year! Haven't you killed yourself yet? But I can't, you see then I wouldn't know how things would turn out ("we're only doing this because we don't know how it's all going to end" - logic error in line 100) >There is no-one in the known Universe who hasn't read this at least 5 times. It doesn't seem to have done a whole lot of good since the good old persecution stuff is still going on. Over Christmas I was flying BA and got hassled by a couple of people on the flight (sounds like something you've heard before, doesn't it?). All the usual stuff about the town I'd been staying, "he doesn't know who we are", self-justification that we're doing it because he's a "nutter" etc. Real friendly like. Also a fairly obvious wind-up and attempt to get some reaction. I think they're trying quite hard to get a reaction. If I hit someone on a flight over the Atlantic, am I actually breaking any laws, and if so whose? Is a BA aircraft British territory subject to British laws while it's in mid-flight? It is really tempting to "reply" and that's obviously what they want, so who am I to refuse a blow to the head for people who ask for it so consistently? 8650 Tag: Run macro in a encrypted template. Tag: 101783

Hi,
Does anyone know the VBA code to run a macro in a encrypted template and
prevent the opening of the decryption-window?

Regards

Jiwi

Top

Re: Run macro in a encrypted template. by Jonathan

Jonathan
Fri Jun 29 04:46:29 CDT 2007

"Dendiene" <Dendiene@weeral.be> wrote in message
news:4682a2b3$0$14245$ba620e4c@news.skynet.be...
> Hi,
> Does anyone know the VBA code to run a macro in a encrypted template and
> prevent the opening of the decryption-window?
>

Take a look at the Application.Run method

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Top