how to calculate string width

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Remove "Paste" symbol In your next updates to Word, you should strongly consider removing the paste symbol (icon) after a paste action has been performed. I don't see where its value compensates for its annoyance. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=f0b71c20-20c6-4736-ad4e-5a45cf9f6677&dg=microsoft.public.word.vba.general Tag: how to calculate string width Tag: 79396
  - 2
    - north west passage hey yo man get my keys here now i need them for my new range rover. Tag: how to calculate string width Tag: 79395
  - 3
    - How to add an IF statement to Macro I have a Word 2002 document produced from an external application with many Equation editor objects. However, the equations do not properly line up with the other text on the line. If I select an equation and open the Equation editor then close it without making any changes, the misalignment gets corrected. I need a macro to go through the document and for each Equation Editor object, open Equation Editor and close it. I recorded a macro to do this with Find ^g. (I did get help with the SendKeys to close the application). It works OK until it finds a graphic which is not Equation Editor then halts. I think I need to add something like this: If .Type = msoLinkedOLEObject Then If .OLEFormat.ClassType = "Microsoft Equation 3.0" Then But I cannot figure out where and how to do this. Your help is greatly appreciated. Sub OpenCloseEqEd() ' ' Macro recorded 2/4/2004 Application.DisplayAlerts = wdAlertsNone Selection.Find.ClearFormatting With Selection.Find .Text = "^g" .Replacement.Text = "^&" .Forward = True .Wrap = wdFindContinue Do While .Execute Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=1 With Selection.Application SendKeys "%fx", True End With Loop End With End Sub Tag: how to calculate string width Tag: 79394
  - 4
    - Rights Managment issue Hi, pardon my ignorance, but in updating to office 2003, I now get a pop-up message regarding Rights Managment. I am unable to even print preview the document. Can this managment be turn off ? Thank you Tag: how to calculate string width Tag: 79391
  - 5
    - Parsing Fields in VBA code I have a document that will have fields inserted by the user. Somehow I need to allow the user to insert text in these fields that is freeform, the only way I guess this can be done is via the fields add method. Assuming I can do this in code, and set the user text as the QUOTE section of the field, is there some means that I can later parse the document for a given field code, and then strip out the QUOTE text in code? Tag: how to calculate string width Tag: 79389
  - 6
    - Convert WP .frm with Perfectscript to Word file I have several WP .frm files with Perfect script code and I need to re-create them as Word files that will do the same thing. I don't really know where to start in Word. Any suggestions/recomendations on how to go about this? Tag: how to calculate string width Tag: 79388
  - 7
    - Automation Error Small Business Edition I have a client running Office 2003 Small Business Editon. I loaded Payne Metadat Assistant. Got automation error. Their tech support says Small Business edition does not support automation. Is this true? How am I supposed to know this - is there a document somewhere that says which versions support automation? Is there any way to install automation? Thanks! Jeffrey M. Gagen Tag: how to calculate string width Tag: 79385
  - 8
    - Modify Filename Field I'm trying to pull only a portion of the document filename field, but I would like it to remain in Feild format so that it remains dynamic. Basically we have a document managment system that assigns numbers automatically. I would like to capture just the document number and version which is placed into the wdFieldFileName information, not the entire filename. This way if the User copies to a new document number, the number doc number will be displayed dynamically. ~Lori Tag: how to calculate string width Tag: 79378
  - 9
    - Sum calculation Hello, I am using Word 2000, and I have a protected document that I use as a cheque requisition form. I would like the total box at the bottom to auto sum the amounts being entered in the boxes above without having to right click on it, and click on 'Update Field'. It always used to work like this, but when I unprotected it once to change the year, it has never worked since. Can this be done and if so, how? Many thanks, Chris Tag: how to calculate string width Tag: 79377
  - 10
    - Can't see my macro in toolbar on some machines Hi. I have a .doc file (word 2002) that basically creates a copy of itself with a module I have created. Some fields have been merged with a database. I'll refer to the copy as B. BUT ... in doc B, I get the macros to show up on a toolbar from the original copy on some workstations. They also do not exist if I try to add the macro by customizing the toolbar. Though if I go into the code on B document - the macros are there. I have set the security to low and it doesn't help. How do I get these macros to show up on the 2nd document? Any suggestions appreciated....need these sent out today. Thanks in advance. Lesley Tag: how to calculate string width Tag: 79374
  - 11
    - Best Control for list of records in Access I want to do a query on a table based on the last name selected from a combo box. So the after update on the combo box should use the value as a part of a query. I dont know what control I should use to list the results of a the query. Ive read that you cant bind a listview to data (query). I want to be able to click on the record in the result set I want and have the id of that record populate a control on the form. So what control can I use that will allow me to click on a record in a list and grab the value of a column in that list? Any examples of creating a query and using that query to bind to a control? Im on Access 2003 on Win2k3 server. Thank you for your time. Tag: how to calculate string width Tag: 79370
  - 12
    - Deletion of Empty Page in the Word Document through VBA Hi all, This is to request for your help in this MS Word issue. In the VB application we are required to copy and paste temporary documents (containing text, pictures, etc) into a single, final word document. The main document contains tables and the issue is related w.r.to tables. In the current application, the .rtf file is formed from the html file. While copying, the blank pages get inserted in the document if the control is in the â??last but oneâ?? row of a table and sometimes if the control is in the last row during document generation process. This causes the extra page in the document and page numbers are counted for this. We are working on Windows 2000 Server as our OS. In the existing code, section breaks (Next Page) are used. I am trying to scan each and every page and finding if any empty page is there. If so, I have planned to pass the delete key to delete the empty page. Could you provide any pointers as how to go about this? I need to scan each and every page of word doc and need to find if any blank page is there. If so I need to delete the page programmatically. Any help in this issue would be greatly appreciated. Regards, Kiruthiga.S Tag: how to calculate string width Tag: 79366
  - 13
    - Document Properties - vbscript Looking for a way to read document properties for a Word Document. In particular I want to be able to read the "revision number" -- . Tag: how to calculate string width Tag: 79361
  - 14
    - Finding version of word used to create document Where is the version of Word used to create a document stored in the Word object model? It's not Application.Version - this is the version used to read it. Simon Kravis Tag: how to calculate string width Tag: 79357
  - 15
    - Not able to recording macro for mail-merge Hallo, I need some help for a macro code ... we've a lot of Word2000 mail-merge templates originally connected to a .dbf file where in a textbox is possible put the number we're looking for , now we've to move to Word2003 and the new source will be a SQL file with the same structure At the moment we use a code like this: ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord Set myMMData = ActiveDocument.MailMerge.DataSource If myMMData.FindRecord(FindText:=TextBox1, _ Field:="COLLAB") = True Then myMMData.QueryString = _ "SELECT * FROM `COLLABORATORI` WHERE ((`COLLAB` = '" & TextBox1.Text & "'))" With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .MailAsAttachment = False .MailAddressFieldName = "" .MailSubject = "" .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=True End With Unload Me Application.ScreenUpdating = True Else MsgBox ("Codice non trovato !!!") -- I tried to record the piece of code to be replaced in the existing macro but I wasn't able to ... Thanks in advance for your help Regards, Alberto Simone Tag: how to calculate string width Tag: 79356
  - 16
    - Mac Preferences folder location - finding from VBA I'm porting a large VBA project to the Mac, and most things seem to be working just fine. In my Windows project, i use a .INI file to store settings. My installer creates that file in the Windows folder, calling a system function to retrieve the location of the Windows folder. On the Mac, I want to store the same file as a settings file in the System Preferences folder. How do I call into the Mac OS to find the path to use for the preferences folder? Thanks in advance g Tag: how to calculate string width Tag: 79342
  - 17
    - Fields in header and update using VBA Hello all, I'm trying to automate some fields in the header and footer by making a VBA userform and having it plug into document. While I can use document vars to plug in values in the regular bodytext and use activedocument.fields.update to show the new values, this won't work for header and footer fields. I would need to view the header and footer and refresh manually with F9. Any suggestions? Thanks Tag: how to calculate string width Tag: 79340
  - 18
    - template keeps locked very strange? Hello, I have a macro in a dot file that runs when I open a document with that network template (g:\wmv\r6.dot) attached. The dot file is on a network and I want to copy it local so the network template isn't locked when a user has a doc open with that template attached, so it can be changed. It works fine and the local template is attached. But the network template keeps locked with a tilde (~) before it so the doc keeps two templates locked, the local (as expected) and the network template. Is there a way to release the " ghost" attached network template? Below a example of the code: Sub AutoOpen() WordBasic.CopyFileA FileName:="G:\WMV\r6.dot",Directory:="c:\temp\r6.dot" ActiveDocument.AttachedTemplate = "c:\temp\r6.dot" End Sub Thanks a lot Tag: how to calculate string width Tag: 79336
  - 19
    - Form Automation I am tring to create a form that will check or uncheck a box next to a signature line to indicate if the signature is required or not. I have several fields that are calculated. The best I can do is using another field with a formula in it like "=OR(OR(euro_total>0,swan_total>0),genus_total>0)" this results in a 1 or a zero. I would rather have this as a checked or unchecked box. Any ideas? Right now I am assuming I need to use VBA for this hence my previous post. Tag: how to calculate string width Tag: 79334
  - 20
    - Need to learn VBA for Word Looking for a book or resource that would "really" help users learn how to program VBA for word. I have been to Barnes and Noble and came away frustrated. The books I found talked about various vba subjects but did not explain it in simple terms and supply a list of vba commands that could be used. For the benefit of all of us can a suggestion be made for the Beginner, Novice, Intermediate, and the expert. Suggestions please. Tag: how to calculate string width Tag: 79332
  - 21
    - Finding which cell in a table I am using WORD upwards, please can someone help me with some code which sets as an integers the table number, row number and cellnumber is the activecell? Mark Tag: how to calculate string width Tag: 79330
  - 22
    - Copying data from one table to another Hi there, I have been tasked with setting up an Access database to track 4 similar (but different) entities. Under certain circumstances entities B & C could metamorphose into entity A. Is it possible in Access 2002 to have a button on an input form that will replicate most (but not all) fields from entity B (or C) over to the table containing entity A? Entity A will be indexed via an auto-number â?? will this add extra complexity when trying to copy other entities over to it? Iâ??m familiar with database theory & basic Access but havenâ??t previously designed & implemented a dbms in Access. Any responses gratefully received Regards Phil Tag: how to calculate string width Tag: 79318
  - 23
    - Is the bullet of a list considered to be a range? Is the bullet of a list considered to be a range? And how do I check if a certain range is actually the bullet of a list? Tag: how to calculate string width Tag: 79314
  - 24
    - word 2003 bookmark/data extraction - new functionality In prior versions of Word (pre-2003), users have created word templates with bookmarks. They enter value into the bookmark range. Then we have a program that extracts the bookmark range value and we use that data for other things. Does Word 2003 offer any other functionality that would replace this? Tag: how to calculate string width Tag: 79313
  - 25
    - inheritence Hey guys.. I have been working on this for about 4 hours and got nowhere.. How can I stop word tables from inheriting previous styles set... Fopr Example I set a proeprty SpaceBefore from a range object for a cell to 6... Then all the other cells in that column inherit that value.... Could someone tell me why and how to fix this... thanks nathan Tag: how to calculate string width Tag: 79312
