File/Properties Macro

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - 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: File/Properties Macro Tag: 68736
 - 2
 - 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: File/Properties Macro Tag: 68725
 - 3
 - 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: File/Properties Macro Tag: 68720
 - 4
 - 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: File/Properties Macro Tag: 68716
 - 5
 - 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: File/Properties Macro Tag: 68715
 - 6
 - 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: File/Properties Macro Tag: 68708
 - 7
 - Keycode Constants Where can I obtain a list of Microsoft Word Keycode constants and their definitions? -- Jim Benet Tag: File/Properties Macro Tag: 68706
 - 8
 - 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: File/Properties Macro Tag: 68705
 - 9
 - 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: File/Properties Macro Tag: 68704
 - 10
 - 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: File/Properties Macro Tag: 68703
 - 11
 - 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: File/Properties Macro Tag: 68694
 - 12
 - How do I get OMR (Optical Mark Recognition) in MSWORD? Tag: File/Properties Macro Tag: 68693
 - 13
 - 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: File/Properties Macro Tag: 68689
 - 14
 - 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: File/Properties Macro Tag: 68688
 - 15
 - 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: File/Properties Macro Tag: 68686
 - 16
 - 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: File/Properties Macro Tag: 68684
 - 17
 - 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: File/Properties Macro Tag: 68680
 - 18
 - 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: File/Properties Macro Tag: 68679
 - 19
 - 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: File/Properties Macro Tag: 68678
 - 20
 - 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: File/Properties Macro Tag: 68677
 - 21
 - 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: File/Properties Macro Tag: 68662
 - 22
 - Help with school work How do I translate my writing into Egyption Hieroglyphic Tag: File/Properties Macro Tag: 68661
 - 23
 - 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: File/Properties Macro Tag: 68656
 - 24
 - 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: File/Properties Macro Tag: 68655
 - 25
 - 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: File/Properties Macro Tag: 68653
- Next
 - 1
 - 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: File/Properties Macro Tag: 68651
 - 2
 - 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: File/Properties Macro Tag: 68650
 - 3
 - 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: File/Properties Macro Tag: 68648
 - 4
 - 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: File/Properties Macro Tag: 68637
 - 5
 - 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: File/Properties Macro Tag: 68632
 - 6
 - 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: File/Properties Macro Tag: 68627
 - 7
 - 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: File/Properties Macro Tag: 68626
 - 8
 - 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: File/Properties Macro Tag: 68624
 - 9
 - 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: File/Properties Macro Tag: 68621
 - 10
 - 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: File/Properties Macro Tag: 68618
 - 11
 - 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: File/Properties Macro Tag: 68609
 - 12
 - 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: File/Properties Macro Tag: 68608
 - 13
 - 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: File/Properties Macro Tag: 68607
 - 14
 - 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: File/Properties Macro Tag: 68589
 - 15
 - complex macro Hello, I would like to create a macro that will open 4 forms with 1 button click. any ideas? thanks, mojr Tag: File/Properties Macro Tag: 68584
 - 16
 - 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: File/Properties Macro Tag: 68583
 - 17
 - 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: File/Properties Macro Tag: 68582
 - 18
 - 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: File/Properties Macro Tag: 68580
 - 19
 - 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: File/Properties Macro Tag: 68579
 - 20
 - 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: File/Properties Macro Tag: 68575
 - 21
 - Reading layout view Is the View of a document something that is stored in the local profile or within the document? I.e. is it something that I can set programmatically so that when a customized document is created and subsequently opened by the user or an external recipient, it always shows in a certain view? -- TFWBWY...A Tag: File/Properties Macro Tag: 68573
 - 22
 - Prevent opening Word Template more than once I have a very specific requirment. I have to ensure that a specific Word template is never opened more than once. I'm new to VBA so this maybe the easiest thing in the world but so far it has driven me to multiple injured keyboards and dead mousies! Any help would be MUCH appreciated. Thanks, Dean Tag: File/Properties Macro Tag: 68565
 - 23
 - spelling error underline I've got a word doc that is protected and has a number of form fields for users to complete. When you type in the form fields and make a spelling mistake it doesn't underline the word in red to highligh an error, anyone know how i can make it do this. i've checked the Options.CheckSpellingAsYouType property and it's set to true. Tag: File/Properties Macro Tag: 68551
 - 24
 - How to get and set AutoShape location on a Drawing Canvas with VBA Can anyone tell me how to get and set a shape's location on a drawing canvas using VBA? I am using Word 2002 (Office XP) and whenever I read the Left and Top attributes of a shape that is on a canvas, they are always the same value as the Left and Top attributes of the canvas itself. When I try to set the values of the Left and Top attributes, they seem to be ignored. Here is the VBA code I am using to debug the issue: Sub ShowAllShapes() Dim shp As Shape Dim ci As Shape For Each shp In Documents("Doc5.doc").Shapes ShowShape shp If shp.type = msoCanvas Then For Each ci In shp.CanvasItems ShowShape ci Next ci End If Next shp End Sub Sub ShowShape(shp As Shape) shp.Select Debug.Print "Type=" & shp.type Debug.Print " Left=" & shp.Left _ & ", Top=" & shp.Top _ & ", Height=" & shp.Height _ & ", Width=" & shp.Width _ & ", RelativeHorizontalPosition=" & shp.RelativeHorizontalPosition _ & ", RelativeVerticalPosition=" & shp.RelativeVerticalPosition Debug.Print End Sub TIA - Perry Tag: File/Properties Macro Tag: 68549
 - 25
 - How do I auto number word docs like invoice numbers Is there any easy way to have a doc say Purchase-Order, then each time the doc is accessed then a number goes into the doc number field, then when the doc saves, it saves it with the number like P-ORDER-xxxxxxx Tag: File/Properties Macro Tag: 68544

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!

Top

RE: File/Properties Macro by CShel

CShel
Tue May 24 07:04:05 CDT 2005

Never mind...I found it: wdDialogFileSummaryInfo

"CShel" wrote:

> 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!

Top