How to create custom template that will replace standard bullets?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Match Whole Word In a macro, I used Ctrl+Find to locate the word "East" in an addr line and change it to "E". While this works fine, it also changes "Eastwood" to "Ewood". I tried using MatchWholeWord=True but it didn't help. I notice that when I use Ctrl+Find outside of the macro environment, it allows me to choose "Find Whole Words Only'. My question is how do I make the macro using Ctrl+Find to use the "Find Whole Words Only" command. Thanks muchly for your time and expertise Joanne Tag: How to create custom template that will replace standard bullets? Tag: 44904
  - 2
    - Visual Basic Error When I start Word2000, I get a Microsoft Visual Basic Window that claims a runtime error '48' It says that a file was not found (QStartup.dll) This started appearing after I uninstalled a number of programs. Any idea what is causing this and how I can get rid of it? Tag: How to create custom template that will replace standard bullets? Tag: 44901
  - 3
    - Forms and Documents I'm stumped! I'm trying to design a document template that allows the user to put information into a pop-up form ONCE, so that it can be placed at several locations throughout the document. Tag: How to create custom template that will replace standard bullets? Tag: 44900
  - 4
    - Updating Macro in footer I have a macro set up that updates the document version, this is also displayed in the footer of the document but when the macro is run it doesn't automatically update the version number and I have to manually update the field. How do I change this so all the version number instances update when the macro is run? Tag: How to create custom template that will replace standard bullets? Tag: 44895
  - 5
    - Connection String Problem The code below works on, say, 99 out of 100 machines, regardless of the version of Word. I suspect a DLL is missing on the target machine, or a flaw in my code. We are not allowed to distribute DLL files or in any other way change a user's machine. The code below opens a text file (SBAOffices.txt) and parses through to populate a combobox. Dir checks to see if the file exists. It does. strDB is the Temp or Templates directory. The code fails on rs.Open. Record count is 0. Any ideas or comments to help with the thought process would be appreciated. Thanks! Dan ========================== Count = 0 If Dir(strDestination, vbNormal) <> "" Then 'Get count of records in file If strDB = "" Then strDB = ActiveDocument.AttachedTemplate.Path End If Set rs = CreateObject("ador.recordset") strConnect = _ "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "DefaultDir=" & strDB & ";" & Chr(34) rs.Open "Select * from " & strTable & " order by ST, Name", strConnect, adOpenStatic Count = rs.RecordCount If Count = 0 Then GoTo ErrorOfficesList End If ReDim OfficeList(Count, 7) '14 columns in SBAOffices.txt ' Access and read Text file Do Until rs.EOF For Each fld In rs.Fields If fld = Empty Then Else ... ========================== Tag: How to create custom template that will replace standard bullets? Tag: 44893
  - 6
    - InsertAdres-command / choise af the standard addressbook When I use the word-command "InsertAddress" , I have to choose each time in a list from wich Outlook-Addressbook of our Company I want to pick the address from The settings made in OUTLOOK itself (like "show this addresslist first ..." ) seems not influencing the Word-command The question is if there is a way to declare that the (public) address book of our Division becomes the standard addressbook in Word Thanks in advance, paul (working with WORD 2000 SR1 and OUTLOOK 2000 SR1) Tag: How to create custom template that will replace standard bullets? Tag: 44883
  - 7
    - Adding Item to ComboBox Hi Friends, I am working on an application in VB6.0 which creates Word document on the fly. I have added a ComboBox control to the page, but I am not able to add the individual ListItems to this Combo Box. I am not getting any run time errors, but when I open the created document it doesn't show me any Item in the ComboBox. Following is the code I am trying. Set MyInLineShape = MyTable.Cell(1, 1).Range.InlineShapes.AddOLEControl("Forms.ComboBox.1") MyInLineShape.OLEFormat.object.Style = 2 MyInLineShape.OLEFormat.object.AddItem "Item 1" MyInLineShape.OLEFormat.object.AddItem "Item 2" MyInLineShape.OLEFormat.object.AddItem "Item 3" MyInLineShape.OLEFormat.object.AddItem "Item 4" Kindly Help, Thanks and Regards, Nik Tag: How to create custom template that will replace standard bullets? Tag: 44881
  - 8
    - Screen Updating Word 2000 I have a set a macros that do a lot of text selections in the document. When the macros run, all the activity in the document makes the screen flash. I've been working with Application.ScreenUpdating, and that works well with some of the macros. However, with other macros it doesn't work as well. One macro in particular is started with one block of text selected, and ends with a different block of text selected. Application.ScreenUpdating = False has little impact on how much the screen flashes during this macro. Are there any tips or tricks that can be used to make the screen flash less? --Tom Tag: How to create custom template that will replace standard bullets? Tag: 44878
  - 9
    - Macro to convert hyperlinks to Word97/2000 Format Hi there I have about 80 MS Word documents created in Word 2003 that contain hyperlinks to other files within the same directory tree. The hyperlinks work perfectly well on my PC (WinXP and Off2003), but most of the users accessing the documents (and using the hyperlinks to navigate around) are using Windows 95 with Office 97. These users are unable to follow the hyperlinks. The reason is well documented in MS Knowledge Base article 329835 (entitled "Problems with Hyperlinks in Office XP Documents You Open with Earlier Versions of Office"). Now I would like to convert all the forward slashes in the hyperlinks to backslashes, so that users of all versions of Office and Windows can navigate without encountering errors. However, even though I manually edit the hyperlink in Word 2003 and replace the / with \ when saving the document, the path is stored in the new format (i.e. using the forward slash instead of the backslash character). I have also tried Alt-F9 and the Edit/Replace feature, but even this does not work. Does anyone have any idea how I can convert (preferably using a macro) all the hyperlinks so that they work for all versions of Office since Office 97? Any feedback would be greatly appreciated. Many thanks in advance. Tag: How to create custom template that will replace standard bullets? Tag: 44871
  - 10
    - Monitor clipboard...... Hi Folks, Does anyone know how to monitor the clipboard for data? Lets say for the sake of an example its a string of format; xxxxxxxxxxxx (where x = a 10 digit number) name (where name = a given name) Cheers -Al Tag: How to create custom template that will replace standard bullets? Tag: 44870
  - 11
    - Equivilent of Application.GetOpenFilename In Excel I used the following to get the user to browse for a filename (full path) stfilename = Application.GetOpenFilename _ ("Excel Files (*.xls),", 2, "Select File to Paste Path", , False) In word is there a way to do the same thing? That is get the user to browse for a file and then select it so I can attached that file to an email? Simon. Tag: How to create custom template that will replace standard bullets? Tag: 44861
  - 12
    - Find, then loop with Find Next? I've got a Selection.Find inside a loop. If Find.Found = True, I've got five other IFs that the selection must meet before I can take action. Somewhere in this mess, I've got to say Found = True, but it fails the other conditions, so go find the next one and check it until Found = False. I'm having trouble wrapping my brain around this one - any help or examples are appreciated. Ed Tag: How to create custom template that will replace standard bullets? Tag: 44854
  - 13
    - client coordinates in word application given screen coordinates Can anyone tell me how I can get the client coordinates in a word application for given screen coordinates using VB programming Jayashri Tag: How to create custom template that will replace standard bullets? Tag: 44848
  - 14
    - Tables Is there a way to determine the row and column for the cell the cursor is currently residing in Thanks Phil Tag: How to create custom template that will replace standard bullets? Tag: 44847
  - 15
    - Restricted area text input in Word? Hi, Is it possible to restrict the total length of text input over a certain area with VBA? The length from Begin to End is fixed, let's asume 2 pages. The area's 1, 2, 3 are dynamical of size but restricted by the total lengt of Begin - End. Begin----- start area 1----- ----------- start area 2 ---- ----------- start area 3 ---- ------------------------End Is it possible to maintain this with VBA? TIA, Marcel Tag: How to create custom template that will replace standard bullets? Tag: 44846
  - 16
    - Splitting a doc after break lines Hello, I have a doc file with 50 lyrics of songs.I would like to have one .doc per song. A break line appears after each song. I can't figure how to make the macro taking the text till the next break line, cutting it and pasting and saving it in a new document (having the name of the 1st line ie the song's title). Thanks if you can help. Nicolas Tag: How to create custom template that will replace standard bullets? Tag: 44844
  - 17
    - tab order Hi Folks, I have a number of frames in my dialog box. Each textbox in each frame seems to reset the tab order. ie: ___________FRAME 1_____________ [1] [2] [3] <-textboxes tab order 1,2,3, __________FRAME 2______________ [LISTBOX] <- no tab order _________FRAME 3________________ [4] [5] <-textboxes order 4,5 [OK 5] <- ok btn tab order 6 __________________________________ Anyone know about this? Cheers -Al Tag: How to create custom template that will replace standard bullets? Tag: 44842
  - 18
    - MSWord 2000 I have a macro that allows me to grab what I need from the end of a line of text. After grabbing this, my cursor is at the end of the line. What I want to do is highlight the entire line to the leftmost character and delete the entire line. I can't use count:=n, because n is always a different number of chars I tried using Selection.MoveLeft Unit:=wdline, Count:=1, Extend=wdExtend this did not work, only gave me an error on 'wdLine' Please point me in the direction to solve this puzzle. Your help is much appreciated. ps I really want to delete the entire line and then 3 empty lines above it. I know I can use Selection.Type Backspace for each line I want to get rid of, but I thought maybe there is a more efficient way to do this. Your ideas and help make my day ;- ) Joanne Tag: How to create custom template that will replace standard bullets? Tag: 44836
  - 19
    - How to Get File Properties (NOT Document Properties) I'm needing to get the properties (like "Read Only") of a file in the template folder. How can I go about doing that? I've searched Google and the MVP site, but have nothing to show for it. :/ Tag: How to create custom template that will replace standard bullets? Tag: 44835
  - 20
    - Find/replace styles Hello everyone, I am trying to write a macro that replaces automatically old styles with new ones with different names. My problem is that if one of the old styles the macro looks for does not exist in the document, it gives an error message and stops. Help please. Thanks in advance. Tag: How to create custom template that will replace standard bullets? Tag: 44828
  - 21
    - Pasting Selected Text What is the VBA syntax to paste text that is selected in Doc1 into Doc2? How can I error test such that if no text is selected in Doc1, the macro beeps and does nothing else when executed in Doc2? Tag: How to create custom template that will replace standard bullets? Tag: 44827
  - 22
    - Trouble collapsing range to end I've just started working with ranges, so please bear with me. I use Find.Execute to find a text string in a report. If it meets several criteria (including in a table), I set endRange = Selection.End. Then I move up to encompass the table caption, and set wkRange from the start of the caption down to endRange, which should be at the end of my initial Found text string. If another condition is met, I use wkRange.Collapse wdCollapseEnd, which *should* take me back to the end of my initial text string. So Selection.Homekey Line, Extend - which would select backwards from the end of my range to the start of the line - *should* select my original text string. Except ... Stepping through the code, all went perfect until the wdCollapseEnd, apparently. When selected, the text from the range end to beginning of the line was nowhere near what it should have been! In fact, it looked like all I selected was the beginning letter of my table caption, which is at the very start of wkRange - unless I mangled the range when I set it. So - any advice in setting and working with this range set up is greatly appreciated. Also, is there any way to make the range visible as it is set, expanded, or collapsed, so I can see what's happening? Thanks much. Ed *********** Applicable code: ' If found, must be in Col 1 of a table If Selection.Find.Found = True And _ Selection.Information(wdWithInTable) = True And _ Selection.Cells(1).ColumnIndex = 1 Then ' Set range to include caption endRange = Selection.End Selection.Tables(1).Cell(1, 1).Select Selection.MoveUp Unit:=wdParagraph, Count:=3 Selection.HomeKey Unit:=wdLine Set wkRange = Selection.Range wkRange.SetRange wkRange.Start, endRange ' Set caption only as range wkRange.Collapse Direction:=wdCollapseStart Selection.EndKey Unit:=wdLine, Extend:=wdExtend Set cRange = Selection.Range ' Check caption for "EFF" With cRange.Find .ClearFormatting .Text = " EFF " .Execute End With If cRange.Find.Found = True Then ' If caption contains "EFF" wkRange.Collapse Direction:=wdCollapseEnd Selection.HomeKey Unit:=wdLine, Extend:=wdExtend If Selection.Text = TIR Then ' Cell contains only TIR No. GotIt = True End If End If End If Tag: How to create custom template that will replace standard bullets? Tag: 44826
  - 23
    - No Built-in Document Properties I develop in VC++ and use the MSWORD.OLB to create a set of classes that allow me to interface with word, the same way most people do in VBA, I would guess. However, when I generate the classes using ClassWizard, there does not appear to be a class for the Built-in document Properties. Ther is a method in the Application property to obtain a pointer to that class, but there doesn't seem to be a class created by Class Wizard for that class. Can anyone tell me how to obtain it Thanks Phil Tag: How to create custom template that will replace standard bullets? Tag: 44820
  - 24
    - Macro to remove first 3 lines of doc The recent post re: Replacing selected text with a picture was helpful, but I need to expand that a little to fit my scenario. I have to replace an existing 3 line header with a 3 line header that includes a logo. I have created a bitmap of the header that includes the picture, but how do I remove the existing 3 lines. I know how to replace a single line, but the 3 lines of the header use a different font size than the rest of the document and I need to adjust the font size of the main document without effecting the header. TIA Sallie Tag: How to create custom template that will replace standard bullets? Tag: 44817
  - 25
    - Word not accepting soap call Hi, I've put together from various sources an add-in for word to call a remote soap service, and display the result in a treeview. I followed the example for an creating a com addin via the wizard, and have sucessfully got a nice little button in word that displays the treeview. However, when I press my submit button, nothing comes back. Using the console on my soap server, I can see word has pushed the request, and the soap service has fired the data back. Using a packet sniffer I can see my PC has recieved the data... Before going into code snippets, is there something obvious that I need to do to allow word to do this? I've changed all the macro security down, but is there anything else I need to do? The code all works fine outside of word, btw. Thanks for any help any one can give, Pete Tag: How to create custom template that will replace standard bullets? Tag: 44816
