VBScript Alignment

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Create style if not already present Hello all I am trying to work out the VBA code to see if a style (FaxHeader) exists in a particular document, and if it does not, create the style. I can work out the code for creating a new style, it is just the code to check if it already exists that is giving me problems. Any help would be much appreciated. Thanks in advance, MMH. Tag: VBScript Alignment Tag: 70098
  - 2
    - Finding parents dimensions Hi all, I have a paragraph or range that I need to know the dimensions of its container. How can I do this? .. I know I can get "range.parent" ..but then what? .. Please, advice Jeremy Tag: VBScript Alignment Tag: 70096
  - 3
    - word 2000, 2002 I print a word doc in word 2000 and it prints ok. But in word 2002, some portion of the doc is not printed even though we can see the portion when doc is open. Is this related with template? Also replace command is working in word 2000. But it is not working properly in 2002. In 2002, search is done within a table cell, not the whole document? Any help would be appreciated. Thanks Daniel Tag: VBScript Alignment Tag: 70088
  - 4
    - checking replace was successful Is there a way to check whether replace command was successful? Thanks Daniel Tag: VBScript Alignment Tag: 70086
  - 5
    - save file wihout vba macros When I create a new file from a template and save it as a document, (.doc) and then close & re-open it, word still warns me that the .dot file contains macros. And Project explorer shows all the elements in the .dot file that creatd it. How can i save the document created without the vba,macros and userforms? thanks hals_left Tag: VBScript Alignment Tag: 70079
  - 6
    - can you reference a check box? I am creating a form that uses the same information multiple times throughout the lengthy form, such as customer information, phone, etc. I have set it up so this information is repeated when needed by entering REF fields {REF Text1} for the text. One of the items that is required throughout the form is the "program' for which they are enrolled and I have inserted check boxs next to the first mention of the program choices and I would like this information to be repeated throughout the document. However, I tried to repeat it the same way as the text {REF Check1}, but when I test this application, nothing shows up in the cell. Make sense? Is there another way to do this so that if "Program 1" is checked in the first place, "Program 1" will automatically be checked throughout the form? Tag: VBScript Alignment Tag: 70073
  - 7
    - Headers & Footers I need to take two documents that each their own header & footer & merge them together w/ out disrupting each others headers/footers. Tag: VBScript Alignment Tag: 70072
  - 8
    - documents w/ footers & headers I have about 25 different documents that I want to merge into one. They all have their own headers & footers, but when I just do a select all, copy, paste, the footer gets all weird. It is continuing the counting of pages numbers from the prevoius document, but I don't want that. It is going to be a manual & each chapter should have their own set up numbers. Tag: VBScript Alignment Tag: 70065
  - 9
    - How do I get my Word-created web form to export to Excel? I have a form I've created in Word, and saved as a web page. Mailto actions for the Submit button won't work, because the target users don't have Outlook, and from testing, it looks like it simply brings up a blank email without the selected information anyway. The server is not going to be set up to allow SMTP. ASP or Perl are not options either, since Word is the only app I have to work with. Can I configure the form to send all the information to my email without SMTP, or perhaps just shoot it into a designated Excel spreadsheet? Tag: VBScript Alignment Tag: 70064
  - 10
    - Remapping hyperlinks I have a Word document that has hyperlinks to a CDROM drive (E drive). Is there a way to change all of them to the C drive? Thanks Tag: VBScript Alignment Tag: 70062
  - 11
    - Clear text between specified characters Hello, i am new to Visual Basic and I am trying to make some macros for automated dictionary reversing. What I must do is find all ranges between characters "=" and "\" , and then clear them including ending sign "\". I tried few methods and it always turns out wrong. Can anyone help ? Thanks Tom Tag: VBScript Alignment Tag: 70060
  - 12
    - Forms I'm creating a form that will be multiple pages. I would like to find a way that once a person completes their name on page one, that it will auto fill in the additional places for name on the rest of the form. Ideas of how to do this? Tag: VBScript Alignment Tag: 70059
  - 13
    - Locate the My Documents folder with VBA I need to save files in "My Documents" regardless of where it is. How can I use vba to locate the "My Documents folder" being used and save the file to it? Thanks in advance Tag: VBScript Alignment Tag: 70056
  - 14
    - Word scrolled over text? Can I insert hidden text in a Word document "behind" a visible word or phrase that is hidden and not displayed until the text is scrolled over? It's similar to a web page that has roll over text - move the cursor over highlighted text to see a description. thanks Please respond to bruce.smith@metriscompanies.com Tag: VBScript Alignment Tag: 70055
  - 15
    - Word Forms and Macros Question I have created a template form in Word 2002 (XP). In my form there is a table. One of the table's columns contains a checkbox in each row. What I would like to have happen is that when the user checks the checkbox the row that it is in will become highlighted/shaded. I am assuming that I will need to do this with a macro, but I am not sure. If there is an easier way that would be great! I am a macro novice so any assistance would be greatly appreciated. Tag: VBScript Alignment Tag: 70049
  - 16
    - Specifying a range within a header Hi all Iâ??m using VB to produce a Word document. Is there a way to specify a Range within a header, or can you only specify the Range that represents everything in the header? The VB editor will now allow me to use: MyDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range(Start:= something, End:= something else) Is there another way? Thanks again David Tag: VBScript Alignment Tag: 70044
  - 17
    - 'Select active table where cursor is' command????? Hi Someone gave me this macro recently but I have to change it every time I use it on a different document. Is there a way to get the macro to work on the table where the cursor is no matter where the table is in the document. A type of 'select active table where cursor is' command??? Thanks in advance. Sub RandomPick() ' ' RandomPick Macro Dim i As Long Dim j As Long i = ActiveDocument.Tables(3).Rows.Count ' table 3 Randomize j = Int((i * Rnd) + 1) ActiveDocument.Tables(3).Cell(j, 1).Select ' table 3 End Sub Tag: VBScript Alignment Tag: 70043
  - 18
    - How to create pie chart from linked CSV file in Word? Hi, I am trying to create a Word document which should contain a couple of charts (pie, bars, etc.). The source for the charts´ data should be a couple of csv files I have on harddisk. I would like to "link" the csv file to the Word document (or the chart) so I don´t have to do a manual import. Instead the charts should show the data from the current file every time the Word document is opened. So far I have tried to do this with a combination of Excel and Word which does not work for me. Basically the problems are as follows: - when I create the chart in Word only, I can not link it to the CSV file/s - when I create multiple charts in one Excel file, I can use a small VBA script to automatically read the CSV files and adjust the graphs (each char on a differen sheet). Unfortunately I have not found a way to link specific sheets in Excel to specific objects in the Word document so this won´t work either. Anyone have any idea how to do this? Thanks in advance! Regards, Emre -- http://www.emre.de UIN: 561260 PGP Key ID: 0xAFAC77FD I don't see why some people even HAVE cars. -- Calvin Tag: VBScript Alignment Tag: 70042
  - 19
    - PDF tool needed I know there are many tools that let you "print" a Word document to a PDF file (for example, CutePDF). The problem is that all these tools that I have seen require user input to specify the output file name and possibly output options as well. THis makes it impossible to completely automate the process from VBA code. Does anyone know of a PDF "printer" that can operate with no user input, completely under VBA control? The only one I have found is PDF Creator but it is $500. Thanks -- Peter Aitken Remove the crap from my email address before using. Tag: VBScript Alignment Tag: 70041
  - 20
    - Macros & hyperlinks & buttons does not work into headers ??? please help Hi ! I want symply to put something like a hyperlink or button or .... to go to index, or page 1 ( for example ). Because headers seems 'locked' i think macros, buttons, hyperlinks also are locked Some idea ??? Thanks , Antonio Pérez Tag: VBScript Alignment Tag: 70040
  - 21
    - Find text with different font. Hi, I have a word document containg text with diffrent font. I need divide that document into blocks, where each block will have the same font. In other words, when the font is changed then new block should begin. I can do that by getting font of each character, and when font is diffreent, then just make a new block. But this is extremely slow. I takes 30 seconds on document with 2 pages. Do you think there is some faster way of doing this? PS: I'm accessing Word using OLE objects. But this shouldn't be different from VBA. -- Jiri Tag: VBScript Alignment Tag: 70038
  - 22
    - How to unlink headers/footers correctly without using ActiveWindow Hey As a start I ran a macro with application visible. From the macro recorder I learned to use the following statement to unlink header/footer: Selection.InsertBreak Type:=wdSectionBreakNextPage ' Cut link between herder/footer on page x and page x+1 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument BUT it didn't work when I changed to run the application invisible :-( In an earlier Q in this NG I was told that the ActiveWindow object only worked correctly when application was visible. I have tried to rewrite the script to the following: Selection.InsertBreak Type:=wdSectionBreakNextPage ' Cut link between herder/footer on page x and page x+1 With ActiveDocument.Sections(ActiveDocument.Sections.Count) .Headers(wdHeaderFooterPrimary).LinkToPrevious = False .Footers(wdHeaderFooterPrimary).LinkToPrevious = False End With As far as I can see it does not work. When I manually enters the header on the new page (doubleclicking on the new header), it is STILL linked to previous page. What am I doing wrong? Ebbe Tag: VBScript Alignment Tag: 70036
  - 23
    - How to move cusor after inserting some OLEControlObject to a specified place? hi! I have inserted an OLEControlObject into word document using vba as following Selection.InlineShapes.AddOLEControl(ClsType) No after inserting it I tried to move cursor to the next line after the Control. using Selection.TypeParagraph() it deleted the Control. So what should I do to avoid it. furthermore if i want to move cursor one space after the Control. Thanks in advance. Ahmad Jalil Qarshi Tag: VBScript Alignment Tag: 70035
  - 24
    - Connectors In Excel, there is a ConnectorFormat property in Shape object. We did not find such object in Word API. How to get the ConnectorFormat object from shape object? Thanks Tag: VBScript Alignment Tag: 70031
  - 25
    - Export filter to convert a word picture to CGM Is there any CGM export filter to convert a picture object in word document to CGM? If its not there, is there any way to convert a picture object in word to CGM. Thanks Tag: VBScript Alignment Tag: 70030
- Next
  - 1
    - Event to run some code when a VBA template is loaded into Word XP In Word 2003 there is the Document_Open which I have used to load a command bar, etc. when a document is opened with an attached VBA template. I think that I read of an event to accompish the same thing for Word XP but I don't remember and can't find. Is there an event that will allow me to run startup VBA code? THANKS! Tag: VBScript Alignment Tag: 70029
  - 2
    - Extract data from word to access? Hello, I am going to recieve about 250 word docs for a land survey project that are all the same format. The document will have 4 main sections, and then inside those, there will be details which will need to be captured (or harvested) and then saved as delimited text (or whatever will work best) for insertion into an access database. The problem is that most (80%) of the word doc is not formatted into any kind of tabular structure, at least from what I can tell. (As a side note - is there a way to check using something like reveal codes, as was in WP)? The only thing in common that each doc file has is that each file has the same keywords preceding the desired data value. MY QUESTION: Is there a way to have a VBA routine go through, and identify (which would be embedded in the VBA routine) keywords, and then based on that keyword, trigger a "copy" to action? There is always a consistent keyword preceding the desired data value. For example, here is a typical sentance (with the desired data value in {}, and the keyword in caps: EXAMPLE 1) That certain tract of land CONTAINING {105.899}acres, more or less... EXAMPLE 2) or another example in tabular format, separated by tabs (but shown here with commas and no separation); 1st line: *Surface,Mineral,Net 2nd line: Owner,*Interest,Interest,Mineral Acres 3rd line: John H. Smith,100%,50%,52.9495 * TO CLARIFY: The words Surface and Interest go together (like Surface Interest), just one on top of each other. Same for the words Mineral and Interest, as well as Net and Mineral Acres. In sum, I just want to know what are the ways that you can go into an existing word doc and extract the data that you need, that's all. I really don't know where to begin asking this, but if there is a better NG than this one, I'd apprieciate your direction on where I should post this. TIA. Phil Tag: VBScript Alignment Tag: 70026
  - 3
    - detect if doc is protected Good afternoon, I need to know how I can determine if a document is protected or not using an if/else statement so I can then unprotect it if it was protected. Thank you, Daniel Tag: VBScript Alignment Tag: 70023
  - 4
    - Problems with headers/footers Hey! I have a document with some textboxes and graphic elements (shapes) in the header. These shapes is repeated on each page. But I want to insert some other document in the middle of the document and preserve the shapes on both sides of this inserted document. Standing on page 1, I want to insert a page (another document) as page 2. Page 3 should have the same header/footer as page 1. Here is what I am doing and what I see: -------------------------------------------------------------------------------------------------------------------------- Sub InsertDocumentAfterPage() Dim i As Integer '---- Standing on page 1 '---- New page 2 gets the same shapes as page x Selection.InsertBreak Type:=wdSectionBreakNextPage '---- Cutting the link to page 1 ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).LinkToPrevious = False ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False '---- New page 3 gets the same shapes as page 2 Selection.InsertBreak Type:=wdSectionBreakNextPage '---- Cutting the link to page 2 ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).LinkToPrevious = False ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False '---- Trying to delete all shapes in header of page 2 (!!!! but the shapes is removed on ALL pages !!!!) i = ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Headers(wdHeaderFooterPrimary).Shapes.Count While i > 0 ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Headers(wdHeaderFooterPrimary).Shapes(i).Delete i = i - 1 Wend '---- Moving to end of page 2 Selection.MoveLeft Count:=1 '---- Inserting an other document on page 2 Selection.InsertFile FileName:="d:\XALKun\Seelen\EG_X2W\SeelenFakHanbet.doc", _ Range:="", ConfirmConversions:=False, Link:=False, _ Attachment:=False '---- Moving to end of story on page 3 Selection.EndKey Unit:=wdStory End Sub -------------------------------------------------------------------------------------------------------------------------- Can any one tel me what I am doing wrong - Please Ebbe Tag: VBScript Alignment Tag: 70010
  - 5
    - Formula help? I want to have the document set up so that when I type a name or word in place in side the document/letter, that name will be instantaneously entered or equaled somewhere else in the document in place that I specify. Sort like in Excel, where I can have one cell equal another cell. Whatever I type in one cell, after I press the enter key or click outside the cell, the cell that is equal to it, automatically updates with the information. I hope I described well enough what I am looking for, if not please ask for specifics. Thank you in advance, Mike -- Top Notch Admin Tag: VBScript Alignment Tag: 70009
  - 6
    - HELP - Connecting to ADODB Datasource for a MaiMerge Hello, I am trying to make a connection to a datasource that is an ADODB Recordset in VB 6. I have been trying with no success. I have found half answers on how to connect to .txt and .xls. datasources but nothing on a recordset. I have an ADODB Recordset that is created from a query executed from a user. I need to take that query result and then mail merge it with a word document. Does anyone know how to do this to help me out? Is this even possible? Thanks Nick Tag: VBScript Alignment Tag: 70008
  - 7
    - mailmerge word 2003 I have an application (vfp) with a lot of letters being produced in Word using mail merge. The application works great for all versions of Word 97-2002 without Word being visible or any action by the user. Tried to run the same routine on Word 2003 and it brings up a prompt dialog wanting to know the name of the merged file. Once they name the file it runs fine. Anyone know why this prompt is occurring in word 2003? Thanks, Kevin Tag: VBScript Alignment Tag: 70007
  - 8
    - Can I make a template like this? We are using a very old DOS-based input program. The narrative portion of the input form is very user-unfriendly, so most operators create their narratives in Word, then paste into the input program. Unfortunately, most Normal templates default to either Arial or Times New Roman, which are proportional-spaced fonts, and the input program uses a mono-spaced font (similar to Courier). It also does not recognize tabs or tables. The operators create these nice-looking charts and tables in Word using spaces and tabs - and they get all screwed up when they're pasted in. The QA operators then have to spend much time reformatting everything. I was thinking of trying to create a Word template for the operators that would reject any font except Courier, and reject all tabs. Is this possible? Ed Tag: VBScript Alignment Tag: 70006
  - 9
    - compare and highlight differences Okay, I have two tables of contents in two separate files. A few of the entries in them may be repeats. I need to, from one of the files, run a macro that will look through every entry of that file's TOC, then compare each to the TOC of the other file (preference would be a dialogue way to point to the other file to use, but could also type into a dialogue, and worst case, can go into the macro and type in the path for each use...but would prefer to avoid having to go into macros, as others might be asked to use this who are less proficient), and finally highlight on the original file any that are found in the other file. Matches would be exact matches for the entire string except page numbers on each file would be different. Thx for any code assistance. -- Boris Tag: VBScript Alignment Tag: 70004
  - 10
    - Creating menu option for macro Hello all, I've written a macro that I would like to have available to every computer in the office, but I'm wondering if there's a quick easy way for my coworkers to open a file and have it automatically be a part of the toolbar options. Right now, the only way appears to be to import the macro and form from the VB editor. Is there a quick way to create a menu option and install it right away? Thanks in advance and have a great one, Mike Tag: VBScript Alignment Tag: 70001
  - 11
    - Document_open won't run if opening from browser to application This is the only case that has produced me this very inconvenient feature. If word document opens inside browser as embedded. Automating works. If word is opened and then file open is executed works fine and if .doc is douple clicked in windows explorer works fine but if word document is opened from browser, so that it actually gets opened in real word not in plug-in I cannot get Document_open() to run... Is there any way to get it work??? Tag: VBScript Alignment Tag: 69996
  - 12
    - How to export a picture in word to CGM? Is there any filter to convert a picture in word document to CGM file. Tag: VBScript Alignment Tag: 69992
  - 13
    - problem with sink event in word hi, i have made a COM Add-in which overrides the default behaviour of some menu items like save, print etc in the main menu. i am able to sink event of these particular menu items and i am also able to run my code in place of the default methods. but the problem is that after executing my code, the default code is also being executed which is making my code useless. how can i get around this problem? is there any way for disabling the default handlers for the intended menu items. Any help will be deeply appreciated . with regards, miany Tag: VBScript Alignment Tag: 69991
  - 14
    - Macro for Outlook Hi I'd like to incorporate a small .exe within the Outlook interface. I guess I need a macro. Problem is I still can't write them. Could sm kindly give me a few lines to execute an .exe, the address of which is C:\Program Files\nicknameXP.exe I'm pretty sure I can incorporate the macro and put it into a menu once I have it. Thanks in advance. Dave Neve Tag: VBScript Alignment Tag: 69990
  - 15
    - Word Input Dialogue boxes I am trying to create a word template where Dialogue boxes appear when a user opens the template that ask questions, e.g. Enter Name, Enter Address and so forth. Once the questions cycle through and the user reaches the end of them, the information is then presented at various points in the document. For example, if I created an application form, the form details would already be contained within the document, but the user would need to ask questions that open up in a dialogue box before the fields were populated. I have seen this before but have no idea how to duplicate it. Tag: VBScript Alignment Tag: 69988
  - 16
    - automating document management Brief (hopefully) question here. Thanks in advance. My goal is to write a macro that will, after having opened a series of documents within Word, allow me to do certain actions on them (proof-reading, printing, etc. - all to be done manually) and then, upon closing, automatically save them to a different folder (on the network) while deleting them from their original local folder. In effect, therefore, part of the process of closing the document will be to move it to a new location on a network server. I've worked out virtually all of this, but I cannot seem to delete the file from it's original location. I believe that this is because, even after saving it under a new name (actually, same name but different location), there is still a tilde-preceded reference to the file in the original folder, thus seemingly indicating that the original file is open. As such, I cannot delete it until I've closed it (but once it's closed the macro that I wish to delete it will no longer be running and thus the process won't be done seamlessly and automatically. Hopefully, I'm making myself clear. Any ideas? Tag: VBScript Alignment Tag: 69982
  - 17
    - Clear last item copied to the clipboard Hi, In searching past questions/answers, I did find this line of code to deal with clearing the clipboard, but it doesn't seem to work. Ideally, I want to clear just the last item copied to the clipboard. Any ideas? I'm using Word XP and 2003. Thanks much! CommandBars("Clipboard").Controls("Clear Clipboard").Execute in English version of Office2000. Tag: VBScript Alignment Tag: 69981
  - 18
    - adding a page number to a header I want to add a page number to the end of the first line of a header. When I do so manually using the normal Header and Footer dialog box in Word (2003), it works just fine. When I use VBA, it seems to insert the page number into a text box or some other similar shape, which throws of the appearance of the line. The code I'm using is: Selection.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberRight This document is multiple sections (chapters), each with its own header(s). Any suggestions for inserting the page number without the text box? Thanks, Bert Tag: VBScript Alignment Tag: 69976
  - 19
    - Registry via VBA I need to create a registry entry that is available in VBA no matter which user runs the application. Is there an easy way to do that? Easy or not can you tell me how? THANKS! Tag: VBScript Alignment Tag: 69974
  - 20
    - instruction for opening a file with VBA i am a newby and i can't find the syntax, any help ? dim MyFile as string MyFile = "c:\MyDir\MyDoc.doc" open (MyFile, etc...) (it does not work as such...) Where is the error ? (I have no help file installed yet) Thank you Troubadour Tag: VBScript Alignment Tag: 69966
  - 21
    - macro for PasteSpecial Unformatted I've tried to create a macro for paste-special -- unformatted. I used the "record new macro" option, but this is what my macro looks like. What do I need to put instead of "(wdPasteDefault)"? Sub UnformattedPaste() ' ' UnformattedPaste Macro ' Selection.PasteAndFormat (wdPasteDefault) End Sub -- Thanks, Beth Tag: VBScript Alignment Tag: 69965
  - 22
    - Visual Basic outputs into new blank document I saw this macro in another answer. What if I want this macro to list the bookmarks in a new blank doc instead of printing it out? What would I need to change the ".printout" to? Thanks, Beth "Jean-Guy Marcil" wrote: > CMK was telling us: > CMK nous racontait que : > > > I have created 30 or so documents with at least 75 bookmarks in each. > > Is there any way I can export a bookmark list (TXT) from each > > document? I need to compare bookmarks between documents and I'm > > hoping that I don't have to type them all out. > > You could try a little macro like this one: > > '_______________________________________ > Sub TypeOutBookmarkList() > > Dim MyBkmk As Bookmark > Dim MyList As String > Dim DocList As Document > Dim CurDocName As String > > With ActiveDocument > If .Bookmarks.Count = 0 Then > MsgBox "There are no bookmarks in this document." > Exit Sub > End If > > For Each MyBkmk In .Bookmarks > MyList = MyList & MyBkmk.Name & Chr(13) > Next > > CurDocName = .Name > End With > > Set DocList = Documents.Add > > With DocList > .Range.Text = "Here is the list of bookmarks in " _ > & CurDocName & ":" & Chr(13) & Chr(13) & MyList > .PrintOut > .Close wdDoNotSaveChanges > End With > End Sub > '_______________________________________ > > -- > Salut! > _______________________________________ > Jean-Guy Marcil - Word MVP Tag: VBScript Alignment Tag: 69956
  - 23
    - How to get progress percentage in quicksort? I would like to indicate the progress of my quicksort. I understand that, per iteration, progress can be calculated by using something like this: myRange = iUpper - iLower + 1 Progress = Round((myRange * Log(myRange))/3) + (myRange/3) ...but I can't get any sensible values from it, I am sure I am missing something major, and I confess my mathematical abilities are not up to the task. Can anyone help me to understand what I should be doing? My quicksort takes a public 2 dimensional (x,y) array and sorts just on the y part. The array is called FA, and varies in size, but here is how to call my code assuming FA has 1000 records (0-999): Call QuickSortFA(0, 999) Here is my quicksort code: Public Sub QuickSortFA(Optional iLower As Integer, Optional iUpper As Integer) Dim iLowerValue As Integer Dim iUpperValue As Integer Dim vTest As String Dim iMidValue As Integer Dim vTemp As Variant If iLower < iUpper Then iMidValue = Int((iLower + iUpper) / 2) vTest = LCase(FA(1, iMidValue)) iLowerValue = iLower iUpperValue = iUpper Do Do While LCase(FA(1, iLowerValue)) < vTest iLowerValue = iLowerValue + 1 Loop Do While LCase(FA(1, iUpperValue)) > vTest iUpperValue = iUpperValue - 1 Loop If iLowerValue <= iUpperValue Then vTemp = FA(0, iUpperValue) FA(0, iUpperValue) = FA(0, iLowerValue) FA(0, iLowerValue) = vTemp vTemp = FA(1, iUpperValue) FA(1, iUpperValue) = FA(1, iLowerValue) FA(1, iLowerValue) = vTemp iLowerValue = iLowerValue + 1 iUpperValue = iUpperValue - 1 End If Loop Until iLowerValue > iUpperValue If iUpperValue <= iMidValue Then Call QuickSortFA(iLower, iUpperValue) Call QuickSortFA(iLowerValue, iUpper) Else Call QuickSortFA(iLowerValue, iUpper) Call QuickSortFA(iLower, iUpperValue) End If End If End Sub -- Stephenc Tag: VBScript Alignment Tag: 69955
  - 24
    - Distributing a VBA project Hi, I have a few questions on deploying a vba project to distributed users. thanks. How can I allow macros and vba to be trusted for certain templates and documents I distribute, so that the enable macro dialog doesnt appear, but not have to allow all macros. How can I programatically set a reference to ADO versions 2.5,2.6,2.7,2.8 depending on what is installed on the client. How can I have a single file with database connection and authentication details , shared by many documents and templates, so thast if the IP of the daatbase server changes I only have to update one file and not a whole set of templates. Tag: VBScript Alignment Tag: 69953
  - 25
    - Offline Folder Program Hello, I have a tool (Master Microsoft Word template) which has been written in VBA and contains a number of macros. The tool has a feature, which allows us to save the tool to our local Offline Folders e.g. switches on Offline folders and saves. In Windows 2000/Office 2000, this feature works perfectly - however in Windows XP/Word 2003, we receive no error messages - but it doesn't do anything. In the code we are using the command line feature 'Make A&vailable Offline'. Has this changed in Windows XP or does any one have any examples how we could achieve this in XP/Word 2003 using VBA for Word? Any help would be appreciated. Thanks. Stefan_B. Tag: VBScript Alignment Tag: 69949

