Displaying a FileOpen dialog in desired sort order

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Determining whether a range is inside a field Version: Word 2000 SR-1 I have some text that I need to use within an If field. The text may contain double quotes, and may also contain other fields. Because the If field treats a double quote as delimiting an argument, I want to replace any double quotes with a Symbol field representing the quote. However, if a double quote is within a field, I want to leave it unchanged. I can do the first part like this: Private Sub Replace_Quotes(sel as Word.Selection) While Find_Text(sel, """") sel.Fields.Add sel.Range, wdFieldSymbol, "34", False Wend End Sub Private Function Find_Text(sel As Word.Selection, search_text As String) With sel.Find .ClearAllFuzzyOptions .ClearFormatting .Forward = True .MatchWholeWord = False .MatchWildcards = False .Text = search_text .Wrap = wdFindStop Find_Text = .Execute End With End Function This works, but that if my selection contains a field like this: { TIME \@ "dd MMMM yyyy" } the quotes inside the field also get replaced with the Symbol field. So, is there any way to determine whether sel.Range relates to something that's inside a field? If there isn't, I suppose I could do it by recording each field's definition before I start, and then restoring each field to it's original state. Is there a better way? Thanks. Andy Bowles Tag: Displaying a FileOpen dialog in desired sort order Tag: 44967
  - 2
    - Replacing MS Notepad WHEN I DOWNLOAD A FORM OR APPLICATION I CLICK ON THE FILE TAB BESIDE THE EDIT ON THERE IT SAYS NEW, OPEN, EDIT WITH NOTEPAD AND SAVE AS. I CLICK ON SAY AS AND DOWNLOAD IT. BUT WHEN I'M OFF LINE TO WORK ON IT I ONLY CAN WORK ON IT IN NOTE PAD FORM WITHOUT THE HTML. WHEN I TRY TO OPEN IT IN MY MICROSOFT WORD PROCESSOR. I GET THAT IT CAN'T BE DONE CAUSE I DON'T HAVE A CONVERTER TO SUPPORT IT. I HAVE WINDOWS ME, WITH MICROSOFT WORKS 6.0.. NOW ON MY FRIENDS PC I CAN DOWN LOAD THE SOMETHING THE SAME WAY AND I CAN EDIT IT WITH HIS MICROSOFT WORD PROCESSOR. THE ONLY THING I SAW DIFFERENT WAS IF YOU CLICK ON HIS FILE ON TOP BESIDE EDIT HIS SAYS NEW, OPEN, EDIT WITH MICROSOFT WORD PROCESSOR...AND MINE SAYS EDIT WITH NOTEPAD...MY QUESTION IS HOW DO I CHANGE MINE TO EDIT WITH MICROSOFT WORD PROCESSOR...........PLEASE HELP ME PLEASE........THANKS JOHN Tag: Displaying a FileOpen dialog in desired sort order Tag: 44964
  - 3
    - Please review code I am using a template with fixed cell dimensions. I am taking information from a vb.net form and using bookmarks a placeholders for the form data. I am not using fixed-width fonts. If the data wraps in the cell due to length - I need to move all tex from the 2nd line forward to the next cell. The following code now works - but I would like any tips or comments o code to make it more efficient. Thanks in advance. Matt Private Sub cmdGenerate_Click(ByVal sender As System.Object, ByVa e As System.EventArgs) Handles cmdGenerate.Click ' Declare the variables Dim m_WordServer As Word.ApplicationClass m_WordServer = New Word.Application() Dim word_filename As String Dim wdGoToBookmark As Word.Bookmark Dim myrange As Word.Range Dim oTable As Word.Table Dim oCell As Word.Cell Dim lngBegRange As Long Dim lngEndRange As Long 'Get the discharge template path word_filename = GetRegValue("Software\\Documentation" "DischargeTemplatePath") Try With m_WordServer ' Open and acitvate the document Tag: Displaying a FileOpen dialog in desired sort order Tag: 44962
  - 4
    - Insert Text Box What is the best way to bring the cursor to the last page of a document and insert a text box? I've tried several pieces of code, but I keep running into buggy issues. Thank you, Doug Tag: Displaying a FileOpen dialog in desired sort order Tag: 44957
  - 5
    - Insert text from UserForm into current cursor position I've done my Usenet homework on this, but still can't find the proper syntax for this: I have a UserForm open, with some text stored in the "txtInsert" field in the form. What is the syntax to attach to a command button on the form to insert the value of txtInsert into the document at the current cursor position? TIA Tag: Displaying a FileOpen dialog in desired sort order Tag: 44953
  - 6
    - Mouse Wheel Am I the only one who has noticed that the mouse wheel does not work in VBA? It is impossible to scroll using the wheel when programming.... Knut Tag: Displaying a FileOpen dialog in desired sort order Tag: 44947
  - 7
    - Entering Text into a Text Field I am trying to insert a text field which will allow for enough space when entering the text. The problem is that once I have made the form, when text is typed into the field by a user, the text following the field moves. I want the field to provide enough space in the form without having the following text move. Is this possible? Is there a way to "freeze" the text on the form? Tag: Displaying a FileOpen dialog in desired sort order Tag: 44946
  - 8
    - Modify text between certain tags Hi all! How to modify (i.e. toggle bold) all the strings in document which are between certain tags? Strings are like: ##THIS_IS_A_STRING## Spaces between tags "##" are not allowed. So, all the occurences in the Word document should be modified, how could this be done? Tag: Displaying a FileOpen dialog in desired sort order Tag: 44945
  - 9
    - API for Custom Document Properties & Comments Hello I am trying to export information such as custom document properties and comments from a Word 2000 document to another application written in php. I understand vba very well but I am at a loss as to how to do this Thanx for the help Rami Tag: Displaying a FileOpen dialog in desired sort order Tag: 44944
  - 10
    - can't capture Edit>Links... in word macro I am trying to create a macro that will break all existing OLE links in a MS Word 2002 document The master document containes a series of OLE links to text (paragraphs) in other documents. I want to break the links in the master doc so it is only static text. When I record amacro - all document oiperations are captured in teh macro except the Edit>Links... dialog is not captured I have tried using the following code with no success (perhaps shapes are not word documents? Dim shapeLoop As Shap For Each shapeLoop In ActiveDocument.Shape With shapeLoo If .Type = msoLinkedOLEObject The .LinkFormat.Updat .LinkFormat.BreakLin End I End Wit Next shapeLoo Any ideas on how to craete this generic macro Thanks Mark McFarlane Tag: Displaying a FileOpen dialog in desired sort order Tag: 44937
  - 11
    - run-time error '5941' after merging Hi, I'm working on an Word offertemplate, after lots of hardworking, it's finished! But now there's a big problem, If the template is merged with our CRM software (called Winris, a dutch company) The macro's won't work anymore. If you use the template manualy all the macro's work fine, but after merging (and even saving in the same directory as the Template)you'll get the next error message: Run-time error '5941' The requested member of the collection does not exist. ONly the index-macro still works fine (not connected to any external file). In the template I've used macro's like: Sub AMwest() ' ' AMwest Macro ' Macro opgenomen op 31-10-03 door Receptie ' ChangeFileOpenDirectory _ "F:\data\Public\Offerte documenten\Gegevens Accountmanager\" ActiveDocument.Bookmarks("ButtonAM").Select Selection.InsertFile FileName:="amwest.doc", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False End Sub I'm using word2000 and VB6, we use the crm-sw to merge the customername and adress with the offer (one at a time). And then select severel options (by non-working macros at the moment. I hope someone can help me with this problem since we're dealing with it for several months by now! Thanx in Advance B Meijer from the Netherlands p.s. I just found out it's caused by the bookmarks wich are gone after merging!:confused: Any idea anybody? ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Displaying a FileOpen dialog in desired sort order Tag: 44928
  - 12
    - Defining Range Objects Using Bookmarks Word 2000 I have a document that is used as a boiler plate for text. Throughout the course of a shift we will paste blocks of data into the document. At the end of the shift we process the data using a set a macros that I've written. Currently, the macros work by moving the cursor in the document to select blocks of text. I'm now working on having the macros use range objects instead. The blocks of text can be of varying lengths, so I can't use a set number of characters, lines, or paragraphs to create the range objects--they have to be dynamic in that respect. So I thought that I would use bookmarks. I've figured out how to create a bookmark each time a block of text is pasted into the document. I'm creating the bookmark at the end of the block of text. However, I haven't been able to figure out how to use those bookmarks to define my range objects. What I would like to do is have the macro define the range object so that it starts with the current cursor location and ends with the NEXT bookmark. How can I do that? --Tom Tag: Displaying a FileOpen dialog in desired sort order Tag: 44927
  - 13
    - help with macro I have a document with multiple tables (separated). What I would like to do is create a macro that selects a certain table and then pulls out only the rows that have text in the second column and puts these rows at the bottom of the document as a new page. The table has four columns. First column has a few lines of text describing an action that has to be taken (this is a "minutes" document). The second column will have a name of the person that is responsible for the action (Last name, first name). The third column would have a due date. So really what I want is to pull out just the action items, which would be the rows with a person's name in the second column, and list them on a separate page at the bottom of the document. Also would like it to be sorted by ascending alpha order by person's name. I have done macros using tools - macros and recording the macro while performing certain steps. I believe I would have to use VB code and I am not real familiar with that. I hope this makes sense. Just another thought. Would it make more sense to create fields using table of contents fields? This way if I update the body of the document it would also update the summary page at the end of the document. Thank you for any help you can give. Dorothy Tag: Displaying a FileOpen dialog in desired sort order Tag: 44921
  - 14
    - Multiuser access to a file on our server We are using a number of "boiler plate" type text entries that get inserted into documents by a function "fnInsertText" that's in the Normal template on each workstation. The text entries are arguements passed to fnInsertText, which performs certain operations on them and then inserts them into the document. There are about 100 text entries of one-sentence size. They are subject to continual Add/Change/Delete operations. I'd like some ideas on how and where to store these text entries on our network so that they are available to all the workstations, and can be maintained by editing a single file on the server. I thought about retrieving them from the server as a tab-delimited text file and putting them into an array in the workstation module that contains "fnInsertText" ... something like that, but there are probably better ways ... I assume that accessing them directly from a file on the server would create a great many problems related to sharing, network speed, etc. Thanks very much Tag: Displaying a FileOpen dialog in desired sort order Tag: 44911
  - 15
    - How to create custom template that will replace standard bullets? Hello I have a ton of word 2000 documents that i would like to modify so that I can put them into my FlexWiki web site. What that entails is modifying all of my headers from Heading1, Heading2 etc...to something that wiki can understand like Heading1 would be Heading2 would be ! Heading3 would be !! The theory was that I could create a custom style sheet .dot and then apply it to my existing documents! And whola! I can cut and paste my documents into Wiki. Tag: Displaying a FileOpen dialog in desired sort order Tag: 44909
  - 16
    - Match Whole Word In a macro, I used Ctrl+Find to locate the word "East" in an addr line and change it to "E". While this works fine, it also changes "Eastwood" to "Ewood". I tried using MatchWholeWord=True but it didn't help. I notice that when I use Ctrl+Find outside of the macro environment, it allows me to choose "Find Whole Words Only'. My question is how do I make the macro using Ctrl+Find to use the "Find Whole Words Only" command. Thanks muchly for your time and expertise Joanne Tag: Displaying a FileOpen dialog in desired sort order Tag: 44904
  - 17
    - Visual Basic Error When I start Word2000, I get a Microsoft Visual Basic Window that claims a runtime error '48' It says that a file was not found (QStartup.dll) This started appearing after I uninstalled a number of programs. Any idea what is causing this and how I can get rid of it? Tag: Displaying a FileOpen dialog in desired sort order Tag: 44901
  - 18
    - Forms and Documents I'm stumped! I'm trying to design a document template that allows the user to put information into a pop-up form ONCE, so that it can be placed at several locations throughout the document. Tag: Displaying a FileOpen dialog in desired sort order Tag: 44900
  - 19
    - Updating Macro in footer I have a macro set up that updates the document version, this is also displayed in the footer of the document but when the macro is run it doesn't automatically update the version number and I have to manually update the field. How do I change this so all the version number instances update when the macro is run? Tag: Displaying a FileOpen dialog in desired sort order Tag: 44895
  - 20
    - Connection String Problem The code below works on, say, 99 out of 100 machines, regardless of the version of Word. I suspect a DLL is missing on the target machine, or a flaw in my code. We are not allowed to distribute DLL files or in any other way change a user's machine. The code below opens a text file (SBAOffices.txt) and parses through to populate a combobox. Dir checks to see if the file exists. It does. strDB is the Temp or Templates directory. The code fails on rs.Open. Record count is 0. Any ideas or comments to help with the thought process would be appreciated. Thanks! Dan ========================== Count = 0 If Dir(strDestination, vbNormal) <> "" Then 'Get count of records in file If strDB = "" Then strDB = ActiveDocument.AttachedTemplate.Path End If Set rs = CreateObject("ador.recordset") strConnect = _ "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _ "DefaultDir=" & strDB & ";" & Chr(34) rs.Open "Select * from " & strTable & " order by ST, Name", strConnect, adOpenStatic Count = rs.RecordCount If Count = 0 Then GoTo ErrorOfficesList End If ReDim OfficeList(Count, 7) '14 columns in SBAOffices.txt ' Access and read Text file Do Until rs.EOF For Each fld In rs.Fields If fld = Empty Then Else ... ========================== Tag: Displaying a FileOpen dialog in desired sort order Tag: 44893
  - 21
    - InsertAdres-command / choise af the standard addressbook When I use the word-command "InsertAddress" , I have to choose each time in a list from wich Outlook-Addressbook of our Company I want to pick the address from The settings made in OUTLOOK itself (like "show this addresslist first ..." ) seems not influencing the Word-command The question is if there is a way to declare that the (public) address book of our Division becomes the standard addressbook in Word Thanks in advance, paul (working with WORD 2000 SR1 and OUTLOOK 2000 SR1) Tag: Displaying a FileOpen dialog in desired sort order Tag: 44883
  - 22
    - Adding Item to ComboBox Hi Friends, I am working on an application in VB6.0 which creates Word document on the fly. I have added a ComboBox control to the page, but I am not able to add the individual ListItems to this Combo Box. I am not getting any run time errors, but when I open the created document it doesn't show me any Item in the ComboBox. Following is the code I am trying. Set MyInLineShape = MyTable.Cell(1, 1).Range.InlineShapes.AddOLEControl("Forms.ComboBox.1") MyInLineShape.OLEFormat.object.Style = 2 MyInLineShape.OLEFormat.object.AddItem "Item 1" MyInLineShape.OLEFormat.object.AddItem "Item 2" MyInLineShape.OLEFormat.object.AddItem "Item 3" MyInLineShape.OLEFormat.object.AddItem "Item 4" Kindly Help, Thanks and Regards, Nik Tag: Displaying a FileOpen dialog in desired sort order Tag: 44881
  - 23
    - Screen Updating Word 2000 I have a set a macros that do a lot of text selections in the document. When the macros run, all the activity in the document makes the screen flash. I've been working with Application.ScreenUpdating, and that works well with some of the macros. However, with other macros it doesn't work as well. One macro in particular is started with one block of text selected, and ends with a different block of text selected. Application.ScreenUpdating = False has little impact on how much the screen flashes during this macro. Are there any tips or tricks that can be used to make the screen flash less? --Tom Tag: Displaying a FileOpen dialog in desired sort order Tag: 44878
  - 24
    - Macro to convert hyperlinks to Word97/2000 Format Hi there I have about 80 MS Word documents created in Word 2003 that contain hyperlinks to other files within the same directory tree. The hyperlinks work perfectly well on my PC (WinXP and Off2003), but most of the users accessing the documents (and using the hyperlinks to navigate around) are using Windows 95 with Office 97. These users are unable to follow the hyperlinks. The reason is well documented in MS Knowledge Base article 329835 (entitled "Problems with Hyperlinks in Office XP Documents You Open with Earlier Versions of Office"). Now I would like to convert all the forward slashes in the hyperlinks to backslashes, so that users of all versions of Office and Windows can navigate without encountering errors. However, even though I manually edit the hyperlink in Word 2003 and replace the / with \ when saving the document, the path is stored in the new format (i.e. using the forward slash instead of the backslash character). I have also tried Alt-F9 and the Edit/Replace feature, but even this does not work. Does anyone have any idea how I can convert (preferably using a macro) all the hyperlinks so that they work for all versions of Office since Office 97? Any feedback would be greatly appreciated. Many thanks in advance. Tag: Displaying a FileOpen dialog in desired sort order Tag: 44871
  - 25
    - Monitor clipboard...... Hi Folks, Does anyone know how to monitor the clipboard for data? Lets say for the sake of an example its a string of format; xxxxxxxxxxxx (where x = a 10 digit number) name (where name = a given name) Cheers -Al Tag: Displaying a FileOpen dialog in desired sort order Tag: 44870
- Next
  - 1
    - Equivilent of Application.GetOpenFilename In Excel I used the following to get the user to browse for a filename (full path) stfilename = Application.GetOpenFilename _ ("Excel Files (*.xls),", 2, "Select File to Paste Path", , False) In word is there a way to do the same thing? That is get the user to browse for a file and then select it so I can attached that file to an email? Simon. Tag: Displaying a FileOpen dialog in desired sort order Tag: 44861
  - 2
    - Find, then loop with Find Next? I've got a Selection.Find inside a loop. If Find.Found = True, I've got five other IFs that the selection must meet before I can take action. Somewhere in this mess, I've got to say Found = True, but it fails the other conditions, so go find the next one and check it until Found = False. I'm having trouble wrapping my brain around this one - any help or examples are appreciated. Ed Tag: Displaying a FileOpen dialog in desired sort order Tag: 44854
  - 3
    - client coordinates in word application given screen coordinates Can anyone tell me how I can get the client coordinates in a word application for given screen coordinates using VB programming Jayashri Tag: Displaying a FileOpen dialog in desired sort order Tag: 44848
  - 4
    - Tables Is there a way to determine the row and column for the cell the cursor is currently residing in Thanks Phil Tag: Displaying a FileOpen dialog in desired sort order Tag: 44847
  - 5
    - Restricted area text input in Word? Hi, Is it possible to restrict the total length of text input over a certain area with VBA? The length from Begin to End is fixed, let's asume 2 pages. The area's 1, 2, 3 are dynamical of size but restricted by the total lengt of Begin - End. Begin----- start area 1----- ----------- start area 2 ---- ----------- start area 3 ---- ------------------------End Is it possible to maintain this with VBA? TIA, Marcel Tag: Displaying a FileOpen dialog in desired sort order Tag: 44846
  - 6
    - Splitting a doc after break lines Hello, I have a doc file with 50 lyrics of songs.I would like to have one .doc per song. A break line appears after each song. I can't figure how to make the macro taking the text till the next break line, cutting it and pasting and saving it in a new document (having the name of the 1st line ie the song's title). Thanks if you can help. Nicolas Tag: Displaying a FileOpen dialog in desired sort order Tag: 44844
  - 7
    - tab order Hi Folks, I have a number of frames in my dialog box. Each textbox in each frame seems to reset the tab order. ie: ___________FRAME 1_____________ [1] [2] [3] <-textboxes tab order 1,2,3, __________FRAME 2______________ [LISTBOX] <- no tab order _________FRAME 3________________ [4] [5] <-textboxes order 4,5 [OK 5] <- ok btn tab order 6 __________________________________ Anyone know about this? Cheers -Al Tag: Displaying a FileOpen dialog in desired sort order Tag: 44842
  - 8
    - MSWord 2000 I have a macro that allows me to grab what I need from the end of a line of text. After grabbing this, my cursor is at the end of the line. What I want to do is highlight the entire line to the leftmost character and delete the entire line. I can't use count:=n, because n is always a different number of chars I tried using Selection.MoveLeft Unit:=wdline, Count:=1, Extend=wdExtend this did not work, only gave me an error on 'wdLine' Please point me in the direction to solve this puzzle. Your help is much appreciated. ps I really want to delete the entire line and then 3 empty lines above it. I know I can use Selection.Type Backspace for each line I want to get rid of, but I thought maybe there is a more efficient way to do this. Your ideas and help make my day ;- ) Joanne Tag: Displaying a FileOpen dialog in desired sort order Tag: 44836
  - 9
    - How to Get File Properties (NOT Document Properties) I'm needing to get the properties (like "Read Only") of a file in the template folder. How can I go about doing that? I've searched Google and the MVP site, but have nothing to show for it. :/ Tag: Displaying a FileOpen dialog in desired sort order Tag: 44835
  - 10
    - Find/replace styles Hello everyone, I am trying to write a macro that replaces automatically old styles with new ones with different names. My problem is that if one of the old styles the macro looks for does not exist in the document, it gives an error message and stops. Help please. Thanks in advance. Tag: Displaying a FileOpen dialog in desired sort order Tag: 44828
  - 11
    - Pasting Selected Text What is the VBA syntax to paste text that is selected in Doc1 into Doc2? How can I error test such that if no text is selected in Doc1, the macro beeps and does nothing else when executed in Doc2? Tag: Displaying a FileOpen dialog in desired sort order Tag: 44827
  - 12
    - Trouble collapsing range to end I've just started working with ranges, so please bear with me. I use Find.Execute to find a text string in a report. If it meets several criteria (including in a table), I set endRange = Selection.End. Then I move up to encompass the table caption, and set wkRange from the start of the caption down to endRange, which should be at the end of my initial Found text string. If another condition is met, I use wkRange.Collapse wdCollapseEnd, which *should* take me back to the end of my initial text string. So Selection.Homekey Line, Extend - which would select backwards from the end of my range to the start of the line - *should* select my original text string. Except ... Stepping through the code, all went perfect until the wdCollapseEnd, apparently. When selected, the text from the range end to beginning of the line was nowhere near what it should have been! In fact, it looked like all I selected was the beginning letter of my table caption, which is at the very start of wkRange - unless I mangled the range when I set it. So - any advice in setting and working with this range set up is greatly appreciated. Also, is there any way to make the range visible as it is set, expanded, or collapsed, so I can see what's happening? Thanks much. Ed *********** Applicable code: ' If found, must be in Col 1 of a table If Selection.Find.Found = True And _ Selection.Information(wdWithInTable) = True And _ Selection.Cells(1).ColumnIndex = 1 Then ' Set range to include caption endRange = Selection.End Selection.Tables(1).Cell(1, 1).Select Selection.MoveUp Unit:=wdParagraph, Count:=3 Selection.HomeKey Unit:=wdLine Set wkRange = Selection.Range wkRange.SetRange wkRange.Start, endRange ' Set caption only as range wkRange.Collapse Direction:=wdCollapseStart Selection.EndKey Unit:=wdLine, Extend:=wdExtend Set cRange = Selection.Range ' Check caption for "EFF" With cRange.Find .ClearFormatting .Text = " EFF " .Execute End With If cRange.Find.Found = True Then ' If caption contains "EFF" wkRange.Collapse Direction:=wdCollapseEnd Selection.HomeKey Unit:=wdLine, Extend:=wdExtend If Selection.Text = TIR Then ' Cell contains only TIR No. GotIt = True End If End If End If Tag: Displaying a FileOpen dialog in desired sort order Tag: 44826
  - 13
    - No Built-in Document Properties I develop in VC++ and use the MSWORD.OLB to create a set of classes that allow me to interface with word, the same way most people do in VBA, I would guess. However, when I generate the classes using ClassWizard, there does not appear to be a class for the Built-in document Properties. Ther is a method in the Application property to obtain a pointer to that class, but there doesn't seem to be a class created by Class Wizard for that class. Can anyone tell me how to obtain it Thanks Phil Tag: Displaying a FileOpen dialog in desired sort order Tag: 44820
  - 14
    - Macro to remove first 3 lines of doc The recent post re: Replacing selected text with a picture was helpful, but I need to expand that a little to fit my scenario. I have to replace an existing 3 line header with a 3 line header that includes a logo. I have created a bitmap of the header that includes the picture, but how do I remove the existing 3 lines. I know how to replace a single line, but the 3 lines of the header use a different font size than the rest of the document and I need to adjust the font size of the main document without effecting the header. TIA Sallie Tag: Displaying a FileOpen dialog in desired sort order Tag: 44817
  - 15
    - Word not accepting soap call Hi, I've put together from various sources an add-in for word to call a remote soap service, and display the result in a treeview. I followed the example for an creating a com addin via the wizard, and have sucessfully got a nice little button in word that displays the treeview. However, when I press my submit button, nothing comes back. Using the console on my soap server, I can see word has pushed the request, and the soap service has fired the data back. Using a packet sniffer I can see my PC has recieved the data... Before going into code snippets, is there something obvious that I need to do to allow word to do this? I've changed all the macro security down, but is there anything else I need to do? The code all works fine outside of word, btw. Thanks for any help any one can give, Pete Tag: Displaying a FileOpen dialog in desired sort order Tag: 44816
  - 16
    - Table cell attributes Can I programattically get the attributes of each cell of a word table, eg alignment, font, size, colour etc? eg something like the following? Table.Cell(1,1).Font Table.Cell(1,1).Alignment Tag: Displaying a FileOpen dialog in desired sort order Tag: 44810
  - 17
    - FileOpen - dialogbox . change focus? I use a macro to chance directory and the show the File Open dialog box. I want the macro to "focus" on the file-list in the dialog box, and not the file-name-box. (I'm using a norwegian Word - I'm not sure about using the correct english words). I have tried to do this by Send Keys - it doesn't work! All help is appreciated! Torstein This is the part of the macro ChangefileOpendirectory ("C:\test") dialogs(wdDialogFileOpen).show sendkeys "+{TAB}" 'this means SHIFT-TAB I suppose End Tag: Displaying a FileOpen dialog in desired sort order Tag: 44796
  - 18
    - Attached Template We have just upgraded from using Word 2000 running under Winwows 2000 to using Word XP running under Windows XP I have a document that says it has a template of Manifest5SIS.dot and yet when I run the code below, it is telling me that the Attached template is Normal.dot. It worked fine in 2000 This code is stored in a startup template and run from a toolbar button Any ideas please? Stephen On Error GoTo EXITSUB Dim strMsg As String With ActiveDocument If .AttachedTemplate = "Manifest5SIS.dot" Then .AttachedTemplate = _ "C:\Program Files\Microsoft Office\Templates\COS - General\Manifest5.dot" ElseIf .AttachedTemplate = "Manifest4a.dot" Then .AttachedTemplate = _ "C:\Program Files\Microsoft Office\Templates\COS - General\Manifest5.dot" End If If .AttachedTemplate = "Manifest5.dot" Then 'Debug.Print CDate(Application.Run("ReadProp", "ReviewDate")) If CDate(Application.Run("ReadProp", "ReviewDate")) <= Now() Then MsgBox "Click ShowDocProperties to change review date", vbOKOnly, "Check Review Date" End If End If End With Exit Sub EXITSUB: MsgBox "Error", vbOKOnly, "Sorry, I can't complete this task for you" End Sub Tag: Displaying a FileOpen dialog in desired sort order Tag: 44791
  - 19
    - Email a document Hi. I'm using SendMail to add the contents of the current active document to an email body as an attachment and then send it. Problem I have is I can add the attachment but I can't specify a subject line or send address's. Here is what I'm doing: ActiveDocument.SendMail How can I add a subject line, to address's and then send it ? Help please. TIA Chris ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Displaying a FileOpen dialog in desired sort order Tag: 44790
  - 20
    - not all macros are availible when creating a document from a template Hello all! I am having a problem when creating documents from a template I made. Everything works fine when I am in the template. When I create a document from that template everything from the (microsoft word objects) section doesn't carry over to the document. On the other hand the (modules) section carries over with no problem. I am pretty new to this and any help I would greatly appreciate. Thanks, Brian Tag: Displaying a FileOpen dialog in desired sort order Tag: 44789
  - 21
    - Saving changes to the Normal template programatically Greeting Is the there a way to save the changes to the Normal template, programatically. I want to do this because a run macros that change the normal template and i want to save the changes immediately instead of waiting until i close word. Thank you. DZ Tag: Displaying a FileOpen dialog in desired sort order Tag: 44788
  - 22
    - Macro to Discontinue Header & Footer in Doc Hi I'm trying to create a macro that will go to the end of a document, insert a section break, then remove the previous header/footer from the new section, but it's removing the header/footer from the previous section and adding to the new section. Any ideas on how I do this? Tag: Displaying a FileOpen dialog in desired sort order Tag: 44780
  - 23
    - Saving as .rtf I am trying to code my Word Templates so that the SaveAs Dialog box goes to the correct folder and shows only .rtf files... So far I have the following code but it does not show only .rtf files, it only shows .doc files... Arrgghh!! 'Set the initial path to the M:\ drive and Save. Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogSaveAs) With fd .InitialFileName = "M:\usinput\comserv\*.rtf" .Show End With Unfortunately, our electronic filing program uses only .rtf documents so users need to be prompted to save as .rtf... Cheers Tag: Displaying a FileOpen dialog in desired sort order Tag: 44772
  - 24
    - get WordML version of a doc?? Hello there, I am acutally writing a COM addin for word 2003 but to solve this problem, I've just taken a line of code from my COM project and put it in a vba macro to isolate the problem. Sub Macro1() MsgBox (Application.ActiveDocument.Content.XML) End Sub "Application.ActiveDocument.Content.XML" returns a string that is a WordML version of the doc. This works for most documents, however for some, this causes Word to not respond (seems to do this more often when the doc has tables). It looks like word is saving the document or something because the "saving" progress bar in the lower left hand corner of word appears when this line is executed. Does anyone know anything about this or have any suggestions? Thanks, Marc Tag: Displaying a FileOpen dialog in desired sort order Tag: 44764
  - 25
    - Programmatically add COM reference? Hi, IS there a way to add a reference to a COM library in a word template file in code? The reason I ask is because our application uses a template file that references a COM library that we have built. But, depending on where the COM library is installed (which can change depending on where the user chooses to install our application), it seems as though the word template can only reference this library if it's in the same location. Any other suggestions for accomplishing this would be appreciated as well. Thanks, Adam Tag: Displaying a FileOpen dialog in desired sort order Tag: 44760

I want to be able to select the sort order of a dialog via VBA. Displaying the
directory is easy, but I am stuck with the default (seems to be last used) sort
order. There doesn't appear to be a sort order option in the various VBA
commands that control file opening. How can I automatically display the dialog
let's say in name or date (most recent on top) order without having to click
the name or size or date column once the dialog displays.
===========
With Dialogs(wdDialogFileOpen)
.name = "*.doc"
.SORTBY ="date" or "name" or "size" <-something like this doesn't seem to
exist
.Show
End With
============

Maybe there is a SendKeys command?

Thanks,

Roy

Top

Re: Displaying a FileOpen dialog in desired sort order by Perry

Perry
Sun Jan 25 07:24:33 CST 2004

Office XP onward, use

Dim d As FileDialog

Set d = Application.FileDialog(msoFileDialogOpen)
d.InitialView = msoFileDialogViewDetails
d.Show

In the Details view, the files/folders are sorted and the user
can choose to apply other file/folder attributes to sort ...

Krgrds,
Perry

"Roy Lasris" <asrisl@aol.com> wrote in message
news:20040125081037.13501.00000570@mb-m24.aol.com...
> I want to be able to select the sort order of a dialog via VBA. Displaying
the
> directory is easy, but I am stuck with the default (seems to be last used)
sort
> order. There doesn't appear to be a sort order option in the various VBA
> commands that control file opening. How can I automatically display the
dialog
> let's say in name or date (most recent on top) order without having to
click
> the name or size or date column once the dialog displays.
> ===========
> With Dialogs(wdDialogFileOpen)
> .name = "*.doc"
> .SORTBY ="date" or "name" or "size" <-something like this doesn't seem
to
> exist
> .Show
> End With
> ============
>
> Maybe there is a SendKeys command?
>
> Thanks,
>
> Roy

Top