symbol - please help

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - A program to find and replace Hi, I am going to write 2 VBA programs to do find-and-replace, though I know that there is a built-in find-and-replace function in Word. The 1st program finds the word which I specify and is also in red. The program replaces them by the word that I enter. For example, the word "name" is in red and appears at different places in a Word document, I want to use the 1st program to find all of it and replace them by "John" one by one. The 2nd program finds all the words in red and the program replaces them by the word that I enter. For example, the words "name", "address" and "phone" are red in a document, and I want to use the 2nd program to find them and replace them by "John", "England" and "123456" respectively. Can someone give me hints on doing the above with VBA? Thanks. Mike Tag: symbol - please help Tag: 111016
  - 2
    - Add Custom Tab Ribbon07 with Multiple DropDowns - Help! Help please - throwing myself in at deep end and dog paddling to create a working Custom Tab with multiple dropdowns plus buttons! I'm cobbling together a custom Tab but wanting multiple dropdowns (not just one) and ideas on VBA of how to simplify all the dropdowns in the one Ribbon Module. All my dropdowns have loaded in the TAB as they should but I'm just not sure how to approach the VBA Ribbon Module to cope with multiple Dropdown IDs and macros? Based on Greg Maxey's dropdown sample - does anyone have any ideas how to best simplify the module RibbonControl (Greg?) to incorporate ALL groupids: DD DD1 DD2 in the VBA project? I'm going to have about 15 dropdowns all up - my working macro Custom Tab." <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="Test" label="Test"> <group id="iTest" label="iLabel"> <button id="Btn1" label="2 Spaces . ? ! Clean" size="large" image="image1" onAction="Doc_Clean"/> <button idMso="StylesModifyStyle" /> <dropDown id="DD" label="M1" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> <dropDown id="DD1" label="M2" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="Test" label="Test"> <group id="iTest" label="iLabel"> <button id="Btn1" label="2 Spaces . ? ! Clean" size="large" image="image1" onAction="Doc_Clean"/> <button idMso="StylesModifyStyle" /> <dropDown id="DD" label="M1" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> <dropDown id="DD1" label="M2" onAction="GetDDIndex" getItemCount= "GetDDCount" getItemLabel="GetDDLabels"> </dropDown> Et cetera.... Code Module which needs to be expanded on to include ALL the IDs for dropdowns and Cases for the macros - Am I being too simplistic expecting the macros to be sequential Macro1 to Macro50 and expecting to modify the DD Id?: Option Explicit Sub GetDDIndex(ByVal control As IRibbonControl, selectedID As String, _ selectedIndex As Integer) Select Case selectedIndex Case 0 Macros.Macro1 Case 1 Macros.Macro2 Case 2 Macros.Macro3 Case 3 Macros.Macro4 Case 4 Macros.Macro5 Case 5 Macros.Macro6 Case 6 Macros.Macro7 End Select End Sub Sub GetDDCount(ByVal control As IRibbonControl, ByRef count) count = 7 End Sub Sub GetDDLabels(ByVal control As IRibbonControl, _ index As Integer, ByRef label) Dim i As Long For i = 0 To index label = Choose(i + 1, "Clear Text", _ "Macro Clear FR", _ "Macro 3", _ "Macro 4", _ "Macro 5", _ "Macro 6", _ "Macro 7") Next i End Sub Sub Doc_Clean(ByVal control As IRibbonControl) Macros.Doc_Clean End Sub Tag: symbol - please help Tag: 111015
  - 3
    - How to ask a modified style be affected on current document Hello I have a long document created in HTML, opened in MS Word 2003 and saved as a doc It seems it is using "Normal", "Normal (Web)" and "Heading 3" styles. I want to set the font and paragraph properties of the above styles and then the modified styles take effect in current (long) document. What is the best practice? Thanks in advance. Hamed P.S. Sorry to send to multiple groups. I don't know to what topic does this problem is related. Tag: symbol - please help Tag: 111011
  - 4
    - Objects as Properties in VBA - possible? Hello all, Is it possible for a property of an object in VBA to itself be an object? I'm working on a program that involves chemical equations, and consequently I have defined a couple of useful classes: "ChemicalCompound," and "ChemicalEquation." The ChemicalEquation class has as one of its members an array of ChemicalCompound objects, which represent the reactant compounds in the equation. I would like to keep the actual array private (i.e. access restricted to the class) and use a Property Get to access the ChemicalCompound objects in the array. Is possible for the return value of a Property Get to be an object of a user-defined class? Here's some rough code that might give you a sense of what I'm trying to do: In Class Module ChemicalEquation: Private Type ChemicalCompoundsList 'Note that the nth coefficient goes with the nth compound Compounds() As ChemicalCompound Coefficients() As Integer End Type Private pReactants As ChemicalCompoundsList Private pProducts As ChemicalCompoundsList 'Can I do this?: Property Get ReactantCompound(Index As Integer) ReactantCompound = pReactants.Compounds(Index - 1) End Property In a Standard Module: Sub TestChemicalEquationClass() 'Create a ChemicalEquation Object Dim MyEquation As ChemicalEquation Set MyEquation = New ChemicalEquation 'Retrieve the 1st ChemicalCompound object in the pReactants array, 'via Property Get ReactantCompound Dim MyCompound As ChemicalCompound MyCompound = MyEquation.ReactantCompound(1) End Sub Any takers? Help is always greatly appreciated. Tag: symbol - please help Tag: 111005
  - 5
    - Create editable document with permanent fields in Word 2003 Hello all, I'm going nuts trying to figure out how to create templates that populate from a data source, are completely editable, yet also have some way of marking and retrieving text from the populated locations in the document. The obvious answer to this is to use either form fields or bookmarks, since they both contain ranges and they can both be referenced with an associated name property. And they do indeed work, but they are easy to unintentionally delete by the users, which makes later parsing and retrieval of text from said fields impossible. I ran across one interesting idea to get around this limitation, which is to assign each form field its own section, and then to set those sections to ProtectedForForms = True. This ALMOST worked - which is, of course, even more frustrating than total failure :). Unfortunately, Word can't have multiple section breaks - even continuous section breaks - in a single line, and a number of my templates need to have four or five fields in close proximity. Having line breaks between them would be unacceptable for many of the templates, particularly the legal documents. A similar limitation occurs with bookmarks, but there I can't both protect the bookmark and assure that it won't be typed over accidentally. If I protect them then they can't be manually edited, but if I don't it only takes one long select and over-type and they're gone. I had previously been using Document Property fields to populate the document using the Custom Document Properties, auto-updating them, then detaching the fields from their references to make them editable. The problem is that once that's been done, I can't programmatically retrieve information from those fields, which makes future data gathering impossible - or manual, which is essentially the same for me :) I came up with a little function to find and store the index locations of each field in the document for later reference if I ended up having to use a type of field that doesn't have a name property - like a Quote field, for example - but I always end up running into the protection issue. The only thing I can think of other than that is to have the field areas linked to button-type macros that activate on double-click, but it would be a huge pain to convert all of my templates to use such a system, and I really don't like the idea of implementing such a code- intensive task for every field in a document if it's at all possible to avoid it. If necessary, I'll just eschew my dreams of data retrieval and stick with the Document Property fields, but I'd *really* prefer not to. Surely this isn't such a wild concept - can anyone help? Thanks, Morgan Tag: symbol - please help Tag: 110996
  - 6
    - Question about TOC position and footer Automating a word report. the TOC can take the space of 1 to 3 pages long. I'm looking for the correct way to insert the TOC on page 3 of the report. When I build the report, I leave page 3 empty (sectionbreak in top of page) , set all the toc field in the following pages and once done, I return or goto page 3 and then add the TOC. The problem that I have is with the footer of pages containing the TOC. If the TOC has just one page, the footer is OK. If the TOC has 2 or more pages, the footer is not repeated. (probably because no section break ?) here's the step I coded... .DifferentFirstPageHeaderFooter = True page1 :no footer page2 :add custum footer, wdHeaderFooterFirstPage, LinkToPrevious=false page3 : insert TOC, wdHeaderFooterPrimary, LinkToPrevious=true ...suppose toc is 3 pages long page4 : no footer page5 : no footer page6 : add custum footer, wdHeaderFooterFirstPage, LinkToPrevious=false OK How can I get a footer on page 4 and 5. Can I force footer to appear on each page instead of each section cause the problem here is that the section is 3 pages long. Maybe it's not the way to do it ? and hoping I'm clear... Merci ! Tag: symbol - please help Tag: 110994
  - 7
    - Set XL range into Wrod bookmark as a table? With Word and Excel 2003 - I am trying to automate setting a range of Excel cells into a Word bookmark as a table. I used the code below. The code ran all the way through - but absolutely nothing showed up in Word!! Help??!? Ed Sub XLtoWord() Dim wd As Object 'Word.Application Dim doc As Object 'Word.Document Dim wkb As Workbook 'This workbook Dim wks As Worksheet 'This workbook Dim rng As Range 'This workbook Dim x As Long Set wkb = ActiveWorkbook Set wks = wkb.Worksheets("PB Life for BW") x = wks.Range("A100").End(xlUp).Row Set wd = CreateObject("Word.Application") Set doc = wd.Documents.Add wd.Visible = True doc.Paragraphs(1).Range.InsertAfter vbCrLf doc.Bookmarks.Add Name:="XL1", Range:=doc.Paragraphs(1).Range doc.Bookmarks.Add Name:="XL2", Range:=doc.Paragraphs(2).Range Set rng = wks.Range("A2:H30") doc.Bookmarks("XL1").Select Selection = rng Set rng = wks.Range("A31:H" & x) doc.Bookmarks("XL2").Select Selection = rng Set doc = Nothing Set wd = Nothing End Sub Tag: symbol - please help Tag: 110993
  - 8
    - MUltiple choices from drop down box In excel I can make a drop down box and select multiple choices if the user requires more than one selction to complete the answer. Can this be done in Word? -- Thanks,, Kim Tag: symbol - please help Tag: 110990
  - 9
    - Supress field updating on Word to PDF conversion Hello, I am running a macro that converts a directory of Word documents to PDF files. I am using a field in the footer that contains the file name. For some reason I cannot supress the field updating. I rename the documents via a script after placing the original filename in the footer. I need to preserve the original filename for archiving purposes. I have added the last 2 lines of code to the procedure to try to supress it, but it still updates the field to the new name. ' Save the Word file as an PDF file ActiveDocument.SaveAs FileName:=Left(strFilename, Len(strFilename) - 4) & ".pdf", _ FileFormat:=wdFormatPDF, LockComments:=True, Password:="", _ AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False Options.UpdateLinksAtPrint = False Options.UpdateFieldsAtPrint = False Converting isn't really printing in this case (I think anyway). Any help would be greatly appreciated. Thanks! Tag: symbol - please help Tag: 110988
  - 10
    - Overflow error 6 I have some complicated code that inserts a vertical bar in the left margin at the cursor location. The bar matches the point height of the font at the cursor location, or spans the selected range. I have to calculate the range start and end; and, to ensure that the bar is always at the same distance from the left margin, I also take into account the section margin lay out. Once in a while, I get an Overflow error 6 when running the code. There does not seem to be any rhymes or reasons. The only thing I may say is that it seems to happen if I rapidly use the code with various range lentghs. The debugger always points to the same line in my code, even if I move the statements around. It is a variable assignment line: sngHeight = 0 I do not understand what is happening. How can assigning "0" to a Single variable cause an Overflow? Here is the start of the code: Sub InsertVertLine() Dim myShape As Shape Dim sngHeight As Single Dim sngDiff As Single Dim rngCurrent As Range Dim boolHeadFoot As Boolean Dim sngModMargin As Single Dim sngModMarginBottom As Single Dim sngLeftMargin As Single Dim sngAdjustVertPos As Single Dim sngListIndent As Single Dim sngConsLeftMargin Dim boolMultiLine As Boolean Dim boolRangeStartTable As Boolean Dim lngStartPageNumber As Long Dim sngFullLeftMargin As Single Dim lngAlign As Long Dim lngCellAlign As Long Dim lngCharToUse As Long Const sngABSConsLeftMargin As Single = 0.18 lngCharToUse = 1 boolHeadFoot = False boolMultiLine = False boolRangeStartTable = False sngHeight = 0 Set rngCurrent = Selection.Range lngAlign = rngCurrent.Paragraphs(1).Range.ParagraphFormat.Alignment ' = 0 Selection.Collapse wdCollapseStart lngStartPageNumber = Selection.Information(wdActiveEndPageNumber) With rngCurrent.Sections(1).PageSetup 'Check if we have mirrored margins, if so, more calculations are needed If .MirrorMargins Then 'Add gutter size if necessary, if it exists and if we are on a even _ numbered page (Margins to left is an outside margin) If Selection.Information(wdActiveEndAdjustedPageNumber) Mod 2 = 0 Then 'we have an outside (or right Margin) 'If margin is too narrow, the vertical bar will be too far to the left. _ So we need to calculate a new standard position, which is 25% of the margin width. sngFullLeftMargin = .RightMargin If (sngFullLeftMargin) < 2 * InchesToPoints(sngABSConsLeftMargin) Then sngConsLeftMargin = PointsToInches((25 * (sngFullLeftMargin)) / 100) Else sngConsLeftMargin = sngABSConsLeftMargin End If Else 'we have an inside (or left Margin) 'etc. Tag: symbol - please help Tag: 110987
  - 11
    - String manipulation problem I want a VB function (called from a word macro) that takes a string and I want to manipulate each character at a time. I must be doing something stupid: function Spaces(str As String, len As Integer) for I = 1 to len thisChar = str.Chars(I) next I end function The message I get is Error 424 Object Required. It does not appear to recognize str as a string object. HELP? Tag: symbol - please help Tag: 110984
  - 12
    - Toobar Button FaceID display on userform Hello, Is it possible (and if so, how) to add an object (don't care what kind) to a userform to which I can set the picture of a toolbar button FaceID? I've developed a userform that allows me to scroll through all the icons available and it sets the selected toolbar button's icon to the selected FaceID number but I'd rather do it to a control or object on the form rather than directly on the toolbar. Many thanks! Peter Tag: symbol - please help Tag: 110982
  - 13
    - compare & merge (with boiler macro)? lifehacker.com posted a good tool that was modified by gmayor using boiler template as a macro for word. While it does what I want to insert a document, I really want to modify it to use word 2003+'s compare and merge feature rather than just inserting a document into each other like chapters. desired results: 2+ same structure files to merge, but different contents all merged into file 1's structure with content appended to the appropriate sections and TOC's updated. question: I'm looking at the OK button inside the VB editor but I do not know the command for compare and merge. Could someone point me in the correct direction? modified boiler: http://www.gmayor.com/downloads.htm Tag: symbol - please help Tag: 110980
  - 14
    - Using Macro to Change case of text in merge I'm trying to run a merge from Goldmine to word 2003, however the fields I'm bringing in are all in UPPERCASE, is it possible to run a macro that changes the fields to title case? The fields look like: {DDEAUTO GoldMine Data &Company \*CHARFORMAT } I've tried the usual right click "edit field" and change the case in the properties dialogue - but it isn't listed as an option.. Any help appreciated. Thanks, Jon Tag: symbol - please help Tag: 110974
  - 15
    - Hyperlink Target Frame I am trying to set up my word Documents so that clicking on any hyperlink will make the hyperlink destination appear in a frame to the right of the document. Is there a way to do any of the following a) On opening the document, if the right hand frame does not exist, create it and give it a name b) On clicking on the hyperlink, open up the right hand frame if it doesn't exist. c) Protecting the document so that the user cannot delete the right hande frame TIA Tony Tag: symbol - please help Tag: 110966
  - 16
    - HOW TO KEEP A RANGE INSIDE QUOTES? Hi, programmers, I have a question on a very helpful macro posted here for finding and underlining text between quotation marks. It works great--except when quotes are preceded or followed by a comma or Wildcard. In that case, the range extends right on through to the next instance of quotes that DONâ??T have any commas right before or after them. Is there a way to keep the range from extending in these instances? Thank you for all your help. Here is the code: Sub FindAndUnderlineTextInQuotes() Dim oRng As Range Set oRng = ActiveDocument.Content With oRng.Find .ClearFormatting .Text = "[^0034^0147]<*>[^0034^0148]" .Forward = True .Wrap = wdFindStop .MatchWildcards = True Do While .Execute If oRng.Find.Found = True Then With oRng .MoveEnd Unit:=wdCharacter, Count:=-1 .MoveStart Unit:=wdCharacter, Count:=1 .Font.Underline = True .Collapse wdCollapseEnd End With End If Loop End With End Sub Thanks! -Lynne Tag: symbol - please help Tag: 110962
  - 17
    - Populate Comments property from paragraph items Hello, Searching for something like this for many hours and still no luck. I have an account that provides me with approx. 300 word documents a month. I process these in batches and send them to a file server for further action. Is it possible to write a script or macro to take the first 4 paragraphs and insert that data into the document properties with BuiltinDocumentProperties? I have tried recording a macro, and using keyboard shortcuts to copy the paragraphs and pasting into the properties doesn't work. Paragraph 1 is always Name [To Subject Field] Paragraph 2 is always Date [To Keywords] Paragraph 3 is always Account Number [Also to Keywords] Paragraph 4 is alwayds chief complaint [To comments] Thanks for any help on this in advance! Tag: symbol - please help Tag: 110954
  - 18
    - Ribbon Customizatin AddIn This is a long post with multiple questions. Please don't be discouraged and feel free to answer all or part. Thank you. The other day I became interested in creating an Template AddIn that will add a group to the built-in Add-Ins tab. The group holds one Dropdown. I wanted the dropdown item count, labels, and OnAction events to be dynamic based on information stored in a table contained in the AddIn. The RibbonX was fairly simple. I just added a new group to the Add-Ins tab that contained one dropdown control: <?xml version="1.0" encoding="UTF-8" standalone="yes"?> <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" onLoad="Onload"> <ribbon> <tabs> <tab idMso="TabAddIns"> <group id="Grp1" label="Proof Reading"> <dropDown id="DD1" label="Add Marks" getItemCount="GetItemCount" getItemLabel="GetItemLabel" getSelectedItemIndex="GetSelectedItemIndex" onAction="MyDDMacro"> </dropDown> </group> </tab> </tabs> </ribbon> </customUI> I used call backs to set the dropdown list count, the label for each list item, and the default displayed list item As a practical exercise (and prompted by a another post in the newsgroups) I decided to use the OnAction callback to insert pre-definded comments in the text at the selection. I used a two column table in the Addin to define the dropdown labels and default comment text. E.g., Column 1 Column2 Select error agree. Agreement of subject and verb ant. Antecendnet. "the person believed that they." The sentence is incorrect because person is singular, and they is plural The code in my VB Project (with comments) is as follows: Option Explicit Public myRibbon As IRibbonUI Private myArrayPri() As String Private myArraySec() As String 'This procedure fires when the Add-In is loaded. Its purposes is to load the values contained in the template Add-In table into a pair of arrays. myArrayPri() holds the data to be used for the dropdown labels. myArraySec() holds the data for the predefined comment text. The procedure opens a new document based on the template AddIn and populates the arrays with data in the tables. The new document is then closed without saving changes. Sub AutoExec() Dim aTemplate As Template Dim oDoc As Word.Document Dim oTbl As Table For Each aTemplate In Templates If aTemplate.Name = "Proofreading Marks.dotm" Then Set oDoc = Documents.Add(aTemplate.FullName, , , False) Set oTbl = oDoc.Tables(1) myArrayPri() = GetErrorArray(oTbl) myArraySec() = GetDescriptiveArray(oTbl) oDoc.Close wdDoNotSaveChanges Exit For End If Next End Sub 'This procedure fires when the template AddIn is opened directly for editing (i.e., either the VB code or the table data) Sub AutoOpen() AutoExec End Sub 'The next two function actually populate the two arrays. Function GetErrorArray(ByVal oTbl As Table) As String() Dim i As Long Dim tempArray() As String ReDim tempArray(oTbl.Rows.count) For i = 1 To oTbl.Rows.count tempArray(i - 1) = Left(oTbl.Cell(i, 1).Range.Text, Len(oTbl.Cell(i, 1).Range.Text) - 2) Next i GetErrorArray = tempArray End Function Function GetDescriptiveArray(ByVal oTbl As Table) As String() Dim i As Long Dim tempArray() As String ReDim tempArray(oTbl.Rows.count) For i = 1 To oTbl.Rows.count tempArray(i - 1) = Left(oTbl.Cell(i, 2).Range.Text, Len(oTbl.Cell(i, 2).Range.Text) - 2) Next i GetDescriptiveArray = tempArray End Function 'This is a RibbonX callback needed to create a ribbon object (I think that is what it does???) Sub Onload(ribbon As IRibbonUI) Set myRibbon = ribbon End Sub 'This RibbonX callback establishes the number of items in the dropdown. The "id" of the dropdown created by the RibbonX is "DD1." The count of items is = to the number of items in myArrayPri() Sub GetItemCount(ByVal control As IRibbonControl, ByRef count) Select Case control.id Case "DD1" count = UBound(myArrayPri) Case Else 'Do Nothing End Select End Sub 'This RibbonX callback is used to define the labels for each item in the dropdown. The procedure is called once for each item in the dropdown: Sub GetItemLabel(ByVal control As IRibbonControl, Index As Integer, ByRef label) Select Case control.id Case "DD1" label = myArrayPri(Index) Case Else 'Do nothing End Select End Sub 'This RibbonX callback sets the default dropdown item to display when the Ribbon control is created. In this AddIn, I want "Select error" to be displayed intially and after each OnAction event: Sub GetSelectedItemIndex(ByVal control As IRibbonControl, ByRef Index) Select Case control.id Case "DD1" Index = 0 Case Else 'Do nothing End Select End Sub 'This RibbonX callback is fired when the user selects one of the items in the dropdown. It does several things: '1. Determines if there is an open document. If not, the control is invalidated (causes the control to be rebuilt with "Select error" displayed) '2. Determines if there is text selected to comment on. If not the control is invalidated '3. Uses the dropdown item selected to insert a custom (customizable) comment at the selection ' a. Displays a userform containing pre-defined comment text ' b. Temporarily sets the Application.UserInitials = the contol label text Sub MyDDMacro(ByVal control As IRibbonControl, selectedId As String, selectedIndex As Integer) Dim oFrm As UserForm1 Dim pUserInt As String Select Case control.id Case "DD1" If Documents.count < 1 Then myRibbon.InvalidateControl control.id Exit Sub End If If Selection.Type = wdSelectionIP Or wdNoSelection Then MsgBox "Please select the proofreading error in the text before inserting comments." myRibbon.InvalidateControl control.id Exit Sub End If Select Case selectedIndex Case Is = 0 'Do Nothing Case Else pUserInt = Application.UserInitials Set oFrm = New UserForm1 oFrm.TextBox1 = myArraySec(selectedIndex) oFrm.Show Application.UserInitials = myArrayPri(selectedIndex) Selection.Comments.Add Selection.Range, oFrm.TextBox1.Text Unload oFrm Set oFrm = Nothing Application.UserInitials = pUserInt myRibbon.InvalidateControl control.id End Select Case Else 'Do Nothing End Select End Sub The UserForm contains one textbox and one command button. The textbox is set for multi-line. The command button code is: Private Sub CommandButton1_Click() Me.Hide End Sub Problems/Questions: 1. I am not very confident of my process for populating the two arrays with the data needed for the callbacks. My goals is to find the simplest way to make the data customizable to the user and accessible to the the callback. By putting the data in a table contained in the template. All the user needs to do is open the template and edit the table. Once that is done, then when the template loads the the compiler has to get to it. AutoExec is the only event that I know of that fires when a template is loaded. Is this correct and is this the best way? 2. a. I have not been able to isolate why, but when I put my Addin in the Word Startup Folder and start Word I always get an error message "Subscript out of range." b. If I remove the AddIn from the Startup folder and attempt to load the Add-In manually, I get a get the same message: "Subscript out of range." c. If I leave Word running, remove the AddIn, and load it a second time it loads and works perfectly without error. d. The error message never happens when I open the AddIn directly. I assume that this problem is caused by some sort of timing conflict with the AutoExec procedure and maybe I could correct it with a Do Events statement but I am not very familiar with those and I don't know how to proceed. Any thoughts or ideas to fix this? I'll be happy to share the complete template with anyone that is interested in assisting to resolve the issue above. Just contact me vai my website feedback at the link below and I will send it as an attachment. Thanks. -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Greg Maxey - Word MVP My web site http://gregmaxey.mvps.org Word MVP web site http://word.mvps.org ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Tag: symbol - please help Tag: 110939
  - 19
    - Word 97 Won't Allow File Replacement Though this has worked well for years, it isn't anymore. - I export an ASCII delimited text file from another database program; - DDE commands are sent to Word to run a macro. The macro opens the exported file and performs mail merge ; - Suddenly newly exported text files from the database are not replacing the old ones (by the same name); - I have to shut down Word and restart. Then it's fine until the first merge; - I'm not getting error messages. If there's no way ensure that Word automatically 'releases' the file, can I build something into the macro? Thank you for any help. Tag: symbol - please help Tag: 110917
  - 20
    - limit accessibility to specific form fields in Word protected temp Turning protection on in a word template allows several things, protecting the contents and allows form fields to exist. Is there a way, either a field itself or macro code, to block all but a specific user from entering information into a field. Can an entry, password macro be written which would allow this to happen? It's easy enough in Excel to block or allow entry into a cell, but not obvious, if at all possible in Word tables. Can someone illustrate some possibilities? Best Regards.... Lenny Tag: symbol - please help Tag: 110916
  - 21
    - How to get perform this operation only in the current Cell of a ta Hi, I have a macro that splits the cells that have Hard returns inside all the tables in my current document into separate rows. Someone sent me this macro below to perform this function. If I need this macro to operate only on the current Cell where my cursor is and not all the tables in my document, how should I modify this? Macro Below: Sub RowSplit() For x = 1 To ThisDocument.Tables.Count For Each r In ThisDocument.Tables(x).Rows If InStr(1, r, Chr(13)) < Len(r.Cells(1).Range) Then rowsArray = Split(r.Cells(1).Range, Chr(13)) nSubRowCount = UBound(rowsArray) If nSubRowCount > 1 Then r.Select For i = nSubRowCount To 1 Step -1 If Len(Replace(rowsArray(i), Chr(7), "")) > 0 Then Selection.InsertRowsBelow ThisDocument.Tables(x).Cell(r.Index + 1, 1).Range = rowsArray(i) r.Select End If Next Selection.Range = rowsArray(0) End If End If Next Next End Sub Tag: symbol - please help Tag: 110911
  - 22
    - Reset to default printer I have a user that occasionally needs to send a print job somewhere other than the default printer. At that point Word remembers his last used printer but he does not and he ends up "losing" his print jobs by sending them to the wrong printer. Is there any way to force Word to always select the default printer when the Print dialog is open, even if the last print job went to a different printer? I'm hoping that there is a Print event that can be triggered with every print request to reset the selected printer to the default. This would need to happen whether the Print...(Ctrl+P) command was used or the Print button on the toolbar was clicked. Regardless of how, it needs to be pretty much invisible to the user. Thanks, Tag: symbol - please help Tag: 110909
  - 23
    - Print msgbox or print string values? At the end of my Word macro I use a msgbox filled with text and the value of some strings is it possible to print the value of these strings in a document or to print the msgbox as a whole? Tag: symbol - please help Tag: 110905
  - 24
    - Text Entry in Forms, Variables I am constructing forms in Word 2007 where I want to have the same functionality as is present in WordPerfect's variables. In WordPerfect, I create a variable in a form (for example, a variable for the name of a building, and I insert that variable in 12 different locations in the document. If I want to change the building name, I double click on any of the 12 occurrences of the variable, and the change is reflected in all 12 locations. I assumed Word 2007 has similar functionality, but I can't really find it, at least "out of the box". I am using the content controls with some coding to automate the updating of all similarly named controls, but I am having problems with that method. Am I missing something? Is there something in word that allows m, without writing code, to get more or less the same functionality as is present in WordPerfect's variables? I am trying to transition from WordPerfect to Word, and am creating Word versions of my WordPerfect forms. Thanks very much. Drew Capuder d.capuder@att.net Tag: symbol - please help Tag: 110891
  - 25
    - Selecting Specific Range Within A Document Without Search (Word 2003) Here's a Word 2003 VBA question about RANGEs that's been driving me nuts for a while. Supposing I have a document that somewhere has the following on a line by itself, effectively being a paragraph: ********** (A) MY SAMPLE WORDS TO SELECT: Hello World and later on it has a line that has (B) MY OTHER SAMPLE WORDS TO SELECT: Hello Universe, So Vast Thou Art. ********* Without using the search functionality, how would one code to do the following three tasks: 1. Select the the stuff following the colon and two spaces in sample (A), whatever it may be (in this case, "Hello World") 2. Select the stuff before the comma in my example (B), whatever it may be (in this case it is Hello Universe) 3 Select the stuff between the comma and end of the line (in this case, it is "So Vast Thou Art"). Regards, Alan Tag: symbol - please help Tag: 110873
