=?Utf-8?Q?How_can_I_get_all_fractions_to_f?=

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - How to copy a worksheet from one workbook to another in vb6 Hi All, I have 2 workbook(i.e. 1.xls & 2.xls) at 2 different location, I want to copy all the worksheets present in 2.xls to 1.xls file using vb6. I am trying to open both the files and then trying with this code... Workbooks("2.xls").Worksheets("sheet2").Copy _ After:=Workbooks("1.xls").Worksheets("sheet1") I am getting "subscript out of range" error.... can u plz help me... Thanks in Advance. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90880
  - 2
    - Run time error...help! Hi, I'm trying to figure out the origins of a run-time error and possible work around. Checked msdn and Microsoft's entire website for documentation but came up empty. The error is: Run-time error 35788: An error occurred in a call to the Windows Date & Time picker control. I am using several date & time picker controls in my userform and the error occurs when I am trying to initialize the display date to the current date. This was working perfectly when all the date controls were on a simple userform but when I converted it to a multipage control format, setting the date of controls on a page other than the current page displays the error. Strangly enough, I can initialize other properties of the controls such as "visible". Any ideas? Thanks Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90879
  - 3
    - Cursor movement in excel from word (sendkeys?) How can I order the cursor within excel to move one cell to the right or to copy cells? After the copy command I would lijke to return to word and paste the cell value. Up till a few months ago it worked with sendkeys, but this doesn't seem to work anymore. Thank you Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90877
  - 4
    - break line based on hyperlinks Hi, I have multiple line in a table cell, each of them contains hyperlinks including plain text. is there any way to get them seperately with the hyperlink address ? Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90870
  - 5
    - Can I export from a Word form to an Excel spreadsheet? I have a Microsoft Word form and would like to know if I will be able to export the text, check boxes and drop-downs to an excel format. Can you please advise? Thanks Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90864
  - 6
    - Macro To Set Image Links I import documents from my Genealogy program that require the image links be reset (Edit>Links dialog). I have tried various ways of recording this dialog to a macro but nothing is recorded. I appears that the dialog window for resetting links may not support macro recording??? If so how could this be done? -- Bob Berg Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90859
  - 7
    - Remove forward slash when in first character of first line of docu Hi: Thanks to the help of a number of you on this site, the following code successfully replaces the occurrence of a forward slash that is preceded by one or more spaces with a highlighted space. I would like to create code that would remove the occurrence of a forward slash if it is the first character in the first line of the document. Any ideas? 'Removes / proceeded by a space and replaces with a highlighted space Dim rDcmForwardSlash As Range Set rDcmForwardSlash = ActiveDocument.Range With rDcmForwardSlash.Find .Text = " @/" .Replacement.Highlight = True .Replacement.Text = " " .MatchWildcards = True .Execute Replace:=wdReplaceAll End With Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90858
  - 8
    - How to suppress warning dialog? Hello, I have a VBA macro which its last command is .printout. Since the template I am using prints out of the set margin I always get this nonsense dialog box of "The margins of section 1 are set outside then printable area of the page. Do you want to continue?" Yes or No... Off course my response is always Yes and my printout is okay with no problem... Does anybody know how I can suppress this dialog box from being appear with out changing the page setup? -- Jeff B Paarsa Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90854
  - 9
    - Event after save I am using Word 2003. I have created a macro that gets the filename beginning with the server/sharename, using the ShareName Property. It stores it in a document variable. I can then put it in the document, eg., the footer. (The built-in filename path returns the mapped drive, eg. I: We want \\ServerName\ShareName ) I have put this macro in the template for these files. I also put a document_open event macro in ThisDocument of the template. That is working fine. So I am set up for the existing documents. But I am having a problem with new documents, or those created with SaveAs. The filename does not exist until after the new file is saved. For SaveAs, the filename before the save is the old one. What is the best way to handle this? If there were an AfterSave event, it would make things much easier. Do I have to create my own macros for FileClose, Filesave, FileSaveAs, and FileSaveAll, and do all that file dialog stuff? I believe (hope) I can put these in the template, also. Looking at the Help for "Using Events with the Application Object", I see I have to Initialize the Declared Object. It looks as if I can run this one time, and it make the required connections so things will work when I create, open, and close documents. Or do I misunderstand this. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90851
  - 10
    - My delete key has stopped working to delete blocks of text. My delete key has stopped working to delete whole words, sentences or blocks of text. I do not know whether I accidentally hit something to program this, or whether my keyboard or something is broken. It works for email, but does not work for Word. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90848
  - 11
    - Table not inserting correctly I am running the following code to insert a table into a document. My problem is that every so often the table inserts strangely and runs off the page. I have chalked it up to a word bug, but it is getting annoying. Has anyone else had this problem when inserting tables using code. Is there anything I can change below that might eliminate this seemly random problem. Is there a line of code that will correct this issue? ------------------------------ Public Sub InsertVotes() If FindVar("&VOTES") Then Selection.Delete unit:=wdCharacter, Count:=1 If (pubYEAS <> "" And pubYEAS <> "00") Or (pubNAYS <> "" And pubNAYS <> "00") Then InsertVoteBox Else ' Do nothing if no vote taken Selection.Delete unit:=wdCharacter, Count:=1 End If End Sub Public Sub InsertVoteBox() Selection.TypeParagraph ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) .PreferredWidthType = wdPreferredWidthPoints .PreferredWidth = InchesToPoints(0.67) .Columns(1).PreferredWidth = InchesToPoints(0.42) .Columns(2).PreferredWidth = InchesToPoints(0.25) .Rows.SetLeftIndent LeftIndent:=InchesToPoints(3), RulerStyle:=wdAdjustNone If .Style <> "Table Grid" Then .Style = "Table Grid" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = True .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = True .Borders(wdBorderLeft).LineStyle = wdLineStyleNone .Borders(wdBorderRight).LineStyle = wdLineStyleNone .Borders(wdBorderTop).LineStyle = wdLineStyleNone .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone .Borders(wdBorderVertical).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone .Borders.Shadow = False ' Added these characteristics: 7/26/06 .TopPadding = InchesToPoints(0) .BottomPadding = InchesToPoints(0) .LeftPadding = InchesToPoints(0) .RightPadding = InchesToPoints(0) End With Selection.TypeText Text:="YEAS" Selection.MoveRight unit:=wdCell Selection.TypeText Text:=pubYEAS Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.MoveRight unit:=wdCell Selection.TypeText Text:="NAYS" Selection.MoveRight unit:=wdCell Selection.TypeText Text:=pubNAYS Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.MoveRight unit:=wdCharacter, Count:=2 End Sub Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90842
  - 12
    - Can I accept all changes within a Selection range? Is there any way, either in code or by a Reviewing function I don't know about, to select a certain portion of the document and accept or reject all changes in just the selected range? Ed Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90836
  - 13
    - Update Fields, VBA, nothing selected I have created a macro that takes over the functionality of the shortcut for Updating fields (F9). If any part of a certain section is selected when they press F9, I want another macro to run, which it does successfully. My problem is getting word to update fields as you would expect it to normally using VBA. You can normally put your cursor in any part or a field/TOC, and it will update that field when you press F9. If I record a macro, I get Selection.Fields.Update. If I use this in VBA, it doesn't think that any fields are selected, so nothing gets updated. Can anyone help me to find out if the cursor is in a field, and to then update the field if it is. Many thanks, KelW Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90826
  - 14
    - How to speed up creation of docs without displaying them. Hiya - I am using this vba code below to create in excess of 4000 custom word docs based on a template. The code creates a new doc, fills out lots of tables , saves it to disk and then closes it within a loop. It works just fine but its taking about 3 hours to run, is there any way to speed it up. Im sure I was able to run it in "invisible mode" once before or something but cant figure that out now . Thx in advance. Sub BatchRun () 'On Error Resume Next Dim arrData, intSite, strQual, strOffice, intRow, strData, strSourceDoc, arrName, strName, strSite Dim objConn As Object Dim objRS As Object Dim strSelectList, strSQL, intCol Dim objFSO, objFile, arrLines ' Open the text file and read the contents into an arra Set objFSO =3D CreateObject("Scripting.FileSystemObject") Set objFile =3D objFSO.openTextFile("c:/batchrun/export.csv") strData =3D objFile.ReadAll arrLines =3D Split(strData, vbCrLf) ' kill the text file objects Set objFile =3D Nothing Set objFSO =3D Nothing ' open the database ready for selecting details Set objConn =3D CreateObject("ADODB.Connection") openDB objConn ' loop over the text files rows For intRow =3D 0 To UBound(arrLines, 1) strSourceDoc =3D ActiveDocument.FullName Documents.Add strSourceDoc ' Read the qualcode, Site ID and Office Name arrData =3D Split(arrLines(intRow), ",") strQual =3D arrData(0) intSite =3D arrData(1) strOffice =3D arrData(2) strSelectList =3D "SiteName,Add1,Add2,TownCity,PostCode,County,Telephone " strSQL =3D "SELECT " & strSelectList & " FROM vwSites " & _ "WHERE SiteID=3D" & intSite Set objRS =3D objConn.Execute(strSQL) If Not objRS.EOF Then ' Write the centre details ' small sitte id in table 3 With ActiveDocument.Tables(3) .Rows(1).Cells(5).Select Selection.Text =3D "Site ID: " & intSite End With ' other site details in table 1 With ActiveDocument.Tables(1) .Rows(4).Cells(2).Select Selection.Text =3D objRS("SiteName") .Rows(5).Cells(2).Select Selection.Text =3D objRS("Add1") .Rows(6).Cells(2).Select Selection.Text =3D objRS("Add2") .Rows(7).Cells(2).Select Selection.Text =3D objRS("TownCity") & " " & objRS("PostCode") .Rows(8).Cells(2).Select Selection.Text =3D objRS("County") .Rows(9).Cells(2).Select Selection.Text =3D objRS("Telephone") End With End If strSite =3D Replace(Left(objRS("SiteName"), 10), " ", "_") ' write the module details / crosstab bit strSQL =3D "SELECT QualTitle, QualUnitCode,UnitTitle, Office, CourseFee, UnitFee,FullName FROM vwQualUnits " & _ "WHERE QualCode=3D'" & strQual & "' ORDER BY QualUnitCode" Set objRS =3D objConn.Execute(strSQL) If Not objRS.EOF Then ActiveDocument.Tables(1).Rows(3).Cells(2).Select Selection.Text =3D strQual & " " & objRS("QualTitle") ActiveDocument.Tables(1).Rows(1).Cells(5).Select Selection.Text =3D objRS("Office") intCol =3D 8 ' start of the unit columns While Not objRS.EOF ActiveDocument.Tables(2).Rows(1).Cells(intCol).Select Selection.Text =3D objRS("QualUnitCode") & " " & objRS("UnitTitle") intCol =3D intCol + 1 objRS.MoveNext Wend objRS.MoveFirst ActiveDocument.Tables(3).Rows(1).Cells(2).Select Selection.Text =3D "@ =A3" & objRS("CourseFee") ActiveDocument.Tables(3).Rows(2).Cells(2).Select Selection.Text =3D "@ =A3" & objRS("UnitFee") arrName =3D Split(objRS("Fullname"), " ") strName =3D Left(arrName(0), 1) & Left(arrName(1), 1) ' name it qual_site_account manger initials and oput in relevant office folder ActiveDocument.SaveAs ("c:/batchRun/" & strOffice & "/" & strQual & "_" & strCentre & "_" & strName & ".doc") ActiveDocument.Close End If Next ' clean up objRS.Close Set objRS =3D Nothing objConn.Close Set objConn =3D Nothing End Sub Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90823
  - 15
    - Temp Files Hi, I have some word templates with VBA code behind that are in a shared location and clients use them by pointing thier Workgroup Templates to them. Every now and then we have to delete a bunch of temp files, sometimes hundereds, there is usually one for each template called ~$<Template Name>.dot and then many more with the names like ~WRLxxxx.tmp. Can anyone explain why this is happening and how to solve it. Thanks. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90819
  - 16
    - line break with different style Hi, I have a table cell which have two lines of text broken by ctrl+enter. I able to read the text and seperate it using line seperator but the thing is first line of the text is a hyperlink. any idea how can i retrieve them as a Paragraph/anything so i can retrieve their style, hyperlinks individually? Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90818
  - 17
    - Repeat code on each page Hi, I am new to VB and still getting a handle on things. How do I repeat the below code for each new odd numbered page. If this requires the use of line numbers instead of paragraph numbers to set the range, see the remark in code. Josha Code: Sub Test3() Dim pChar As Variant Set myDoc = ActiveDocument 'The following example creates a Range object beginning at the start 'of the second paragraph and ending after the third paragraph. 'The corresponding line numbers that need to be used are ln10 to ln15. 'The code must be repeated for each odd numbered page. Set myRange = myDoc.Range(Start:=myDoc.Paragraphs(2).Range.Start , _ End:=myDoc.Paragraphs(5).Range.End) For Each pChar In myRange.Characters If pChar Like "[A-Z]" Then pChar.Select Selection.Range.Case = wdTitleWord End If Next End Sub -------------------------------------------------------------------------------- Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90813
  - 18
    - Find Replace w negated option I have a procedure that eliminates all extra spaces (i.e., more than 2 in a row) from the document. However, there is one particular style which has a mono type, and spaces are used to line things up. I want my routine to search the document and ignore only the paragraphs formatted in that style. Here is the routine, and a representation of what I want to do (but which doesn't work): Sub DeleteExtraSpaces() ' ' Replaces any instance of 3 or more spaces with 2 spaces only. ' If Not TrackChanges Then With ActiveDocument.Content.Find .ClearFormatting .Replacement.ClearFormatting .Font.Underline = wdUnderlineNone .Style <> "BriefXScript" ' This is what I want to do, but get an error. .Forward = True .Wrap = wdFindContinue .MatchWildcards = True .Execute FindText:=" {3,}", ReplaceWith:=" ", Replace:=wdReplaceAll .ClearFormatting End With End If End Sub Thanks in advance! Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90811
  - 19
    - Break OLE links in Word Does anyone know hw to programmatically "Break Links" in Word to an Excel spreadsheet? I have multiple links at different points in a document that is used as a template to produce a final report (as a new file). I want to ensure that once the report is completed (programmatically) that all the links are broken so that when it (the new file) is opened again no further updating will be done. Thx. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90810
  - 20
    - Check if Word is composing an E-Mail Message? Is it possible to determine if the user is in an email message as opposed to a regular Word document? Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90806
  - 21
    - lyrics with chords Nowhere on the net have I found a tool for writing the song lyrics AND the cords in anyway other than by using fonts like courier, helvetica, Times etc. where every letter, sign og space have the same size. And then you have to write the lyrics on every other line and the cords on the line above. The problem is that it is very time consuming, it's not very graphically nice to look at, it's time consuming to alter the key (e.g. from C-mayor to D-mayor) and it makes it difficult if not impossible to integrate song lyrics with cords into normal documents, and so on and so forth. It would be a BIG help to all musicians world wide if a way could be found to attach a chord to a single caracter or even to a space between caracters so that no matter where that caracter is moved - it will have the chord written above it. Better still if someone could programme a macro or funktion where the above mentioned chords could be transposed from one key to another. It shouldn't be impossible as chords or notes could be assigned a numeric value and if you e.g. transpose a song from C-mayor to D-major it would mean that all chords would have to transposed accordingly: from C to D = 2 half-notes or 2 steps on a full scale: C - C#(=Db) - D - D#(=Eb) - E - F - F#(=Gb) - G - G#(=Ab) - A - A#(=Bb) - B - C I hope others will support this idea as it would make MicOffice an even more essential tool. ---------------- 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=dfed2c41-8a9d-459b-bb67-401461fe5881&dg=microsoft.public.word.vba.general Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90805
  - 22
    - Filter an array Hey! I have a multidimensional array and I wan't to filter this array into an other variable. The array is something like A(Projectnr, SampleNr, Info) and I would like to be able to show just those records that have projectnr = B. Is there an easy way to do this? Hope someone can help me. Thanks. Hege Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90803
  - 23
    - table cells I have a document with 1 table composed by2 columns. How can i write to take all the context for example of the tables(1).cell(index,2) ? Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90800
  - 24
    - bookmark macro question I have a VBA addin for word that will fill in multiple bookmarks in a document. So, if i have bookmarks in a document bkName, bkName1, bkName2, ect.......throughout the document the program will fill in the name in the right spot. it simply looks for a new My users are novices. i am trying to build them a toolbar to simplify the process. i have the toolbar built which includes a bunch of buttons using code like: Sub bkName() With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="bkName" .DefaultSorting = wdSortByName .ShowHidden = False End With End Sub I know the program uses the following code to loop thru filling in the bookmarks Private Sub SetBookmarkText(doc As Document, ByVal Name As String, ByVal Value As String) On Error Resume Next With doc .Bookmarks(Name).Range.Text = Value Dim i As Integer i = 1 Do While .Bookmarks.Exists(Name & CStr(i)) .Bookmarks(Name & CStr(i)).Range.Text = Value i = i + 1 Loop End With End Sub How would i modify the bookmark creation code to check for an existing bookmark and LOOP thru to create them? So, if bkName is already in the document it will insert a bookmark bkName1 and if bkName1 is already in it will do bkName2 any direction would be appreciated. thanks JB Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90797
  - 25
    - Cascading/Conditional Dropdowns Hi All I am new to this discussion group - thanks for providing it. I have a situation similar to another user who wanted to programmatically populate a dropdown based on the results of the previous dropdown. The user was provided the following code: Sub PopulateSubCat() Dim oFld As FormFields Set oFld = ActiveDocument.FormFields Select Case oFld("Cat").Result Case Is = "A" With oFld("SubCat").DropDown .ListEntries.Clear .ListEntries.Add "Apples" .ListEntries.Add "Apricots" .Value = 1 End With Case Is = "B" With oFld("SubCat").DropDown .ListEntries.Clear .ListEntries.Add "Blueberries" .ListEntries.Add "Bananas" .Value = 1 End With Case Is = "C" 'Etc. End Select End Sub My situation is somewhat different however in that I need to programmatically populate the first dropdown as well. The first dd I need to populate is for group offices. Word limits the entries in a dropdown (as I am sure you well know) to 25 and there are approx 30 group offices. The second dropdown I want to populate is sales reps and I want to populate the dd based on the selection in the group office dd. I also have a third dd which will be account assistants which I would like populated based on the group office selection as well. For example, if the user selects Atalnta from the (programmatically populated) Group Office dd, I want the Sales Rep dd and Account Assistants dropdowns to populate with sales reps and account assistants in the Atanta Group Office. Also, I have a Cost Center field I would like to have populated with the cost center of the group office selected in the first dropdown). In other words, on selection of the group office I want the sales reps for that group office to display in the Sales Reps dd, account assistants for that group office to display in the Account Assistants dropdown and the cost center for that group to appear in the Cost Center field. Is it going to take a ton of code to accomplish this? Not that mind a little work mind you and I love VBA (although I have never used it in Word) but I am a little intimitated b/c my experience with VBA is in Access and somewhat limited in that I use basically the same code over and over again in different scenarios. Anyway, any help with this woud be greatly appreciated. Oh, sorry for the long post - I just wanted to make sure I was clear on what I want to do. btw: I believe it is Office 2000 I am using at work (I just started 3 weeks ago so I am not 100% sure but I believe it is 2k) Thanks so much Dattagal Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90786
- Next
  - 1
    - Word 2003 Find/Replace Doesn't Ignore Deleted Text I'm trying to write a macro that finds & replaces several things all in one batch. Track changes needs to be on. The problem is that the "finds" also see and act on deleted text. How can I run a find and replace that ignores the deleted text? I know this was a problem in Word 97 because I found a KB article on it. Surely they fixed it by now? I have tried limiting finds for black text or font style normal...that doesn't work. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90776
  - 2
    - using checkbox to delete a section of text I have a template that has 20 sections that I use daily and need to be able to delete different sections each time. I am not sure what the best way would be to set it up but I think that I would like to have a UserForm come up when the document is opened that would list all of the sections with check boxes by each. Then I could select the check boxes that go with each section that I want to keep and then when I exit the user form all of the unchecked items are deleted. I am open to different suggestions if there is an easier way. thanks alot for the help. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90775
  - 3
    - IF statement with empty text field won't work I'm working on a document and want this to happen: Document asks "Username?" using the ASK field. If something is typed in, i want it to display Username: and then the persons username, but if nothing is typed in the box, i want it not to show anything, not even the "Username:" label. Word is seeming to have trouble with the 'nothing' part of this. Here is what i've tried which hasnt seemed to work: { ASK user "Username:" } { IF user = "" " " "Username:{user}" } Any help will be much apreciated! Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90772
  - 4
    - Transferring autotext I need a way to transfer AutoText between two normal.dot templates. I'm guessing this might be possible with VBA. Any suggestions as to how to reference the autotext object? Preferably the solution should also work for older versions of Word. Note this refers to autotext, NOT autocorrect entries. (often a source of confusion!) ------------------------------- An alternative approach to XP network logon - http://mylogon.net Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90765
  - 5
    - Removing specific characters when preceded by one or more spaces Hi: I want to remove the forward slash from a document if and only if it is preceded by one or more spaces. i.e. â??abc/â?? is OK but â?? /â?? or â?? /â?? or â?? /abcâ??â?¦ is not. The following code successfully removes the forward slash character that is preceded by a single space from a document and replaces it with a highlighted space. So if there are 2 or moreâ?¦spaces before the forward slash, I want it to be removed and replaced with a highlighted space. (I am fine with all the spaces being removed and simply replacing the entire string with a single space.) What do I need to do to modify the code to accomplish such? Any help is greatly appreciated. 'Removes / proceeded by a single space and replaces with a highlighted space Dim rDcmForwardSlash As Range Set rDcmForwardSlash = ActiveDocument.Range With rDcmForwardSlash.Find .Text = " /" .Replacement.Highlight = True .Replacement.Text = " " .MatchWildcards = False .Execute Replace:=wdReplaceAll End With Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90764
  - 6
    - open a list of check boxes I use the same document on a regular basis but have to select specific paragraphs to delete each time. I have created a macro to delete each paragraph but would like to have a form that pops up when the template is opened that has a check box for the paragraphs that I would like to keep in the final document. Thanks for all of the help. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90759
  - 7
    - test - ignore Just testing my configuration -- Axel [1062029] {RC1 - 5600} Share what you know, Learn what you don't. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90758
  - 8
    - copy menu bar Is there anyone know how to copy menu bar from a template to another word document that's not created by the template? I created a menubar in a word template and would like to copy it to other word doc as well. The only thing that I can do is copying its macro to normal.dot which would be applied to all word docs but it doesn't copy the menubar as well. Thanks in advance! Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90751
  - 9
    - Macro in Word: Switching between two documents Word 2003: I want to build a macro using my key board keys. (Alt/z). I want to loop my macro with hitting the "Alt/z" keys once. Taking text from document 1 -- I will tell me macro to look for a particular character in document 1 and placing the text into document 2. I'm looking for the macro to go throught the entire document until it reach the end of the document. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90750
  - 10
    - Find & Replace or Macro - Which is better? Hello, I tried finding a solution by myself, but no-can-do. How can I tell Word to: a) Find the dollar sign ($) and; b) Place it at the end of the amount instead of the beginning, i.e., change $10,000 for 10 000 $. It also has to be preceded by a hard space. Thank you! HÃ©lÃ¨ne Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90744
  - 11
    - replace manual page breaks Is it possible to programmatically replace all manual page breaks in a document with Next Page Section Breaks? Thanks. -- tj Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90738
  - 12
    - Counting References/paragraphs of a given style?? We currently have a macro to loop through a document and cound "references" which are marked with a specifc style so that we can find them. The issue is that this code seems to be hanging Word and not sure why. Does anyone have any ideas on what the issue is or a better way to handle this? With ActiveDocument.Range.Find .Style = "My Reference" While .Execute l = l + 1 If l > ActiveDocument.Range.Paragraphs.Count Then GoTo endloop End If Wend End With endloop: ActiveDocument.CustomDocumentProperties("RefCount") = l Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90730
  - 13
    - wdUserOptionsPath hello, we have special made templates for word 2000 now i want to migrate to word 2003. in word 2000 there was a wduseroptionspath, you can find this option under filelocations in word 2003 this is not a option anymore. Now i have problem because the templates are looking for info but the location isn't there anymore. I don't wont to change the whole code. So does anybody now where i can change the location for wdUserOptionsPath??? Greetingz. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90722
  - 14
    - Low performance when extracting data I have written a macro to extract data from the active document. The macro should be a part of an algorithm to auto detect headings. The problem is that I get very long delays when accessing the DOM. A code-snippet that show this behavior: Dim nCount as Long Dim oSents as Sentences Dim sText as String Set oSents = ActiveDocument.Sentences if not oSent is nothing then nCount = oSents.Count if nCount > 1 then sText = oSent.Item(nCount - 1).Text endif endif For certain documents the Sentences::Count will take approx. 10s to execute. Range::Text takes also approx 10 s to execute. The document is quite simple with a TOC (~300 items), body text and a lot of heading. The document has 123 pages. I a would try to iterate through all sentences in this document it would have taken to long time to be acceptable. However, if I remove the table of content, then the execution time will be below 1 s. Could someone explain why and is there any settings in Word that I could modify to get rid of this problem? I have tried to run Word in safe mode and also protected the document for editing with no performance differences. I am running Word 2003 and Win XP SP 2. My computer does not lack in performance. Jonas Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90717
  - 15
    - Button on page to run macro Having transferred a module containing a series of subroutines from 'Normal' to a Word document I want others to be able to run two of the subs from that document since they will not understand how to transfer the module to their Normal file. Question How can I assign a macro to an object on the page which the user can click to run the macro? In XL that's simple but in Word I cannot see how to do it. Francis Hookham Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90712
  - 16
    - Automatic printing in background using different printers Hello, i got a serious problem using automatic printing... with several scheduled vbs tasks i start different word - documents, containing vba. Each document prints out on a different printer. Sometimes those documents are started at the same time which results in printer confusion. first document chooses "ActivePrinter= xyz" while the other document chooses an other one. Now the first doc is printed on wrong location or a dialogue states me to put in save as prn file... Is there any way to tell word not to change the printer for the whole windows environment but only for the started application? I tried out a lot, but Application.ActivePrinter= "someprinter" results in changing the standard printer of windows. I do appreciate a lot your help, thanks! Daniel Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90711
  - 17
    - MS Word question The residental inspector that I used did his reports in Word and had a feature that would automatically type a sentence based on a few typed keywords. Ex. " good shingle roof" would automatically insert a sentence like "The roof is composition shingle and is in good condition with no visible defects." Can someone tell me how to create this? Thanks. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90707
  - 18
    - Mail merge Datasource Will Not Change Records I am writing a vba app to automate a mail merge document. The doc is connected to an access database. The datasource retrieves the data just fine. Then I set all of the records include flags to false (thus excluding them from the merge). Next I iterate through the list to include ones that meet a criteria that the user has selected from a userform. If the criteria is met, a function is called that sets the activerecord to the first record (wdFirstRecord, I think). Then I use the find method to point the activerecord to the correct record, and finally set the included property to true. The problem is that neither the .activerecord = wdFirstRecord, nor the Find method changes the record position, it remains at 1. Nothing I've tried and nowhere I've looked has said anything about the records not being able to move. Is there something in the connection string that can cause this, or some property I'm not setting correctly? There are more records in the set than just one, so that's not the problem. Any help would be appreciated. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90698
  - 19
    - Converting Word 2002 macros When trying to open a project in the Word VBA screen I get an error that says: Title:Project Locked Message: Project Unviewable. How do I open it? The template was loaded at startup and I can run the macros, but I can not edit them. Thanks. matt R Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90695
  - 20
    - Shading/Highlighting I'm interested in having certain pieces of text highlighted or shaded on the screen but not when printed. What's the easiest way to accomplish this? Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90687
  - 21
    - get section name I need to find a section number and get its name to store it in a variable. Example: 1.1 Introduction Need to find 1.1 and then store"introduction" into a variable. Anyone know how to do that? Thanks! Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90683
  - 22
    - .Activate method not working One of my users recently upgraded to Word 2003, and the Documents(index).Activate method does not seem to be working on their computer. Though it works on other users' computers, those with Word 2003 and Word 2000... When the .Activate method is used on this user's computer, the selected document is brought to the front of the window order, but the ActiveDocument does not change. The ActiveDocument object continues to point to whatever was the active document before the .Activate command was used. Anyone know what could be causing this? Or should I just get to work on eliminating the .Activate command from my code? Thanks Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90681
  - 23
    - Simple(?) calculation question I have a EXCEL spreadsheet from one of our clients that I need to convert to a form in Word, but I'm having trouble converting one of their calcluations. In Excel the formula is =O95*(1-P95) That's it. Cell O95 contains a dollar amount ($672) and cell P95 contains a percentage (7.8%) The answer in Excel is $620 No matter how I set this calcuation up in Word in the form field, I can't get the same answer...not even close. The field with the original number ($672) is named ModifiedPremium and I've tried =(ModifiedPremium)*7.8 =(ModifiedPremium)*(1-7.8) =(ModifiedPremium)*(1-(7.8)) Etc... Anyone know how this calculation SHOULD look? Thanks. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90680
  - 24
    - normal.dot in Office 2000 not working in Office 2003 I have been using a normal.dot in Office 2000 that is used on the new users machines when they are set-up. When I tried to use this normal.dot on the new user machines that are running Office 2003 it is not being accepted. This normal.dot has all the macros, set-up and automatic text in it. These new users are not being able to use these items when they open Word. They have the default font and default information without any of the customized information that is included in the normal.dot I have been giving them. I really nead to be able to find out how to use this customized normal.dot. I hope that someone has some information for me. Thanks in advance. Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90676
  - 25
    - Markup View in Word 2003 - Need code to turn it off if it's on Hi, Everyone: I'm trying to find a way to turn off View, Markup that I can add to the code that's executed with my templates. I found the following in another message/thread, but I don't think this will work for me. ........ ActiveDocument.TrackRevisions returns a Boolean True if Track Revisions is turned on. You can turn it on using: ActiveDocument.TrackRevisions = True or off with: ActiveDocument.TrackRevisions = False ------- I don't want to make it stop "tracking" changes since the users may need it. I just don't want it EVER to DEFAULT to viewing them (which it has been - OFTEN - it's driving me crazy). When I tried recording a macro while turning off Markup View, all I got was the following line: WordBasic.ViewChanges ..which seems to be telling it to turn Markup View ON instead of OFF (which tells me that it's probably just a toggle switch. Is there a way to check to see if it's already in Markup View before doing the toggle (using an if statement), like this? If (some code to check for Markup View, NOT document tracking) = True then WordBasic.ViewChanges End if Does anyone have any suggestions? Thanks in advance, Peg -- Message posted via http://www.officekb.com Tag: =?Utf-8?Q?How_can_I_get_all_fractions_to_f?= Tag: 90675

When you type 1/2, 3/4 or 1/4 they automatically format to Â½, Â¼ and Â¾ - How
can get any fraction to do the same. It does not happen with 2/3, 1/16 etc.

Top

Re: How can I get all fractions to format like ½ and ¼? by Graham

Graham
Tue Sep 12 09:15:26 CDT 2006

There are a couple of possibilities - see:

http://www.gmayor.com/createfraction.htm
or
http://www.word.mvps.org/FAQs/Formatting/CreateFraction.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Wren wrote:
> When you type 1/2, 3/4 or 1/4 they automatically format to ½, ¼ and ¾
> - How can get any fraction to do the same. It does not happen with
> 2/3, 1/16 etc.

Top