visual basic & msword

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: visual basic & msword Tag: 43805
  - 2
    - 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: visual basic & msword Tag: 43804
  - 3
    - 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: visual basic & msword Tag: 43801
  - 4
    - 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: visual basic & msword Tag: 43799
  - 5
    - 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: visual basic & msword Tag: 43798
  - 6
    - 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: visual basic & msword Tag: 43792
  - 7
    - 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: visual basic & msword Tag: 43791
  - 8
    - 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: visual basic & msword Tag: 43783
  - 9
    - 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: visual basic & msword Tag: 43782
  - 10
    - 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: visual basic & msword Tag: 43780
  - 11
    - 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: visual basic & msword Tag: 43776
  - 12
    - 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: visual basic & msword Tag: 43774
  - 13
    - 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: visual basic & msword Tag: 43773
  - 14
    - 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: visual basic & msword Tag: 43772
  - 15
    - 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: visual basic & msword Tag: 43763
  - 16
    - 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: visual basic & msword Tag: 43757
  - 17
    - 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: visual basic & msword Tag: 43749
  - 18
    - 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: visual basic & msword Tag: 43746
  - 19
    - 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: visual basic & msword Tag: 43741
  - 20
    - 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: visual basic & msword Tag: 43739
  - 21
    - 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: visual basic & msword Tag: 43732
  - 22
    - 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: visual basic & msword Tag: 43730
  - 23
    - 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: visual basic & msword Tag: 43727
  - 24
    - 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: visual basic & msword Tag: 43726
  - 25
    - 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: visual basic & msword Tag: 43725
