Organizing Templates for Office Use

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Read-only access to Word document in WebBrowser I am trying to use the WebBrowser control in VC++/MFC application to view MS Word documents by calling Navigate(m_sDocFile, NULL, NULL, NULL, NULL); I want the document to be in read-only mode when it is viewed in the control. I am trying to use the the DocumentComplete event to get the default IDispatch interface pointer for the hosted document object but that is where I get stuck as I have no idea which Word interface I can query to access and set that property. Thanks Alexei void CWebBrowserTestDlg::DocumentCompleteExplorer1(LPDISPATCH pDisp, VARIANT* URL) { HRESULT hr = S_OK; IWebBrowser2* pWB = NULL; hr = pDisp->QueryInterface(IID_IWebBrowser2, reinterpret_cast<void**>(&pWB)); IDispatch* pDocDisp = NULL; // get the default IDispatch interface pointer // for the hosted document object hr = pWB->get_Document(&pDocDisp); if (pDocDisp) { VARIANT v; VariantInit(&v); I????????* pDoc = NULL; // Which Interface should I use here??? hr = pDocDisp->QueryInterface(IID_????????, reinterpret_cast<void **>(&pDoc)); if (pDoc) { // do stuff } Tag: Organizing Templates for Office Use Tag: 84929
  - 2
    - Help me banish Web toolbar, please! In my Word 2002 (XP) Normal.dot, I have the following code to banish the Web and Reviewing toolbars. Unfortunately, they are not obeying! If I have a document already open and open another one using a hyperlink, I am likely to get the Web bar. Can I tweak this to stop it? Ed Sub AutoExec() With Application.CommandBars("Reviewing") .Enabled = False .Visible = False End With With Application.CommandBars("Web") .Enabled = False .Visible = False End With Application.OnTime _ When:=Now + TimeValue("00:00:02"), _ Name:="RemoveBar", Tolerance:=3 End Sub Sub RemoveBar() With Application.CommandBars("Reviewing") .Enabled = False .Visible = False End With With Application.CommandBars("Web") .Enabled = False .Visible = False End With End Sub Tag: Organizing Templates for Office Use Tag: 84927
  - 3
    - Print document without comments by default I use Word to take notes in my college classes, and I sometimes insert comments during class to remind myself that I missed a point or that I had a question about something. When I print my notes, though, I'd prefer not to print the comments (especially since it then shrinks the entire document and makes it harder to read, but also because I don't need to see them on printed versions). I know how to manually change the option so that it won't print the comments, but is there a way to change the default so that it NEVER tries to print the comments unless I ask? I'd be happy with a macro that does this, but my experience with them is limited and I don't know how to go about doing that. Tag: Organizing Templates for Office Use Tag: 84925
  - 4
    - Manipulating text through VBA Hello, I have a macro that starts with the following plain text: C:\databasel\bus_re\imanage\admin\19504_1.doc and ends up with this: bus_re\19245_2 I've been able to make it happen through a series of painful moves and deletions. My question is, what is the correct approach when writing code, to eliminate portions of text as in my example? Thank you for any suggestions. Tag: Organizing Templates for Office Use Tag: 84923
  - 5
    - <Buffer for return string is too small> When I try to refer to the following phrase in my VBA macro in Word 2002: ActiveDocument.MailMerge.DataSource.ConnectString I get the following error: <Buffer for return string is too small> (This MAY be error 9121 and there MAY be a 500-character limit to the buffer.) Any suggestions as to how this "showstopper" error might be solved? Thank you! Tag: Organizing Templates for Office Use Tag: 84922
  - 6
    - RPS Server unavailable Hi All, i am trying to add a document using the Microsoft.Office.Interop.Word.dll, some times it throws the following error "The RPC Server is Unavailable". can any one help me out why this error comes. i have spent a lot of time on this. it would be great helpful. Thanks -- ravib Tag: Organizing Templates for Office Use Tag: 84920
  - 7
    - WordBasic.MailMergePropagateLabel Error Hi all, I have created a macro in MS Word 2003 to merge some date in my document for printing labels. First time my macro works well and merges all the data. But next time when i want execute my macro insted of creating a wizerd , i get an error : No entry found ( Error number 509) "WordBasic.MailMergePropagateLabel" Any help in this regard. Regards, Naveed Anwar. Tag: Organizing Templates for Office Use Tag: 84916
  - 8
    - Bookmark uses original paragraph style Hi all, I have the following code and the selection is in a body text paragraph: Selection.Fields.Add Range:=Selection.Range, Text:= "REF " & parag.Range.Bookmarks(1) & " \h", PreserveFormatting:=False yet when I run the insert the paragraph style changes to that of the paragraph of the bookmark. I would've thought that the Preserver formatting flag would prevent this??? Thanks, R Tag: Organizing Templates for Office Use Tag: 84915
  - 9
    - set document variable to Wingdings character Hi all Word 2003 on XP Pro. Does anyone know how to set the value of a document variable to a Wingdings 2 character? My existing code is: ActiveDocument.Variables("required").Value = "Yes" I'd like to replace the "Yes" with a tick symbol (character number -4016) from the Wingdings 2 font. Have tried: ActiveDocument.Variables("required").Value = ChrW(-4016) but it gives a box symbol. Is this possible or is there another way? Thanks. Tag: Organizing Templates for Office Use Tag: 84908
  - 10
    - How Digital Signature work in office. Hi every one, I'd like to know how the digital signature in office 2003 work,I can work with it but I need technical information about the digital signature architecture,I'd like to know how digital signature in word call Crypto API and how work with Crypto Service Provide(CSP). If someone have information about which CSP is uses in digital signature please help me. Best Regards. Orchid -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.aspx/word-programming/200604/1 Tag: Organizing Templates for Office Use Tag: 84907
  - 11
    - Search & replace whole phrases Hi guys, I have this macro: Sub Duplicates() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "am. " {this is 'am.' plus a space} .Replacement.Text = "amer. " {this is 'amer.' plus a space} .Forward = True .Wrap = wdFindContinue .Format = True .Font.Italic = True .MatchCase = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Unfortunately, it replaces such instances: "bbbbbbbam. " (--> "bbbbbbbamer. ") I want to to replace only instances where "am. " is an independent phrase, not part of other phrases. Regards, Ivaylo Tag: Organizing Templates for Office Use Tag: 84906
  - 12
    - Add custom toolbar and double click on a button = event handler fired three times Hi, If you add a new toolbar with one button and then you double click on the toolbar button, the Click event of the button is fired three times. Is this a known bug? Is there some sort of workaround? Here is the code to reproduce the behaviour Private toolbar As CommandBar Private WithEvents toolbarButton As CommandBarButton Private Sub Document_New() Set toolbar = CommandBars.Add("Test", 1, missing, True) Set toolbarButton = toolbar.Controls.Add(1) toolbarButton.Style = msoButtonCaption toolbarButton.Caption = "Click me" toolbarButton.Tag = "something unique" toolbar.Visible = True End Sub Private Sub toolbarButton_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) Call Selection.Range.InsertAfter("Button clicked " & DateTime.Time$) Call Selection.Range.InsertParagraphAfter End Sub Thank you in advance Angelos Tag: Organizing Templates for Office Use Tag: 84903
  - 13
    - How to generate _Ref autonumber? Hi, I'm adding references to a document and would like to generate (to keep it consistent with what word creates) the _Ref autonumber. Does anybody know if it's accessible through any functions etc.? Thanks, R. Tag: Organizing Templates for Office Use Tag: 84899
  - 14
    - Merge fields for quotation template Our company database sends information to a word document using merge fields which can then be used in templates. I want to create a quote template - there can be up to 12 lines for pricing however I only want to insert the extra rows if they are used. How can I do this? Tag: Organizing Templates for Office Use Tag: 84888
  - 15
    - Create Document I am trying to create a document with specific feilds that cannot be moved or changed but has fields next to those to fill in. I need to be able to send out for clients to fill in and send back. Like a Data Entry form where you tab through and fill in the blanks without movings the question fields. I know this can be done and am getting a headache trying to figure this out. Someone please help! Tag: Organizing Templates for Office Use Tag: 84887
  - 16
    - trying to use "Load a ListBox from a Named Range in Excel using DAO" Usinng word2k, Win 2k I found this Code on the mvp website. It looks pretty straight forward. When i tried to run it I get a "runtime errror 3011" Microsoft jet database engine could not find object 'myobj' make sure the object exists and that you spell its name correctly and the path name correctly. I have double checked the spelling a path to the "named range i am trying to load. I have verifed the reference to dao 3.6 object library, Thks for any suggestions. BRC Tag: Organizing Templates for Office Use Tag: 84881
  - 17
    - How do I change/edit default Word Template? I'd like to change my default word settings so when I start typing on a new line autocorrect doesn't automatically capitalize my first word. I know it is easy enough to adjust the autocorrect settings after it happens the initial time you begin the new document, but it is a hassle to do that every time... An suggestions Tag: Organizing Templates for Office Use Tag: 84878
  - 18
    - Word 2003 AND Calling Outlook 2003 We have several templates with a VB fill-in form that eventually gets send via email. We just are moving to Outlook 2003 from Groupwise and receive the message "A program is trying to access e-mail addresses you have stored in Outlook. Do you want to allow this? When have to check the check box and select YES for access. We want users to not have to receive this message. We still have several users utilizing Groupwise so we can't attach the Outlook Reference library. Here is the code we were using below. We also want people at home to be able to utilize these forms and they might not have outlook. Any suggestions without receiving the prompt above. Sub OutLK() Dim objOL As Object Dim objLO As Object Dim objMessage As Object On Error GoTo ErrorHandle Set objOL = CreateObject("outlook.application") Set objLO = objOL.CreateItem(0) objLO.Display With objLO .Subject = strSubject .Recipients.Add strRecip 'emails correct recipient .Body = strBody .attachments.Add (ActiveDocument.FullName) .Send End With Exit Sub Exit_errorHandle: Exit Sub 'handles error sending email ErrorHandle: MsgBox Err.Description & Err.Number MsgBox "Email Malfunction, please contact the Help Desk.", vbOKOnly Resume Exit_errorHandle End Sub Tag: Organizing Templates for Office Use Tag: 84862
  - 19
    - Macro to change fonts in Microsoft Word I want to creat a macro that can run through a document changing font sizes and attributes. Eg if it is Times New Roman 12 change it to Arial 10, if it is TNR 14 change it to Arial 12. Any thoughts? Posted Via Usenet.com Premium Usenet Newsgroup Services ---------------------------------------------------------- ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY ** ---------------------------------------------------------- http://www.usenet.com Tag: Organizing Templates for Office Use Tag: 84859
  - 20
    - You should be able to create a shortcut for Paste Special in Word In Word 2000 you could at least create a keyboard short cut or a macro (and assign a keyboard shortcut to it) to use to Paste Special/Unformatted text. In Word 2003, not only can you not create a shortcut, but the same macro won't work. And putting it on a menu bar doesn't work consistently either. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=cd1b471d-c3cd-4f5d-aa8a-90f476585b1a&dg=microsoft.public.word.vba.general Tag: Organizing Templates for Office Use Tag: 84857
  - 21
    - Inserting text gathered from InputBox Hi, I'm using Word 03. I'm missing something here, but I want to insert the text obtained from the user responding to the InputBox, here's what I have: Sub newtest() Dim Message, Title, Default Dim MyValue As String Selection.TypeParagraph Selection.TypeText ("BLACKLINE OF ") Message = "Blackline of " Title = "Blackline Footer" Default = "1" MyValue = InputBox(Message, Title, Default) ActiveDocument.Content.InsertAfter ("MyValue") 'does not work End Sub Thanks for any advice. Tag: Organizing Templates for Office Use Tag: 84856
  - 22
    - Suggestions for deployment I work in a small office enviroment. Being that it's small, when someone is absent, others sometimes have to finish reports for that person. We run into permission problems with documents. (.doc) In particular, I have written some code that reads information for a floppy and inserts that data into a document with formfields. No problems so far. The report is printed immediately and the doc is never saved. So if it gets opened as read only, there's no problem. In my searching of the forums, the best answer seems to be, to this is a template, instead of a document. That's no problem. I can correct that easily. However, all that data is collected in another document for a monthly report. As the infomation is pulled and inserted from the floppy, I also insert it into a word table that is the monthly report doc file. This one is where I have trouble. Since someone else could be processing the report other than the original user, the macro always stops and asks the user to change the name because Word opens it as a read only. Since we get floppies all during the month, changing the name could result in multiple copies and lost info. (Not all of the employees are computer savy either in knowing the difference in templates and documents) My thoughts on this are to write the data to a text file, and then when the monthly report is due, open a template and insert from the text file. Would I have the same problem with the text file? (Or INI file) Exporting to Excel or Access seems a bit overkill. Are there any better solutions? Tag: Organizing Templates for Office Use Tag: 84852
  - 23
    - File in document program willnot respond when clicked to open. When I open Word, I go to Documents to open a folder with a few files in it. I click on the folder and the computer locks up with a message that word cannot open the folder. I have to hit "Ctrl,Alt,Delete" to close Word. If I open Word and just click on a file in Documents it will open. This just started to happen this past week. I checked for updates etc. but can't find a solution. Tag: Organizing Templates for Office Use Tag: 84849
  - 24
    - Place Clipboard Info into Variable I want to place the information contained in the clipboard (which is an integer) into a variable so that I can increment the number and place it somewhere else in my document. How do I do that? -- Debra Ann Tag: Organizing Templates for Office Use Tag: 84847
  - 25
    - Method ~ of Object ~ Failed. Can anyone help? Hello all, I have written an application in VB6 that opens a word document (a template) and performs "find and replace" on data that i pass in. My application is used by external users who log on to our network via Citrix. A few of the users get the error message "Method ~ of Object ~ Failed" (error number -2147023113). The bit of code that this occurs is below: Do While wrdDoc.Content.Find.Execute( _ FindText:="@" & strReplaceField & "@", _ MatchCase:=False, _ MatchWholeWord:=True, _ ReplaceWith:=strReplacement, _ Replace:=True) Loop As fas as i know, its nothing to do with Printer settings or anything, it just seems to be the Execute statement above. Anybody any ideas as to how i can prevent this? Much appreciated Nev Tag: Organizing Templates for Office Use Tag: 84838