- Next
  - 1
    - Table cell attributes Can I programattically get the attributes of each cell of a word table, eg alignment, font, size, colour etc? eg something like the following? Table.Cell(1,1).Font Table.Cell(1,1).Alignment Tag: How to create custom template that will replace standard bullets? Tag: 44810
  - 2
    - FileOpen - dialogbox . change focus? I use a macro to chance directory and the show the File Open dialog box. I want the macro to "focus" on the file-list in the dialog box, and not the file-name-box. (I'm using a norwegian Word - I'm not sure about using the correct english words). I have tried to do this by Send Keys - it doesn't work! All help is appreciated! Torstein This is the part of the macro ChangefileOpendirectory ("C:\test") dialogs(wdDialogFileOpen).show sendkeys "+{TAB}" 'this means SHIFT-TAB I suppose End Tag: How to create custom template that will replace standard bullets? Tag: 44796
  - 3
    - Attached Template We have just upgraded from using Word 2000 running under Winwows 2000 to using Word XP running under Windows XP I have a document that says it has a template of Manifest5SIS.dot and yet when I run the code below, it is telling me that the Attached template is Normal.dot. It worked fine in 2000 This code is stored in a startup template and run from a toolbar button Any ideas please? Stephen On Error GoTo EXITSUB Dim strMsg As String With ActiveDocument If .AttachedTemplate = "Manifest5SIS.dot" Then .AttachedTemplate = _ "C:\Program Files\Microsoft Office\Templates\COS - General\Manifest5.dot" ElseIf .AttachedTemplate = "Manifest4a.dot" Then .AttachedTemplate = _ "C:\Program Files\Microsoft Office\Templates\COS - General\Manifest5.dot" End If If .AttachedTemplate = "Manifest5.dot" Then 'Debug.Print CDate(Application.Run("ReadProp", "ReviewDate")) If CDate(Application.Run("ReadProp", "ReviewDate")) <= Now() Then MsgBox "Click ShowDocProperties to change review date", vbOKOnly, "Check Review Date" End If End If End With Exit Sub EXITSUB: MsgBox "Error", vbOKOnly, "Sorry, I can't complete this task for you" End Sub Tag: How to create custom template that will replace standard bullets? Tag: 44791
  - 4
    - Email a document Hi. I'm using SendMail to add the contents of the current active document to an email body as an attachment and then send it. Problem I have is I can add the attachment but I can't specify a subject line or send address's. Here is what I'm doing: ActiveDocument.SendMail How can I add a subject line, to address's and then send it ? Help please. TIA Chris ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: How to create custom template that will replace standard bullets? Tag: 44790
  - 5
    - not all macros are availible when creating a document from a template Hello all! I am having a problem when creating documents from a template I made. Everything works fine when I am in the template. When I create a document from that template everything from the (microsoft word objects) section doesn't carry over to the document. On the other hand the (modules) section carries over with no problem. I am pretty new to this and any help I would greatly appreciate. Thanks, Brian Tag: How to create custom template that will replace standard bullets? Tag: 44789
  - 6
    - Saving changes to the Normal template programatically Greeting Is the there a way to save the changes to the Normal template, programatically. I want to do this because a run macros that change the normal template and i want to save the changes immediately instead of waiting until i close word. Thank you. DZ Tag: How to create custom template that will replace standard bullets? Tag: 44788
  - 7
    - Macro to Discontinue Header & Footer in Doc Hi I'm trying to create a macro that will go to the end of a document, insert a section break, then remove the previous header/footer from the new section, but it's removing the header/footer from the previous section and adding to the new section. Any ideas on how I do this? Tag: How to create custom template that will replace standard bullets? Tag: 44780
  - 8
    - Saving as .rtf I am trying to code my Word Templates so that the SaveAs Dialog box goes to the correct folder and shows only .rtf files... So far I have the following code but it does not show only .rtf files, it only shows .doc files... Arrgghh!! 'Set the initial path to the M:\ drive and Save. Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) With fd .InitialFileName = "M:\usinput\comserv\*.rtf" .Show End With Unfortunately, our electronic filing program uses only .rtf documents so users need to be prompted to save as .rtf... Cheers Tag: How to create custom template that will replace standard bullets? Tag: 44772
  - 9
    - get WordML version of a doc?? Hello there, I am acutally writing a COM addin for word 2003 but to solve this problem, I've just taken a line of code from my COM project and put it in a vba macro to isolate the problem. Sub Macro1() MsgBox (Application.ActiveDocument.Content.XML) End Sub "Application.ActiveDocument.Content.XML" returns a string that is a WordML version of the doc. This works for most documents, however for some, this causes Word to not respond (seems to do this more often when the doc has tables). It looks like word is saving the document or something because the "saving" progress bar in the lower left hand corner of word appears when this line is executed. Does anyone know anything about this or have any suggestions? Thanks, Marc Tag: How to create custom template that will replace standard bullets? Tag: 44764
  - 10
    - Programmatically add COM reference? Hi, IS there a way to add a reference to a COM library in a word template file in code? The reason I ask is because our application uses a template file that references a COM library that we have built. But, depending on where the COM library is installed (which can change depending on where the user chooses to install our application), it seems as though the word template can only reference this library if it's in the same location. Any other suggestions for accomplishing this would be appreciated as well. Thanks, Adam Tag: How to create custom template that will replace standard bullets? Tag: 44760
  - 11
    - Menu toolbar problem i have a globally mounting template onto which i built a number of drop menu's and distribute it onto anumber of other machines. recently i noticed i had lost a menu so i copied from a previous version i had the menu back into the template. This menu is called general, however when i have loaded it onto another machine i see that the original is still there and the one i copied also. I renamed them both general 1 and genral 2 to see which one was visible on my first machine and saw it was general 2 so i deleted general 1 and replaced the menu on my machine however general 2 dissapeared all the machines use either windows xp or NT 4 with office 97 installed. Anyone any ideas why this one menu should dissapear. Fred Tag: How to create custom template that will replace standard bullets? Tag: 44758
  - 12
    - newbie needs some VBA help I never done VBA programming EVER. but I need to and not sure how to do it. Heres the problem. I have a word template that has a field(s) that allow dollar amounts $0.00. The problem is that sometimes the user can enter a Percentage but if they do that it shows as $0. How can I allow this field to allow percents 4% of dollar amounts %19.99? I know i can change the property format field, but the users like the $ be prefilled. is it even possible to allow a field to allow both? If possible can someone point me to an example or something to help me with this? Tag: How to create custom template that will replace standard bullets? Tag: 44757
  - 13
    - Replacing selected text with a picture? Hello all, I've been trying to find a simple solution to finding variables in a word2k document and then replacingthat variable with an image. *Is* there a simple solution for this that anyone knows of? I came across a rather complex solution that was a page of code and only worked %80 of the time. It isn't even worth posting to try and get fixed. Regards, -Tony Kirk Tag: How to create custom template that will replace standard bullets? Tag: 44749
  - 14
    - Save .doc macro Hi all, Im trying to achieve the following: 1. Create a macro to save a word document in a particular directory (always) but prompting for file name everytime they run this macro. I could get the first part ok. But abt prompting for file name? Following is the macro I created to save the file in a particular directory, but with the same name. I want macro to prompt for file name everytim I run it? Sub TEST1() ' ' TEST1 Macro ' Macro recorded 1/21/2004 by Priya Gurumurthy ' ActiveDocument.SaveAs FileName:="TEST_DOC3.doc", FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False End Sub thanks in advance Regards Priya Tag: How to create custom template that will replace standard bullets? Tag: 44747
  - 15
    - Changing Word's bookmark characters I have a bunch of templates that make heavy use of bookmarks. I'm trying to make it difficult for the users to accidentally delete them. Is there a way to change the character that Word uses to display a bookmark's start and end position? I would like to make it more visible to the user. I set ShowBookmarks to true so that the users can at least see them. I've also added the code below to the document_new event. Thanks, code: Dim bm As Bookmark, r As Range For Each bm In ActiveDocument.Bookmarks Set r = bm.Range r.Collapse wdCollapseStart r.Text = Chr$(135) r.Font.Color = wdColorRed r.Font.Hidden = True Set r = bm.Range r.Collapse wdCollapseEnd r.Text = Chr$(135) r.Font.Color = wdColorRed r.Font.Hidden = True Next Tag: How to create custom template that will replace standard bullets? Tag: 44745
  - 16
    - Pageorientation and tables Hi, I need a macro to convert, from the cursor location till the end of the document, all the pages from portrait to alndcape (or viceversa) and resize correctly all the tables in the pages. I wrote something like this: ---------------------------------------- Dim rowRow as Row Dim cllCell as Cell Dim lngWidthUsable as Long Dim lngWidthTable as Long Dim tblTable as Table Selection.InsertBreak wdSectionBreakNextPage Selection.Start = Selection.Start + 1 With Selection.Sections(1).Range.PageSetup .Orientation = wdOrientlandscape .SectionStart = wdSectionNewPage .DifferentFirstPageHeaderFooter = false End with With ActiveDocument.PageSetup lngWidthUsable = .PageWidth - .LeftMargin - .RightMargin End With For Each tblTable In Selection.Sections(1).Range.Tables For Each cllCell in tblTable.Rows(1).Cells lngWidthTable = lngWidthTable + cllCell.Width Next cllCell For Each rowRow in tblTable.Rows For Each cllCell In rowRow.Cells cllCell.Width = cllCell.Width * (lngWidthUsable / lngWidthTable) Next cllCell Next rowRow Next tblTable -------------------------------------------------------------------------- I cannot check if this code makes the job because the .PageWidth and .LeftMargin give me a strange 99999 value (while the .RightMargin gives me the correct value). Any hint/idea/help/suggetsion/code? Thanks Tag: How to create custom template that will replace standard bullets? Tag: 44739
  - 17
    - Deleting files and folders I am writing a macro that shall copy files from one source structure to a target structure. Before the files are copied I want to delete all files and folders in the target structure. I use the Kill command to delete the files in a folder and then I use the RmDir command to delete the folder. The Kill command works OK but the RmDir command results in error 75 "Path/File access error". If I restart the macro the folder that is now empty is deleted OK but when trying to delete the next folder, error 75 occurs again. Is there a timing problem here? Is it possible to get any type of confirmation that all files have been deleted Ok before trying to delete the folder? Tag: How to create custom template that will replace standard bullets? Tag: 44736
  - 18
    - Disable Macro Security in a Template Hello I've created a company template in word with a macro to allow users to print their document to a specific network printer. The problem is that by default macro security is set to high, and I have to manually lower that setting for each user that will use this template. Not a good scenario.. My question is whether or not there is an easy way to lower security settings in Word across the network, or whether there is some code I can insert into the template itself telling Word to lower the settings for that document, and then raise them again once the user finishes working with the template I've seen another post about using the ORK and Group Policy to accomplish this, which I'm looking into. We run an Active Directory domain with Win2000 Servers and Win98, Win2K, WinXP clients using Office 2000, Office 2000 Pro, Office XP, Office XP Pro, and I run Office 2003 on my machine Any help is appreciated Thanks Thomas Dietrich Tag: How to create custom template that will replace standard bullets? Tag: 44731
  - 19
    - Template still opens after DOC created? Man, just when you think you are getting to know how to program around WORD, something else happens to show you how little you really know! I created a template (mentioned in another post earlier today) that will be used as a form for travel requests. When I double-click on the template, it opens and I can modify the document then when I close WORD it asks me to save the new document. I do, but then it asks me if I want to save changes to the template too! It shouldn't do this!!!! (Is it b/c I load dropdown data in the NEW and OPEN events?) But, then after WORD is closed, when I open the document I just saved. Make changes, and close it, it again asks me if I want to save changes to the template!??!! I didn't even open the template at this point, it was just the document created from the template! I then opened the document again, and looked in the folder where the files are located, and sure enough, there is a temp WORD file for both the document AND the template! What is going on???? Help please!!! Tag: How to create custom template that will replace standard bullets? Tag: 44730
  - 20
    - Populating dropdown formfield based on another I need to populate a dropdown formfield, based on what is selected in another dropdown. I thought I had it, but something strange is happening now. I populate both fields (Department and Project) via code. The PopulateDepartment subroutine is called from both the Document_New and Document_Open events. Since this form is generated from a template, I figured it needed to be in the NEW event. But since it can also be modified after being created, I put it in the OPEN event also. The data is loaded into the Department field, then I try to set the default values (which is "..."). I enter the data into an array at the top of the PopulateDepartment subroutine, the loop on that data to load it into the dropdown box. The last thing I do is set the .Result value of the formfield to the first value in the array, which is "...". The exit event for this dropdown executes the PopulateProject subroutine, which reads this value and loads the dropdown with the proper data. BUT, when PopulateProject is executed, it always gets the value I loaded into the .Result property, regardless of what was selected in the dropdown field. What am I doing wrong???? Here is how I load the data into the Department dropdown. I assume the problem is here, since all I am doing in PopulateProjects is getting the .Result of the formfield. code:----------------------------------------------------------------------- ------- intMax = UBound(mstrDepartment) Set objFormField = Me.FormFields("cboDepartment") With objFormField With .DropDown.ListEntries .Clear For intCnt = 1 To intMax .Add Name:=mstrDepartment(intCnt) Next intCnt End With .Result = mstrDepartment(1) End With ---------------------------------------------------------------------------- -- Now, just b/c I said it and I'm probably wrong, here is some of the code from the LoadProjects subroutine: code:----------------------------------------------------------------------- ------- intDepts = UBound(mstrDepartment) Set objFormField = Me.FormFields("cboProject") With objFormField With .DropDown.ListEntries .Clear .Add "..." For intDept = 1 To intDepts If strProject(intDept, 0) = strDept Then For intProj = 1 To 25 If strProject(intDept, intProj) <> "" Then .Add Name:=strProject(intDept, intProj) Else Exit For End If Next intProj End If Next intDept End With .Result = "..." End With ---------------------------------------------------------------------------- -- Tag: How to create custom template that will replace standard bullets? Tag: 44729
  - 21
    - Checking who sent message How would i check who has sent me a email in VBA? I have tried the Item.Sender but this doesnt work. Thanks Tag: How to create custom template that will replace standard bullets? Tag: 44727
  - 22
    - Office 97 in XP I have just installed XP in place of Win 98. I have also installed MS Office 97. I uploaded my My Documents files from previous When I go into My Documents and open both Word and Excel files, a dialogue box tells me that there is another file of the same name or it is being used by John Lynch, who is my self of course. It appears that the files, even after amendment or creation of new files, are mirrored. For example: opening an Excel file, dialogue box shows: "A document with the same name 'Attendance expected.xls' is already open. You cannot open two documents with the same name even if the documents are in different folders. To open the second document, either close the document that's currently open, or rename one of the documents." Tag: How to create custom template that will replace standard bullets? Tag: 44726
  - 23
    - unresolved references Hello, Is there any good way to scan a document for invalid/broken reference fields (REF) and linked pictures, i.e. they will display "Error! Reference source not found" or, in case of a picture, a broken image will be displayed. Of course it is possible to scan the .Field.Result property for 'Error ...' and check the file existance of linked images, but this seems a bit too laborious. Does Word or VBA have any 'good' and quick way to check this? thanks Ward Tag: How to create custom template that will replace standard bullets? Tag: 44713
  - 24
    - OleFormat Fileds Hello All! I change property of fileds OLEobject . The display OLE of objects has changed, instead of the formula (Equation 3) the reference is displayed {EMBED Equation.3} How to change property of display of object? Thanks. Stas. Tag: How to create custom template that will replace standard bullets? Tag: 44711
  - 25
    - HELP VBA 1004 MISSING IN OFFICE 2003 I use Windows XP and Office 2003 installed (complete installation) on a reinitialized C hard disk ( so there is no trace of Office XP on the C disk, there are .doc or .xls files on the D disk). After reboot, with Word and Excel I get a missing component failure and the program reinstals it, I have no problem after that till I shutdown the PC. After exploration, I think to come across an initialization failure of VBA 1004. How can I solve this annoying bug or feature and have no initialization failure. Thank you in advance for help Tag: How to create custom template that will replace standard bullets? Tag: 44710