- Next
  - 1
    - border Hey list, I am trying to set a border for a couple of rows in my table My table has 4 columns and x rows.... the code below will only yield a a border on the bottom row of the table.... how can is et particular border for particular rows.... so far I have tried this WordRow.Cells.Item(1).Range.Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle WordRow.Cells.Item(1).Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle WordRow.Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle WordRow.Range.Borders.Item(Word.WdBorderType.wdBorderBottom).LineStyle = Word.WdLineStyle.wdLineStyleSingle I have also set the BorderWidth Property and visible property and color property... When I open up my document there is only a border on the bottom table row.. any help would be appreciated thanks... nath Tag: how to calculate string width Tag: 79309
  - 2
    - MS-Project VBA Question Hi NG , I am new in the field of VBA and have a question / problem. In one project file I defined a field ( customized field Number 13 ) and renamed it as "StatDur" and entered a formula there in. With VBA I want to read out the contents of this field and display it via MsgBox. Ihave entered following code num = Application.CustomFieldValueListGetItem(pjCustomTaskNumber13, pjValueListValue, 3) Syntax is : Ausdruck .CustomFieldValueListGetItem(FieldID, Item, Index) Thats my code entered in VBA ( as above ): num = Application.CustomFieldValueListGetItem(pjCustomTaskNumber13, pjValueListValue, 3) I want to store the contents of this field from row 3 in num and want to display it via MsgBox. It wont work since the VBA-Editor brings a failure where I am entering the row number 3 as Index and I dont know why and how to solve this problem. Can onyone give a helping hand. Thanks in advance Gruß -- Cevikel Tel. : 0911-433-6329 mailto:halidun.cevikel@siemens.com Tag: how to calculate string width Tag: 79308
  - 3
    - I would like to add hebrew lanquage to my translation list I would like to add hebrew lanquage to my translation list Tag: how to calculate string width Tag: 79303
  - 4
    - Protecting and unprotecting form fields I have a form that I saved as a template, so that I can insert it into various documents. I have written code that inserts this form using a macro that does that and also opens a userform. The form has bookmarks and form fields with options and drop downs that only work when the form is protected. I need the form unprotected so that I can insert information from the userform into specific bookmarks, but then need it protected after that, so the form field options and drop downs will work. Is there code I can run in the userform when the form is inserted that will unprotect it until the infomation is sent to the bookmarks, and then code I can run to protect the form so the form field options and drop down will work when I exit the userform, or do I have to manually open the toolbars from the [View] [Toolbars] [Forms] menu? Thanks! -- Bill Tag: how to calculate string width Tag: 79301
  - 5
    - Finding Out What the Current Section Is For the life of me, I can find a way to determine what section of the document the current selection is in. It seems like a simple task, but somehow, I just can't seem to get the syntax right. I'm using a macro to build a document, and I want it to do one thing if the current selection is in Section 2 of the document and something else if it isn't, as in: If Current Section = 2 then Do one thing Else Do something else End If I need this macro to work in Word 2000, XP, and 2003. (We can't seem to get everyone on the same version.) Any help that you can give will be most appreciated. Larry Tag: how to calculate string width Tag: 79300
  - 6
    - call to a DOS command from VBA I am new to VBA I need help with calling a DOS command from within a VBA 6 code. Here is an example: Suppose I need a list of files in a folder. One can do it using DOS dir command like Prompt:> dir drive:\path\foldername > drive:\path\list.txt The file list.txt output file created contains all file names in foldername, plus some other info. I have written a vba code for Word to *clean* the list.txt file, such that it now only contains the names of files in the foldername folder. The question I have is: can one write a stand alone *application* or a Word addin, such that it starts with a user form in which one can browse to a foldername as a source and say cleanlist.doc as the output, and on closing the form, the dir command is executed, the list.txt file cleaned with my code, and the cleaned output file placed into a path\cleanedfile.doc file? I know how to open, create and close files from a vba code. I do not know how to call a dos command from vba and how to make a form with controls that allow to browse for a source and destination folders. Any reading suggestions? Thanks, -- JanAdam Tag: how to calculate string width Tag: 79299
  - 7
    - inserting tables Hello List, I have been trying to work this for a while now, i can;t seem to get it working... I am using word automation to insert tables into my document from a bookmark range. The problem is when I loop to isnert a table each table will insert into the first row and column of the previous table. Here is my code below For I = 1 to 20 InteriorRange = Doc.Bookmarks.Item("InteriorBuilding").Range ' range obj InteriorRange.InsertParagraphAfter() RoomTable = Doc.Tables.Add(InteriorRange, 3, 2) ' doc a reference to the current document RoomTable.Cell(1, 1).Range.InsertAfter("tst item") RoomTable.Cell(1, 2).Range.InsertAfter("test") RoomTable.Cell(2, 1).Range.InsertAfter("test") RoomTable.Cell(2,2).Range.InsertAfter("test") RoomTable.Cell(3, 1).Range.InsertAfter("test") RoomTable.Cell(3, 2).Range.InsertAfter("test") RoomTable.Cell(1, 1).Merge(RoomTable.Cell(1, 2)) Next Any help would be greatly appreciated thanks very much nathan Tag: how to calculate string width Tag: 79298
  - 8
    - Arrangement of carries Hi There is a document with the table of several rows. How for some rows of the table to resolve a hyphenation and for the some rows to not resolve? Tag: how to calculate string width Tag: 79290
  - 9
    - Missing keystrokes on custom document I have a custom Word document, from a template, that catches WindowSelectionChange to modify data that is input by the user into table cells. All works well except when more than one Word document are open. The problem exists whether the other file is based on the template or not. When switching between docs, the first keystroke is lost. This behavior is also repeated when changing cells as long as two or more documents are open. Below is the relevant code: Option Explicit Public WithEvents App As Word.Application Dim thisTable As Integer Dim thisRow As Integer Dim thisCol As Integer Dim lastTable As Integer Dim lastRow As Integer Dim lastCol As Integer Private Sub Document_New() If App Is Nothing Then Set App = ThisDocument.Application End If keepAlive End Sub Private Sub Document_Open() If App Is Nothing Then Set App = ThisDocument.Application End If keepAlive End Sub Private Sub App_WindowSelectionChange(ByVal Sel As Selection) Dim myRange As Range Dim mySel As Selection Dim myText As String If Not ActiveDocument.AttachedTemplate = ThisDocument Then Exit Sub thisTable = Macros.getCellLoc.tableNum thisRow = Macros.getCellLoc.rowNum thisCol = Macros.getCellLoc.colNum If (Not Selection.Information(wdSelectionMode) = 0) _ Or (thisTable = lastTable And thisRow = lastRow And thisCol = lastCol) _ Or (thisTable < 4) Then Exit Sub End If If lastTable = 0 Then lastTable = thisTable lastRow = thisRow lastCol = thisCol Exit Sub End If If lastRow > 2 _ And lastCol <= ActiveDocument.Tables(lastTable).Columns.Count Then Set myRange = ActiveDocument.Tables(lastTable).Cell(lastRow, lastCol).Range myRange.End = myRange.End - 1 Select Case lastTable ' Removed End Select End If Select Case thisTable ' Removed End Select lastTable = thisTable lastRow = thisRow lastCol = thisCol End Sub Function isEditable(row As Integer) As Boolean If row < 3 Then Selection.Collapse Selection.MoveDown Unit:=wdLine, Count:=3 - row Selection.SelectRow Selection.Collapse isEditable = False Else isEditable = True End If End Function Sub keepAlive() If App Is Nothing Then Set App = ThisDocument.Application End If Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="keepAlive", Tolerance:=0 End Sub Tag: how to calculate string width Tag: 79285
  - 10
    - page numbers using sections - how do you get physical page number? Section 8 - Page 1 of 4 is Physical page 84. how can i get the Physical page number. I want to use both section page numbering and phycical page numbering. exsample: Section 8 - Page 1 of 4 Page 84 of 132 I am using MS work 2002. Tag: how to calculate string width Tag: 79283
  - 11
    - What files do I need? Hi all, I wrote a VB6+VBA program that uses both WORD and EXCEL to generate reports. In a machine without WORD (for example) - my program wont run, because it cannot create word objects. I wish to know what files to include (must + allowed to) in the package I deliver to the client. Thanks in advance. Guy Tag: how to calculate string width Tag: 79282
  - 12
    - Getting the user profile folder Hi I need to get the signature folder for the current folder such as; "F:\Documents and Settings\Dave\Application Data\Microsoft\Signatures\" except that instead of Dave I need the correct name for the current user, s that my code works generically regardless of who is logged in. Is there a way to do that? Thanks Regards Tag: how to calculate string width Tag: 79279
  - 13
    - Template VBA form and Code Missing Hi out there. I am Access programmer just learning VBA in Word. I spent last two days learning how to develop an input form use the VBE, controls, command buttons, etc. And I also added code to add data to combo boxes, initialize defaults, etc. This was all done at my client site. I returned to my office, and via gotomypc, I downloaded a copy of the template. When I open the template, the bookmarks are there, and document stuff. But no vbe form, or controls, or code. In access, I just move a database and everything goes with it. Help -- microbus Tag: how to calculate string width Tag: 79277
  - 14
    - Get user info from AD with VBA Hi, I,d like to create a Word template that reads current user information (such as name, addresses, phones, department and so on) from Active Directory. I've searched the Net without luck for code samples. Do you know where I can find examples for this kind of solutions? Best regards, Dominique Tag: how to calculate string width Tag: 79276
  - 15
    - Why isn't template with macros located in startup folder not loaded? Hello, I've written a template containing macros. Now, a user of this template complained to me that it won't load automatically even if located in the startup path. It can be loaded during a Word session via "Tools->Templates and Addins", though. Unfortunately I don't know which word version my user is using but she wrote that changing the macro security settings had no effect. So what else can cause this? Christian -- Christian Zietz - CHZ-Soft - czietz (at) gmx.net WWW: http://www.chzsoft.com.ar/ PGP-Key-ID: 0x6DA025CA Tag: how to calculate string width Tag: 79267
  - 16
    - Inserting Excel charts "as link" into Word Please advice: I have Excel workbook with many charts (20-30). I need to insert all charts in the Word document (in the same order that in Excel). To perform this I saved Excel â??as WEB pageâ?? and after that I use the macro command to insert all the pictures from pictures folder into the Word. Now I have to insert all the charts â??as linkâ??. How can I do it? Sample code would be great. Thank You. Eduard Tag: how to calculate string width Tag: 79262
  - 17
    - Macro to convert revision text to ordinary formatted text Does anyone have a macro they can share that does this? To clarify what I need, the macro will convert revisions in text written with change tracking to ordinary text with underscores and strikeouts. My email address is LLM041103 at earthlink dot net. Tag: how to calculate string width Tag: 79258
  - 18
    - How to download microsoft word I purches a lap top from Dall, but it did not have microsoft word on it. I was trying to download it. Please help me to do that. Thanks Tag: how to calculate string width Tag: 79257
  - 19
    - Creating Module that Runs When Document Opens Word 2003. I want to create a subroutine or macro that runs when my document is opened. How may I set this up? Thanks for the help. -- Dr. Doug Pruiett Good News Jail & Prison Ministry www.goodnewsjail.org Tag: how to calculate string width Tag: 79253
  - 20
    - Only A-z in range selection I have a macro that goes through documents and deletes spaces that were accidently inserted in the middle of words. How can i make it so that the range selection, that's a spelling error, can only be alpha characters? Tag: how to calculate string width Tag: 79250
  - 21
    - Create TOC for comlex Chapter pages I'm writing a book. The Part and Chapter pages are distinct from other pages, and employ complex styles. I'm having trouble get the TOC right. The Chapter page is like this: --------------- 1 <--- The Chapter Number (Style: "H2", auto-numbered) Introduction <--- The Chapter Title (Style: "My Chapter Title Style") to This Topic --------------- Part Number and Title are similar ("H1", "My Part Title Style"). Now, I inserted TOC using H1/H2/H3. Obviously, only Part/Chapter Numbers are show in TOC; I need the Part/Chapter Titles there as well. How to do this? If w/o programming, even better; if programming, how to do this? Thanks a lot in advance! -James Huang Tag: how to calculate string width Tag: 79248
  - 22
    - Formatting All, This question is simple but someone can help me out i have a checkbox and a label, when user selects the checkbox, the caption of the checkbox (aaaaaaaaaaaaaaaaaaaaa) and label caption (abc...etc) should be printed in the document here label caption is spread accross 4-5 lines, how i want to see in the document is aaaaaaaaaaaaaaaaaaaaa (checkbox caption) abcccccccccccccccccccccccccccccccccccccccccccccc (label caption) abcccccccccccccccccccccccccccccccccccccccccccccc abcccccccccccccccccccccccccccccccccccccccccccccc when i used vbtab control in the code (strbody = strbody + chkbox caption + vbtab + label caption) the result is aaaaaaaaaaaaaaaaaaaaa abccccccccccccccccccccccccccccccccccccccccccccccccc abccccccccccccccccccccccccccccccccccccccccccccccccc abccccccccccccccccccccccccccccccccccccccccccccccccc Pls help. Tag: how to calculate string width Tag: 79246
  - 23
    - Automatic Document Template & Userform checkbox I have designed a document template and userform. On my userform I have placed several text boxes and a "chkHistory1" checkbox. There are several other checkboxes also but I need help on 1 so I can do the rest. I have on my document template a checkbox with a bookmark named "History1". When I finish entering information and have placed a check in the checkbox "chkHistory1" on the userform then click OK everything prints on my new document except my checkbox. I am relatively new to VB and I need some help. I have tried several different codes and I'm lost. Tag: how to calculate string width Tag: 79245
  - 24
    - Find Error? When using VBA code to find "U.S." (for example), the Find range returns four words with the first three being as expected ("U", ".", "S"). However, the last word may contain not only the final period but also the next character in the document if the next one is a space or another puncuation mark such as ".)". The user interface version of the Find does not do this. Is the code version a bug or have I overlooked something? Tag: how to calculate string width Tag: 79240
  - 25
    - Can I use a Macro within a Word Formula? How? Currently, I use a formula to interpret a bookmark used in a form to display a converstion. The formula is currently one of two options, so I use an if statement. I would like to change it to one of 20 options. I would like to use a Macro and pass thh bookmarked value to the Macro and have the Macro return the value. Is this possible? how? Tag: how to calculate string width Tag: 79239