- Next
  - 1
    - how to set the cursor(mouse pointer) at the end of the bookmark? Hi, I am adding a bookmark dynamically in word document using vb.net. All i want is i want to set my cursor position(mouse pointer) at the end of the bookmark text. Here is the code i am using to create bookmark. Dim rng As Object rng.Text = "bookmark1 text" Connect.applicationObject.activedocument.Bookmarks.Add("bookmark1", rng) Any help would be appreciated cheers Praveen Tag: Organizing Templates for Office Use Tag: 84836
  - 2
    - Change signature layout Hi everyone. I have some vba code to generate a pdf document through word, and add also digital signature. My problem is : how can i change the way the signature layout, it always show the same standard signature image look. I have tryed to change my signature field whit my own logo and so on in acrobat, and named it as signtaure 2, but how can i use that signature field instaed of Acrobat standard signature field. my vba code i this: If gPDDoc.Open(Dest) Then Set jso = gPDDoc.GetJSObject Set oAdd = jso.AddField("FirmaField1", "signature", 0, Array(100, 400, 200, 200)) Set oSign = jso.GetField("FirmaField1") Set ppklite = jso.Security.getHandler("Adobe.PPKLite", True) ppklite.login "", "c:\20.sig" oSign.signatureSign ppklite ppklite.logout End If I have use days for looking on the net for any solution, but cant find anything :( hopes that somone can help :( Tag: Organizing Templates for Office Use Tag: 84834
  - 3
    - =?Utf-8?Q?=E2=80=9CThis_XML_element_cannot_be_appl?= Hi, Consider a Word Template project, with the template containing a few lines of text and an XML tag around the whole document. During document startup you add a button in the Actions Pane and you listen to the Click event. private void ThisDocument_Startup(object sender, System.EventArgs e) { UserControl1 userControl = new UserControl1(); userControl.button1.Click += new EventHandler(button1_Click); this.ActionsPane.Controls.Add(userControl); } In the event handler for the Click event you add an XML tag around the current selection. void button1_Click(object sender, EventArgs e) { this.Application.Selection.XMLNodes.Add( "ChildElement", "http://tempuri.org/VSTOAddXmlNodeSchema.xsd", ref missing); } The first time you click on the button you will get a COMException exception with the message â??This XML element cannot be applied hereâ?? (you can find complete exception information at the bottom of this message). From then on, every time the button is clicked no exception will be thrown and the code will work. Is there a specific reason behind this behaviour or is it a bug? If it is a bug, is it safe to simply call it the first time expecting it to fail and call it again or will this de-stabilize the environment? For those kind enough to look into this problem, I have created a simple project that reproduces the problem. You can download it here. (my usual file host is down, so I am using an upload service; if the link stops working please do let me know) Thank you in advance Angelos Petropoulos -- http://blogs.wdevs.com/angelos â??This XML element cannot be applied hereâ?? ************** Exception Text ************** System.Runtime.InteropServices.COMException (0x800A17DD): This XML element cannot be applied here. at VSTOAddXmlNode.ThisDocument.AddXmlTag() in C:\Documents and Settings\angelosp\My Documents\Visual Studio 2005\Projects\VSTOAddXmlNode\VSTOAddXmlNode\ThisDocument.cs:line 56 at VSTOAddXmlNode.ThisDocument.button1_Click(Object sender, EventArgs e) in C:\Documents and Settings\angelosp\My Documents\Visual Studio 2005\Projects\VSTOAddXmlNode\VSTOAddXmlNode\ThisDocument.cs:line 26 at System.Windows.Forms.Control.OnClick(EventArgs e) at System.Windows.Forms.Button.OnClick(EventArgs e) at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.ButtonBase.WndProc(Message& m) at System.Windows.Forms.Button.WndProc(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) ************** Loaded Assemblies ************** Tag: Organizing Templates for Office Use Tag: 84833
  - 4
    - Images never paste in document as "inline" Hi, Word2003. Tools.Options.Edit.PastePicturesAs - Inline with text. I am trying to paste an image from the clipboard into a Word Document via VBA. I have the setting set correctly under tools. It never pastes as inline. After pasting, I always have to explicitly convert to inline shape. Also, because it doesn't paste inline, if I am trying to set the image into a table cell, the convert to inline shape sets the image in the correct row, but always column 1, not column 2. Any ideas of why I cannot paste inline? Two code snippets below. I am running the code from Excel - trying to generate Word reports out of Excel, hence the "wrdapp", "wrddoc", "wrdrange" references: 'Try to paste into row1, col2 wrdDoc.Tables(1).Cell(Row:=1, Column:=2).Range.Select With wrdApp.Selection .InsertAfter "hello" 'make sure selection is in the right column .PasteSpecial Placement:=wdInLine 'still doesn't work End With wrdDoc.Shapes(1).ConvertToInlineShape 'have to convert to inline, placed r1c1 'try to paste into row2, col2 wrdDoc.Tables(1).Cell(Row:=2, Column:=2).Range.Select wrdApp.Selection.PasteSpecial Placement:=wdInLine 'still doesn't work wrdDoc.Shapes(1).ConvertToInlineShape 'try to paste into 1st para Set wrdrange = wrdDoc.Paragraphs.First.Range With wrdDoc.Paragraphs(1).Range .InsertAfter strEvent .Paste 'doesn't paste inline even though default set End With wrdDoc.Shapes(1).ConvertToInlineShape The really strange part is even if i just open a new document, and select paste, the image is not pasted inline. What am I missing? Thanks for your help Tag: Organizing Templates for Office Use Tag: 84830
  - 5
    - Is there a better way? I am trying to develop a routine that will present user with a list of items which the user can select (1 or more up to about 20). Once the user makes their selection the items will be insert as bullet-ed items into the document. At this stage my most promising idea is to put the items on a userform in textboxes with a check box beside each textbox. if the user checks the checkbox that item will be added to an array. When the user clicks a command button the contents of the array could be inserted into the document. I am wondering if there might be a better (simpler) way to accomplish this. Perhaps grabbing the items from excel table or a access table? any thoughts or suggestions would be appreciated. Thank you in advance BRC Tag: Organizing Templates for Office Use Tag: 84828
  - 6
    - Field FILENAME update I need the FILENAME field to update automatically when a document is opened (not just when the document is printed) Microsoft declare that they have stopped this happening to improve the speed of opening a document. I have also experimented with Autotext fields with no luck. MS also tell me that the workaround is to write a VBA module (something like activedocument.fields(1).update) which updates the field. This I understand. Overall, I have written a procedure (called UpdateDoc) to help an operator update over a 1000 docs. This procedure embeds the FILENAME field and it would now seem that I also need to add a Document_Open() procedure to the ThisDocument module. Again I have no problem with this. BUT How do I append the Document_Open() procedure AS A PART OF THE OVERALL UpdateDoc PROCEDURE? Thanks for your interest Neil Tag: Organizing Templates for Office Use Tag: 84824
  - 7
    - what is write protection in a floppy and how do i take it out pleaz help Tag: Organizing Templates for Office Use Tag: 84822
  - 8
    - Save As won't work I am unable to take a saved document and save it as a new document with another name. Everytime I try the program does not respond. Tag: Organizing Templates for Office Use Tag: 84817
  - 9
    - Macro to detect Header text in Section 3 of document I need a routine to determine the presence of text in the various "stories" in my document. If text is present, I work on the text. If no text is present, I can skip processing in the story. In particular (and where the below routine seems to fall apart), I want to see if a header contains text. The below works fine if there is header text in Section 1 of the document, but if there is no header text in sections 1 and 2, but there is header text section 3, the routine won't find it. (The MakeHFValid routine is used, although not reprinted, to overcome the problem when a story is blank. Does this code make sense to anyone, and if so, can you tell me why header text in section3 does not return 'positive'? (No even/odd page headers; no firstpage headers, etc. Just plain stuff) Thanks. Ed For Each osection In ActiveDocument.Sections For Each astory In ActiveDocument.StoryRanges MakeHFValid aval = astory.Text atype = astory.StoryType If Len(aval) = 1 Then aval = Asc(aval) End If If astory.StoryType = wdFootnotesStory Then If InStr(InStory, "FNotes") = 0 And aval <> 13 Then InStory= InStory+ "FNotes" ' the "If Instr(InStory,"FNotes") = 0" is just to prevent a second entry of the same thing. ElseIf astory.StoryType = wdEndnotesStory Then If InStr(InStory, "ENotes") = 0 And aval <> 13 Then InStory= InStory+ "ENotes" ElseIf astory.StoryType = wdCommentsStory Then If InStr(InStory, "Comments") = 0 And aval <> 13 Then InStory= InStory+ "Comments" ElseIf astory.StoryType = wdTextFrameStory Then If InStr(InStory, "TextBox") = 0 And aval <> 13 Then InStory= InStory+ "TextBox" ElseIf astory.StoryType = wdEvenPagesHeaderStory Then If InStr(InStory, "EPHead") = 0 And aval <> 13 Then InStory= InStory+ "EPHead" ElseIf astory.StoryType = wdPrimaryHeaderStory Then If InStr(InStory, "Header") = 0 And aval <> 13 Then InStory= InStory+ "Header" ElseIf astory.StoryType = wdEvenPagesFooterStory Then If InStr(InStory, "EPFoot") = 0 And aval <> 13 Then InStory= InStory+ "EPFoot" ElseIf astory.StoryType = wdPrimaryFooterStory Then If InStr(InStory, "Footer") = 0 And aval <> 13 Then InStory= InStory+ "Footer" ElseIf astory.StoryType = wdFirstPageFooterStory Then If InStr(InStory, "FPFoot") = 0 And aval <> 13 Then InStory= InStory+ "FPFoot" ElseIf astory.StoryType = wdFirstPageHeaderStory Then If InStr(InStory, "FPHead") = 0 And aval <> 13 Then InStory= InStory+ "FPHead" End If Next aStory If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdPrintView Else ActiveWindow.View.Type = wdPrintView End If Next oSection Tag: Organizing Templates for Office Use Tag: 84815
  - 10
    - help with 2 or more lines in text box I want to use a userform to collect data from user for insertion in word document, the first text box should collect the name and address for insertion at top of a letter as an address block. i have set the multiline property to true but how do i enter returns in the text. if i press return it moves focus to next text box. please help Tag: Organizing Templates for Office Use Tag: 84814
  - 11
    - Delete character and prior letter Hello all. I have one of those keylogger programs that records emails being sent. The problem is it records every keystroke, backspace being a keystroke. A backspace is recorded as [backspace]. So I took the file and did an edit/replace to remove backspace], leaving the front [. So conceptually, I was hoping for something that would start at the beginning, find each [ and delete it AND the letter immediately prior to that. So basically it would delete the backspace keystroke, and remove the character deleted by the backspace keystroke. Is this possible? Thanks in advance!! Tag: Organizing Templates for Office Use Tag: 84808
  - 12
    - Word VBA Help I need to write a utility (in .net) that will iterate though a word document and extract words with bold formatting. These will go into a database. No problem except I'm not sure about writing the VBA to find bold words in a document. Has anyone done this before? Could you post some sample code? Thanks in advance. Tag: Organizing Templates for Office Use Tag: 84786
  - 13
    - word colors How do I add the below??? I opened a new word doc, went to tools - visuall basic editor. Then added the following to module1: ThisDocument.Colors(1) = RGB(100, 200, 200) ThisDocument.Colors(2) = RGB(100, 200, 200) ThisDocument.Colors(55) = RGB(100, 200, 200) ThisDocument.Colors(56) = RGB(100, 200, 200) basically, what I am trying to do is change collors to custom collors every time the document opens. To eliminate the document reverting to standard colors or custom set on that machine. Thanks, Sam Tag: Organizing Templates for Office Use Tag: 84775
  - 14
    - table of contents How can you regenerate a complete table of content using code? I have a form in the first page of my document and I dont want the entire doc to be updated. In the second page, I have a table of contents and I want to create a button who will regenerate the table with all the new points add in the document. I've try something like that: Me.Protect (wdNoProtection) Selection.WholeStory Selection.Fields.UpdateSource Me.Protect (wdAllowOnlyFormFields) but first, the first line doesnt work because of the current protection and doesnt want to remove it. And second point, I select the whole document and I just want to select all but the first page. Can you help me please!!!! Thanks Tag: Organizing Templates for Office Use Tag: 84774
  - 15
    - Drop down formfield limitation of 25 items in the list Running WORD 2002. I want to use a dropdown list for a date, but the days field would need to have 31 items. Can I increase the limitation on the number of items in a dropdown list? Thanks, Phil Tag: Organizing Templates for Office Use Tag: 84773
  - 16
    - Drop-Down list I have a program that pulls up the cross-references for any existing figures in a dropdown box. This program has not problem showing the figures if there are 1 to 8 figures; however, if there are more than eight figures in the document, you don't see them listed. Please let me know why you think this is happening. Thanks, Here is the code: Private Sub UserForm_Initialize() Dim varXRefs As Variant Dim Index As Integer Selection.Fields.Update ' Clear out any previous contents Me.cboFigureNumber.Clear ' Load just the figures into varXRefs varXRefs = ActiveDocument.GetCrossReferenceItems _ (ReferenceType:="Figure") ' Load the ListBox from varXRefs as an array For Index = 1 To UBound(varXRefs) Me.cboFigureNumber.AddItem varXRefs(Index) Next Index ' Test whether the list has any entries and ' set command buttons accordingly If Me.cboFigureNumber.ListCount > 0 Then Me.cboFigureNumber.ListIndex = 0 Me.cmdInsert.Enabled = True Else MsgBox ("There are no figures to cross-reference.") ReferenceFigure.Hide End If End Sub -- Debra Ann Tag: Organizing Templates for Office Use Tag: 84771
  - 17
    - How to see macros in Word document without opening this document? How to see a macro code in specific Word document without opening this document? Tag: Organizing Templates for Office Use Tag: 84762
  - 18
    - Inserting and sizing a photo with code. win2k, word 2k I am working on a template for a report. In the report we include a different photo in each report. I would like to be able to run a routine that would display the "insertpicture" dialog, and size the user's selection and insert it at a specific place in the document. I am assuming i could use a bookmark to specify where to insert. I am wondering if I should use some kind of place holder in the template to make certain that inserting the pic doesn't disturb the formating in other sections of the report. I have found several discussions about inserting pics but not how to set the size at time of insertion. thanks for any direction on this. BRC Tag: Organizing Templates for Office Use Tag: 84760
  - 19
    - Checking upon saving fo text highlighting I need to check upon saving for the presence of any highlighting in the document. Any help would be welcome. Thanks -- John Doue Tag: Organizing Templates for Office Use Tag: 84758
  - 20
    - Closing Excel XP SR2 / Word (Office) 2003 I have created a form in Word that calls Excel, retrieves some data, and closes Excel. Well, actually, I guess I don't close Excel and that is my problem. The code I am using to open Excel is Set filename = GetObject(, "Excel.Application") Set filename = ("C:\Microsoft Office\Templates") Closing Excel is attempted with filename.Quit SaveChanges:=DoNotSaveChanges Works OK, I get no errors and Excel disappears from the list of Applications/Processes in Task Manager. However, when I shut down my PC, I get a popup asking if I want to close filename.exe. How do I close Excel so I no longer get the popup? Tag: Organizing Templates for Office Use Tag: 84757
  - 21
    - Opening recorded macro's on a different pc Hello, I'm making some kind of a template where a user can add certain text files into the word document. It's the first time that I work with macros and I managed to get the list of recorded macros in the word taskbar. When somebody downloads the template from the server on another computer and tries to run one of the macros the system can't find the text files, although I've grouped them in the same folder as the 'template'... Sometimes it works and sometimes it doesn't... Can somebody help me with this please? (When I run a test I always set security to 'medium' on the other pc so that's not the problem...) thx! Tag: Organizing Templates for Office Use Tag: 84744
  - 22
    - Extending Word Model Object I'm writing quite a complex application in Word. I've a lot of code that I would like to keep clear. I thougth several time of using custom classes, but I don't know if I can achieve what I have in mind. For instance in a Word Document based on MyTemplate.dot I have a Table "ActiveDocument.Tables(1)" and each Row in the table is not just a row but has a lot of special data and code for manipulate it (for instance in the first cell of each row there is some hidden text to identify the row, etc.). I would like to extend the standard Word Model Object and create my own objects wrapping the existing one in Word. For instance, having a new table or new row object that acts as the standard one + same new properties and methods. If I'll create a new object MyRow, how I can tell Word to use MyRow in the normal Table object instead of the normal Row? Do you have any suggestions? All the example I found is about new control object none on extension of build-in Word objects. Thanks, Lauro Tag: Organizing Templates for Office Use Tag: 84737
  - 23
    - How to display a form Using Win2k, Word 2k I have a form i am try to display at a certain point in a document. I thought a simple macro with Sub show_frm () Myform.show end sub would cause the form to open, however i am getting an "object required" object required error message. this same method works in other templates i have. can anyone help Thanks BRC Tag: Organizing Templates for Office Use Tag: 84733
  - 24
    - Bypassing Document_Open code Hi, I have a document that when opened presents a userform and then runs code on pressing the 'OKAY' button. What I would like is to amend my code so that the the 2nd time (and subsequent times) the document is opened, the Document_Open code does not run? Is this possible? Thanks. Tag: Organizing Templates for Office Use Tag: 84727
  - 25
    - Spell check Can I print out a list of words in my spell check? Tag: Organizing Templates for Office Use Tag: 84725

I'm planning to distribute some word automation tools to our network users
(Office 2003, XP workstations & Server 2003) via login scripts, copying the
files to users' Word>Startup directories. We will have some Autotext
entries, some autocorrect entries and some Toolbars that run macro code.

Is it bettter to have one big Add-Ins template, or to separate the functions
and have different templates for each. Latter seems better and and easier
to maintain. Is there a big hit on the resource usage, or other reasons to
consolidate into fewer or just one template?

Thanks,

Ridge

Top

Re: Organizing Templates for Office Use by Charles

Charles
Wed Apr 26 16:19:41 CDT 2006

I use separate, modular templates. Note, though, that you want to have any
macros/styles/AutoText that you put in a menu to be in the same template as
the menu. I have eighteen Add-Ins loaded and haven't noticed a drain on
resources. (Word startup is delayed noticeably, though, as they load.)

See http://addbalance.com/word/movetotemplate.htm for step-by-step
instructions on moving / sharing / copying / backing-up customizations
including AutoText, AutoCorrect, keyboard assignments, toolbars, macros,
etc.
--

Charles Kenyon

Word New User FAQ & Web Directory: http://addbalance.com/word

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide) http://addbalance.com/usersguide

See also the MVP FAQ: http://word.mvps.org/FAQs/ which is awesome!

My criminal defense site: http://addbalance.com
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

"Ridge Kennedy" <rkennedy@njscpa.org> wrote in message
news:%23ShRc7WaGHA.4036@TK2MSFTNGP04.phx.gbl...
> I'm planning to distribute some word automation tools to our network users
> (Office 2003, XP workstations & Server 2003) via login scripts, copying
> the files to users' Word>Startup directories. We will have some Autotext
> entries, some autocorrect entries and some Toolbars that run macro code.
>
> Is it bettter to have one big Add-Ins template, or to separate the
> functions and have different templates for each. Latter seems better and
> and easier to maintain. Is there a big hit on the resource usage, or
> other reasons to consolidate into fewer or just one template?
>
> Thanks,
>
> Ridge
>

Top

Re: Organizing Templates for Office Use by Ridge

Ridge
Thu Apr 27 12:59:18 CDT 2006

Thank you, sir. R.

Top