Hello

I have a ton of word 2000 documents that i would like to modify so that I can put them into my FlexWiki web site. What that entails is modifying all of my headers from Heading1, Heading2 etc...to something that wiki can understand like

Heading1 would be
Heading2 would be !
Heading3 would be !!

The theory was that I could create a custom style sheet .dot and then apply it to my existing documents! And whola! I can cut and paste my documents into Wiki.

Top

Re: How to create custom template that will replace standard bullets? by Doug

Doug
Fri Jan 23 17:24:16 CST 2004

Try this

Dim apara As Paragraph
For Each apara In ActiveDocument.Paragraphs
If apara.Style.ListLevelNumber = 1 Then
apara.Range.InsertBefore "!" & vbTab
apara.Style = wdStyleNormal
ElseIf apara.Style.ListLevelNumber = 2 Then
apara.Range.InsertBefore "!!" & vbTab
apara.Style = wdStyleNormal
ElseIf apara.Style.ListLevelNumber = 3 Then
apara.Range.InsertBefore "!!!" & vbTab
apara.Style = wdStyleNormal
End If
Next apara

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
"XMLViking" <anonymous@discussions.microsoft.com> wrote in message
news:EC4CABEA-9281-40BD-900A-46A31A2B2825@microsoft.com...
> Hello,
>
> I have a ton of word 2000 documents that i would like to modify so that I
> can put them into my FlexWiki web site. What that entails is modifying
> all of my headers from Heading1, Heading2 etc...to something that wiki can
> understand like:
>
> Heading1 would be !
> Heading2 would be !!
> Heading3 would be !!!
>
> The theory was that I could create a custom style sheet .dot and then
> apply it to my existing documents! And whola! I can cut and paste my
> documents into Wiki.

Top