Table Alignment

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Address Retrieval Macro Below is a macro I use to insert addresses directly from my Outlook address book into a Word document (the macro is in Word). It's not a macro I wrote myself, I hasten to add! My only niggle is that when the address book dialog opens it opens with our networked Global Address Book active. I would prefer it to open with my "personal" Outlook Address Book Contact list active. Can anyone suggest a tweak to the macro to do this? Cheers Rob F ****** Public Sub InsertAddressFromOutlook() Dim strCode As String, strAddress As String Dim iDoubleCR As Integer 'Set up the formatting codes in strCode strCode = "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & _ "<PR_TITLE>" & vbCr & _ "<PR_COMPANY_NAME>" & vbCr & _ "<PR_POSTAL_ADDRESS>" & vbCr 'Display the 'Select Name' dialog, which lets the user choose 'a name from their Outlook address book strAddress = Application.GetAddress (AddressProperties:=strCode, _ UseAutoText:=False, DisplaySelectDialog:=1, _ RecentAddressesChoice:=True, UpdateRecentAddresses:=True) 'If user cancelled out of 'Select Name' dialog, quit If strAddress = "" Then Exit Sub 'Eliminate blank paragraphs by looking for two carriage returns in a row iDoubleCR = InStr(strAddress, vbCr & vbCr) Do While iDoubleCR <> 0 strAddress = Left(strAddress, iDoubleCR - 1) & _ Mid(strAddress, iDoubleCR + 1) iDoubleCR = InStr(strAddress, vbCr & vbCr) Loop 'Strip off final paragraph mark strAddress = Left(strAddress, Len(strAddress) - 1) 'Insert the modified address at the current insertion point Selection.Range.Text = strAddress End Sub Tag: Table Alignment Tag: 43856
  - 2
    - Undo changes after Programatically updating a field I have set some code to run every time a field is updated; it puts the current date into a specified column on the same row as the field being updated. Problem with this is that I cannot undo any changes to the document after that field has been updated The code is as follows Private Sub Worksheet_Change(ByVal Target As Range 'The if statement stops the code fro 'doing its job on the top line of the shee If Not Target.Row = 1 The Sheet1.Cells.Item(Target.Row, "N") = Now( End I End Su Anyone know how I can acheive this along with the ability to update changes? Tag: Table Alignment Tag: 43852
  - 3
    - Button to add new page with a form HI, I would like to create a document that has a command button that will create a page break and insert a file to the new page and keep the command button at the bottom of the page so the procedure can be repeated on a daily basis. Any ideas? Thanks in advance! ZABU Tag: Table Alignment Tag: 43851
  - 4
    - Page Break Hi, I have a text type getting retrieved from the SQL database. It is inserted into a textbox on my word document. The problem I am having is that it does not know how to page break. How can I insert a page break in a textbox or in a label? Yama Tag: Table Alignment Tag: 43849
  - 5
    - VB Error when I open word doc's Hi On opening some word document's I get the following error. Microsoft Visual Basic (Box Title) An error occurred while opening "Thisdocument'. Do you want to continue loading the project? Press yes. It try's to recover, and displays a blank document. Press no, it displays the document but you can't save. Tag: Table Alignment Tag: 43848
  - 6
    - Macro on web Hi, 1.. Can we utilize a Word document with a macro from a web page? 2.. Can we pass parameters (like ID # and letter type) from a web page or do we have to prompt using VBS within the document? If the answers question number 2 is yes how can we accomplish that? We probably will need to reference an OBJECT tag or have a CreateObject: <script language=vbscript> Sub GetDoc() Dim wdObj '--// As Word.Application Dim wdDoc '--// As Word.Document Set wdObj = CreateObject("Word.Application") wdObj.Visible = True Set wdDoc = wdObj.Documents.Open("c:\mydoc.doc") wdDoc.Application.Run "myFunc", CStr(Textbox1.Text) End Sub In the document: Public Sub myFunc(ByVal strID As String) MsgBox(strID) End Sub But the above does not work.... HELP! Yama Tag: Table Alignment Tag: 43846
  - 7
    - Changing highlight color - macro? Hello All In Word 2000, I routinely need to use different highlighter colors within the same document and thought I would create a macro to be able to change the highlighter color quickly without having to use the color pull-down menu. I have been successful except for one thing: When I click on the macro button I created on the toolbar, the highlighter color changes as I want BUT the highlighter then turns off for some reason. That means I then have to move the cursor over to the highlighter button and click it to turn the highlighter back on - an annoying second step. If I try to incorporate this step into the macro, it does not accept it. In fact, recording a macro that ONLY turns the highlighter on appears not to work. Is there a shortcut key combination or some other bit of code I can add to my color-change macros to ensure that the highlighter either does not turn off or is turned back on after the color is changed? Thanks. -- Regards, Anthony Giorgianni The return address for this post is fictitious. Please reply by posting back to the newsgroup. Tag: Table Alignment Tag: 43841
  - 8
    - AttachedTemplate shows normal.dot Hi all, Here is the problem. If you have a document that was created from a template the attachedtemplate property shows the name of the template. If that template is missing then the attachedtemplate property shows normal.dot as its value. If you open templates and addins the default template is shown with the full file path to the template whether it exists or not. Is there any way in vba to access that full path for the template without using the attachedtemplate property since if the template is missing then so is the path. Arrrrgh hope this all makes sense. Thanks in advance john price jwp@beco.com Tag: Table Alignment Tag: 43840
  - 9
    - saving I have a application written in vb 6, the app saves the current document every 2 minutes. This works fine, but when the user has the properties window open in word I get the nasty window "Component Request Pending" error box. Does any one know how to check to see if the user has open any dialog windows like the properties windows, or any other way of fixing this. thanks Tag: Table Alignment Tag: 43839
  - 10
    - Using the IE Hi, I want to know if it is possible for a word macro template to run from the web? What I would like to do is to pass a customer's name from a web page which in turn runs the a word letter with the customer's info from the database. Can anyone provide me guidance? Yama Tag: Table Alignment Tag: 43838
  - 11
    - How to disable Warning on OLE object on Word document We are distributing a WnZip (.zip) file on a Word file to our user. We want user can unzip the comprised file with Click on the Zip icon on the Word file. However we always get Word's warning sign: "You are about to activate an OLE that may contain viruses or be otherwise harmful to your computer. It is important to be certain that it is from a trustworthy source. Do you want to continue? We have to Click on "Yes" to let it go. Can we turn off the warning sign on the Word file. One more question can we let user only one clicks to unzip a comprised file Tag: Table Alignment Tag: 43836
  - 12
    - Labels I need some assistance with the follwing: I need to create a macro that will create a page of labels with an existing list. The text to place in each label is separated by a page break. (kind of like it does in Wordperfect) Any help on this would be greatly appreciated. Thanks. Tag: Table Alignment Tag: 43833
  - 13
    - Reference to ISmartDocument We are trying to unit test our class that implements ISmartDocument, and need to know how to get a references to the ISmartDocument interface in the unit test method. We can get a reference to the Word.Document interface after creating the word app and opening a smart document (file path hard coded for now). We are looking for a way to get to the ISmartDocument interface to unit test the methods. Tag: Table Alignment Tag: 43831
  - 14
    - no proper printout Hi when iam trying to print labels through mail merge in L7163 size, it is not printing in proper size so n e body can help me???? Tag: Table Alignment Tag: 43824
  - 15
    - automatic mail merge Hi list, I create a word document and define bookmakrs on it like tablename__fieldname. then i run a procedure from within vb that scans though all the bookmarks and fills them properly. It also wokrs with tables and reccuring records. The problem is that the bookmark name is only allowed roughly 20 Chars.... can anybody think about a better placeholder mechanism?? thx frank Tag: Table Alignment Tag: 43822
  - 16
    - msword Hai everybody Can U sujjest me where I can get source code for microsoft office(especially word). Can I write programs in c or vb which operate on that code? All that I need is processing word from vb or c. help me ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Table Alignment Tag: 43809
  - 17
    - visual basic & msword I need to run word operations from visualbasic6. these operations are such as If I specified the dimensions in vb, those dimensions should be applied as page alignments(left,right,bottom,top) for word document, similarly spell checking etc from a single click from vb6. If I selected a folder insetead of a word document, all the documents present in that folder should be updated as per the sepecifications that I mentioned in vb coding. If any of U know Plz help me ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Table Alignment Tag: 43808
  - 18
    - Template Names availble to VBA I'm writing some VBA code in MS Access that integrates an application with MS Word. I would like to create a form in Access that asks the user to identify the template that they have created in Word for specific purposes. In this Access form, I would like to have a combo or list box that lists the available Word templates on the user's machine so that the user can select a template name from the list. The contents from the combo or list box should be generated dynamically from the templates found on the user's machine. Is there an object in Word that will enumerate the templates that have been stored on the user's machine? Or am I going to have to get that from Windows somehow? And if I get it from Windows, where do I look? It's my impression that templates might be stored in a bunch of different places on a user's machine. Stu Tag: Table Alignment Tag: 43805
  - 19
    - Calling Integer Value from Excel spreadsheet I have a word template that upon opening initailizes a form (frmTest) for finding and replacing all instances of specified string. It also opens a text file in the same directory "C:\Text\Text.txt", for performing the find & replace functionality. I am trying to populate a text box on the frmTest with a numberic value from an excel spreadsheet (Counter.xls) in the same directory. This is the replacing value. The spreadsheet is used for incrementing the value everytime the replace coding is initialized. Any suggestions on this would be greatly appreciated. Thanks, Chuck Tag: Table Alignment Tag: 43804
  - 20
    - Enable macros I am running WinXP professional and Office 2003. Upon closing Word (and Outlook) I get the following error message: Microsoft Visual Basic! The macros in this prosject are disabled. Please refer to online help or doocumentation of the host application to determine how to enable macros. The instructions in the message are not helpfull to me. How do I "enable macros" in this case; i.e. how do I make this error message go away" Tag: Table Alignment Tag: 43801
  - 21
    - How to disable Virus scanning on word startup? Hello everybody. I am running the academic version of Office 2003 on my Windows XP notebook. McAfee VirusScan 7 is enabled to scan files with "standard and additional" extensions. Ever since I installed MathType 5.2 and EndNote 7, Word locks up at startup for about 20 seconds and displays the message "Scanning for viruses" (my own humble translation of the original german message "Virenueberpruefung") in the status bar. Within these 20 seconds even the screen update of the Word window does not take place any more. Now I am wondering whether this is a built-in feature of Word 2003 or something McAfee does. Moreover, if it is caused by Word, I would like to disable this cumbersome virus detection process. Thank you very much already for taking the time reading, Malte Tag: Table Alignment Tag: 43799
  - 22
    - Open File Error I have a DLL that opens a template document, creates a data document and then does a mail merge with output going to a new document. In the code below, when it tries to open the file with the merge fields and another user has it open, the user gets a "File In Use" dialog with the buttons Read Only (to open the file in read-only mode), Notify and Cancel. If the user clicks the Read Only button, it opens the file and everything works fine. If the user clicks the Cancel button it goes back to the code and returns error number 4198 "Command Failed." I have tried using different flags on the Open (ReadOnly:=True) but it always displays the File In Use dialog. Is there a way I can tell if another user has the file open before I open it? I've looked on MSDN but I've only found how to tell if the file is open on the current machine. Thanks for any assistance. If mTemplateFile <> "" Then Set mWord = CreateObject("Word.Application") mWord.Visible = True Set mWordMergeDoc = mWord.Documents.Open(mTemplateFile) <== shows the File In Use dialog DoEvents mWordMergeDoc.Select Tag: Table Alignment Tag: 43798
  - 23
    - Office 2003 and XML The latest version of Word has a modified INCLUDETEXT field that allows you to include nodes of data from an XML file and at the same time use XSL to transform that data. The following generates an error when I add in the name of the XSL to use. Thanks. Mark Baird { INCLUDETEXT "c:\\format-number.xml" \t "c:\\format- number.xsl" \x /root/myNumber } format-number.xml <?xml version="1.0" encoding="UTF-8"?> <root> <myNumber>136234</myNumber> </root> format-number.xsl <?xml version="1.0" encoding="UTF-8"?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> <xsl:template match="/"> <xsl:value-of select="format-number (root/myNumber,'###,##0.####')"/> </xsl:template> </xsl:stylesheet> Tag: Table Alignment Tag: 43792
  - 24
    - MSWord...styles. How can I get the style name for a given range in my word document? I've tried several things, and the funny thing is Debug.print myStyle will give me the style name (which is all I want,) but there doesn't seem to be any way to get this information from the range or style object and assign it to a string. I'm a little new at VBA, so any help would be appreciated. Thanks, L- Tag: Table Alignment Tag: 43791
  - 25
    - Find and Replace in Footer? All, I have some VB Script that loops through each field in a record and attempts to do a "Find and Replace" for each instance in the active document. Here is the code: FieldName = objField.Name FieldValue = objField.Value & "" Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "<<" & FieldName & ">>" .Replacement.Text = FieldValue .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll How do I get Word to replace instances of <<FieldName>> in the Header or Footer section of the document with the FieldValue? Thanks! Brian Tag: Table Alignment Tag: 43783
- Next
  - 1
    - Creating your own wizard I am looking to create a wizard (or something similar) for my business contract (letter of agreement My goal is to have a finished document and all i have to do is insert the clients name, fee, and services provided I realize i can go through the document and change the information manually, but it would be nice if the program did that for me, since this info is listed several times on the form. OH, and it has to be on company letterhead Thank you for your information!! Tag: Table Alignment Tag: 43782
  - 2
    - How do I set the default name (ie. to something other than DocumentX) I am using Word to create reports/letters/etc that I need to save as PDF files. I do not want to save the DOC files at all. My basic methodology now is to do this: -Open existing doc -update fields -print to Adobe PDF file -close document The problem is that Adobe PDF always assumes the document's filename as it's naming convention - in Word's case it defaults to "DocumentX' (where X is a number) as the filename and consequently the output file is named DocumentX.PDF. I have tried changing the title of the document as well as the caption but nothing works. As a matter of fact this can be duplicated by openeing a new document and performing the steps manually or running this VBA code: sName = "My custom name" Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0 With Dialogs(wdDialogFileSummaryInfo) .Title = sName .Execute End With ActiveDocument.ActiveWindow.Caption = sName If you now try to close the document it says "Save changes to DocumentX?" even though the title and caption have been changed to "My custom name"... BUT if you try to save the document it correctly shows "My custom name" as the default... I assume that the text DocumentX must be stored somewhere internally but I cannot find it. I would really rather not save this document and have to deal with problems of existing and in-use documents etc... Any suggestions? Can I change the filename without actually saving the file? Tag: Table Alignment Tag: 43780
  - 3
    - wdRefTypeHeading returning only 10 "Heading 1" headings Hi! I have to modify a very long (about 200 pages) document and go through all the headings in it. When I'm using wdRefTypeHeading in the following code, it only stores the first 10 of the top level headings. All the headings after that aren't stored in myHeadings, i.e. 11, 11.1.. Dim myHeadings As Variant myHeadings = docMacro.GetCrossReferenceItems(wdRefTypeHeading) It doesn't help if I remove some headings between headings 1-10. So, what could be wrong, is there a limit of 10 H1's in wdRefTypeHeading or what? -Jarkko Tag: Table Alignment Tag: 43776
  - 4
    - Dialog Boxes Word I am trying to get back a path to a selected file using the following code, but can only get the filename. Can anyone help? Thanks Sub GetFilePath() Dim sFilename As String Dim sFilePath As String Dim dlgSaveAs As Dialog Set dlgSaveAs = Dialogs(wdDialogFileOpen) dlgSaveAs.Display sFilename = dlgSaveAs.Name sFilePath = dlgSaveAs.???? MsgBox sFilePath & "\" & sFilename End Sub Tag: Table Alignment Tag: 43774
  - 5
    - Basic Array definition and application I am creating an application that goes through 6 columns of data and generates an average. I have got the code working for each single column and am trying to create the best method of going to each succesive column. first I am showing the code now used and then the code that I think I should use. I am not sure that it is correct though. Could someone look over the second set of code and make suggestion or corrections. I am still learning. Thanks Steve Here is the code that I have started with for two columns: Dim i As Integer, mysum As Long, Counter As Integer Application.ScreenUpdating = False On Error GoTo ReturnScreen ActiveDocument.Unprotect mysum1 = 0 counter1 = 0 mysum2 = 0 counter2 = 0 mysum3 = 0 counter3 = 0 mysum4 = 0 counter4 = 0 mysum5 = 0 counter5 = 0 mysum6 = 0 counter6 = 0 ' Col1 For i = 155 To 191 mysum1 = mysum1 + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then counter1 = counter1 + 1 End If ActiveDocument.FormFields("Text374").Result = mysum1 / counter1 Next i ' Col2 For i = 192 To 228 mysum2 = mysum2 + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then counter2 = counter2 + 1 End If ActiveDocument.FormFields("Text380").Result = mysum2 / counter2 Next i ========== I think that it would be better to use an array, if I inderstand what they are and how they work correctly. I am proposing to use this code to replace the previous: Dim astrMysum(0 To 6) as Long Dim astrCounter(0 To 6) as Integer Dim intIndex as Integer ' Col1 For i = 155 To 191 Mysum(Index) = mysum(Index) + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then Counter(Index) = counter(Index) + 1 End If ActiveDocument.FormFields("Text374").Result = mysum(Index) / counter(Index) Next i ' Col2 Index = Index + 1 For i = 192 To 228 mysum(Index) = mysum(Index) + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then counter(Index) = counter(Index) + 1 End If ActiveDocument.FormFields("Text380").Result = mysum(Index) / counter(Index) Next i Tag: Table Alignment Tag: 43773
  - 6
    - Style Pane - how to specify what displays In W2002, I have a macro that turns on the Style Task Pane. I want that macro to also make the Task Pane display only Available Styles and not to display the Normal style. I know how to do this manually, but how do I do it with code? VBA help only shows how to make the Task Pane visible. TIA, Vivian Carroll Tag: Table Alignment Tag: 43772
  - 7
    - Mailmerge error I have a dll which does some mailmerge for me, the dll is called from VB6. It work fine with word 2002 but it fails in this routine I have here below. The line that fails is Kill mdataDocNavn, it deletes the temp file created. but it does not fail on first run but from secund run and more, I found that the line .ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges on first run closes the tempfile created by the OpenDataSource function, but only on first run, so later when I try to delete my tempfile it is open and I cannot access it, it is open but not in the Documents collection, so what do I do? Public Sub MergeAndPrint(Optional VisWord As Variant) Dim i As Integer Dim i2 As Integer Dim VisDokument As Boolean Dim boolFillInFelter As Boolean Dim testField As Word.Field On Error GoTo errorrut: If Not IsMissing(VisWord) Then VisDokument = CBool(VisWord) Else VisDokument = True End If With WordObj .ActiveDocument.SaveAs FileName:=mDataDocNavn, FILEFormat:=0, LOCKCOMMENTS:=False, Password:="", ADDTORECENTFILES:=False, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=0, SAVENATIVEPICTUREFORMAT:=0, SaveFormsData:=0 .ActiveDocument.Close .Windows(masterdok).Activate 'Indsat 9-10-2002 for at løse problemet med manglende menu funktioner 'hvis der findes Fill-In felter i dokumentet boolFillInFelter = False For Each testField In .ActiveDocument.Fields If InStr(testField.Code, "FILLIN") Then boolFillInFelter = True Exit For End If Next testField '************************************************************* .ActiveDocument.MailMerge.MainDocumentType = 0 With .Selection.Find .ClearFormatting .Text = "\* FLETFORMAT" .Replacement.Text = "\* MERGEFORMAT" .Replacement.ClearFormatting .Execute Replace:=wdReplaceAll End With If NormalFeltCollection.Count > 0 Or ListPackCollection.Count > 0 Then .ActiveDocument.MailMerge.OpenDataSource Name:=mDataDocNavn, ConfirmConversions:=0, ReadOnly:=0, LINKTOSOURCE:=1, ADDTORECENTFILES:=0, PASSWORDDOCUMENT:="", PASSWORDTEMPLATE:="", Revert:=0, WRITEPASSWORDDOCUMENT:="", WRITEPASSWORDTEMPLATE:="", Connection:="", SQLSTATEMENT:="", SQLSTATEMENT1:="" .ActiveDocument.MailMerge.Destination = wdSendToNewDocument <SOME CODE> .ActiveDocument.MailMerge.Execute <SOME CODE> '********************************************************** End If .Windows(masterdok).Activate .ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges End With If NormalFeltCollection.Count > 0 Or ListPackCollection.Count > 0 Then <Lots of replacements> For i = 1 To WordObj.ActiveDocument.Sections.Count For i2 = 1 To WordObj.ActiveDocument.Sections(i).Headers.Count With WordObj.ActiveDocument.Sections(i).Headers(i2).Range.Fields .Update End With Next i2 For i2 = 1 To WordObj.ActiveDocument.Sections(i).Footers.Count With WordObj.ActiveDocument.Sections(i).Footers(i2).Range.Fields .Update End With Next i2 Next i WordObj.ActiveWindow.View.ShowFieldCodes = False End If Kill mDataDocNavn If VisDokument Then WordObj.Visible = True End If Exit Sub errorrut: MsgBox (Err.Description) 'Resume If Errors.Count > 1 Then For i = 0 To Errors.Count - 1 MsgBox (Errors(i).Description) Next End If End Sub Tag: Table Alignment Tag: 43763
  - 8
    - Want user to add command button to menu bar I have created templates of all the forms our company uses. To access these templates, I have created another template (probably a document would have done as well) named Sensient Template that has macros with associated buttons on the menu bar that opens a document based on the desired template. From a CD I supply, the user copies the Sensient Template along with all the other templates into his/her templates folder. Here's the question. How can I easily have a beginner user get a button on his/her toolbar to open the Sensient template. Thanks. This one has me baffled. Marie Tag: Table Alignment Tag: 43757
  - 9
    - Newbie question - what is the most straightforward way to... ...use my VB6 application to create a series of Word documents from a template - some fixed text, and some variable text from a database? Variable data is held in about 7 different related tables; I looked at Mailmerge, but it looks to me like it only accepts a single table or query, which seems to rule this out... If someone could point me in the right direction that would be a great help Regard andy Tag: Table Alignment Tag: 43749
  - 10
    - Quick question please answer Does ne one know if those PDA's called Blackberries are compatible with microsoft word? Please if anyone knows let me know asap!!! Thanks so much Tag: Table Alignment Tag: 43746
  - 11
    - Re: All combinations of a nine letter word Correction, I meant a special thanks to Brian for the spellchecking tip! Malcolm, I'm aware the code will run VERY slowly (if it works at all), but hope that the result will be achievable while the game is being played. Thanks again, Terry. "Terry Hornsby" <t.hornsby@lineone.net> wrote in message news:... > Thanks for all the suggestions, particularly Malcolm for the preferred > spelling error check in Word. I had simply used checkspelling. > > I have seen the stand-alone programs & the server-based anagram makers (some > of them are gobsmackingly amazing), but I was wanting code for vba because I > have a created an Excel-based game that will see use at family > get-togethers. > > I can see no way around a for each & do loop structure (by combining the two > forms of the loop I think I can reduce the lines of looping code down to 12, > excluding the lines which deal with the actual string. Something like: - > > Set RngCube = Range("E2:G4") > > For Each RngCell In RngCube > StrResult = StrResult & RngCell > Next RngCell > IntTote = 6 > > IntA=9 > do while IntA >=4 > for Int1 = 1 to IntA > ''''''Pass string (using a mid statement) to the > spellchecker > '''''something like (the following DOES need amending! > StrTmp = Right(StrResult, Len(StrResult) - IntA) & > Left(StrResult, IntA) > If Application.CheckSpelling(StrTmp) = True Then > Range("A" & IntTote) = StrTmp > IntTote = IntTote + 1 > End If > IntB=IntA-1 > if inta<=8 then > do while IntB >=1 > for Int2 = 1 to IntB > ''''''Pass string (using a mid statement) to the > spellchecker, taking IntB as the mid character position > '''''something like (the following DOES need amending! > StrTmp = Right(StrResult, Len(StrResult) - IntB) & > Left(StrResult, IntB) > If Application.CheckSpelling(StrTmp) = True Then > Range("A" & IntTote) = StrTmp > IntTote = IntTote + 1 > End If > Next Int2 > Int2=Int2-1 ''replace one character with another from > the remaining 8 characters > Loop > End if > Next Int1 > IntA=IntA-1 ''remove one character from the original 9 one at a > time until only 4 remain > Loop > > > '''This bit creates my random 9 letters (which I alter to ensure > 3 letters are vowels) > Sub RndmLtrGenrtr() > Dim RngCube As Range, RngCell As Range, IntArr As Integer, IntTote As > Integer, _ > IntCount As Integer, StrResult As String, VarVwls As Variant, BoolFound As > Boolean > > VarVwls = Array("A", "E", "I", "O", "U", "Y") > > Set RngCube = Range("E2:G4") > RngCube.ClearContents > For Each RngCell In RngCube > StrResult = Chr(Int((90 - 65 + 1) * Rnd + 65)) > RngCell = StrResult > Next RngCell > > For Each RngCell In RngCube > For IntArr = 0 To 5 > If RngCell = VarVwls(IntArr) Then > IntTote = IntTote + 1 > End If > Next IntArr > Next RngCell > > IntCount = 3 - IntTote > If IntCount > 0 Then > > For IntTote = 1 To IntCount > For Each RngCell In RngCube > BoolFound = False > For IntArr = 0 To 5 > If RngCell = VarVwls(IntArr) Then > BoolFound = True > Exit For > End If > Next IntArr > > If BoolFound = False Then > StrResult = VarVwls(Int((6 - 1 + 1) * Rnd + 1) - 1) > RngCell = StrResult > Exit For > End If > Next RngCell > Next IntTote > End If > End Sub > > Thanks to all once again, > > Terry. > > "Theo van der Ster" <mail@sterlingwaen.com> wrote in message > news:ea60a533.0401032054.7158e5b7@posting.google.com... > > Hi Terry, > > > > This is a better web page. It gives you the results immediately > > instead of sending them thru the mail. > > > > Regards, > > Theo van der Ster > > > > "Terry Hornsby" <t.hornsby@lineone.net> wrote in message > news:<ujXuAfh0DHA.1532@TK2MSFTNGP10.phx.gbl>... > > > Does anyone know how I can loop through a nine letter word & get all the > > > combinations of those nine letters (i.e., an anagram solver)? > > > > > > Many thanks, > > > > > > Terry > > Tag: Table Alignment Tag: 43741
  - 12
    - Definition of the Revision "Type " properties I have not found definitions of several of the type properties of the Revision object. What do they mean? wdNoRevision wdRevisionDelete wdRevisionDisplayField wdRevisionInsert wdRevisionParagraphNumber wdRevisionProperty wdRevisionReconcile wdRevisionReplace wdRevisionStyle Thank you. John Wirt Tag: Table Alignment Tag: 43739
  - 13
    - Grayed-out Document Properties All word documents in Windows Explorer show the properties to be "archive" but when I open the file in Word the properties are grayed out and I cannot check the "hidden," read-only," or archive boxes. This affects printing because when a document has all the boxes grayed out, and NO check marks for what kind of properties, the printer spits out a few blank pages. So not only are the word documents not showing a properties classification, but ones that are totally unchecked and grayed do not print. THIS IS NOT a printer problem because i can print every other document. PLEASE EMAIL me directly if you can help. I have a 37 page research paper that has the property boxes grayed out and I cannot print it out (I can view it in its entirety though). Email me at LibraryWoman52@yahoo.com and I will also check this list. Thanks! Tag: Table Alignment Tag: 43732
  - 14
    - Name of current OpenDirectory Is there any way in VBA (Office 2000) to learn the name of the current directory/folder? I know how to change the current directory using the command ChangeFileOpenDirectory And I know how to see the current default folder, by examining temp = Options.DefaultFilePath(wdDocumentsPath) But neither one does what I want. Say that my default folder is "C:\My Documents", but I have changed the current directory from the default by "manually" opening a file in a directory other than the default. Can a macro obtain and do something with the name of this new folder? -- Steve M - unspam@houston.rrwax.com (remove wax for reply) Chaos. I can relate to that. My life is chaos most of the time. I am in tune with the universe. It feels like home. -- Robert Fulghum Tag: Table Alignment Tag: 43730
  - 15
    - How to create Macro that will prefix all lines with a character? Hi! I need a VBA Macro that will process a selected section of text as Quoted Text - similar to how email programs do it when you Reply to a Plain Text message. Basically, it needs to take a selected section of text and prefix every line with a ">" character, whether the selected lines have a Line Break at the end, or if they are simply wrapped around the next line. Creating a Macro that prefixes a single line of text is easy: ------------------------------- Sub QuoteLine() Selection.HomeKey Unit:=wdLine Selection.TypeText Text:=">" Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine End Sub --------------------------------- But I don't know how to alter this code so that it processes a selected section of text. Can anyone help? Thanks! Tag: Table Alignment Tag: 43727
  - 16
    - Variable Hi How can I check if the value of a variable has been set? Right now if check the value of my variable like this; ActiveDocument.Variables.Item("UniqueID").Value, I get an "Object has been deleted" error. Thanks Regards Tag: Table Alignment Tag: 43726
  - 17
    - Executing query Hi I have an insert query string as below. How can I execute it in word vba uisng DAO? Dim sSQL As String sSQL = "INSERT INTO clients ([ClientName], [Address]) " sSQL = sSQL & "VALUES('John Smith', '333 Park Avenue')" Thanks Regards Tag: Table Alignment Tag: 43725
  - 18
    - All combinations of a nine letter word Does anyone know how I can loop through a nine letter word & get all the combinations of those nine letters (i.e., an anagram solver)? Many thanks, Terry Tag: Table Alignment Tag: 43721
  - 19
    - Doevents in Word 2003 Has anyone had problems with this? On two machines I have, both with latest releases and sp1 for Ofiice 2003 the following code runs 'like a dog' and hogs 100% of cpu cycles, even with no other user processes executing. The letters come out very, very slowly. Usually the first line comes after a long wait, the next part comes regularly as is hoped for. Private Sub TypeString(str As String, delay As Long) Dim iIndex As Long Dim iStringLength As Long Dim oDoc As Document Set oDoc = ActiveDocument Dim oRange As Range Set oRange = oDoc.Content oRange.Text = "" iStringLength = Len(str) For iIndex = 1 To iStringLength oRange.Collapse wdCollapseEnd oRange.Text = Mid$(str, iIndex, 1) DoPause delay Next iIndex End Sub Private Sub DoPause(secs As Long) Dim fFinish As Single fFinish = Timer + secs Do While Timer < fFinish DoEvents Loop End Sub Public Sub ShowMessage() TypeString "Happy New Year" & vbCrLf & "from" & vbCrLf & "Joe", 2 End Sub I run ShowMessage via alt+F8 and double clicking list box entry. Perhaps there is something else wrong with the code? Thanks -- Joe Tag: Table Alignment Tag: 43720
  - 20
    - Efficiently lining up pictures Goodday and a happy new year to start off with!! I have created a macro in which all charts in an excel sheet are being pasted as floating pictures in word.(10) Now I would like to rearrange them immediatly in 2 koloms with 5 charts... I've been trying, but can't figure out a nice and efficient way to do so.... Someone maybe? Regards, Ivo Geijsen ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Table Alignment Tag: 43712
  - 21
    - Save as... something in my document... Hi, I'm quite ignorant in VBA... and I've got a problem... I've got this Word file, which I use to generate about 80 (different but alike) HTML-files by merging it with an Excel-file... The result: one big Wordfile. This should be cut into pieces, each page in a different file, saved as a .txt-file. In each page of the 'mainfile' I've made myself a remark: save this file as 'whatever.txt'. I've made a macro already that cuts the content of one 'subfile' and pastes it into a new file which I then have to save by hand. I'm sure it should be possible to let a macro determine (from the text) what the filename should be, and save the file with the right filename... but how... Anyone? TIA, Joost ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Table Alignment Tag: 43711
  - 22
    - Supress Headings I am using word XP. I am trying to apply headings (legal type) to a document of paragraphs based upon styles and would like to be able to skip paragraphs which should be grouped under specific headings without numbers as they are not independent. I am trying to do this withing a vba. Applying the paragraph format value to supress the numbers does not work even if I try this manually. Long ago there was a feature in the old word basic that allowed one to specify which paragraphs got numbers by assigning a number to the desired paragraphs prior to applying the heading formatting. Does any such method exist now? Tag: Table Alignment Tag: 43710
  - 23
    - Enter key replacement is it possible to change the behavior of the Enter key in Word 2002? I want 3 modes of operation. In one mode i want to invoke a macro and move to the next paragraph without inserting a newline. Tag: Table Alignment Tag: 43702
  - 24
    - Button Properties I want to be able to change the properties of a toolbar button depending on the current state the document is in. For instance, when the user clicks on a button i want it's state (and its appearance) to change, and other controls to be enabled or disabled on the toolbar. This would be easy with button events but i have no idea how to find the name of a custom macro button on a custom toolbar... Another thing, is it possible to place a spinbutton or other control on a Word toolbar? Tag: Table Alignment Tag: 43691
  - 25
    - Hiding the looping calculations I have an application where I am calculating the average of columns in a form table. The calculation works fine but it is somewhat slow and it causes the monitor to blink for about a minute as it loops through all the cells. Is there a way to hide the calculation, to turn the "echo" off so it went peacefully through the loop and then presented the result? I am hoping that this may speed it up a little. Here is the code I am currently using, based on help from Doug Robbins. I am not sure it works on the multiple columns with the numbered mysum and counter variables. I would welcome comments on that also. Thanks - Steve Dim i As Integer, mysum As Long, Counter As Integer ActiveDocument.Unprotect mysum1 = 0 counter1 = 0 mysum2 = 0 counter2 = 0 mysum3 = 0 counter3 = 0 mysum4 = 0 counter4 = 0 mysum5 = 0 counter5 = 0 mysum6 = 0 counter6 = 0 ' Carpet For i = 155 To 191 mysum1 = mysum1 + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then counter1 = counter1 + 1 End If Next i ActiveDocument.FormFields("Text374").Result = mysum1 / counter1 ' Tile For i = 192 To 228 mysum2 = mysum2 + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then counter2 = counter2 + 1 End If Next i ActiveDocument.FormFields("Text380").Result = mysum2 / counter2 ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True End Sub Tag: Table Alignment Tag: 43686

Hi, I'm using this line of code to change the alignemt of
the table (DocTab) to Right-to-Left:
DocTab.TableDirection = wdTableDirectionRtl

It works fine with Word XP.
When using Word 2000, the table is shown as Left-to-Right
but when trying to look for the table properties then it
is Right-to-Left
Whats wrong with Word 2000? is there anything that i can
do?

Thanks in Advance.

Top

Re: Table Alignment by Thomas

Thomas
Wed Jan 07 12:06:58 CST 2004

"Eman Nairoukh" <anonymous@discussions.microsoft.com> wrote in message
news:038101c3d513$c7df7030$a001280a@phx.gbl...
> Hi, I'm using this line of code to change the alignemt of
> the table (DocTab) to Right-to-Left:
> DocTab.TableDirection = wdTableDirectionRtl
>
> It works fine with Word XP.
> When using Word 2000, the table is shown as Left-to-Right
> but when trying to look for the table properties then it
> is Right-to-Left
> Whats wrong with Word 2000? is there anything that i can
> do?
>
> Thanks in Advance.

Per the Word 2000 help file, "To enable the right-to-left features in
Microsoft Word 2000, you must be running a 32-bit Microsoft Windows
operating system that has right-to-left support - for example, the Arabic
version of Microsoft Windows 95."

Perhaps Word XP does not require this and will work on any version of
Windows, but Word 2000 is different. Just a guess. I have no real experience
here!

-Tom

Top