Height of the text in cell

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - How do I turn off file conversion. It's affecting all my files All my files have becomeconverted to some strange text. I have no idea what I did or didn't do. The message comes up giving me 3 choices, Window (default) MS dos or other decoding. I've tried all 3 at various times but nothing works. I really need my files. Can someone sugest something? Tag: Height of the text in cell Tag: 94499
  - 2
    - Resources to support Word in multiple languages? I have a Word template with added menus, toolbars, forms, etc. Now I am supporting languages other than English. The problems come when I need to refer to Word menu items in my user interface or documentation. For example, I might need to tell users to go to: Menu: Help > SpecialTemplate Help or Menu: Insert > SpecialTemplate Symbols... Needed: "Help" or "Insert" in other languages (Spanish, French, German, etc.). Where can I find a reference that shows the menus and dialog boxes for Word in different languages? Are there other resources available for those of us who need to support Word in multiple languages? Approaches tried or unlikely to work: *************************** "Microsoft Terminology" is not Word-specific and does not cover menus. Examples of things not covered: what to call a "tab" on a MultiPage object, Word menus. www.microsoft.com/globaldev/tools/MILSGlossary.mspx Buying the multi-lingual version of MS Office with all the language packs needed as I need to support Word 97, 2000, 2002, 2003 and soon 2007 (unless this can be done without great expense) Tag: Height of the text in cell Tag: 94497
  - 3
    - Search not working as wanted G'day there One & All, I'm currently working on my first Word VB project (well, the first one I've not abandoned and forgotten about) and I've obviously got something wrong. I have some experience with VB for Excel, so most of the concepts ring a bell or two, but the Word object model escapes me and I'm still trying to get my head around it. I have 3 years worth of occurrence logs that I need to search for a specific string. The logs consist of a single table with some consistent entries. Unfortunately this string appears in all logs in one of those entries which I describe as a "heading area". I need to find it in the "narrative" section, not one of the heading areas. The logs are organised in Year Folders, with Month folders inside. The log names are the date for each daily log. I'm trying to perform the following tasks: 1. Use dialog to obtain enclosing folder for all documents - done. 2. Iterate through all subfolders to find log documents - done. 3. Search through each log in turn and search for one of the consistant headings, then commence searching from the next line down for the target word. If found, then store filename in base docuement and ... 4. Stop at end of document, and got to next one - done. Courtesy of the Word MVP pages, and this group's archives, I think I've got 1, 2 & 4 working OK. However 3 is giving me a few problems. I'm getting false hits, and missing occurrences of the target. Ergo, I've got something out of whack. I hope that someone here may be able to point me in the right direction. Here's my searching code: Application.Documents.Open FileName:=strPATH & strFILENAME (Do I need to "open"?) Application.Documents(strFILENAME).Activate With Selection.Find .Text = "Objectives C" ' Heading where search begins from next line .MatchWholeWord = True .Font.Underline = wdUnderlineSingle Do While .Execute Selection.GoTo what:=wdGoToLine, which:=wdGoToNext With Selection.Find .Text = "hotel" .Forward = True .Wrap = wdFindStop .MatchCase = False .MatchWholeWord = True If .Found = True Then strFULLNAME = Mid(strPATH & strFILENAME, 78, Len(strPATH & strFILENAME) - 77) ' Leave just parent folder and filename If Len(objSTOREDOC.Content) = 0 Then _ objSTARTRANGE.InsertAfter strFULLNAME & vbCr Else objSTOREDOC.Content.Select Selection.Collapse direction:=wdCollapseEnd Selection.InsertAfter strFULLNAME & vbCr End If End If End With Loop End With Application.Documents(strFILENAME).Close strFILENAME = Dir (This is repeated in a loop) Hopefully this will make sense and someone can point out a better way to do it. Thanks for listening, -- See ya, Ken McLennan Qld, Australia Tag: Height of the text in cell Tag: 94494
  - 4
    - Can't open certain help file pages Office 2003 In Word VBA (as well as Excel VBA), if I type a help term in the "Type a question for help" box, several help file pages shown as hyperlinks generally appear. However, those links with "(Visual Basic for Applications)" at the end of the help-page name do not work when I click on them. (Example: "Character Set (0-127) (Visual Basic for Applications)".) Nothing happens. Other hyperlinks, to Word-, Excel-, or Office-related VBA help pages, work fine in bringing up the relevant help page. In the Office 2003 installer, Office Shared Features > Visual Basic > Visual Basic Help is installed. Any ideas on how to make these help pages appear? Thanks. Tag: Height of the text in cell Tag: 94473
  - 5
    - Who has the file open? I have been using the code posted on the MVP site at http://word.mvps.org/FAQs/MacrosVBA/CheckIfFileOpen.htm and I would now like to find out who has the file open if it is open. Is this possible please? Thanks Stephen Tag: Height of the text in cell Tag: 94463
  - 6
    - How to install MS Word with out macro language capabilities ... I wonder how you could do something like that. . I don't mean disabling it or not letting certain users use it, but actually not installing this functionality at all . lbrtchx Tag: Height of the text in cell Tag: 94456
  - 7
    - Adding Multiple Rows to a Table in a Word Form First off I would like to thank all of the people that post, and all the people that respond. I have lurked for a long time, dependent on the Q&A of others. Today I have spent 12 hours reviewing and steeling snippets from all over the web. I have my table set up to add a row at the end of my table on my protected form, and to add a text form field to 5 of the 7 cells, and also add & populate 2 separate dropdown lists. This works and I could stop here. That being said, my table can be updated with only several rows or up to 5 full pages. I would like to tweak my VBA code to request some sort of input and it would populate that many rows. I am guessing that the best answer would be to loop my current code the number of times the user input. If so, I am guessing it should be fairly easy addition for the loop. Lastly, I am posting because I am sure there are other people that may / will be looking for a similar solution. I am enclosing my code below in case this information is needed to answer my question. I still have to update my comments, sorry. Sub AddRow2() Dim oTbl As Table Set oTbl = Selection.Tables(1) response = MsgBox("Would you like to Add a new row?", vbQuestion + vbYesNo) If response = vbYes Then ActiveDocument.Unprotect ' Disable the AddRow macro that is currently in the last cell ' (since we're creating a new last cell) Selection.Tables(1).Cell(Selection.Tables(1).Rows.Count, Selection.Tables(1).Columns.Count).Range.FormFields(1).ExitMacro = "" Selection.InsertRowsBelow 1 Selection.Collapse (wdCollapseStart) myRow = Selection.Information(wdStartOfRangeRowNumber) Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput 'Selection.SelectCell Selection.Bookmarks.Add Name:="a1temp", Range:=Selection.Cells(1) myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text1row" & myRow .Enabled = True End With Selection.Bookmarks.Add Name:="a1temp", Range:=Selection.Range Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text2row" & myRow .Enabled = True End With Selection.MoveRight Unit:=wdCell Set myField3 = Selection.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormDropDown) myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text3row" & myRow .Enabled = True With myField3.DropDown.ListEntries .Add Name:=" " .Add Name:=" Files " .Add Name:=" Object " .Add Name:=" Report " End With End With Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text4row" & myRow .Enabled = True End With Selection.MoveRight Unit:=wdCell Set myField5 = Selection.FormFields.Add(Range:=Selection.Range, Type:=wdFieldFormDropDown) myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text5row" & myRow .Enabled = True With myField5.DropDown.ListEntries .Add Name:=" " .Add Name:=" Promote " .Add Name:=" Restore " .Add Name:=" Delete " End With End With Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text6row" & myRow .Enabled = True End With Selection.MoveRight Unit:=wdCell Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput myCount = ActiveDocument.Range.FormFields.Count With ActiveDocument.FormFields(myCount) .Name = "text7row" & myRow .Enabled = True ' .ExitMacro = "AddRow2" End With oTbl.Cell(oTbl.Rows.Count, oTbl.Columns.Count).Range.FormFields(1).ExitMacro = "AddRow2" oTbl.Cell(oTbl.Rows.Count, 1).Range.FormFields(1).Select ActiveDocument.Protect NoReset:=True, Type:=wdAllowOnlyFormFields End If End Sub Tag: Height of the text in cell Tag: 94452
  - 8
    - Selecting text between 2 found words in Word Hi i want to select some text throughout a document to be deleted. The test will look like this...... 'Christmas : 2 x 5" Fruit & Cone Candle Rings Product: Christmas 2 x 5" Fruit & Cone Candle Rings Custom Label: 213878' I want to select the word 'Product' and everything up to (but NOT including) the word Label and then delete that selection. I want this to loop through the document until there are no more Products to be found Any help is appreciated Tag: Height of the text in cell Tag: 94431
  - 9
    - Word 2003 - Fixing Styles in Templates Hi there, Can anyone provide any suggestions on how to fix styles in Word 2003 Template documents? I believe it is possible to code VBA to get the styles to revert back at close/open of the document, if the styles are changed by the user in anyway. Thanks, Nikki UNiTAB Qld Brisbane Tag: Height of the text in cell Tag: 94423
  - 10
    - Bind a macro to a keystroke in Word 2007???? First off, I'd like to say that I hate Office 2007. :oP I hate the huge, fluffy GUI that they force you to use (since your only other option is to build an entire set of toolbars, one icon at a time, and just ignore the "ribbon"). I hate that the only features I can find are extremely obvious ones... which means that every average user is gonna think this is the best upgrade ever, and every advanced user is gonna end up pulling their hair out trying to find advanced features that they've been using for years... which brings me to my question. How do I bind a keystroke to a macro in Word 2007? Before, I would just go to Tools > Customize > Keyboard... and bind the keystroke... but now, of course, since there is no such thing as a "menu" any more, that option doesn't exist, and I can't find anything like it on the "ribbon". Anyone figure this out yet? WATYF Tag: Height of the text in cell Tag: 94422
  - 11
    - Yes/No checkbox OR drop down I have a word document where there are lots of Yes/No drop down boxes. Is there a way I could make them default to either of the 2 choices on the click of a command button (or some other way) ? Thanks. Tag: Height of the text in cell Tag: 94418
  - 12
    - No Class or High Class For the most part, Class modules are still a mystery to me. What little knowledge I have of them was imparted by Jezebel when I was working on a project to list, count and sort spelling errors. Earlier today and OP wanted to simply list all spelling errors contained in a document in a separate document. I thought of my earlier project and passed on the link. I then started thinking about a simpler code to do exactly what the OP requested "and" prevent duplicates. Here is the result of those thoughts: Sub NoClass() Dim DupChk As Object Dim oCol As Collection Dim oSpError As Word.Range Dim i As Long Set oCol = New Collection 'Add to collection For Each oSpError In ActiveDocument.Range.SpellingErrors On Error Resume Next Set DupChk = oCol(oSpError.Text) On Error GoTo 0 If DupChk Is Nothing Then oCol.Add oSpError End If Set DupChk = Nothing Next 'Publish results Documents.Add For i = 1 To oCol.Count ActiveDocument.Range.InsertAfter oCol(i) & vbCr Next i End Sub That seems straightforward and does the job. To do the same thing with a class, I first inserted a class module, named it clsError and pasted in this code: Private mName As String Public Property Get Name() As String Name = mName End Property Public Property Let Name(NewValue As String) mName = NewValue End Property In the project module, I used this code: Sub HighClass() Dim oError As clsError Dim oCol As Collection Dim oSpError As Word.Range Set oCol = New Collection 'Add to collection For Each oSpError In ActiveDocument.Range.SpellingErrors On Error Resume Next Set oError = oCol(oSpError.Text) On Error GoTo 0 If oError Is Nothing Then Set oError = New clsError oError.Name = oSpError.Text oCol.Add oError, oError.Name End If Set oError = Nothing Next 'Publish results Documents.Add With ActiveDocument.Range For Each oError In oCol .InsertAfter oError.Name & vbCr Next End With End Sub This works equally as well. What again is the benefit of using a Class? Is there any benefit in this example? Thanks. Tag: Height of the text in cell Tag: 94410
  - 13
    - Copy all misspelled words Hi All, I have a large document (over 1000 pages) and want to copy all the misspelled words and paste them in new document (1 below the other) how can this be done? I am using Word 2003. Thanks in advance :) Tag: Height of the text in cell Tag: 94402
  - 14
    - Document name in titlebar, step by step I want to put the path and document name in Word 2003 in the title bar, and found the following posting from a couple of years back. However, it is a bit too cryptic for me, since i don't use VBA at all. Can someone please take the info below and tell me step by step how i would do this? I would like to set up a macro to do this automatically, so if that could be explained, that would be great. Many thanks "Switch to VBA and in the immediate window type: windows(activedocument.Name).Caption = activedocument.FullName You could set up a macro to do this automatically, but I suggest you try it manually for a while. On most machines these days, the full path is so long that the result will be ugly." Tag: Height of the text in cell Tag: 94394
  - 15
    - Where can I get help for VBScript? I have a word macro that I need to convert to VBScript. I've done simple ones in the past but this one is a little more complicated and I'm having difficulties. Does anyone know of a message board like this for VBScript? Thanks Rose G Tag: Height of the text in cell Tag: 94390
  - 16
    - Check box group Hi On a Word Template I have created 3 Checkbox "Not Check box Form Fields" and all these three Checkbox have an identical Groupname of Gr. Problem is when I try to create a document out of this template I can check mark all 3 check box at the same time... Isn't this supposed to be exculisve of each other. I mean I should only be able to check mark one of them and by check marking one the other two should be unchecked... What am I doing wrong? -- Jeff B Paarsa Tag: Height of the text in cell Tag: 94384
  - 17
    - Copy Paste Table Problems! I have figured out a way to copy paste a table (with fieldforms). I have a macro button in my doc. which when I press copies the table in the doc. and pastes it. The code to do the that is below: Private Sub CommandButton1_Click() Set aDoc = ActiveDocument If aDoc.ProtectionType <> wdNoProtection Then aDoc.Unprotect ActiveDocument.Tables(2).Range.Copy Set myRange = ActiveDocument.Range _ (Start:=ActiveDocument.Content.End - 1, _ End:=ActiveDocument.Content.End - 1) myRange.PasteSpecial aDoc.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End If End Sub Now, when the user fills in data in the table cells and then presses the macro button, the pasted table has the same data in its cells. Is there a way I could make sure that only the table is copy-pasted and not the data inside it? Any help would be great! Thank You Tag: Height of the text in cell Tag: 94376
  - 18
    - Help:Using strings to call subroutines Hi All I'm wondering if any body knows how to call a subroutine from a string. For example: Dim TestString as string TestString = "MySubroutine(Data)" '***The question I have would be: How to use TestString to call MySubroutine(Data). Thank You KAB Tag: Height of the text in cell Tag: 94369
  - 19
    - word and my scanner how aquire text into word by using a scanner? Tag: Height of the text in cell Tag: 94364
  - 20
    - Paste Unformatted Text macro Hi, If someone could just point me in the right direction, i'd be thankful... I wrote a simple macro for Word 2000 that used the F12 button to "paste unformatted text" into my documents. Unfortunately, this macro refuses to work now that i've upgraded to 2003 (even though the documentation says that macros transfer without problem). Any suggestions? Tag: Height of the text in cell Tag: 94363
  - 21
    - MI5 Persecution: cost of the operation -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -= MI5: cost of the operation -= -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Here's what a couple of other people on Usenet (uk.misc) had to say regarding the cost of running such an operation... PO: >Have some sense, grow up and smell reality. What you are talking about PO: >would take loads of planning, tens of thousands of pounds and lots of PO: >people involved in the planning, execution and maintenance of it. You PO: >must have a very high opinion of yourself to think you are worth it. PM: >But why? And why you? Do you realize how much it would cost to keep PM: >one person under continuous surveillance for five years? Think about PM: >all the man/hours. Say they _just_ allocated a two man team and a PM: >supervisor. OK., Supervisor's salary, say, #30,000 a year. Two men, PM: >#20,000 a year each. But they'd need to work in shifts -- so it would PM: >be six men at #20,000 (which with on-costs would work out at more like PM: >#30,000 to the employer.) PM: > PM: >So, we're talking #30,000 x 6. #180,000. plus say, #40,000 for the PM: >supervisor. #220,000. Then you've got the hardware involved. And PM: >any transcription that needs doing. You don't think the 'Big Boss' PM: >would listen to hours and hours of tapes, do you. PM: > PM: >So, all in all, you couldn't actually do the job for much less than PM: >a quarter million a year. Over five years. What are you doing that makes PM: >it worth the while of the state to spend over one and a quarter million PM: >on you? Those are pretty much the sort of calculations that went through my head once I stopped to consider what it must be costing them to run this operation. The partial answer is, there have been periods when the intensity has been greater, and times when little has happened. In fact, for much of 1993 and the first half of 1994, very little happened. Although I don't think that was for reasons of money - if they can tap into the taxpayer they're not going to be short of resources, are they? The more complete answer is in the enormity of what they're doing. Relative to the cost to British pride of seeing their country humiliated for the persecution of their own citizens, isn't is worth the cost of four or five people to try to bring things to a close in the manner they would wish? To the government a million or two is quite honestly nothing - if they can convince themselves of the necessity of what they're doing, resources will not be the limiting factor. 391 -- Posted via a free Usenet account from http://www.teranews.com Tag: Height of the text in cell Tag: 94348
  - 22
    - How doc properties created in one file be available in all docs I need to insert fields in a word document. All required doc properties was created in File>Properties>Custom. This was inserted into the document using Insert>Field option. Now i need this set of doc properties to be available in all the files that i edit or create new. I tried creating this in Normal.dot, but still it does not show if a new document is opened. Tag: Height of the text in cell Tag: 94345
  - 23
    - error handler Further to problems with getting a form compiled in Word 2003 to behave properly with older versions, how can I stop my form getting closed by the error ? It's only one button on my form that calls the bound routine so another button immediately after with a hyperlink to the file can be a way to open the worksheet and do what's necessary manually. But the error closes the form so the user loses what (s)he's already filled in and doesn't get the chance to carry on. I haven't been able to find anything really helpful on the net and all it needs is some sub-routine that'll say "ignore the problem and carry on". Tag: Height of the text in cell Tag: 94342
  - 24
    - Getting round the binding / different versions problem There seem to be quite a few posts about trying to get Word and Excel to work together when the original files have been compiled in Office 2003 and users have an older version. I have the same problem. I'm sending from a Word form to Excel and getting other data back from the same worksheet. If I remove references to the Excel library I get errors (on other PCs) because bits of the code aren't recognised by that version of Excel. I thought a solution could be simply to have the Excel part of the code as a macro in that sheet. All Word has to do is open the sheet and say 'Application.Run "macro"' but that doesn't work either. Is there a way to run an excel macro from Word or am I coming up against the same incompatibility of versions ? Tag: Height of the text in cell Tag: 94341
  - 25
    - template find and replace Hello, We have a load of templates that require updating from time to time. Is it possible to perform a batch find and replace across all templates in a folder? -- Thanks, MarkN Tag: Height of the text in cell Tag: 94337