- Next
  - 1
    - Controlling Pages in Word through automation Hi All, I'm fairly new to using the Word object model (2007) and have a couple of questions regarding controling the pages programatically. What i need to be able to do is to copy various charts and images from excel and lay them out on a word page. I'm going to be resizing these images so that the fill a 1/4 page size each. WHat i'd like to know firstly is how are new pages added? My intention is to resize the images and ensure that there is no way that 4 images will flow over onto the next page. How, if i do this can i add a new page and then reference this to start adding further elements? Any help is most appreciated, thanks in advance, G Tag: symbol - please help Tag: 110871
  - 2
    - How to change grammar/style option for sentences more than 60 word I want to know how to change the grammar and style option that calls out sentences that are more than 60 words per sentence. I want to change the grammar checking so when I run the Spelling and Grammar tool, it will flag sentences with more than 25 words, rather than 60 words. Tag: symbol - please help Tag: 110870
  - 3
    - Disable pop up windows in Office 2003/2007 Hi, I am using the Office object model 2007/2003(word excel and ppt) with visual studio 2005. While opening the File through office object model of ppt,excel and word from network location.It is opening a pop up while opening the file with office object model 2007.how can we hide the popup. is there any property to hide the popup. thanks Tag: symbol - please help Tag: 110862
  - 4
    - code line number Is there a way to retrieve the line number of the vba code itself? Such as, if an error occurs, throwing up a message box that says "Error at code line 173" Tag: symbol - please help Tag: 110853
  - 5
    - determine last word selected or changed possition Hello, Is there a way to set a variable with the possition of the last word changed??? last word selected??? TIA Tag: symbol - please help Tag: 110851
  - 6
    - Identifying a grammar error VBA Gerus, If my code selects a word in a document (e.g., "while"), how do I determine if the word is part of a grammar error without stepping through each error in the document to locate it? The code "For Each MisWord In ActiveDocument.GrammaticalErrors" can be used to step through and identity each error, but what I need is to be on a word and determine if it is part of a grammar error. Thanks. Charlie from Texas Tag: symbol - please help Tag: 110846
  - 7
    - XML for Comment Button Alright, so here's what I'm looking at. I'm making a custom tab on the Ribbon/Fluent UI in Word 2007. I've got that part down. It'll be populated with a series of buttons and/or drop down boxes, each of which is set to insert a prescripted comment into the document at where the cursor is. How do I do this? I know how to make a button which inserts some text into the document, but not how to make the button (or alternatively choosing an option from a drop down list or whatever) insert a comment. Also, on a related note, is there a way to make this user customizable? By that I mean, have like a Word document or Excel file that has all the names of the comments and the comment text and the user can change the text of a comment or title? Thanks! Tag: symbol - please help Tag: 110842
  - 8
    - Installing a macro I've written a macro for Word which multiple people would like to have installed on their office and personal machines. In some cases, bringing their personal machines to me would be inconvenient for them, and travelling to their residence is an awkward option at best. In these cases, I would like to provide them a way to easily and painlessly install my macro (one or two-click installation, not a 13 step process of manually installing it in Word). Is there such a way to create a macro installation file, and if so, how? Tag: symbol - please help Tag: 110839
  - 9
    - Inserting a full stop (period) at the end of each footnote should one Dear Experts, I wonder whether it is possible to insert a full stop at the end of each footnote should a full stop be missing. If there is already a full stop in place, the code should skip that footnote. I tried to write the macro myself but kept getting error messages. Your valuable help is much appreciated. Regards, Andreas Tag: symbol - please help Tag: 110834
  - 10
    - Linked drop down fields - auto populate second field Hi, This macro works fine http://gregmaxey.mvps.org/Linked_DropDown_Fields.htm however is it possible to modify this so the second field Auto Populates based on the selection of the first drop down box? At present the user has to manually click in the second field and select from a list. In my case my list only needs to contain one choice. Eg. My first drop down list includes a list of names: John Smith, Bob Smith, Fred Smith which correspond to each of their own postal addresses. So If I select Bob Smith then the second field should auto populate with his address and so forth. This doesnt happen in the macro above can anyone suggest how this second field can be auto populated. Thanks. Tag: symbol - please help Tag: 110817
  - 11
    - Macro to fix control click for a sentence Is there a way to create a macro using a simple keyboard shortcut that will only select one sentence quickly like control click does normally? Control+click has a serious flaw for use in a manuscript with a lot of endnotes at the end of sentences. It always selects not only the sentence clicked on, but also the previous endnote on the previous sentence. Is there a way to make it only selected the sentence at hand and not the previous endnote, with a keyboard macro. I use this control+click a lot on large mss with lots of endnotes. Note: control+click will not select, oddly eneough, spaces before a sentence or a bracket after a previous sentence's period, just an endnote number after the last sentence's period?? Tag: symbol - please help Tag: 110814
  - 12
    - Trying to move label control using VBA I have a Word 2003 document that allows users to select a location from a drop-down list to pre-populate the letterhead with the correct address. The letter is used for several companies within our organization. After making the selection from the drop-down list, the company name gets loaded into one label control with bold formatting, and the address gets loaded into a second label control directly below the company name. Some of the international addresses have more lines in them than the domestic addresses, and I want the last line to line up with a graphic on the letterhead. Since the company names and addresses are in two separate label controls, bottom-alignment causes blank spaces under the company name. It appears that my best solution is to determine how much vertical space the address will require, then move the label controls accordingly so the bottom lines up with the graphic. I attempted to combine the label controls, but it appears I cannot use multiple formats within the same control (which would also solve my problem). I found some information for programmatically placing shapes in Word, but I have not been able to use the code for the label control. Does anyone have sample code to place the label control relative to the top of the page? For what it's worth, the document must remain backward compatible with Word 2000. Thanks in advance! Tag: symbol - please help Tag: 110811
  - 13
    - Disable VBA Hi, I have a bunch of documents that use all sorts of macro code to format and control the document. The documents are all based on a template and the code is located in the template. I want to add a "publish" function that will prepare the document for sending out to customers (update a few fields, set document protection etc). At the completion of the publish function, I want it to either disable or remove the macros from the published instance document. This is important, because we don't want to expose the macros and other bits and pieces to our customers (or even to have the warning dialogue pop-up). Is this possible? The second piece that would be wonderful is to add the ability to reactivate the code from the original template, to allow us to manage and update the document. I can assume that the original template is available for this function. Tag: symbol - please help Tag: 110808
  - 14
    - any idea how I can do this instead If I use a drop down list with 5 choices, if choice 2 or 3 is selected, a pop up box would disply to specify below. Any code snipets would be extrmemyl helpful I am under a huge crunch to get many forms done adn all will need to contain same macros. -- Thanks,, Kim Tag: symbol - please help Tag: 110805
  - 15
    - Creating Header / Footer pages in a loop ! Automating a word report from access. Having problem with Header and Footer when looping throught the recordset. I must create 1 page for each record and each page must have it's owned Head/Foot. Note that the first page is OK but an error occur on the second page. The sample code use an array instead of a recordset. sub test() MyArray = Split("aaaa bbbb cccc dddd eeee ffff") Set wrd = CreateObject("Word.Application") Set doc = wrd.Documents.Add wrd.Visible = True For x = 0 To UBound(MyArray) Set Tbl = wrd.ActiveDocument.Tables.Add(wrd.Selection.Range, 1, 2) With Tbl Set Rng = .Cell(1, 1).Range Rng.Text = MyArray(x) End With CurIndex = wrd.Selection.Sections(1).Index wrd.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True wrd.ActiveDocument.Sections(CurIndex).Headers(wdHeaderFooterFirstPage).LinkToPrevious = False Set Rng = wrd.ActiveDocument.Sections(CurIndex).Headers(wdHeaderFooterFirstPage).Range Set TblHeader = Rng.Tables.Add(Range:=Rng, numrows:=1, numcolumns:=2) With TblHeader Set Rng = .Cell(1, 1).Range Rng.Text = "Header for " & MyArray(x) Set Rng = .Cell(1, 2).Range Rng.Text = "Header" End With wrd.ActiveDocument.Sections(CurIndex).Footers(wdHeaderFooterFirstPage).LinkToPrevious = False Set Rng = wrd.ActiveDocument.Sections(CurIndex).Footers(wdHeaderFooterFirstPage).Range Set TblFooter = Rng.Tables.Add(Range:=Rng, numrows:=1, numcolumns:=2) With TblFooter Set Rng = .Cell(1, 1).Range Rng.Text = "Footer for " & MyArray(x) Set Rng = .Cell(1, 2).Range Rng.Text = "Footer" End With Tbl.Select With wrd.Selection .Move wdCharacter, 1 ' get past table marker .InsertBreak Type:=wdSectionBreakNextPage .Goto What:=wdGoToPage, Which:=wdGoToNext End With Next x End Sub Merci ! Tag: symbol - please help Tag: 110804
  - 16
    - Incredibly frustrated with Macro I have a macro that I am using that works like this, drop down selection has 5 choices, if choice 2 or 3 is selected then a message will pop up stating that the next field needs further clarification and to please fill in, in otherwards it will not allow the user to go past the next field if choice 2 or 3 is not clarified. I can set up my document and get this in and test it - works fine. I then build from there, adding header, footer, tables, check boxes, popup calendar macro, list box macros, specify continuous breaks and protections, then test All macros work except the choice 2-3 macro. It allows for bypass and does not show pop up message. What am I doing wrong? This is word 07 saved in dot format for use on re is macro code I am using: Option Explicit Public mstrFF As String Public Sub AOnExit() Dim oDoc As Word.Document Set oDoc = ActiveDocument With GetCurrentFF Select Case .Name Case Is = "SchoolType" Select Case .Result Case Is = "Other District School", "Private School/Home Schooled" ActiveDocument.FormFields("MyText").Enabled = True ActiveDocument.Bookmarks("MyText").Range.Fields(1).Result.Select Case Else ActiveDocument.FormFields("MyText").Result = "" ActiveDocument.FormFields("MyText").Enabled = False ActiveDocument.Bookmarks("MyText2").Range.Fields(1).Result.Select End Select Case Is = "MyText" If Len(.Result) < 1 Then mstrFF = .Name End If End Select End With End Sub Public Sub AOnEntry() Dim strCurrentFF As String If LenB(mstrFF) > 0 Then DoEvents MsgBox "Please list Other District School or Private School/Home Schooled" ActiveDocument.Bookmarks(mstrFF).Range.Fields(1).Result.Select mstrFF = vbNullString End If End Sub Public Function GetCurrentFF() As Word.FormField With Selection If .FormFields.Count = 1 Then Set GetCurrentFF = .FormFields(1) ElseIf .FormFields.Count = 0 And .Bookmarks.Count > 0 Then Set GetCurrentFF = ActiveDocument.FormFields _ (.Bookmarks(.Bookmarks.Count).Name) End If End With End Function -- Thanks,, Kim Tag: symbol - please help Tag: 110802
  - 17
    - Disabling macros. Hello, I have a word document containing macros which run automatically when I launch the document. Specifically, the macro displays a userform which prompts the user to enter data that will go into the word file but saves a copy of this word file with the changes. The original file is untouched. So far so good. Here is my dilemma: I do not want the macro to run each time I open the copy of the original file. I found WordBasic.DisableAutoMacros at the following link but do not know how or where to use it. Can I use this command to disable auto-open macros from copies but keep the auto-open macros enabled in the original file? Thanks. http://word.mvps.org/FAQs/InterDev/DisableAutoMacros.htm Tag: symbol - please help Tag: 110793
  - 18
    - { STYLEREF "EPRI Chapter Number"\n }-{ PAGE} I am using this field code to generate page numbers in the footer of a long document. It is working properly. Page 1 in Chapter 3, for example, appears as "3-1" at the bottom of the page. Ditto for page 2 in Chapter 3, which appears as "3-2". However, the Table of Contents does not reflect these page numbers. Instead, it uses page numbers such as 61, 62, etc. Here is the current field code for the Table of Contents: { TOC \O "1-3" \H \Z \U } How do I need to modify it so that it uses "EPRI Heading 2" for level 2 headers and and "Heading 2" for level three headers in the TOC? Help! Gwen H Tag: symbol - please help Tag: 110792
  - 19
    - ToC: Testing for Table of Contents existence Hi, I've got a macro that updates existing Word ToC's. I'd like to enhance it by first testing for the existence of a ToC. If one exists, it would be updated; if not, one would be created. Is such a test possible? Thanks, Paul -- Using Office 2003 on Windows XP Home Tag: symbol - please help Tag: 110791
  - 20
    - Macro to convert current doc to PDF Hi All. I need to write a Macro that will convert the current active document to PDF (to a specific location / file name). I've had a look around the forums and seem to get anything to work. This will eventually become part of a larger script that will batch convert bunch of Word docs to PDF (opening each one, running another Macro, saving to PDF, closing the Word doc and then moving on to the next). If anybody has any suggestions for the rest of this process I would welcome them. or now, my main concern is the conversion to PDF part. I have Acrobat 8 installed and I'm running Word 2003. Cheers! Dan. Tag: symbol - please help Tag: 110776
  - 21
    - modify context menus programmatically Is it possible, as in Excel, to add controls to the context menus ? Just in certain situations, in certain templates I want specific custom menu items. With Excel you can: With Application.CommandBars("Whatever") Controls("...").Add etc.... OK in Excel you can even specify it to happen only if you right-click over a certain cell range and of course I won't get that from Word. But to set this through a routine would be much easier as I've seen the number of different context menus is bewildering in Word. For every user who might possibly use that template I have to manually insert the macro, change the name, get the icon etc etc As an example, how would I go about putting in a "Paste unformatted" into all context menus ? Sub PasteNoFormat() Selection.PasteSpecial DataType:=wdPasteText End Sub -- David M WinXP - Office2003 (Italian) Tag: symbol - please help Tag: 110775
  - 22
    - Create new .doc files in every heading level Hi All, I'm a newbie on VB and I need little help. I have a long .doc document and my target is create new docs on every heading level. For example my document looks like this: 1. General This is general. 1.1 Cars Here you can find cars. 1.2 Houses Here you cand find houses. 2. Theory This is theory. So if I have a nice script it creates 4 files: general.doc, cars.doc, houses.doc and theory.doc. These files contains text between headings e.g. general.doc includes text "This is general" and houses.doc "Here you can find houses" I try to build a script but I found too many problems :(. Here is the body of my code. Sub create_files_from_headings() all_Headings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading) For i = 1 To UBound(all_Headings) MsgBox (myHeadings(i)) 'only for test purpose ActiveDocument.Content.InsertAfter Text:=myHeadings(i) Next i End Sub Thanks in advance ! Tag: symbol - please help Tag: 110767
  - 23
    - Only print certain sections of a document in a form Hello Apologies if this is in the wrong discussion group. I'm modifying a word document that when protected will be used as a form/template. The document consists of 8 pages which the last 3 are guidelines. I want to create some sort of print macro or script that forces the print option to not print the last 3 pages. Ideally I'd like to avoid macros or script as I'm not the best with them, but i think this might be unavoidable. Any other suggestions would be helpful. thanks tish Tag: symbol - please help Tag: 110765
  - 24
    - Macro to open built-in dialog in Word 2003 This question deals with Word 2003 on Windows XP. I know, in general, how to add a command or macro to the toolbar by clicking on Tools>Customize, clicking on the Commands tab, scrolling down the Categories list on the left side, highlighting the appropriate category, and then dragging the appropriate item to the menu bar. But not everything can be got to that way. For example, I would like to have a menu item or button that enables one to go immediately to the dialog box that opens when one clicks Tools>Customize>Keyboard with Macros highlighted in the left-hand side. The keystrokes, which are not recordable to bring up this dialog, in the macro recorder, would b. the following: <alt><T>, <alt><C>, <alt><K>, <alt>C>, <M>,<M>,<Right>. How would I write a macro that does this? I have an AutoHotKey script that does this, but I wanted to have a macro that does this. Regards, Alan Stancliff Tag: symbol - please help Tag: 110764
  - 25
    - VBA Style Changes Effecting Template Hi, I have a piece of VBA code that updates styles in a document. The problem is every time this code executes, the base template is changed and I'm prompted to save it. What I want is for the change to only apply to the current document. An example of the code is If langUK Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUK Else If langUS Then ActiveDocument.Styles("Normal").LanguageID = wdEnglishUS ActiveDocument.PageSetup.PaperSize = wdPaperLetter Else ActiveDocument.Styles("Normal").LanguageID = wdEnglishAUS End If Tag: symbol - please help Tag: 110762

Hi,
Can anyone give some advice how to ask Word or Excel is there in any cell or
anywhere in the Word document, exactly symbol, for example "Sun". In Insert
Symbol dialog box there are character codes for each symbols but i cannot
find property for character that says, this character has code number for
example 68.
I' ve found somowhere something like this, but I want to ASK about character
symbol not to assign character.
ActiveDocument.Range(characternumber:=171, Font:="Symbol", Unicode:=False)
Please help, and thanks a lot!
Ivo

Top

Re: symbol - please help by Helmut

Helmut
Sat Mar 01 10:20:11 PST 2008

Hi Ivo,

see for Word:
http://word.mvps.org/faqs/MacrosVBA/FindReplaceSymbols.htm

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Top

Re: symbol - please help by ivo

ivo
Sun Mar 02 04:19:46 PST 2008

Thanks, that was very useful!

"Helmut Weber" <red.sys@t-online.de> wrote in message
news:4h7js3dkjt7j1hqebg1ansgii79tdmgikb@4ax.com...
> Hi Ivo,
>
> see for Word:
> http://word.mvps.org/faqs/MacrosVBA/FindReplaceSymbols.htm
>
> --
>
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Vista Small Business, Office XP

Top