Figuring out how many lines are in a paragraph

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Lists->Text and Weird Space I'm converting lists to text and am running into a weird problem where SOMETIMES a space (spacelike?) character appears. The goal of my program is to take an AutoNumbered list like: 1. The first item 2. The second item and turn it into plain text that looks like: <ListItem>1.\tThe first item <ListItem>2.\tThe second item The code I have below does that absolutely fine. BUT, if you change the tag (just change both instances of "<ListItem>" to something like "ListItem:" then some weird space/not-space (it seems to be character 32, but behaves..oddly) appears between the colon and the item number. It occurs WHEN pasting..I just don't get it, it's very weird. Any thoughts? thanks much, Scott Code below: Sub TagLists() Dim li As List Dim ap As Paragraph ' ' Do the tagging ' For Each li In ActiveDocument.Lists For Each ap In li.ListParagraphs ap.Range.InsertBefore "<ListItem>" Next ap Next li ' ' Change to text ' ActiveDocument.ConvertNumbersToText ' ' Go re-arrange the lines ' Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .Text = "<ListItem>" .Forward = True .Wrap = wdFindStop End With While Selection.Find.Execute ' ' Get before the "<ListItem>" tag and select to the beginning of the line ' Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.HomeKey Unit:=wdLine, Extend:=wdExtend ' MsgBox "Selection = >" & Selection.Text & "<" & vbCr & _ ' "Length = >" & Selection.Characters.Count & "<" & vbCr Selection.Cut Selection.Find.Execute Selection.Move Count:=1 Selection.Paste Wend End Sub Tag: Figuring out how many lines are in a paragraph Tag: 34863
  - 2
    - How to print document automatically I want to print all documents in one directory. I prefer VB to launch word application, and open each document. Then I use document.printout. My question is the process will suspend if a doc has marcos or password in it, because nobody will response the popup dialog. Anyone can suggest me how to answer the possible dialog and continue the print process? Thanks in advance. Tag: Figuring out how many lines are in a paragraph Tag: 34859
  - 3
    - Finding RTF docs based on user criteria I was wondering if there is a way to search through a file of RTF docs based on user criteria (from an Access form). There are hundreds of these RTF docs currently saved, but they are all in one folder. As an example, if the user picks "rr00f" as filter criteria, I would then look through every doc in the folder to find the ones that have that exact text anywhere in the body of the doc and then return each file name. Of course, the users will be picking many different values to filter by, so the actual number of docs that have their combination of values would be small. What do you think? Is this viable? I am clueless about the code to use to do this, but I imagine it could be very simple. Thanks again, Clint Tag: Figuring out how many lines are in a paragraph Tag: 34856
  - 4
    - Cycling through the Revisions collection In Word 2000, I have a subroutine to compare two documents and after comparing them, cycle through the collection and print any page with revisions. The trouble is it seems to get hung up on certain revisions when stepping through the collection and Word stops responding. Debug.Print statements show it gets hung up when the code tries to get the page number of a particular revision. The bare bones code, stripped down to its essence, is: Public Sub CompAndPrint(strDoc1 As String, _ strDoc2 As String) Dim objWordApp As Word.Application Dim objRev As Word.Revision Dim intLastPagePrinted As Integer Dim intCurrentRevPage As Integer Dim strPageList As String Set objWordApp = New Word.Application With objWordApp .DisplayAlerts = wdAlertsNone .Documents.Open FileName:=strDoc1, _ AddToRecentFiles:=False '1st document .ActiveDocument.Compare Name:=strDoc2 'compare with 2nd intLastPagePrinted = 0 For Each objRev In .ActiveDocument.Revisions intCurrentRevPage = _ objRev.Range.Information(wdActiveEndPageNumber) 'check if added to page list yet If intLastPagePrinted <> intCurrentRevPage Then intLastPagePrinted = intCurrentRevPage strPageList = strPageList & _ Format$(intLastPagePrinted) & "," End If Next objRev strPageList = Left$(strPageList, _ -1 + Len(strPageList)) 'remove last , 'now print .PrintOut FileName:="", Range:=wdPrintRangeOfPages, _ Item:=wdPrintDocumentContent, Copies:=1, _ Pages:=strPageList, PageType:=wdPrintAllPages, _ Collate:=False, Background:=False, _ PrintToFile:=False, _ PrintZoomColumn:=0, PrintZoomRow:=0, _ PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0 'close, don't save .ActiveDocument.Close wdDoNotSaveChanges End With objWordApp.Quit Set objWordApp = Nothing End Sub Tag: Figuring out how many lines are in a paragraph Tag: 34852
  - 5
    - despite certificate message '... contains macros ...' Hi NG, I developed some VBA macros that run with Word 97, 2000 and 2002. They are located in the startup folder as .dot files. All macros contain a signature (certificate) to avoid problems at the customers site. Normally the customer trusts my certificate, sets the corresponding options and everything is working fine, independant of the security options. Now there is a customer with correctly adjusted options, but at each startup of word the message '... contains macros. Macros can contain virusses ...' appears (translated from German). He has to acknowledge this by clicking on the 'Activate macros' button. With another customer of him exactly the same problem occurs. He installed his computers, what makes me think that it has something to do with an option that prevents the execution of this macro. But which? Security options: Security level High or Medium (doesn't matter) Trustworthy source registered (my certificate) Trust all installed add ins and templates marked Trust access to vb project marked Translated from German, the english terms may sound different. With exactly the same options it's running fine with other customers. All files double checked. Does anybody have an idea? I can't expect the customer to switch to low security level. TIA and have a nice day Thomas Thomas(at)Osthege(dot)de Tag: Figuring out how many lines are in a paragraph Tag: 34847
  - 6
    - Subscript and Superscript templates How can a subscript and superscript template be created like the one in MS Equation Editor 3.0? Thank you, Ajlan Tag: Figuring out how many lines are in a paragraph Tag: 34843
  - 7
    - How to search HTML source for bold tags and paste to word document? I know that I can search the P element (paragraph) from HTML source, but how to search only bold tags? Please help. Thanks. Eddie Tag: Figuring out how many lines are in a paragraph Tag: 34833
  - 8
    - Text box control in Word form Hello, I have a form in a Word template with a Userform. I want to display some information, which, when it is long, I want the user to be able to scroll and see. I dont want the user to be able to change it. Which is the control to be used? I tried textbox control, but if I set the Enable to Yes, user can edit. If I set it to No, it wont display scroll bars and he cannot see the complete information. I dont want to increase the size and make it multi line, it wont look nice on the form. Thanks in advance. Regards, Ravi Tag: Figuring out how many lines are in a paragraph Tag: 34822
  - 9
    - Word 97, Program Opening My Word 97 program now takes approx. 2 minutes to open and approximately another 2 minutes to open a file document. Originally it took just a few seconds. Once opened everyting appears to be normal with the exception of opening any saved file document. Tag: Figuring out how many lines are in a paragraph Tag: 34820
  - 10
    - How to Get Word From Dictionary in Word Hi I am designing a game in which i require a method so that i can get word from dictionary of word2000 using vba ,is it possible pls send the soln asap Tag: Figuring out how many lines are in a paragraph Tag: 34806
  - 11
    - An easy question (hopefully) about text length. Thanks! Folks, I am trying to determine programmatically the length (in inches, pixels or any distance measure) of a given text selection (or line). For example: THE QUICK BROWN FOX. . when typed in capitalized letters takes more screen space than. the quick brown fox . when typed in lower caps. Also, the bold version of it the quick brown fox .takes a little more screen space than the non-bold version.. The above is also true for text strings containing different characters. For example: Mmmmmmmmmm . takes more screen space than iiiiiiiiii So far I know how to get the length of a selected text (in characters) using the following line: Selection.Characters.Count Can someone tell me how to get the length (distance) of a given text line in the screen ? I don't care if it is in inches, pixels, or centimeters. Thanks in advance. JOCA Tag: Figuring out how many lines are in a paragraph Tag: 34779
  - 12
    - Writing data to Specific Cells??? Hi Folks, I'm trying to write data from cell calculation which updates automatically as part of a FOR loop into a specific range of cells. I would like to be able to read in a numeric value from a cell and loop round that number writing to cells M1 to M100 or so but all I can get is the data writing accross the row rather than down the col??? Here's what I have so far! Any Help Appreciated Private Sub CommandButton1_Click() Dim myRange As Range Dim myrange2 As Range Set myRange = Worksheets("Sheet1").Range("A110") Set myrange2 = Worksheets("Sheet1").Range("M1:M100") For i = 1 To 100 With Worksheets("Sheet1").Cells(114, i) If .Value = "" Then .Value = myRange End With Application.SendKeys (F9) Next i End Sub I was playing around with using myrange2 but had no luck :/ Cheers John Tag: Figuring out how many lines are in a paragraph Tag: 34771
  - 13
    - Invoking Word from Outlook: Autoexec Doesn't Exec When I invoke Word from Outlook, the AutoExec:Main module seems not to run (certain menu bars created by the AutoExec:Main module are not created. I planted a test <MsgBox "The Autoexec macro has run"> inside the AutoExec:Main procedure to test the theory and when I open Word via Outlook, it does not appear. Is this on purpose? Is there any way to cause the autoexec procedure to run when Word loads via Outlook? Other routines depend upon the stuff that AutoExec sets up. I get a runtime errors when I try to run other macros inside this scantily adorned version of Word. (I know that I can trap the runtime errors and recreate the necessary setting, but that seems to add needless coding to my add-in.) Thanks, Roy Tag: Figuring out how many lines are in a paragraph Tag: 34764
  - 14
    - Seeks Advice on VBA Literature. A few months ago I bought O'Reilly Press - Writing Word Macros, by Steve Roman, It served me quite well I've been able to use it to create company fax-sheets and formatting-macros for my own use. Last week I bought the SYBEX Publications' - VBA Developers Handbook, by Getz and Gilbert. But, it seems to be too far advanced. Is there a middle of the road book that will start me where the first book finished and lead me up to the second? Any advice would be appreciated. Regards DYLAN Tag: Figuring out how many lines are in a paragraph Tag: 34761
  - 15
    - Seeks Advice on VBA Literature. A few months ago I bought O'Reilly Press - Writing Word Macros, by Steve Roman, It served me quite well I've been able to use it to create company fax-sheets and formatting-macros for my own use. Last week I bought the SYBEX Publications' - VBA Developers Handbook, by Getz and Gilbert. But, it seems to be too far advanced. Is there a middle of the road book that will start me where the first book finished and lead me up to the second? Any advice would be appreciated. Regards DYLAN Tag: Figuring out how many lines are in a paragraph Tag: 34758
  - 16
    - How can I pass a Word VBA variable to an ACCESS Query SQL string? Hi I want to use the contents of a variable in a Word VBA module as a criterion to filter records in an Access database. A SQL string however does not accept variables. Passing the variable to a form in the Access database seemed like a possible option, but I do not manage to make it work. Does anybody have experience with this, or a suggestion for books that cover this ? Rudy Tirry Tag: Figuring out how many lines are in a paragraph Tag: 34755
  - 17
    - enable macros ? Everytime I close Outlook 2000 (running win XP), I am getting a visual basic error statement saying "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros." I have clicked "tools, macro, visual basic editor"...and it freezes Outlook. This problem just appeared out of the blue, and have not a clue as to the cause or how to fix. PLEASE HELP !!!!! Thanks Gregg Tag: Figuring out how many lines are in a paragraph Tag: 34754
  - 18
    - send data from vb to word hi, i'm from germany, and i try to explain my problem: i define a public class in vb and i can reference that class in word. but how can i put data from vb to word in the way like: call "wordmakro"(transferclass) or set word.class = vb.class? can you help me? until later eggert Tag: Figuring out how many lines are in a paragraph Tag: 34743
  - 19
    - Text Boxeses cant be converted hi all, I am developing a converter in vb which converts word document in html.I am using save as html option of word97. Everything is fine. But whenever any document is having text boxes. My converter does not convert it to html. Although i tried to convert text box in frames and tables and then converted the documnet to html.But this conversion distorts the appearence my document. If anyone can solve my problem I will be very thankfull. Tag: Figuring out how many lines are in a paragraph Tag: 34742
  - 20
    - Open files in another program, like pdf, xls or ppt Hi, How do I open a pdf-file using VBA? The name can vary. Following code works: Dim RetVal RetVal =3D Shell("C:\\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe=20 c:\test\123.pdf", vbMaximizedFocus) Follwing code does not work: Dim RetVal Const fPDF =3D "C:\Test\123.pdf" RetVal =3D Shell("C:\\Adobe\Acrobat 5.0\Acrobat\Acrobat.exe=20 fPDF", vbMaximizedFocus) What=B4s the solution? / Ulf Tag: Figuring out how many lines are in a paragraph Tag: 34739
  - 21
    - document processing ok, access database contains company names, addresses, document security keys document A is a company garauntee letter, 1 page document, has placeholders in it using the naming convention of [datafieldname], [date], [certificationcodekey], etc goal is to create document b, that has 1 page for every company record that is processed. so user gets a list of companies to choose from, selects all that they desire and press teh print letter key. the program should then: 1) open document a 2) create new document b 3) insert contents of a into b 4) read a record from the database 5) search and replace the placeholders with data from teh database and with program generated values 6) go to end of document b, insert page break return to step3 until no more records to process. when i try dim documenta as document set documenta = document.open ("GaraunteeLetter") i get either err 53, file not found or 429 activex cannot create the object. this is driving me nuts. thanks Woody Tag: Figuring out how many lines are in a paragraph Tag: 34738
  - 22
    - Last page update help Does anyone know how to (if it is even possible) have a different "page last updated" date on each page of a document. I am working on a "how-to" manual and would like each page to reflect the exact date that page was last changed. For example if the manual is 90 pages, and page 7 was last changed on March 23, 2002, and page 81 was last updated on January 16, 2001, is there a way to have each page show that information (and update the date automatically). The "last saved on " date reflects the date the entire document was last saved, I want each page to be able to reflect the date that specific page was last changed. THANKS! Tag: Figuring out how many lines are in a paragraph Tag: 34721
  - 23
    - "call" a document (file) into another document in a mail merge pr macro. I sthere a way to "call" a file, or document into a mail mere template or macro. I mail out some letter s from time to time. The basic document is the same but I insert one standard page into each document The info on this page changes often yet I do not want to have to change many documents which contain this page every time it changes. There are many diferent docs, all using this page. Much simpler would be to "call" this page into a document thereby allowing us to change it only one time as required. In word Perfect they called this "nesting documents" What is the command, if any in WOrd? Thanks Tag: Figuring out how many lines are in a paragraph Tag: 34719
  - 24
    - Table of Contents Creation Hello, I'm trying to make a macro create a TOC, but I do not want that TOC to use the normal Headings(Heading 1, through Heading 9). Instead, I wish the TOC to use a particular heading of my creation(It's called TOC). Creating the TOC by hand is quite simple in word, and I can deselct the Heading 1 through Heading 9, and have word only use my created "TOC" heading, however, getting the macro to do it isn't working. Thus far my code is this: With ActiveDocument .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _ True, AddedStyles _ :="TOC,1", LowerHeadingLevel:=1, UpperHeadingLevel:=1, UseHeadingStyles:= _ False, IncludePageNumbers:=True, UseHyperlinks:=True, HidePageNumbersInWeb:=True .TablesOfContents(1).TabLeader = wdTabLeaderDots .TablesOfContents.Format = wdIndexIndent End With What this does for me is create a TOC, but it ends up listing out both my created heading "TOC", and Heading 1. All I want to do is to get word to stop including the Heading 1. Any suggestions would be great. Fred Tag: Figuring out how many lines are in a paragraph Tag: 34711
  - 25
    - Setting and retaining a range Word2000 I would like to perform a search-replace within a selected range of text (as opposed to the whole document) and perform the same search repeatedly (within the original range) until the target text-combination no longer exists. (Specifically, "^p^p^p" to "^p^p", i.e., three contiguous paragraph marks to two.) I can't figure out how to retain the original selection (of course, the "original" selection changes internally with each pass of the search-replace). If you define a range as being the original selection, that named range no longer refers to the original selection (as altered) once the search-replace routine is run through the first pass. I tried defining the range by setting a bookmark at the beginning and one at the end of the original selection, but the search-replace routine destroys the end bookmark, so the orginally defined range can no longer be selected. Anyway, is there a foolproof way of defining the beginning and the end of the original selection, so the range can be reselected and the search-replace routine run till exhaustion? Thanks very much. Jay Tag: Figuring out how many lines are in a paragraph Tag: 34709