- Next
  - 1
    - are wombats good? I'm not really sure whether Wombats are any good. The picture on Wikipedia looks like a horrid little Pig. Quite Obscene. Just not English. 391 -- Posted via a free Usenet account from http://www.teranews.com Tag: Height of the text in cell Tag: 94332
  - 2
    - Question This is a re-post from 11-22-06. The original question was: A while back, I put a shortcut to a file folder on the menu bar in Word 2003. I can't remember how I did this? Could you maybe explain what I did please? >What exactly happens when you click this shortcut? -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP >See http://www.gmayor.com/customize_the_word_places_bar.htm -- Suzanne S. Barnhill Microsoft MVP (Word) >Hmmm. I took this to mean the main menu bar in Word? -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP >On rereading, I suspected you were right, but since many users don't know the name of the Places Bar, I took a chance. -- Suzanne S. Barnhill Microsoft MVP (Word) >Graham, Yes. I meant the main menu bar. However, continuing my search, I came across an article that dealt with a similar problem and actually fixed the problem. I found an article written by John McGhie on the MVP site, "Restoring Customizations Saved in Normal". I had recently lost the tool bars I created. After reading his article, I followed his instructions and retrieved my tool bars that included the shortcuts I am referring to. ***My original question is unanswered. The shortcuts open the folder in My Documents in Windows Explorer that hold the files and folders I frequently use. Very handy!! I jsut can't remember how I accomplished creating the shortcuts.*** Thank you, MoJR The answer to Grahahm's question is, "The shortcuts open the folder in My Documents in Windows Explorer that hold the files and folders?" I would like to know what exactly I did to make this happen? Thank you, MoJR Tag: Height of the text in cell Tag: 94327
  - 3
    - interested in wombats Can someone tell me whether Wombats live only in Australia, or also on other continents? Apart from zoos, of course. 145 -- Posted via a free Usenet account from http://www.teranews.com Tag: Height of the text in cell Tag: 94323
  - 4
    - Hard return to activate "dead" hyperlink in Word... Hello. Here's my dilemma. Hope someone out there can help. I'm taking data from one program and pasting into Word (with this other program, there's really no export function, so cutting and pasting is the only way I can do this). The problem is that when I paste the information into Word, all of the hyperlinks are "dead" (that is, when you try to Ctrl+click the link, it does nothing). Of course, I can manually enter a hard return at the end of the hyperlink to activate it, but I have a TON of links and don't really want to spend time doing this. I've tried creating a macro to do this, and it does everything it should need to do to re-activate the hyperlink, but it's not. I'm actually in the VBA window, stepping through the script. I see it locate the letters "http" and move to the end of the link, then I see what looks to me like a Return/Enter, but the link never "activates." Here's the VBA code. Anyone know how I can generate a hard return that will activate a hyperlink? Thanks, Andy ================== Selection.Find.ClearFormatting With Selection.Find .Text = "http" Selection.EndKey Unit:=wdLine Selection.TypeParagraph .Replacement.Text = "" Selection.TypeParagraph .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute End Sub Tag: Height of the text in cell Tag: 94317
  - 5
    - wbk managament macro Thanks to assistance in another group, I found the following macro, which saves my wbks to two directories, allowing me to delete the backups in my active directory and still have copies: Sub SaveToTwoLocations() Dim strFileA, strFileB, strFileC ActiveDocument.Save strFileA = ActiveDocument.Name 'Define backup path shown in next line below strFileB = "h:\work\backups\" & strFileA strFileC = ActiveDocument.FullName ActiveDocument.SaveAs FileName:=strFileB ActiveDocument.SaveAs FileName:=strFileC End Sub Now, I want to take it a step further and, once the second .wbk is created in the backups allow the macro to delete the original .wbk in the active directory all as part of the same macro -- in one click of the save in two places button. That way my active directories will contain only the latest version of a document, but the backup directory will contain the previous version of every file. The people in the other groups suggest I cannot do this for some reason, but I don't understand why not. So if anyone has any suggestions for command I can add to the above macro, your help will be appreciated. len Len@LGrossman.com Tag: Height of the text in cell Tag: 94316
  - 6
    - Custom Toolbar Drop Down I have a document that is linked to an Excel data file (the data in the Excel file is date specific by year and month). I have a custom toolbar in Word that has buttons to update the Excel data, but I would like to add two drop down boxes (year and month) to my toolbar so that the user can select the date that the data should be refreshed for. I know that I could add a combo box within the document, but I'm trying to avoid that. If this can be done, I'd appreciate the help. Thanks. Tag: Height of the text in cell Tag: 94315
  - 7
    - Conditionally Compile for Word 2007? Hi, I've got a template that features in menu in earlier versions of Word, and when it runs in Word 2007, I want it to use a tab on the ribbon instead. I've got the tab working, and I know how to dynamically determine (from Application.Version) if I'm running in Word 2007, so I can make it work. BUT: the module that works with the ribbon includes some declarations (such as iRibbonControl) that are not available in earlier versions of Word. So I don't think this code will work with earlier versions. What's the best way to handle this? Is there a way to conditionally compile the code? I know i can conditionally compile for a Macintosh by including #if Mac Then 'this code only included on mac versions #Else 'this code only include on PC versions #End If but I don't know how to set up a condition like that "Mac" condition that's built into VBA. The only other way i can think to do this is to declare the iRibbonControl parameters in my ribbon callbacks as variants. I assume that would work, tho it makes the code a bit tougher to understand. Any advice appreciated thanks, gary Tag: Height of the text in cell Tag: 94312
  - 8
    - File Placement/SharePoint Hiya A few months ago I created a wizard which allows users to generate a sales proposal by picking the required sections (lots of products, lots of services, different T&C's etc.), the code then finds the requested sections and creates a large file containing them all in the chosen order. This works fine. The issue is, all of our documents are soon to be placed on sharepoint, I don't really know a great deal about sharepoint, will I be able to update my code easily enough to look for the docs on sharepoint insted of in network folders? Many thanks for your time Kerry. Tag: Height of the text in cell Tag: 94305
  - 9
    - Where can I find the macro spell check I am looking for away to for others to spell check a protected document. Looks like there is a macro somewhere to solve this. Please advise where I can find this. Thanks, Tag: Height of the text in cell Tag: 94303
  - 10
    - Please advise on the production of a frontend, to view selected record(s) of a completed worksheet I have created an excel worksheet containing details of building surveys - each survey on a different row. The columns list the locations and provide records which detail whether the site has been visited, the survey checked and provides comments on the non-completion of any construction work. In addition, two of the columns list hyperlinks to a jpeg photograph of the site and to an external survey report (also in excel format). The columns are headed as follows: Location Address City Council Visited by Checked Comments Photo Files Reports I have done some preliminary research and have found various userforms which allow users to input information into worksheets. My database is for viewing information only, as all the data has already been entered. I need a frontend which allows the user to filter to the site (possibly using a cascading combobox to select location then site) and then select okay, to view the results. I would like excel to then display the details of the selected suvey as per the list above, including the photograph and external survey report. Dylan Dawson Scotland Tag: Height of the text in cell Tag: 94301
  - 11
    - image getting rotated on some printers I am having a problem with an image in my word document getting rotated 180' when it is printed (on some printers.) Otherwise there seems to be no problem - when I do a preview every thing is in order. I am using word 2003 with all the latest patches, Printing to a HP LaserJet 3200 Series (not color) is OK but to a Color LaserJet 2550L image is rotated. Any one experience this? Thanks in advance. Scott Tag: Height of the text in cell Tag: 94299
  - 12
    - Merge to an empty dataset I am using Word 2002 and have a macro with a set of linked merges. In some cases there will be no record that satisfies a query condition. How can I eliminate the error message that appears and keep the macro running when the dataset is empty for this query? Bob Collin Tag: Height of the text in cell Tag: 94298
  - 13
    - Creating a message that "pops up" when a user opens a template (.d Hi -- I need to know how to create an automatic message 'popup' that will open when a user opens a particular template. Can I use 'forms' or do I need to actually write a script using Visual Basic? Any information on how this script might be written would also help. Thanks! A Foster Tag: Height of the text in cell Tag: 94297
  - 14
    - Getting and setting font size of found text Dear Friends, I'm trying to write a macro that reduces the size of each chunk of text formatted with a specific font to a percentage of the font size of that chunk, i.e. if a certain chunk of text is 18pt Arial it should become 10.5pt Arial (yes I know 18*0.6 = 10.8, but Word apparently rounds down to the nearest half point, which is good enough for me), if another chunk is 12pt Arial it should become 7pt (~7.2) and so on. The macro I've written is as follows: * Sub Smaller() * With Selection.Find * .ClearFormatting * .Font.Name = "Arial" * mySize = Selection.Font.Size * With .Replacement * .Font.Size = mySize * 0.6 * End With * .Execute Replace:=wdReplaceAll, Forward:=True, _ * Wrap:=wdFindContinue * End With * End Sub It does wrong in that it sets all text formatted in Arial to .6 times the size of the first character in the document -- regardless of what font it is. Can someone tell me how to correct this? TIA, /BP Tag: Height of the text in cell Tag: 94293
  - 15
    - VBA reference problem Hi folks, I have two word template projects. One is loaded globally from the autostart folder you can specify in the word options. This one contains a toolbar button by which the user can add a signature graphic file to the document and some basic methods (like "take the current document, save it and do something with it"). The other is a document template with some form fields and a toolbar button. When pressing the button, the form fields are read and one of the global template's methods is invoked. To be able to cll the global template's method, I need to reference that template. The global template can be found on a network resource, like \\MyServer\Templates. Everything works perfectly fine on my developing machine. When a user now clicks the button on his machine, he gets a compiler error message, that says that the global template project cannot be found. When I check the references, I have an entry like "Missing: ~w????.tmp". Back on my developing machine, the reference now points to the user temp folder and not to the network share anymore. Though, everything still works fine. How do I reference a template from a networkshare correctly? Merging the global template's code to the second template is not an option. There is a third, fourth, ... template as well (all with the same problems). And I want to avoid the maintainance effords :) Thanks for any suggestions, Tobi Tag: Height of the text in cell Tag: 94291
  - 16
    - Hyperlink modifications I defined a macro that replaces a selected text in a document with a hyperlink. Depending on the marked text I want apply to the hyperlink different properties, such as different color. My question is how can I modify the properties of a hyperlink so that: 1. the hyperlink will be marked with a double line colored with green 2. the hyperlink will appear as it is e.g. capital letters Another problem which I tried to overcome is how to change the address of the hyperlink so it will open a new form. The following code doesnâ??t work due to incomparable types in Address: Dim oHpl As Hyperlink Set oHpl = ActiveDocument.Hyperlinks.Add _ (Selection.Range, Address:=myForm.Show, TextToDisplay:=Selection) Does Address only links to documents and websites or is possible to link the hyperlink to a form? In this case how can this be accomplished? Thank you in advance Hanna Tag: Height of the text in cell Tag: 94290
  - 17
    - Find Mail Merge fields I want to identify if a word document has the mail merge field eg. Â«NameÂ» and Â«Next RecordÂ» field in it. Is this possible and how? thanks Tag: Height of the text in cell Tag: 94288
  - 18
    - macro to manipulate selected text only I am trying to make a VBA macro that works line-by-line on one or more paragraphs which I have selected with my mouse out of a larger document. Specifically, I want to change the font size, put a newline character at the end of each line, and add six spaces to the beginning of each line, but have all this done only for the text my mouse has selected. An example of the original text: In a recent address to his the synod of his archdiocese, Archbishop Jensen explained why issues of human sexuality are so important to the Christian church. Consider this passage from his address: As you know, I have taken the view from the beginning that the crisis over human sexuality is a very deep one indeed. The idea that we are somehow to blame for making so much fuss about sex is ludicrous. Human sexuality is so powerful a gift and so basic to our human nature, and so fraught with both good and ill, that it is bound to occupy a large part of our thinking. How I want the final text to look: In a recent address to his the synod of his archdiocese, Archbishop Jensen explained why issues of human sexuality are so important to the Christian church. Consider this passage from his address: As you know, I have taken the view from the beginning that the crisis over human sexuality is a very deep one indeed. The idea that we are somehow to blame for making so much fuss about sex is ludicrous. Human sexuality is so powerful a gift and so basic to our human nature, and so fraught with both good and ill, that it is bound to occupy a large part of our thinking. Thank you for any help you can give me. Sincerely Rev. David Holwick dholwick@gmail.com Tag: Height of the text in cell Tag: 94284
  - 19
    - Insert image macro help I have a word 2000 document with a table inserted. What I need to do is develop a macro that would use the forminsertpicture function and when executed it would: --open the windows explorer window --when the picture is selected ---unlock the form ---insert the picture at the current cursor location ---lock the form ---sumulate pressing the tab key to move to the next field. Thank you a bunch. Tag: Height of the text in cell Tag: 94278
  - 20
    - Recording in text file I am using Word 97 still! Can anyone assist me with some code which would sit in a template and records in a text file when a document is opened, the document name , time/date and the user logged on at the time? Thanks in advance -- Mark Tag: Height of the text in cell Tag: 94274
  - 21
    - How to parse 4th line of my document positons 10 thru 37 Hi, If in my document , 4th line contains the following text, RE: 65 Spear Street,Metuchen,NY How to parse, so that i get "65 Spear Street,Metuchen,NY" into a variable which i can use in the file name to save the document? Thanks for your help. Regards, Adi Tag: Height of the text in cell Tag: 94272
  - 22
    - Mail Merge With Second Recordset I have to do out a system (in Access) which will output using vba a mail merged word document. However, each letter will need the ability to be customised by the client (I know they will wreck it but thats what they want). Each letter will have the usual MM stuff - names, addresses, dates but half way down through the letter it will show a table containing their account details since the last MM ran. The only way I can see this is to use a second recordset - but is this possible? Thanks Tag: Height of the text in cell Tag: 94264
  - 23
    - Getting started to create a document from zero. Hi, I would like to create a document from Excel. I did the following code (works well) and I'm wondering if it's the best way to make a Word Document? Thanks! Alex Sub CreateWordDocument() Dim appWord As Word.Application Dim docWord As Word.Document Dim NewStyle As Word.Style Dim oRange As Word.Range Dim i As Integer i = 1 On Error Resume Next Set appWord = GetObject(, "Word.Application") If appWord Is Nothing Then Set appWord = CreateObject("Word.Application") End If appWord.Visible = True Set docWord = appWord.Documents.Add docWord.Styles("Bold Text").Delete docWord.Styles("Italic Text").Delete On Error GoTo 0 Set NewStyle = ActiveDocument.Styles.Add("Bold Text") With NewStyle .Font.Bold = True .Font.Italic = False End With Set NewStyle = ActiveDocument.Styles.Add("Italic Text") With NewStyle .Font.Bold = False .Font.Italic = True End With Set oRange = ActiveDocument.Range(0, 0) With oRange .Style = "Bold Text" .Text = "Bold Text" & Chr(13) End With appWord.Selection.EndKey unit:=wdStory i = i + 1 Set oRange = docWord.Paragraphs(i).Range With oRange .Style = "Italic Text" .Text = "Italic Text" & Chr(13) End With '... Set appWord = Nothing Set docWord = Nothing Set NewStyle = Nothing Set oRange = Nothing End Sub -- Alex St-Pierre Tag: Height of the text in cell Tag: 94263
  - 24
    - page/section break and text boxes I am doing a template for a client which consists of 4 master pages, which are selected via a button on the toolbar. To cut a long story short I've had to use text boxes, but I have now discovered that new page/section doesn't work in text boxes. As the button to insert new page runs a subroutine I can program anything in front of the new page command to get the focus off the text box. The only problem I have is I am not that experienced a programmer to achieve this. How do I get the focus back into the main thread of the document, preferably at the end so that the new page inserts after the current and not before. Any help would be appreciated. TIA Tag: Height of the text in cell Tag: 94261
  - 25
    - search result in a range I'm wondering about the use of myRange.Find as opposed to Selection.Find. Is there some way I can use the former and return/determine the range of its result? Selection.Find highlights (selects) the result, but I can find no equivalent action for myRange.Find. Thanks, Andrew Tag: Height of the text in cell Tag: 94244

Hi folks.
I need to write a macros that reduces size of text in table when it
begin to resize in case of long string of text inserted ?

Top

Re: Height of the text in cell by Jezebel

Jezebel
Sun Dec 03 04:58:02 CST 2006

Yes?

<Phelicks@gmail.com> wrote in message
news:1165137057.215963.241290@j72g2000cwa.googlegroups.com...
> Hi folks.
> I need to write a macros that reduces size of text in table when it
> begin to resize in case of long string of text inserted ?
>

Top

Re: Height of the text in cell by Helmut

Helmut
Sun Dec 03 05:39:26 CST 2006

Hi,

like this, but I wonder, whether it's a good idea,
to reduce font size until the text doesn't occupy
more then the given number of lines.

Sub Test733()
Dim LinesAllowed As Long
LinesAllowed = 2
selection.Cells(1).Range.Text = String(30, "m")
selection.Cells(1).Select
selection.End = selection.End - 1
With selection.Range
While .ComputeStatistics(wdStatisticLines) > LinesAllowed
.Font.Size = .Font.Size - 1
Wend
End With
End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Top

Re: Height of the text in cell by Phelicks

Phelicks
Sun Dec 03 08:00:03 CST 2006

Thats a good idea !!!

Helmut Weber wrote:
> Hi,
>
> like this, but I wonder, whether it's a good idea,
> to reduce font size until the text doesn't occupy
> more then the given number of lines.
>
> Sub Test733()
> Dim LinesAllowed As Long
> LinesAllowed = 2
> selection.Cells(1).Range.Text = String(30, "m")
> selection.Cells(1).Select
> selection.End = selection.End - 1
> With selection.Range
> While .ComputeStatistics(wdStatisticLines) > LinesAllowed
> .Font.Size = .Font.Size - 1
> Wend
> End With
> End Sub
>
> --
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Win XP, Office 2003
> "red.sys" & Chr$(64) & "t-online.de"

Top