Creating custom text colours

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - how to save word document without saving macros with it. I have created a word 2002 document that has several macros in it to automate it. I want to add a macro to save the document using fields in the document as the name, which I have done, but I do not want the macros saved with the document. The documents that are saved from the original will be for reference only. Thanks, for the help. Tag: Creating custom text colours Tag: 68746
 - 2
 - numbering multiple copies of a document I want to be able to put a cell in a word document with a number - say 1 and then print say 50 copies so that each copy is uniquly numbered in sequence 1 to 50 Tag: Creating custom text colours Tag: 68744
 - 3
 - DocVariable & Inserting Symbols Hello, I was wondering, whether somebody would be able to advise. Within Word I have a Docvariable, which individuals would like to add symbols too. The DocVariable is updated via a VBA Dialogue box which contains a textbox. Is there anyway I can get some sort of Symbol functionality, so people can add symbols to the DocVariable via the VBA Dialogue Box or simply update the Word DocVariable in the document. Thanks. Tag: Creating custom text colours Tag: 68743
 - 4
 - sections and pagecount Hi, I want to count pages in a specific section, and futhermore I want to go to the last page in the same specific section. How do I do that? Christina Tag: Creating custom text colours Tag: 68742
 - 5
 - File/Properties Macro I need to create a macro that opens the File/Properties dialog box. I cannot find a "wdDialog" that looks like it would be the right one. Can anyone tell me what the code is to get this box to open? With Dialogs(wdDialog?????????) .Show Thanks! Tag: Creating custom text colours Tag: 68739
 - 6
 - Deleting unwanted page breaks I amusing WORD 97, can anyone supply me with some code that will delete all the page breaks in a document? Thanks in advance -- Mark Tag: Creating custom text colours Tag: 68736
 - 7
 - AutoText - "Look In" <template> Question Is there any way (for both Word 97 and beyond) to programmatically set the "Look In:" template for AutoText? I want to make sure when my macro runs that "All Active Templates" is set before proceeding. I'm concerned about using "SendKeys" because it may not work in later versions and/or other configurations. Thanks, David Tag: Creating custom text colours Tag: 68725
 - 8
 - version problems - getting error message from macro run in 2000 I have created a macro that runs fine in both XP and word 2002. My problem is that when it was run on word 2000 the macro crashed at this bit of code: Sub UpdateBookmark(BkMrkToUpdte as string, TxtToUse as string) Dim BMRange As Range ***** this is the line it stopped at below Set BMRange= ActiveDocument.Bookmarks(BKMrkToUpdte).Range BMRange.Text = TxtToUse ActiveDocument.Bookmarks.Add BkMrkToUpdte, BMRange End Sub This code works fine in XP which I have and 2002 which my boss runs however when he tried to distribute it to another person with word 2000 it crashed here, with the message "requested member of the collection does not exist". Since I don't have 2000 I can not test this but was wondering if this is a version problem. I am currently trying to figure out if the person has all the documents that are associated with the macro since that might be the problem, however it should have bombed when I opened those documents. Any help or assistance with this is appreciated. HBO Tag: Creating custom text colours Tag: 68720
 - 9
 - Create table macro using a loop I'd like to create a table macro using a loop. The columns are fixed. There are 7 columns but the number of rows are dynamic. The number of rows will be determined by a bookmark. Can this be done? I cannot use a catalog merge. It's a long story. Thanks Tom Tag: Creating custom text colours Tag: 68716
 - 10
 - Preventing the steps to record into the undo stack I type a simple 4-letter word in MS-Word. Then, I run a macro which performs 1000 steps. The undo stack records the 4 characters + 1000 steps. Is there a way in MS-Word that I can ask it to not to record only that 1000 steps into the undo stack? Any VB code is fine. There is an article which explains as to how to clear the complete undo stack, but that doesnt help much. Tag: Creating custom text colours Tag: 68715
 - 11
 - Converting Chart to Picture What is the macro code to locate and change an Excel graph embedded in a Word document to a picture? Actually, I have several graphs that need to be converted. I have tried the following without success. Selection.Cut Selection.PasteSpecial.Picture and Selection.Cut Selection.PasteandFormat (Picture) -- Jim Benet Tag: Creating custom text colours Tag: 68708
 - 12
 - Keycode Constants Where can I obtain a list of Microsoft Word Keycode constants and their definitions? -- Jim Benet Tag: Creating custom text colours Tag: 68706
 - 13
 - Word Toolbar Not Showing Up I have an AutoNew macro (below) that is supposed to make the "ModiTemp Macro Button" custom toolbar visible when it runs, but it does not work. CommandBars("ModiTemp Macro Button").Visible = True Any help answering why this does not work will be greatly appreciated. Tag: Creating custom text colours Tag: 68705
 - 14
 - Formatting Table Columns The following code snippet is from a VB6 routine that is trying to format the columns in a table. It, however, gets an error upon attempting to set the PreferredWidthType property. Any ideas? Set oTable = oWDoc.Tables(1) ' ' code that works and is unimportant to this question goes here ' oTable.Rows(1).Select oWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Set oRange = oWord.Selection.Range With oRange .Columns(1).PreferredWidthType = wdPreferredWidthPoints .Columns(1).PreferredWidth = oWord.InchesToPoints(0.4) End With TIA! -- TFWBWY...A Tag: Creating custom text colours Tag: 68704
 - 15
 - Range Selection X and Y For Drawing Our customer is very demanding in that they need some artwork drawn begining with the selected text. How is it possible to find the X and Y positions of a selected range so that I can start drawing lines from there? Tag: Creating custom text colours Tag: 68703
 - 16
 - Simple Question: clearing Shape Collection Hello, I am looping through a number of documents putting a specific paicture in each document. They only problme I am having is that when the picture is being placed int he .doc a number of other pitcures are imposed on top of it, presumably the whole activedocument.Shapes collection. I figure I need to clear/empty the collection at the end of the loop before I use Set oShape = ActiveDocument.Shapes.AddPicture to put the new image into the document. Any help would be very appreciated. Matt (VB Newbie) Tag: Creating custom text colours Tag: 68694
 - 17
 - How do I get OMR (Optical Mark Recognition) in MSWORD? Tag: Creating custom text colours Tag: 68693
 - 18
 - Getting a Path from File Open Dialog I'm trying to use Word's File Open Dialog to have the user select an Excel file (for linking purposes). I can return the Excel file's NAME, but I can't seem to return the PATH. My VBA code is: With Dialogs(wdDialogFileOpen) .Display xlOpen = .Name End With What should I use to get the file's path? Also, is there an easy way to have the File Open Dialog use "all files" as the default for the file type? Thanks! Tag: Creating custom text colours Tag: 68689
 - 19
 - MailMergeAfterMerge event Hi all, I am developing a c# console application that takes data from a database and doing a mail merge in word 2003 to create a contract. I added an event handler for the MailMergeAfterMerge event: _WordApp.MailMergeAfterMerge += new Word.ApplicationEvents4_MailMergeAfterMergeEventHandler(wrdApp_MailMergeAfterMerge); In the event handler I save the doc and am doing a Console.WriteLine to see when it is firing so I can debug it: result.SaveAs(ref _oContractPath, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing); Console.WriteLine(_oContractPath.ToString() + " Saved."); The issue I am having is that this event does not fire all the time. It is really inconsistent. Right now I am testing with 11 contracts. The first time I run the application one of the contracts does not get saved. The next time all will be ok. Then the next time I run it 4 contracts did not save. I don't know why the inconsistency but it is really bugging me. Does anyone have any ideas why it works only sometimes? Please Help!! Thank you in advance. Danny Tag: Creating custom text colours Tag: 68688
 - 20
 - Adding References I have a question about Tools, References. I am working on custom templates for a law firm who is using Windows XP and Word 2003. There is a global template which has code modules which will be used in several other templates, such as letter, memo, fax. Previously, the word startup directory was the same for each user (C:\Program Files\Microsoft Office\.....). Under Windows XP, each user has a different startup location (C:\Documents and Settings\username\.....). How do I set a reference to a global template that will be in a different location for each user who logs onto a machine? Thanks, Anne P. Tag: Creating custom text colours Tag: 68686
 - 21
 - Problem driving Word from Access Hello, I have been learning to control Excel and Word from Access using VBA and references to these two apps. I've had pretty good success, but I ran into one, stubborn problem. My Access application uses the TransferSpreadsheet method to populate some Excel worksheets. It then opens Word docs that have tables which are linked to those Excel worksheets. After all that happpens, I need to save the Word docs under a different name and break the links to the Excel worksheets. I got the first part with this code: ActiveDocument.SaveAs ("Copy of Document Name"). But I can't figure out how to break the links in the Copy of document. Can anyone help? Thanks, Jeff. Tag: Creating custom text colours Tag: 68684
 - 22
 - Select Case and Like Comparison Hello, The VBA help file for the Select Case statement says the test expression should be a numeric or string expression. I am trying to use a Select Case statement to perform a Like comparison on a test string. Test1 below illustrates one of many failed attempts to use "myString" as the test expression and a Like statement in the Case statement. Sub Test1() Dim myString As String myString = "ABCD" Select Case myString Case Like "A??D" 'Compile error here MsgBox "Match" Case Else MsgBox "No match found" End Select End Sub I did discover however, that I could use the boolean value "True" as a test expression and the Select Case routing works as expected. Sub Test2() Dim myString As String myString = "ABCD" Select Case True Case myString Like "A??D" MsgBox "Match" Case Else MsgBox "No match found" End Select End Sub Questions: Is there a way to use a string expression as the test expression and Like in the Case statements? Would using the boolean value True as the test expression cause instability or introduce errors in procedure? Thanks Tag: Creating custom text colours Tag: 68680
 - 23
 - Print Macro listing Is ther e a way to print out a listing of the names of all the Macros a person has created in Word VBA? Just all the names, not the VBA code. Thanks. Tag: Creating custom text colours Tag: 68679
 - 24
 - Adding the file path automatically to all 2003 word footers I would like to be able to automatically be able to add the file path and file name (In the Footer) to all of the 2003 Word Documents that I create without having to add it manually each time I create a word document. Tag: Creating custom text colours Tag: 68678
 - 25
 - Error 4609- String Too Long Anybody know anything about the string too long error message. I'm copying form field text from one doc to another using the following line of code: CurrentDoc.Range.FormFields("ScopeOfRegistration").Result = OldReport.Range.FormFields("ScopeOfRegistration").Result And I get the error if the text is too long. The formfields are set to unlimited text, and I can manually copy from one to the other, so I know it's not a table row size limitation, but I can't figure out why I am getting this message. Any words of wisdom would be much appreciated. Tag: Creating custom text colours Tag: 68677