- Next
  - 1
    - avoiding password prompt when opening new document from a template I have a macro that creates a new document from a template file that is password protected against modification. When the macro goes to create a new file using that template, it prompts for a password, or to click the read only button. Is there some way I can automatically "click" the read-only button for the user with my macro? I am using the following method of creating the new document: Documents.Add Template:=template_folder & "\" & Switch.TemplateList.Value, NewTemplate:=False Any suggestions you have would be most appreciated!!! Christine. Tag: Figuring out how many lines are in a paragraph Tag: 34702
  - 2
    - Hiding text from a macro I've written a macro which visits each paragraph in a table cell and hides it or unhides it depending on its style. The macro works correctly, but is very slow. Each iteration of the per-paragraph loop appears to take a large fraction of the second, and the fractions add up. I'm trying to be rewrite the macro to eliminate the per-paragraph loop. One step in the rewritten macro is to hide or unhide the entire text of the cell. It isn't working. I can set the text's Font.Hidden property, but it has no effect. That is, VBA neither changes the text's Hidden property nor changes the contents of the window. (Nor does it gives me an error.) Here's an extract of the code: Dim msgRange As Range ' . . . Set msgRange = Selection.Cells(1).Range ' Select the cell. msgRange.MoveLeft unit:=wdcharacter,count:=1,extend:=wdextend ' Just the text in the cell. msgRange.Font.Hidden = True ' Hide everything. I tried hiding the text by hand (which works) and recording the operation in a macro. The macro does exactly the same thing I do, except that it operates on Selection instead of a Range variable. I tried hiding Selection.Range in the immediate window (executing the exact statement from the recorded macro) and THAT has no effect. Does anybody know what Word is doing to me, and how to work around it? My mail address is jsachs177 at earthlink dot net. Tag: Figuring out how many lines are in a paragraph Tag: 34698
  - 3
    - FileCopy Error 52 Bad FileName or number Hi I'm trying to copy a file from a source to a destination, but whatever I try, I get error 52 bad filename or Number. I use Filecopy and a generated string as destination, here's an example: Source = "D:\Projecten\Shell\SPDC\EDMS\test.txt" Destination = "D:\Projecten\Shell\SPDC\EDMS\test\DEE\DMP\CodeB\test.txt" FileCopy SourceFile, DestinationFile Can anyone tell me what I'm doing wrong here? Thanks Tag: Figuring out how many lines are in a paragraph Tag: 34695
  - 4
    - Document Map does not fire the XMLSelectionChanged even Hi, I find that if I navigate to text enclosed in an XML tag using the Document Map, the XMLSelection Changed event is not fired. This event does get fired if I navigate to the same location via a mouse click or by scrolling moving my cursor to that same location. Is this a known issue? When is it likely to be resolved? - Ranjit Tag: Figuring out how many lines are in a paragraph Tag: 34693
  - 5
    - Word Automation / Windows 2000 SP4 I have a program that uses word automation to open word, open a document, print a selected document, and closes word. Before I installed SP4 for Windows 2000, the following code worked flawlessly: Dim objWord Set objWord = CreateObject("Word.Application") objWord.Documents.Open strFileName, false, true, false objWord.Application.DisplayAlerts = 0 objWord.Application.ActivePrinter = "HP_printer" objWord.Application.PrintOut true,,0,,,,,1 objWord.ActiveDocument.Close false objWord.Quit Set objWord = Nothing In DCOMCNFG, I have Word set to run under the identity of Administrator, in order to have access to all network resources. This was on Windows 2000 SP3. Since I installed SP4 for Windows 2000, this Word automation does not work. Whenever I call the line in the above code 'objWord.documents.open ... " the program freezes and the word process hangs. The same happens if I try to run this code in a macro in Word VBA. Whenever it gets to the line that opens a file, and the file is on a shared network resource, it hangs. Again, this worked prior to SP4. Is there a new security setting in SP4? I have tried uninstalling Office, restarting, and reinstalling Office, but that did not work. Any help would be GREATLY appreciated. Thanks! Tag: Figuring out how many lines are in a paragraph Tag: 34692
  - 6
    - Need help getting entries from ToC I have some difficulties trying to extract entries form a Table of Contents in a Word document. What I want is, basically, to retrieve for each entry in a ToC the name (i.e. the text) of the entry and the point it's referring to (i.e. the name of the hidden bookmark). My first idea was to use the Paragraphs collection on the range of the ToC; but then I'm faced with the problem that, while it works quite well for all Paragraphs except the very first and very last, for both of the latter the Fields collection contains *all* the fields of the entire ToC, leading to a number of special case branches, which rely on a number of assumptions I made about the structure of the data in the collections in question. Consequently, I'm not 100% sure my solution is going to be water-proof in all cases; all in all I'm wondering (or rather hoping) that there is a simpler, more elegant and most of all more reliable method for accomplishing what I'm trying to do. If anyone here has any idea's, I'd be eager to hear them. Thanks. Tag: Figuring out how many lines are in a paragraph Tag: 34691
  - 7
    - Formating Text in Textframes I am able to use the for each - next method to run through textframes, and if a frame with a width greater than 200 is encountered I am able to set the left and right indentations. However, I can seem to be able to change the alignment of the text where the string "N/A" is found inside the frame. Am I going about this the correct way? This will let me set the indentation, and following it is the code I have written to try to select textframes with the string "N/A" Sub FormatTextbox() Dim shp As Shape Dim Sel As Selection ' Switch Screen Updating off Word.Application.ScreenUpdating = False For Each shp In ActiveDocument.Shapes ' Format Plain Textboxes If shp.Width > 240 Then shp.Select With Selection .ParagraphFormat.LeftIndent = CentimetersToPoints(0.25) .ParagraphFormat.RightIndent = CentimetersToPoints(0.14) .ParagraphFormat.Alignment = wdAlignParagraphJustify .Range.Font.Name = "Times New Roman" .Range.Font.Size = 10 End With ' [Following Code goes here] End If '[Following Code] Next shp End Sub ElseIf shp.TextFrame.TextRange.Text = "*[N/A]*" Then shp.Select With Selection ' Set text to centred alignment .ParagraphFormat.Alignment = wdAlignParagraphCenter .MoveLeft Unit:=wdCharacter, Count:=3 .TypeParagraph ' Set the font size to 10 .Font.Size = 10 .ShapeRange.Select .Font.Size = 10 End With Any help would be appreciated. Dylan Tag: Figuring out how many lines are in a paragraph Tag: 34689
  - 8
    - fonts Hi, how can I add a combobox that lists fonts intalled on my computer. Thanks in advance -- _________________________________________ Mitko Kostov ICQ#: 67068080 More ways to contact me: http://wwp.icq.com/67068080 _________________________________________ Tag: Figuring out how many lines are in a paragraph Tag: 34685
  - 9
    - Word97 to 2002 migration Hi, I work for a legal firm that is planning a roll out of XP in the near future. We have many Word97 documents which act as templates and make extensive use of VBA. I have 2 questions 1. Do I have to convert these 97 files or will this be done automatically by XP? 2. Are there likely to be any problems with the VBA elements of the documents. Thanks Andy Newland Tag: Figuring out how many lines are in a paragraph Tag: 34682
  - 10
    - Set word = nothing takes a looong time I have a VB6 app that uses vba against Word 2000. When I runs the line Set WordObj = Nothing it takes from 1 minut up to 10 minutes to get freed from memory. This problem has come as I have added some code to one of my procedures, I have added the following FilNavn = Mid(CStr(VisWord), 7, Len(CStr(VisWord)) - 6) WordObj.Selection.WholeStory WordObj.Selection.Copy WordObj.Documents.Add WordObj.Selection.Paste WordObj.ActiveDocument.SaveAs FileName:=FilNavn WordObj.ActiveDocument.Close WordObj.Selection.HomeKey Then I return to VB and does some code before calling another procedure that end Word: WordObj.ActiveDocument.PrintOut Background:=False WordObj.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges WordObj.Quit Set WordObj = Nothing It is the last line that takes up all my CPU and uses from 1 munute and up to complete. What can I do to speed this up, cos it is unbearable to sit and wait for it to complete and I use this a lot in my VB app? Regards Betina Tag: Figuring out how many lines are in a paragraph Tag: 34664
  - 11
    - FAQ - frequently asked questions - vba - please read before posting - unofficial - July posting FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted weekly.- more or less Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2002 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THIS --- <URL: http://www.mvps.org/word/FindHelp/Posting.htm> Reading this article will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at <URL: http://addbalance.com/word/index.htm> Newsgroup Archives: <URL: http://groups.google.com/advanced_group_search> MVPs FAQ site: <URL: http://www.mvps.org/word/> To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? <URL: http://addbalance.com/word/macrosfromnewsgroups.htm> or <URL: http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm> 2. What are some good books for me to read about Word? <URL: http://addbalance.com/word/wordbooks.htm> and <URL: http://www.mvps.org/word/Tutorials/BookRecommendations.htm> 3. How can I run a macro automatically when a document opens, closes, is created? <URL: http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm> 4. What is an MVP? <URL: http://www.mvps.org/word/AboutMVPs/index.html> and <URL: http://addbalance.com/word/mvp.htm> 5. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: <URL: http://addbalance.com/word/wordwebresources.htm#Forms> especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: <URL: http://www.mvps.org/word/FAQs/Userforms.htm> 6. Where can I find more information on the Web? <URL: http://addbalance.com/word/wordwebresources.htm#webvba> <URL: http://www.mvps.org/word/FAQs/MacrosVBA.htm> <URL: http://www.mvps.org/word/FAQs/Userforms.htm> <URL: http://www.mvps.org/word/FAQs/Customization.htm> <URL: http://www.mvps.org/word/FAQs/OfficeInterdev.htm> Comments / corrections / additions may be sent to wordfaq@addbalance.com Posted 2 July 2003 Charles Kenyon (the editor) Tag: Figuring out how many lines are in a paragraph Tag: 34655
  - 12
    - Paragraph Styles for Text in All Cells I need to insert the name of the paragraph style in front of the text that is in the cells of all the tables in a document. This is how I did it for the regular text in a document: Dim ParSty As String ParSty = Selection.Paragraphs(1).Style Selection.Range.InsertBefore "{" & ParSty & "}" Do Until Selection.Paragraphs(1).Style = "END" Selection.MoveDown Unit:=wdParagraph, Count:=1 ParSty = Selection.Paragraphs(1).Style Selection.Range.InsertBefore "{" & ParSty & "}" Loop It works fine, but I'm not sure how to do the same thing for tables. Can anyone help me? Thanks. Jerry Tag: Figuring out how many lines are in a paragraph Tag: 34645
  - 13
    - Blank line suppress in Word Automation I have code that merges access xp data into word templates by setting the values of Word document custom properties. The word templates have fields referencing the name of the custom properties For address info in the access db I have two possible field for address. Typically both have records for say people in an apartment, but for home address typically one, the second field, is null. When the custom properties are set through automation, however, a blank is left where that custom property is referenced. Any ideas? Thanks. Tag: Figuring out how many lines are in a paragraph Tag: 34641
  - 14
    - Input box. I have an input box that I am using in a macro that requires the user to input an age between 18 and 65. I made it so they could only input ages in that range by using a loop with <>. And that works fine. If they input 15, it just loops. However, if they accidently try to input anything but a number (i.e. the letter a) they get a mismatch error. Is there some way for me to write code that will allow them to input ONLY numbers. I'm hoping for something similar to what I've done already (just to loop until they put in a number between 18 - 65.) Thanks for looking at this. Elaine Johnson Tag: Figuring out how many lines are in a paragraph Tag: 34638
  - 15
    - Project organizer bug with user forms BUG REPORT BUG: There is a bug in the Word 2000 Project Organizer (accessed by opening the templates and add-ins window, clicking "Organizer", and clicking the "Macro Project Items" tab) that causes problems when user forms are transferred between an external template and the Normal template. ERROR MESSAGE: If the user form was transferred to the Normal template with the project organizer, when the user form is run, the error message "Run-time error '5981': Could not open macro storage." is displayed. ERROR OCCURRENCE: Specifically, I received this error when I tried to run the Find Symbol dialog box, which was provided in the sample macros supplied by Microsoft (Macros9.dot). I had transferred this user form and the subroutine that loaded it using the project organizer, as suggested in the Macros9.dot file. When I received this error message, I first tried retransferring the user form and subroutine. This did not change anything, so I tested the code subroutine by subroutine to pinpoint the location of errors. I found that certain bookmark instructions were causing errors, although there were no errors when I ran the user form from the external template. SOLUTION: I opened the template, and then in the Visual Basic Editor I opened the project explorer. I dragged both the user form and the subroutine that loaded it from the Macros9.dot template to the Normal template. The Find Symbol user form ran fine after this. POSSIBLE CAUSE: The project organizer may have messed up some of the code of the user form when transferring it, or not transferred some information needed to run it. This appears to be a bug in project organizer. Tag: Figuring out how many lines are in a paragraph Tag: 34634
  - 16
    - Word: Hiding some elements when printing Hi, To the Word template I have to put some elements that should be hided when I print the document. For example, the text block with the number of the document - if the field "number" is empty, whole block should be hided in the print version. Second example - the background vector picture that should have optional preference - hide/show when printing. Thank you in advance. Tag: Figuring out how many lines are in a paragraph Tag: 34629
  - 17
    - searching is leaving line's on the screen if any one can help, it would be grate. My macro is searching through an open word document, while is searching is leaving line's on the screen! even whith ScreenUpdate to False nothing is change. I don't wont those line to apear while the search is going on. can any one tell me if this can be deal whith? An how? Thanks Tag: Figuring out how many lines are in a paragraph Tag: 34628
  - 18
    - Cannot change link to an excel source file in my word doc I am trying to use sourcefullname to change the path and name of an excel file that is linked throughout my word doc. Everything I can find tells me that sourcefullname is a read/write string, but I cannot get the change to take. It goes through the motions, but when I check the source files in the Links window, it is still referencing the old file. I have written my own macro using sourcefilename and used a version from the ms web site (modified for word/excel vs. powerpoint/excel), neither one works. In fact, both macros often crash Word about 3/4 of the way through the process. (There are 30+ links that have to be changed.) If I step through the macro it doesn't crash. Any suggestions? Tag: Figuring out how many lines are in a paragraph Tag: 34618
  - 19
    - Digital Certificates I write simple Word Macros for customers to attach to templates these are called when the template is opened and a new document is created using mail-merge etc. All of this works fine if I set the security to LOW. I have tried to follow through MicroSoft how to obtain a digital signature but get totally confused. Where can I get a Digital signature and allow my customers to run the security at high. I am based in the UK. Thanks in advance for any help. Graham Tag: Figuring out how many lines are in a paragraph Tag: 34616
  - 20
    - Differentiating ToC hyperlinks? When I retrieve the 'Hyperlinks' collection from a document, this collection also contains any hyperlinks that might be automatically generated as part of a ToC in the document. Now, since I'd like to handle ToC entries seperately from "ordinary" hyperlinks in the main body of the document, I'd like to know if there is a simple way to differentiate between a ToC link and a non-ToC link. Thanks in advance. Tag: Figuring out how many lines are in a paragraph Tag: 34615
  - 21
    - keeping the Selection.Find.Found property Dear experts, I want to implement a loop to find certain strings within two documents alternatively AND have a condition to exit the loop. The intention is to figure out, if a certain type of string, found in the first document, is present in the other, continuing so until the end of the former document is reached. As far as I have got, this requires the command sequence Selection.Find.... .. Selection.Find.Execute (now a string behind the selection is read out and put into a variable) Windows(<second window>).Activate Selection.Find.Text = <variable> ... Selection.Find.Execute Windwows(<former window>).Activate (write the page number of the found string into the first document) all embedded within a loop Now, since the method Selection.Find... must be used in both the documents, the loop exit condition Until Selection.Find.Found = False does not work in the first document, neither the .Find.Execute boolean. How can the Selection.Find.Found Property be kept for one document, although I utilize a Selection.Find method also in the second? By moving the search in the second to a certain subroutine? Best regards and thank you Martin Tag: Figuring out how many lines are in a paragraph Tag: 34611
  - 22
    - Word Automation question Hi, What i want to do is take some html from a webpage and insert it into a word document on the server using asp/vbscript and ole automation. Ideally i would like to keep the webpage formatting and let word format the html. When i try and insert html into the word doc all the html tags appear on the page which is not what i want to happen. I also need to insert images so need a way of pulling images from a webpage into the document from an <img src=""> tag. Thanks in advance Dan Tag: Figuring out how many lines are in a paragraph Tag: 34610
  - 23
    - File dimensions TIF images I have code that extracts the file size (width/height) for jpg, gif and bmp but we have a new scanner and I want same info for tif images. Does anyone know of any functions please? I am trying to insert images into a Word document for saving to the web as XML and I need to change the page format from portrait to landscape if it is a landscape image. Tag: Figuring out how many lines are in a paragraph Tag: 34603
  - 24
    - Missing toolbars and menub bars Hi All, I have a macro written in VBA that opens a document, does a mailmerge and then displays the resulting document to screen. The problem is that when the document is displayed there are no toolbars and no menu bars. I assume that there is something fundamental that I have not done. Anyone with any ideas? The code below shows the basic steps that are in place, obviously this is not everything that happens. Documents.Open FileName:=DocDir$ + DocName$, _ ConfirmConversions:=False, _ ReadOnly:=True, _ AddToRecentFiles:=False, _ PasswordDocument:="", _ PasswordTemplate:="", _ Revert:=False, _ WritePasswordDocument:="", _ WritePasswordTemplate:="", _ Visible:=False Documents(MainDoc$).MailMerge.Execute Documents(documentNameToClose).ActiveWindow.WindowState = wdWindowStateMaximize Thanks in advance, Steve Tag: Figuring out how many lines are in a paragraph Tag: 34602
  - 25
    - simple question Dear felleows, I'm new to word programming, so my question may be simple. I have a report that contains the sentence "The result is" then I have to write a calculated number after this sentence. How can I do it with VBA? I know how to calculate my number but I don't know how to put it in the right place in the document. Thanks Tag: Figuring out how many lines are in a paragraph Tag: 34594