- Next
  - 1
    - 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: visual basic & msword Tag: 43721
  - 2
    - 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: visual basic & msword Tag: 43720
  - 3
    - 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: visual basic & msword Tag: 43712
  - 4
    - 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: visual basic & msword Tag: 43711
  - 5
    - 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: visual basic & msword Tag: 43710
  - 6
    - 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: visual basic & msword Tag: 43702
  - 7
    - 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: visual basic & msword Tag: 43691
  - 8
    - 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: visual basic & msword Tag: 43686
  - 9
    - Run time error 52 Hi all - Could use some help on this one. I've got a module and two userforms. When I try to show the second userform I get an error message of "runtime error '52' bad file name or number" and it highlights my form2.show command. When I run the same code on my home machine it works, but on my office machine I get the error message. Any suggestions on what can be causing this and how to fix it? If it helps, here are the two ways I've tried to show the second form based on some previous posts: In module Sub StartMyForm() Form1.show End Sub In Form1 CmdButton1_Click Displays a dialog box CmdButton2_Click Displays another dialog box CmdButton3_Click Me.Hide Function1 Function2 Form2.Show (This is the line highlighted after the error message) I've also tried this method but got the same error message: In module Sub StartMyForm() Form1.Show Form2.Show Unload Form1 Unload Form2 End Sub Again, both methods worked on my home machine, neither works on the office machine. Any help would be greatly appreciated. Thanks in advance. Tom Tag: visual basic & msword Tag: 43685
  - 10
    - Run time error 9118 Parameter value was out of acceptable range Hi all, Using: VB6, SP5 Referencing: Microsoft Word 8.0 Object Library. Call .ConvertToTable(vbTab, , , , wdTableFormatElegant, , , , , , , , , True) I use the above on a range object to create a table in a word document generated by pure VB code. When I have Word97 installed on my machine - its working fine. However, when I install Word2000 the RTE happens. The RTE happens only when I have Word 2000. I already tried to change the True value to 1 as suggested in some articles in the web. I also tried to remove all the parameters but the first vbTab and it did not help as well :( Please advise TIA Guy Tag: visual basic & msword Tag: 43682
  - 11
    - Word menu item Iâ??ve got a task, where I have to implement a Word template for about 45 people in a department. The template is on a server disc I would like every single pc to have a menu item that calls a new document based on this template. How do I implement a menu item that works general from Word. I want it to be easy to implement and modify on every pc. It could be something with the normal.dot but I would rather not modify this file because every user has his own way to use this file I hope someone can and will help me out Happy new year to you all!!! Rudy Madse Tag: visual basic & msword Tag: 43674
  - 12
    - document_new May i start by wishing everyone here a happy new year. And now, my question. We have a document management system which produces Word documents for us. This process involves a user inputing data into the application which then performs a merge from a template provided by us to produce the document. However, any code provided by me within the template gets ignored & stripped out by the merge. What i've been trying to do is produce some automation functions to be fired off within the Document_New event of the template, but these get ignored. So my question is this...Can anybody suggest a way of working around this? I'd like to avoid having to train users to click something once their doc is produced and would like to keep things as automated as possible. I'm guessing maybe something in Startup/Addins but i'm unsure. Any help gratefully recieved Tag: visual basic & msword Tag: 43673
  - 13
    - Persistant variables in word 2002 I've got a fairly large macro in word 2002 that needs to store document state variables inside a doc without them being accessible to regular users. is this possible and if so, where? Tag: visual basic & msword Tag: 43666
  - 14
    - Let user click in doc while macro runs? I have a macro which requires the user to select where the action will happen. I have two issues to deal with: (a) I'm making this a Private Sub, dependent on the running of a previous macro, because I need to pass a total count variable from the previous macro into this one. (b) This is a repeated action, so this macro will update a counter every time it's run and compare it with the passed-on variable to know when to stop. The macro will find a generic label statement and replace it with a user-chosen label (input earlier via InputBox) that includes a number (the counter which increments each time the loop is run). Is there any way I can break out of the loop to ask the user to "Place the cursor where you want the text to be", then let the macro continue? If not, what might be the best way to handle this? Ed Tag: visual basic & msword Tag: 43660
  - 15
    - lockaspectratio for inlineshapes I'm trying to programmatically change the width of an inline shape, after setting lockaspectratio=true. When i click on the picture i see that the lockaspectratio box is indeed checked, but it doesnt seem to work... the width changes independently of the height. if i manually doubleclick on the picture and change the size, it works. does anyone know how i can make it work through vba? ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: visual basic & msword Tag: 43647
  - 16
    - A procedure to write a procedure - shareware time limit I am trying to write a procedure (procedure A) that will 1) check if another procedure (procedure B) exists 2) if that procedure does not exist create it hardcoding the date on which is first run 3) and resave the template then run procedure B 4) if procedure B exists, run procedure B Specifically, I am trying to write an AutoExec or AutoNew procedure that notes the current date the first time it is run and saves it in the code (rather than as a doc variable or a doc property). Once that has been done, the newly created code will check the current date each time it is run and compare it to the saved date. Once a certain number of days have passed, the code will be disabled. TIA Happy New Year! -- Charles Kenyon Word New User FAQ & Web Directory: <URL: http://addbalance.com/word/index.htm> Intermediate User's Guide to Microsoft Word (supplemented version of Microsoft's Legal Users' Guide) <URL: http://addbalance.com/usersguide/index.htm> See also the MVP FAQ: <URL: http://www.mvps.org/word/> which is awesome! --------- --------- --------- --------- --------- --------- This message is posted to a newsgroup. Please post replies and questions to the newsgroup so that others can learn from my ignorance and your wisdom. Tag: visual basic & msword Tag: 43643
  - 17
    - Set Copies in Word from VB Application using VBA I can't find a way to set the default number of copies for the printer dialog using VBA in my VB application. Is there a way to do this with out running a macro? The user's of my application are in a corporate environment and only have networked printer drivers, not locally installed printer drivers. Tag: visual basic & msword Tag: 43639
  - 18
    - how to test if the word document is closed Hi I'm using a vb.net program to automate functions in Word. Suppose I have a variable WordDoc, which is pointed to a word document. How would I be able to test to see if the WordDoc is still open Thanks Tag: visual basic & msword Tag: 43636
  - 19
    - Print Macro Can there be some script created so that word would print all the documents that are open? Tag: visual basic & msword Tag: 43632
  - 20
    - Word Printing - suppressing the "Printing" pop up box. This is a multi-part message in MIME format. ------=_NextPart_000_0022_01C3CF87.AB2A0C20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I'm printing several documents in one go from within vb.net. I'm = creating a Word Object using Active-X and printing using the following = line of code: objWord.ActiveDocument.PrintOut(Background:=3DFalse, = Range:=3DWord.WdPrintOutRange.wdPrintAllDocument, Copies:=3D1) This works fine, but pops up an annoying box saying "Document [docname] = printing on [printer name]" =20 Is there any way of suppressing this pop up ?? Many thanks in advance. Simon ------=_NextPart_000_0022_01C3CF87.AB2A0C20 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1276" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>I'm printing several documents in one = go from=20 within vb.net.  I'm creating a Word Object using Active-X and = printing=20 using the following line of code:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV> <P><FONT face=3DArial = size=3D2>objWord.ActiveDocument.PrintOut(Background:=3DFalse,=20 Range:=3DWord.WdPrintOutRange.wdPrintAllDocument, = Copies:=3D1)</FONT></P> <P><FONT face=3DArial size=3D2>This works fine, but pops up an annoying = box saying=20 "Document [docname] printing on [printer name]"  </FONT></P> <P><FONT face=3DArial size=3D2>Is there any way of suppressing this pop = up=20 ??</FONT></P> <P><FONT face=3DArial size=3D2>Many thanks in advance.</FONT></P> <P><FONT face=3DArial size=3D2>Simon</FONT></P></DIV></BODY></HTML> ------=_NextPart_000_0022_01C3CF87.AB2A0C20-- Tag: visual basic & msword Tag: 43619
  - 21
    - Clipboard Woes Word 2000 I have a macro that passes data to and from the clipboard. I have a problem in that the contents of the clipboard seem to be changing unexpectedly. In the code below I've marked the lines where the change seems to happen. If I put a watch on cbLocate and step through the code, it contains one value the first time CheckClipboard is run, and a different value the second time CheckClipboard runs. The subroutines below are shown in their entirety. **************** Sub RemoveLocate() SelectLocate <<< This calls a subroutine that just selects text in the document. Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend > CheckClipboard > Selection.Delete Unit:=wdCharacter, Count:=1 <<< This command seems to change the clipboard contents. > CheckClipboard NextLocate <<< This calls a subroutine that goes to the next block of text in the document. End Sub Sub CheckClipboard() ReadFromClipboard If InStr(1, cbLocate, "LOCATED RECORD NOTIFICATION", vbBinaryCompare) Or _ InStr(1, cbLocate, "$L", vbBinaryCompare) Then PasteLocate End If End Sub Sub ReadFromClipboard() Set cbValue = New DataObject cbValue.GetFromClipboard cbLocate = Trim(cbValue.GetText) End Sub **************** As indicated above, it seems to be the Selection.Delete command that is changing the clipboard contents. This makes a certain amount of sense if the block of text is being cut from the document. Is there a way to delete blocks of text without the data landing on the clipboard? Is there something about the clipboard that I don't understand that might be causing this problem, like maybe the clipboard is storing multiple blocks of text and my code isn't handling that properly? Also, I understand that data objects can hold multiple pieces of information. Could the data object be the problem? I apologize if this is all too vague, but I thought that trying to post my complete set of macros, or explain the fine details of everything that I'm doing, would be too confusing, so I've tried to boil it down to the section of code where I'm seeing the problem (although, I know this might just be a symptom, and the real problem might be elsewhere in my code). Any help you can offer will be greatly appreciated. --Tom Tag: visual basic & msword Tag: 43618
  - 22
    - Finding Login Information on XP I had a program that listed and deleted files in my cookie folder, but with XP the folder is no longer C:\Cookies or C:\Windows, etc. Does anyone know how to get the login name of a user in word. The path looks like this: "C:\Documents and Settings\User Name\Cookies\" And I'm hardcoding username. But isn't there aoms api function or application properties other than username that will tell me who logs onto a windows session? spammastergrand@aol.com Tag: visual basic & msword Tag: 43617
  - 23
    - Faster Calculation Needed I'm having a speed issue that I think could be eliminated with a little more knowledge. I am creating a template form in Microsoft Word with 28 dollar amounts. Each dollar amount is split into two text form fields (one for the dollar portion of the amount and the other for the cents portion of the dollar amount). I have set the name of each field (DollarAmt_01 to DollarAmt_28 and CentsAmt_01 to CentsAmt_28). I have also created a macro that gets run when the focus exits the text form field for both the dollar and cents fields. This macro cycles through each dollar amount adding them up. Then it cycles through the cents amount, adding them up, multiplying them by 0.01 and adding the result to the dollar amount total. Here's a snippet of my code for the macro: Sub CalcDepositTicketTotals() Dim dollarTotal, centsTotal As Double dollarTotal = 0 dollarTotal = dollarTotal + Val(ActiveDocument.FormFields("DollarAmt_01").Result) dollarTotal = dollarTotal + Val(ActiveDocument.FormFields("DollarAmt_02").Result) .. dollarTotal = dollarTotal + Val(ActiveDocument.FormFields("DollarAmt_28").Result) centsTotal = 0 centsTotal = centsTotal + Val(ActiveDocument.FormFields("CentsAmt_01").Result) centsTotal = centsTotal + Val(ActiveDocument.FormFields("CentsAmt_02").Result) .. centsTotal = centsTotal + Val(ActiveDocument.FormFields("CentsAmt_28").Result) centsTotal = centsTotal * 0.01 dollarTotal = dollarTotal + centsTotal ' US Dollar Amount ActiveDocument.FormFields("USD_Total").Result = Str(dollarTotal) End Sub ===================== I'm sure that I am going about this the wrong way because this is taking way too long to process (about 16-18 seconds). Certainly, you can tell that I am not experienced with programming in Word. Any suggestions on what I can do to speed things up? Thanks! Jason ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: visual basic & msword Tag: 43616
  - 24
    - Print Control in Word/Excel Hello I want to place a 'Button' Control in Excel and Word files. I want the button to bring up the Print dialogue, just the same way as going to FILE --> Print would do How do I do this? Thank you Tag: visual basic & msword Tag: 43606
  - 25
    - VBAKey by Pathologist question A few months ago someone in this group suggested to recover a lost VBA password using the free VBAKey by Pathologist. I tried and it displayed the recovered password using a series of chachacters which can not be entered from the keyboard. Has anyone else tried this program? Do you know how to convert this characters into a readable text sequence? Tag: visual basic & msword Tag: 43605

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/

Top

Re: visual basic & msword by Jonathan

Jonathan
Tue Jan 06 09:14:57 CST 2004

Hi Kiran,

3 parts to this.

1. Controlling Word.
The following article describes with sample code how to control Word from
Excel. But much the same principle apply to controlling Word from VB6

Control Word from Excel
http://www.mvps.org/word/FAQs/InterDev/ControlWordFromXL.htm

2. Setting page margins
The page margins are properties of the document's PageSetup upbject. Note
that the margins are specified in points. Make sure you do the appropriate
conversions.

3. Batch processing
The following article shows one way of getting a list of all the files in a
folder and processing each file in turn. You will be able to replace the
find/replace code with your own page setup code.

Find & ReplaceAll on a batch of documents in the same folder
http://www.mvps.org/word/FAQs/MacrosVBA/BatchFR.htm

--
Regards
Jonathan West - Word MVP
http://www.multilinker.com
Please reply to the newsgroup

"kiran chand" <kiran.chand.zlktk@nospam.WordForums.com> wrote in message
news:kiran.chand.zlktk@nospam.WordForums.com...
>
> 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/
>

Top