- Next
 - 1
 - Insert Database Hello, In MS Word I want to query (using MS Query) a database and insert the results in a table. I have recorded the actions in a macro. This works fine so far. But when I want to run the macro again, there is still an action I have to do by hand. Below you'll find the code. When I run this code I still need to select a datasource and click the 'Open' button. How can I alter the code so that clicking 'Open' is not necessary? Sub Macro() Dim strT As String strT = "Topology" Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=True, _ Connection:= _ "DSN=RAM ODBC;ARServer=server;ARServerPort=1234;UID=xxxxx;PWD=xxxx;ARAuthentication=;ARUseUnderscores=1;ARNameReplace=1;SERVER=NotTheServer" _ , SQLStatement:= _ "SELECT strT.Status, strT.Relationship, strT.Parent_Name, strT.Parent_ID, strT.Child_Name, strT.Child_ID FROM strT strT WHERE " _ & _ "(strT.Parent_Name Like 'Test%') ORDER BY strT.Parent_Name" _ , PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _ WritePasswordTemplate:="", DataSource:="", From:=-1, To:=-1, _ IncludeFields:=True End Sub Thanks! Tag: Creating custom text colours Tag: 68662
 - 2
 - Help with school work How do I translate my writing into Egyption Hieroglyphic Tag: Creating custom text colours Tag: 68661
 - 3
 - VBA Errors in Excel Hi all, I have code that runs, and has errors ignored - using an on error resume next statement. However, after a while, I need it to again check for errors - that is stop the resume next. For example On error resume next ... ...code with errors ignored ... ... 'need it to stop it ignoring errors at this point ...code where errors are not ignored ... ... ...'need it not to ignore errors here this is probably a really simple problem, but I am new to vba. Is there a way to break out of the error ignoring. Also, I cant run the second part of the code first (before the ignore errors statement, since it relies on that code running in the first place. Thanks Cedop Tag: Creating custom text colours Tag: 68656
 - 4
 - export a word2003 document list to excel2003 in discreet rows I have a long list of links (66 pgs) in word 2003 that I want to sort easily in many ways. how do I export to excel2003 into discreet rows for each link which are on separate lines in the document. I tried all (.doc,.html,.xml). Can I do it directly? Or do I have to resort to a VBA solution? Tag: Creating custom text colours Tag: 68655
 - 5
 - Resizing footnote pane with keyboard Is ther eany way to resize the footnote pane with the keyboard? I would like to make a macro to do it, but I don't know how to do it with the keyboard. Thanks for any help. Tag: Creating custom text colours Tag: 68653
 - 6
 - Pasting an Excel table as a metafile in word via VBA I have been trying to paste a specified range of cells in Excel into Word as an enhanced metafile, using the code below (modified from a listing in Guy Hart-Davis' excellent book on Word VBA). If I paste as text or RTF, there is no problem, but when I try and paste as a metafile, I get the following error: "Run-time error 5342: The specified data type is not available" Any thoughts? Thanks in advance Simon Sub Getting_Value_from_Excel() Dim MySpreadsheet As Excel.Workbook Dim strSalesTotal As String Set MySpreadsheet = _ GetObject("c:\Sales Forecast.xls") With MySpreadsheet.Application .Visible = True .Parent.Windows("Sales Forecast.xls").Visible = True .Range("salestotal").Copy .Workbooks("Sales Forecast.xls").Saved = True .Quit End With Set MySpreadsheet = Nothing Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile End Sub Tag: Creating custom text colours Tag: 68651
 - 7
 - Relative file path I have an excel spreadsheet that contains calculations and a Word document that has a number of link references to it within the text of a report. Everything works fine and the excel sheets show up in the report as another page with headers and footers and correct page numbers etc. The problem occurs when I want to copy the two files to another project subdirectory and then try to make chnges to both. All the links in the Word document still refer back to the original excel spreadsheet back in the first project subdirectory. I have to manually repoint all the links to the new project subdirectory. Is there any way to cause the link to be to a relative address, that is make it look for the excel file in the same directory that contains the Word file? I can only figure out how to tell it absolute addresses of links. Is there a simple way to change the references (about 75) using vba? I will also post this in the Word and Excel group.. Tag: Creating custom text colours Tag: 68650
 - 8
 - Date Conversion Is there any way to preserve formatting with date conversion. Sub Test() Dim myString As String Dim myDate As Date myString = "February 12, 1969" myDate = CDate(myString) End Sub myDate in the above is returned as 2/12/69. I am trying to figure out how to preserve the date format during conversion. If myString is 2/12/69 then myDate should be 2/12/69. If myString is 12 February 1969 then myDate should be 12 February 1969. Can this be done without some elaborate analysis of mySting and setting up a Format(myDate, ......) statement? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Creating custom text colours Tag: 68648
 - 9
 - WinWrap Basic? Visual Basic for Applications? I am playing with Dragon NaturallySpeaking (Naturally Speaking) Advanced Scripting capabilities. According to the documentation, it is "Visual Basic for Applications compatible". It also mentions WinWrap Basic, once. I own Microsoft's Visual C++ NET 2003. Can I buy and use Visual Basic for a Visual Basic for Applications programming environment? Is Visual Basic for Applications a language by itself, or is the syntax, keywords, and stuff dependent on the application? Thank you. This is the language reference, a duplicate of the online help. www.asent.com/downloads/at2k2vb50.pdf Tag: Creating custom text colours Tag: 68637
 - 10
 - Disable Copy Paste in a saved document Is it possible to disable the copy paste function for other users in saved Word 2003 documents? Tag: Creating custom text colours Tag: 68632
 - 11
 - How do I get a macro to stop at the bottom of the document using c Many times I record a macro to do repeated actions. As an example, I record the macro to do one set of actions and store the macro in Alt-5. To run the macro down the page I keep hitting Alt-5. However, when I reach the end of the document, the macro goes back to the top of the document and starts over again. This is bad because of the text in the document. How do I stop a macro from executing if the macro has reached the end of the document. Here is an example of a multiple step macro I want to stop when the bottom of the page is reached. Selection.Find.ClearFormatting With Selection.Find .Text = "<a name=""" .Replacement.Text = "[GoTo]</a> ^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Cut Selection.HomeKey Unit:=wdStory ActiveWindow.ActivePane.SmallScroll Down:=4 Selection.Find.ClearFormatting With Selection.Find .Text = """>[GoTo]</a> " .Replacement.Text = "[GoTo]</a> ^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.TypeText Text:="}}}" Selection.PasteAndFormat (wdPasteDefault) Selection.Find.ClearFormatting With Selection.Find .Text = "</a><a href=" .Replacement.Text = "[GoTo]</a> ^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.SmallScroll Down:=-1 Selection.Find.ClearFormatting With Selection.Find .Text = """>" .Replacement.Text = "[GoTo]</a> ^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.SmallScroll Down:=-2 Selection.Find.ClearFormatting With Selection.Find .Text = "<a name=""" .Replacement.Text = "[GoTo]</a> ^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting With Selection.Find .Text = "<a href=""#" .Replacement.Text = "[GoTo]</a> ^p" .Forward = False .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend Selection.MoveRight Unit:=wdCharacter, Count:=1 End Sub Tag: Creating custom text colours Tag: 68627
 - 12
 - How can I insert a name in Chinese in the header of a RTF doc? I am creating a Chinese document using Word, and saving it as an RTF template. Then from a program where a person enters their name in Chinese, I am inserting the name as Unicaode 8 in the RTF. When the new document is opened in Word, the Chinese text is fine, but the name in the header appears as question marks ("?????"). I would appreciate any hwlp yuou can give - I am stuck. Thanks. Paul Tag: Creating custom text colours Tag: 68626
 - 13
 - insert a backspace character in a wrapped around line in MS Word 2 I would like to insert a backspace at the start of a wrap around line to form one line out of 2 in a database in Word which I will later import into Excel Tag: Creating custom text colours Tag: 68624
 - 14
 - FileSystemObject.copyfile I have been trying to copy a file using the following code but it gives the error Error '438' Object doesn't support this property or method Code below Dim UpdateTimeElement(0 To 3) As String Dim Network_path, local_path Public Sub main() '(UpdateTimeElement) Call GetNetworkPath.main(Network_path, local_path) Dim FileNameArray As Variant Dim ProdNumArray As Variant Dim outMessage As String Dim oOutlook As New outlook.Application Dim oMessage As outlook.MailItem Dim FileNumber As Integer Dim fs As Object Set fs = CreateObject("Scripting.FileSystemObject") FileNameArray = Array("0021", "0003", "0017", "0045") Set oMessage = oOutlook.CreateItem(olMailItem) With oMessage .To = some email address .Subject = Format(Now(), "hhmm ddd, dd-mmm-yyyy") For i = 0 To 3 Set fs = Application.FileSearch With fs .LookIn = "z:\" + FileNameArray(i) + "\" .filename = "z:\" + FileNameArray(i) + "\" + FileNameArray(i) + ".1" If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then filename = "z:\" + FileNameArray(i) + "\" + FileNameArray(i) + ".1" fs.CopyFile filename, "c:\temp" Else filename = "z:\" + FileNameArray(i) + "\" + FileNameArray(i) + ".2" End If End With .Attachments.Add filename, olByValue, 1, FileNameArray(i) + ".tif" Next i .body = outMessage .Display End With End Sub I dont know if i'm just not understning how to use this FleSystemObject initially I just had FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\" in the code but it didn't work either. should I declare someting for this to work. I think i really need some help Phil Tag: Creating custom text colours Tag: 68621
 - 15
 - delete page I have a long document divided into separate pages using page breaks I want to delete every page which does not contain a particular keyword How do I 1. Search just each page one by one 2. Delete any complete page if a keyword is not found Thanks -- Patrick Tag: Creating custom text colours Tag: 68618
 - 16
 - HTML document in Word ignores changes I recently took over creating a newsletter for the store I work for. This is sent out to a large customer base so rather than have a large email, we link the images in the email to our server and I upload the iamges to the desginated directory on the server. I create the document in Word and then save it as a html document. Then I open the html document, view the source and proceed to change the image paths. However, when I tell it to save I get a message that states "The expected file path is different, do I want to update anyway?" If I click yes, it changes the paths to point back to my local computer. If I tell it no, it removes the path completely and if I cancel it of course doesn't save. Help! Amy Tag: Creating custom text colours Tag: 68609
 - 17
 - Automating PowerPoint It is my understanding that PowerPoint is a single instance app, i.e., there can be only a single instance of Powerpoint running. I've been using code such as the following: 'Get existing instance of PowerPoint; otherwise create a new one ' Powerpoint is a single instance application On Error Resume Next Set appPPT = GetObject(, "PowerPoint.Application") If Err.Number = 0 Then blnNewPPT = False Else Set appPPT = New PowerPoint.Application blnNewPPT = True End If On Error Goto 0 and then With appPPT If blnNewPPT Then .Quit Else .ActivePresentation.Close End If End With However, I suspect that code may not be good enough. If I created the NEW PowerPoint instance in code, how can I determine whether the instance is not being by somebody outside of my code? Somebody could have started Powerpoint session whilst my code is running, AFTER I created the NEW Powerpoint. Is the only choice to leave PowerPoint running? Tag: Creating custom text colours Tag: 68608
 - 18
 - Deleting a line in WORD when a certain string is found How can I delete a line(complete paragraph) in WORD when I find a certain string? Lets say the string is somehere within the paragraph? Thank You Charles BinzHow Tag: Creating custom text colours Tag: 68607
 - 19
 - How do I view word documents when I only have works 4.0 I can not open word documents with work 4.0, is there away to download word on windows 98? Tag: Creating custom text colours Tag: 68589
 - 20
 - complex macro Hello, I would like to create a macro that will open 4 forms with 1 button click. any ideas? thanks, mojr Tag: Creating custom text colours Tag: 68584
 - 21
 - IncludeText field font size I have a dynamic document which pulls a lot of its text from IncludeText fields from text files. No matter what I do the text always comes out as 10 pt font, I need it to be 8pt. I always have to reformat after all the fields are populated. Is there a switch so that they come down 8pt? I have all the fields set to /* MERGEFORMAT. But when the files recreated, and the fields are updated, they are 10pt again. I guess I could write a macro to reformat them but that seems redundant Tag: Creating custom text colours Tag: 68583
 - 22
 - Trouble rearranging paragraphs I'm trying to set up a macro to sort groups of paragraphs that repeat as shown below: DATE: XXXXXXX PHONE: XXXXXXX CALL CENTER: XXXXXXX ACCOUNT: XXXXXXX ORG NAME: XXXXXXX REASON TO CALL FROM SAMPLE: XXXXXXX REASON TO CALL FROM CUSTOMER: XXXXXXX CONTACT NUMBER: XXXXXXX TIME TO CALL: XXXXXXX COMPANY PHONE: XXXXXXX NAME: Jane Doe ISSUE IN DETAIL: XXXXXXX SPECIAL: XXXXXXX DATE: XXXXXXX PHONE: XXXXXXX CALL CENTER: XXXXXXX ACCOUNT: XXXXXXX ORG NAME: XXXXXXX REASON TO CALL FROM SAMPLE: XXXXXXX REASON TO CALL FROM CUSTOMER: XXXXXXX CONTACT NUMBER: XXXXXXX TIME TO CALL: XXXXXXX COMPANY PHONE: XXXXXXX NAME: Joe Blow ISSUE IN DETAIL: XXXXXXX SPECIAL: XXXXXXX I'm trying to use the following formula: Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = "(ORG NAME:*^13REASON TO CALL FROM SAMPLE:*^13REASON TO CALL FROM CUSTOMER:*^13CONTACT NUMBER:^13TIME TO CALL:*^13COMPANY PHONE:*^13)(NAME:*^13)" .Replacement.Text = "\2\1" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll All I'm trying to do is move "NAME:" up before "ORG NAME:". However, when I use this formula, it moves both the first -and- the last instance of "NAME:" in the document above the first instance of "ORG NAME:". Is there any way to avoid this? Thanks! Tag: Creating custom text colours Tag: 68582
 - 23
 - How do I report a bug in Office 2003 on Tables properties? In MS Word you can set a table properties you can set "Repeat as Header row on the top of each Page"... However, when trying to do it in VBA behind Office in a Macro as listed below it does not work. Sub Macro1() Selection.Tables(1).Rows.HeadingFormat = True End Sub Please advise the correct VBA Syntax.. Additional documentation available upon request Tag: Creating custom text colours Tag: 68580
 - 24
 - sequentially numbering a word document as they are printed How do I create a word template to have a macro that will sequentially number the forms by a set number requested to print. For example, when I open the document I would request forms to print 100-200 and than each form printed would autonumber the forms with 100, 101, 102, etc. Tag: Creating custom text colours Tag: 68579
 - 25
 - Push special chars from an external application to Word Doc Hi, I use Word from an external application for filling a template automated: each tag will be replaced with some real content by a Find/Replace command inside a loop. I have some trouble with special (national) characters. 1. If I push a text which has a "Å?" inside, it will appear in the text as is (of course, as it is not a character) 2. If I push those characters as characters (as #336), they will be changed inside Word, the punctuation will be lost. Is there any technique how special characters can be pushed into Word from an external application? Thanks, Peter Tag: Creating custom text colours Tag: 68575

I am using WORD 97, is it possible to create custom text colours, if so would
someone be kind enough to provide me with some code?

Thanks
--
Mark

Top

Re: Creating custom text colours by Dawn

Dawn
Tue May 24 10:36:12 CDT 2005

I don't have Word 97 to test with, but this code will work with Word
2000.

With ActiveDocument.Styles("Normal").Font
.Color = RGB(0, 174, 23)
End With

I did discover that all combinations of the RGB were not recognized,
but at least this gives you something to "play" with.

--
Dawn Crosier
Microsoft MVP
"Education Lasts a Lifetime"

This message is posted to a newsgroup. Please post replies and
questions to the newsgroup so that others can learn as well.

"Mark" <Mark@discussions.microsoft.com> wrote in message
news:BFF29947-9606-4667-9464-F24B644D608F@microsoft.com...
>I am using WORD 97, is it possible to create custom text colours, if
>so would
> someone be kind enough to provide me with some code?
>
> Thanks
> --
> Mark

Top