I am writing a VBScript to report on some AD stuff. I got the code working
great but I am unable to center the text. Here is what I pulled from a macro:

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

It does not work. I'm guessing because VBScript does not have a value for
wdAlignParagraphCenter. Anyone know where I can find the correct value or
pull them from Word?

Scott

Re: VBScript Alignment by Jay

Jay
Wed Jun 22 21:57:28 CDT 2005

On Wed, 22 Jun 2005 19:47:02 -0700, "SRowe"
<SRowe@discussions.microsoft.com> wrote:

>I am writing a VBScript to report on some AD stuff. I got the code working
>great but I am unable to center the text. Here is what I pulled from a macro:
>
>Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
>
>It does not work. I'm guessing because VBScript does not have a value for
>wdAlignParagraphCenter. Anyone know where I can find the correct value or
>pull them from Word?
>
>Scott

Hi Scott,

The value of wdAlignParagraphCenter is 1.

In general, open the VBA editor in Word and press F2 to display the
Object Browser. Type in the name of a constant and press Enter. The
value will be displayed at the bottom of the window.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

Re: VBScript Alignment by SRowe

SRowe
Thu Jun 23 06:01:03 CDT 2005

Woot! Thx! That is what I was looking for.

Scott

"Jay Freedman" wrote:

> On Wed, 22 Jun 2005 19:47:02 -0700, "SRowe"
> <SRowe@discussions.microsoft.com> wrote:
>
> >I am writing a VBScript to report on some AD stuff. I got the code working
> >great but I am unable to center the text. Here is what I pulled from a macro:
> >
> >Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
> >
> >It does not work. I'm guessing because VBScript does not have a value for
> >wdAlignParagraphCenter. Anyone know where I can find the correct value or
> >pull them from Word?
> >
> >Scott
>
>
> Hi Scott,
>
> The value of wdAlignParagraphCenter is 1.
>
> In general, open the VBA editor in Word and press F2 to display the
> Object Browser. Type in the name of a constant and press Enter. The
> value will be displayed at the bottom of the window.
>
> --
> Regards,
> Jay Freedman
> Microsoft Word MVP FAQ: http://word.mvps.org
>