Hi All
I need to calculate string width(NOT length) to determine if it takes
one or more lines.The linked topic below does not meet my
requirement.Anyone please help!

http://groups.google.com/group/microsoft.public.word.vba.general/browse_frm/thread/ed8c125812b59a04/7993922c5d111b10?q=word+vba+calculate+string+width&rnum=2#7993922c5d111b10

Re: how to calculate string width by Jay

Jay
Tue Jan 17 21:21:06 CST 2006

I'm not sure what else you would be looking for beyond what the solution on
the Google groups would give you, but below is a link to a page that has a
download that will get you the text size using the API (you'll need to
register with the site to download the file, but registration is free):

http://www.xtremevbtalk.net/showthread.php?t=125084

Jay Taplin MCP

Re: how to calculate string width by rVo

rVo
Wed Jan 18 05:17:10 CST 2006

If the string is already in a document you could use this trick to figure
out if it's multiline or not...

You position the cursor at the beginning of the string and get the
selection.information(wdFirstCharacterLineNumber)
Next you position the cursor at the end of the string and ask the same
information. If the second value is different from the first one it's
multiline.

But ofcourse using the api is more elegant. Please consider that all pc's
that use your template will need the api installed as well though.

<YiShusen@gmail.com> schreef in bericht
news:1137548500.136862.18920@f14g2000cwb.googlegroups.com...
> Hi All
> I need to calculate string width(NOT length) to determine if it takes
> one or more lines.The linked topic below does not meet my
> requirement.Anyone please help!
>
>
http://groups.google.com/group/microsoft.public.word.vba.general/browse_frm/thread/ed8c125812b59a04/7993922c5d111b10?q=word+vba+calculate+string+width&rnum=2#7993922c5d111b10
>

Re: how to calculate string width by YiShusen

YiShusen
Wed Jan 18 16:54:23 CST 2006

Thank you both. rVo's trick sounds good to me. however, because I
insert the string in a table cell, the
selection.information(wdFirstCharacterLineNumber) behavours different
than I expect. So I need more sugestion, please.