An easy question (hopefully) about text length. Thanks!

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34771
  - 2
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34764
  - 3
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34761
  - 4
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34758
  - 5
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34755
  - 6
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34754
  - 7
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34743
  - 8
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34742
  - 9
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34739
  - 10
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34738
  - 11
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34721
  - 12
    - "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: An easy question (hopefully) about text length. Thanks! Tag: 34719
  - 13
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34711
  - 14
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34709
  - 15
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34702
  - 16
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34698
  - 17
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34695
  - 18
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34693
  - 19
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34692
  - 20
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34691
  - 21
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34689
  - 22
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34685
  - 23
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34682
  - 24
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34664
  - 25
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34655
- Next
  - 1
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34645
  - 2
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34641
  - 3
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34638
  - 4
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34634
  - 5
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34629
  - 6
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34628
  - 7
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34618
  - 8
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34616
  - 9
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34615
  - 10
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34611
  - 11
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34610
  - 12
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34603
  - 13
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34602
  - 14
    - 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: An easy question (hopefully) about text length. Thanks! Tag: 34594
  - 15
    - Retrieving external data into Winword form field I have created a form that we will use for proposal creation. I would like to have dropdowns in the description fields which contain the proper descriptions for our every changing inventory. How to I retrieve external data into a winword template for use in such a scenario? Examples would be hugely appreciated. Thanks Allen Tag: An easy question (hopefully) about text length. Thanks! Tag: 34583
  - 16
    - Lookup MS Access table from MS Word Is it possible to build a lookup field on a Word document and looking up that index field in a MS Access table, returning row entries? e.g. Enter "101" in customer field of a Word document, looking up "101" in a MS Access "CustomerTable" and returning "101", "ABC Store", "1400 Broadway", etc in MS Word. Can anyone be kind enough to provide a link to a site that shows how this is done? many thanks! Tag: An easy question (hopefully) about text length. Thanks! Tag: 34580
  - 17
    - Table creation I looking for examples of VB that can create tables from the document text. The document text is outline numbered 4 levels deep. Some of the lines in the text are have a unique character style applied to them "Requirement". I looking to creat some VB in word that would build a table at the end of the document. This table would contain one row for each Line in the text mark with the "Requirement" character style. The rows would contain the Text line in one column and the paragraph outline number in another column. Some thing like this, in a table: Paragraph number Text Line 2.2.4.1 Requirement 1 2.3.1.6 Requirement 2 Are there any examples that I can look at the do something like this. Thanks Tag: An easy question (hopefully) about text length. Thanks! Tag: 34579
  - 18
    - ActiveDocument.FitToPages I have a multiple page Word document. The VBA that creates the doc puts a page break in between the sections of the doc. Each section needs to fit on one page, but it often grows to two pages. I want to use ActiveDocument.FitToPages or something like it to cause everything between my page breaks to get formatted (font size or margins, it doesn't matter) so that section fits on one page instead of two. The ActiveDocument.FitToPages method is designed to evaluate your entire doc and works great if you have a two page doc. But if you have a document of say 20 pages that needs to be 10 (one page per 10 "sections"), is there a different method that takes the hard page breaks into account? Additional info: These are not true section breaks. They are just page breaks. This document is a set of letters that get mailed out. The code that generates the letters is not a mail merge. The letters are created from a VB.Net routine that uses a dot file to create a new doc, fill in some custom tags, insert a page break and loop to the next person in the dataset. Tag: An easy question (hopefully) about text length. Thanks! Tag: 34575
  - 19
    - Calculate a due date in Word 2000 I'm trying to do the following in a Word merge: I'm trying to calculate a due-by date for court filings by having Word subtract 7 days from a court hearing date entered through a merge prompt. The hearing date is from a list of specific dates published by each of 3 different courts. The merge prompts for a hearing date through a {fillin} field I need to find how to have the merge itself calculate a due-by date that is 7 calendar days *prior* to the hearing date (it doesn't have to account for weekends, holidays, or anything like that). For instance, in response to the merge's prompt, I enter a hearing date of 7-31-03. I want to have the merge output the date of 7-24-03 with the formatting being MMMM d, YYYY. I already know how to format the date output with the \@ switch. So, the output would be: "The hearing date is June 31, 2003, and the due-by date is June 24, 2003." Just for test purposes I threw the following together (obviously, {}will actually be merge fields) {set testdate{fillin "Enter the Hearing date."}} {set duedate{ =({testdate} - 7)}} The hearing date is: {testdate \@ "MMMM d, YYYY"} The due date is: {duedate \@ "MMMM d, YYYY"} entering this into Word with actual field codes and running the little routine correctly prompts for the hearing date, but the due date displays as -34. I'm almost **certain** I've seen how to do this SOMEWHERE before, but I just can't remember where or what the field coding was!! Is it maybe something involving converting the input date to a serial-date format or something???? To be sure, I *could* just have the user enter the hearing date and then also prompt for the due-by date to be entered, but I'd rather cut down on the entry of extra data if possible! I *can't* go the opposite route, having the user enter the due-by date and then just adding 7 days, as the hearing dates are *very* specific. I need to do this from within Word itself. Is there maybe a freebie add-in or something??? Help??? Mucho-mega-thanks! Brian Tag: An easy question (hopefully) about text length. Thanks! Tag: 34572
  - 20
    - Execution Error "5" On my previous message, I forgot to mention that since I have started experiencing this problem, I no longer have menu bars in Word ... therefor am unable to do very much in terms of modifying or doing much else than type documents. Even to save I must exit the program and then answer yes to saving the document. I am no longer able to access even the Option menu !!!! Extremely frustrating and counterproductive. Also I have pperformed a virus scann and that turned up negative. Also, I have not found any reference to error % on the KB ... both French and English Any help will be greatly appreciated Thanks in advance. Tag: An easy question (hopefully) about text length. Thanks! Tag: 34571
  - 21
    - Execution Error "5" On my previous message, I forgot to mention that since I have started experiencing this problem, I no longer have menu bars in Word ... therefor am unable to do very much in terms of modifying or doing much else than type documents. Even to save I must exit the program and then answer yes to saving the document. I am no longer able to access even the Option menu !!!! Extremely frustrating and counterproductive. Also I have pperformed a virus scann and that turned up negative. Also, I have not found any reference to error % on the KB ... both French and English Any help will be greatly appreciated Thanks in advance. Tag: An easy question (hopefully) about text length. Thanks! Tag: 34570
  - 22
    - Get section number Hi Is it possibility to get current section number ? I thing on getting current section number, there the cursor is current standing in the document /Jan Tag: An easy question (hopefully) about text length. Thanks! Tag: 34567
  - 23
    - Execution Error "5" message when accessing Word Whenever I access Word or any Word documents, a Visual Basic dialog box gives me the above error message. I have dis-installed and re-installed word and still nothing happens. The only new programs that were installed at least 3 weeks prior to getting this problem, were MemoKit designed to speed up my computer and Secure IE and Private IE from McAffee to get rid of spam.The people from MemoKit tel me that their program does not interfere with any programs. Can anyone help ? Tag: An easy question (hopefully) about text length. Thanks! Tag: 34566
  - 24
    - saving a protected template I need to be able to save a protected template as a word document and then be able to open it and modify it. The document has several macros, i need to save it in the same directory it was created in and once i reopen the document I don't want the macros to run. Is there any way to do this? Tag: An easy question (hopefully) about text length. Thanks! Tag: 34565
  - 25
    - VB 6 and Word 2000 I have a VB 6 application that has an embedded word document that has a table embedded. When we were running Office 97, we were able to scroll the word document. Now that we are running Office 2000, we are not able to scroll. Any ideas why? Tag: An easy question (hopefully) about text length. Thanks! Tag: 34562

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

Re: An easy question (hopefully) about text length. Thanks! by Madhukar

Madhukar
Sat Jul 05 02:17:54 CDT 2003

HI JOCA,

you prblem is not clear.
You want to get the distance of you text in screen or from
some location of document.
coz measuring distance in screen and in document is
different.
With regrds madhukar

>-----Original Message-----
>(Since this newsgroup seems more appropriate
than .Customization, let's
>continue here)
>
>> Can someone tell me how to get the length (distance) of
a
>> given text line in the screen ?
>
>Hi JOCA,
>
>Look up the Information property in the VBA help.
>But: What do you need that information for? There might
be an easier way
>(for example to fit text to a certain width).
>
>Greetings,
>Klaus
>
>.
>

Re: An easy question (hopefully) about text length. Thanks! by Helmut

Helmut
Sat Jul 05 04:36:12 CDT 2003

Hi Joca,
you might try this:
Select the text.
Start a Makro that:
1. puts the text in a variable
2. collapses the cursor to the left.
3. Get Selection.Information(7) ' eg. into pos1
4. search for the text
5. Collapse the cursor to the right.
6. Get Selection.Information(7) ' eg. into pos2
pos2 - pos1 is the width of the selection,
if the selection restes on one (!) line.
pos2 - pos1 is the textwidth in Twips
20 Twip = 1 Point, 72 Point = 1 Inch
Greetings from Bavaria, Germany
Helmut Weber
(using Word 97)
wdHorizontalPositionRelativeToTextBoundary = 7 !!!