Is there any way to programmatically determine how many lines are in a
paragraph? In addition, is there any way to determine what page(s) a
paragraph lies on, and how many lines of text (not including header and
footers) lie on a given page of a document?

Thanks...

Dan

Top

Re: Figuring out how many lines are in a paragraph by Doug

Doug
Mon Jul 07 22:31:42 CDT 2003

Hi Dan,

See the Selection.Information property. You can use it with the .Range
object as well so set a range equal to the paragraph to get the first line
number, then set the .Start of the Range equal to the .End of the Range to
get the line number of the last line of the paragraph.

Do the same sort of thing with the .Range of the \page bookmark. In this
case though, the line number of the first line will always be 1 so it is
only necessary to determine the line number of the end of the .Range.

Please respond to the newsgroups for the benefit of others who may be
interested.

Hope this helps
Doug Robbins - Word MVP
"Dan" <dan@dontspamme.com> wrote in message
news:ugczBMKRDHA.2636@TK2MSFTNGP10.phx.gbl...
>
> Is there any way to programmatically determine how many lines are in a
> paragraph? In addition, is there any way to determine what page(s) a
> paragraph lies on, and how many lines of text (not including header and
> footers) lie on a given page of a document?
>
> Thanks...
>
> Dan
>
>

Top

Re: Figuring out how many lines are in a paragraph by Helmut

Helmut
Tue Jul 08 03:17:52 CDT 2003

Hi Dan,
try this and change it according to your needs:
Public Function FncLinesInSelection() As Integer
Dim z1 As Integer
Dim z2 As Integer
z1 = Selection.Information(wdFirstCharacterLineNumber)
Set rngTmp = Selection.Range
rngTmp.SetRange _
Start:=rngTmp.End - 1, End:=rngTmp.End - 1
z2 = rngTmp.Information(wdFirstCharacterLineNumber)
FncLinesInSelection = z2 - z1 + 1
End Function

Sub testx()
MsgBox FncLinesInSelection
End Sub

Greetings from Bavaria, Germany
Helmut Weber

Top