wavy underlined content

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Selection Object Hello, I create a word document from vb application. I format the header and footer and insert a couple of files into the word documment. I use the selection object for both formatting header and footer and inserting files. It works fine the first time I run the program. But the second time when I run it. The files did not inserted into the document. Here is the code I use to format footer: objWord.Sections(1).Footers (wdHeaderFooterPrimary).Range.Fields.Add Range:=Selection.Range, Type:=wdFieldPage Selection.TypeText Text:=" of " objWord.Sections(1).Footers (wdHeaderFooterPrimary).Range.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter After I format the document footer, I have the follwoing line of code: objWord.Content.Select With Selection Insert file here end with It looks like the selection is still in the footer area. Is it anyway I can detect where the selection is and how to redefine the selection? Thanks for any help! Mei Tag: wavy underlined content Tag: 58225
  - 2
    - Updating autotext I have a variety of autotext entries. Unfortunately, we have to constantly revise and update these autotext entries back to the template (or even add new entries). It's hard to explain to others how to do this. So... here's my problem. I'd like to use VBA to create a menu that would walk people through the process (highlighting the correct text, automatically selecting the correct template, etc...). Has someone already done this? Right now, I was pondering having a button on the main menu (it's this whole big menu we have for inserting spec entries, not to worry about that part) that says "update entry", then when you click that button, the main menu is hidden while a msgbox pop up that says "highlight text".You would press okay to get rid of the message box, highlight the text, then... then... then I get a bit lost. I want it to then pull up the resident wdDialogEditAutoText dialog box, but and have it set automatically to the correct template (I think that will get rid of a lot of confusion) but don't know how to force the dialog box to set to a specific template in the "Look in" area. I also don't know how you would go from highlighting text to bringing up this dialog box. If you need clarification on what I'm trying to do, feel free to ask. Thanks in advance! -- -Kirsten Tag: wavy underlined content Tag: 58224
  - 3
    - Pass document reference into another doc? I want the Document_Open macro in one doc to open another doc. The second doc also has a Document_Open macro, and the first doc stays open until the second doc is finished. Can I pass the object reference from the first doc to the second so the second can completely close that instance of Word? Or set a reference while the doc is open with a macro running and cause it to close? Ed Tag: wavy underlined content Tag: 58216
  - 4
    - Locked documents? Can I unlock a word document to modify it? Tag: wavy underlined content Tag: 58212
  - 5
    - Error 462 problem. I've written an Access 2000 app which creates some Word documents. There is one place that it errors randomly on error 462 - The remote server machine does not exist or is unavailable. To give an idea as to the randomness, I ran it over 100 times yesterday on one PC (Win 2000 + Office 2000) and it never failed. On another machine running Win XP + Office XP Standard + Access 2000, it fails about 80% of the time. On a 3rd PC, identical to the 2nd, it fails less than 10% of the time. And on any PC, if you step through the code, it never fails. The pertinent parts of the code follows, with the point where it fails indicated thus: -----> Note that some code has been omitted for clarity/brevity. ---------------------------------------------------------------------- Dim objWord As Word.Application Set objWord = GetObject(, "Word.Application") objWord.Documents.Add Application.CurrentProject.Path & _ cStrWordTemplate '---------------------------------------------------------------------- ' Put in the header '---------------------------------------------------------------------- With objWord ' .ScreenUpdating = False ' .Visible = False .Selection.Goto What:=wdGoToBookmark, Name:="bkShopType" .Selection.TypeText Text:=strShopType .Selection.MoveRight unit:=wdCell, Count:=2 .Selection.TypeText Text:="Dealer " & _ rst.Fields("DealerID") & _ " - " & rst.Fields("Dealer Name") .Selection.MoveRight unit:=wdCell .Selection.TypeText Text:=strWave .Selection.EndKey unit:=wdStory .Selection.TypeParagraph '---------------------------------------------------------------------- ' Loop through the recordset and find all the questions where ' points were lost '---------------------------------------------------------------------- Do While Not rst.EOF If rst.Fields("PointsScored") < _ rst.Fields("PointsAvailable") Then '---------------------------------------------------------------------- ' Create the table to hold the data '---------------------------------------------------------------------- .Selection.EndKey unit:=wdStory .Selection.TypeParagraph .ActiveDocument.Tables.Add Range:=.Selection.Range, _ NumRows:=1, NumColumns:=1, _ DefaultTableBehavior:=wdWord9TableBehavior, _ AutoFitBehavior:=wdAutoFitFixed -----> Fails between here and the next 3 lines .Selection.Tables(1).PreferredWidthType = _ wdPreferredWidthPoints .Selection.Tables(1).PreferredWidth = _ CentimetersToPoints(19.5) .Selection.Rows.HeightRule = wdRowHeightAtLeast .Selection.Rows.Height = CentimetersToPoints(1) ---------------------------------------------------------------------- Anybody see the problem? -- Roger Tag: wavy underlined content Tag: 58210
  - 6
    - ActiveDocument object doesn't work Hello all, I have a problem with VB.Net. I want to get the readabilityStatistics from word documents. herefore I have to activate a doc as an ActiveDocument in the Word.Application. And here is exactly the problem. I cannot use the ActiveDocument as it is written everywhere in the MSDN! Here is what I did: ... Private Sub TestMSWordFunc(ByVal file As String) 'MS Word declarations Dim wordApp_Server As Word.Application Dim wordDoc As Word.Document Dim wordRange As Word.Range Dim wordStatistic As Word.ReadabilityStatistic 'Other Dim fileMod As Boolean Dim resComputeStatistics As Integer Dim wordEnum As IEnumerator Dim wordVal As ValueType 'Open an application server first wordApp_Server = New Word.Application wordDoc = wordApp_Server.Documents.Open( _ FileName:=file, _ ConfirmConversions:=False, _ ReadOnly:=False, _ AddToRecentFiles:=False, _ PasswordDocument:="", _ PasswordTemplate:="", _ Revert:=False, _ WritePasswordDocument:="", _ WritePasswordTemplate:="", _ Format:=Word.WdOpenFormat.wdOpenFormatAuto, _ Visible:=False) 'Document must be set active in order to retrieve further information wordApp_Server.Documents.Add(file) wordDoc = wordApp_Server.ActiveDocument Label_ResultFile.Text = file Label_ResultWords.Text = wordDoc.ComputeStatistics(Word.WdStatistic.wdStatisticWords) Label_ResultParagraphs.Text = wordDoc.ComputeStatistics(Word.WdStatistic.wdStatisticParagraphs) Label_ResultFK.Text = wordApp_Server.ActiveDocument.Content.ReadabilityStatistics.Item(6).Value ... I cannot get to tell the application the open word document!! The last line always returns zero, as the ActiveDocument is empty,i.e. a different document than the one I opened! Can anybody help me? I am getting crazy. It is probably very easy, but I cannot see the mistake. Kisses Mel Tag: wavy underlined content Tag: 58208
  - 7
    - Need Help on User-Defined Type Word 2000 I'm trying to create a user-define type. This is the first time I've tried to do this, so I've been reading through the on-line Help trying to figure it out. Here's what I have so far: ******************** ' Code placed in a standard module containing only public declarations. Type ErrorRecord ErrDateTime As Date ModuleName As String Subroutine As String ErrNumber As Long ErrHelpContext As Long ErrDescription As String ErrHelpFile As String End Type ' Code placed in the routine. Dim ErrorRecord As ErrorRecord With ErrorRecord .ErrDateTime = ErrDateTime .ModuleName = ModuleName .Subroutine = Subroutine .ErrNumber = Err.Number .ErrHelpContext = Err.HelpContext .ErrDescription = Err.Description .ErrHelpFile = Err.HelpFile End With FileNumber = FreeFile Open ErrorLog For Random As FileNumber Len = Len(ErrorRecord) + 2 Put #FileNumber, , ErrorRecord ******************** On the PUT statement I get: Run-time error '59': Bad record length From reading the Help on this error, I understand what the problem is, but I'm having difficulty determining how to set the proper record length. Hopefully, I've provided enough information for someone to answer my question. Given the above, how do I get the record length set properly? -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: wavy underlined content Tag: 58205
  - 8
    - FilePrint Question Word 2000 I have the following subroutine: Sub FilePrint() Message = "FilePrint" PrintRecords End Sub My goal here is to have FilePrint run every time the document is printed, no matter how the user prints the document. When I select "Print" from the File menu, or use CTRL+P, I get the "FilePrint" message, indicating that the FilePrint routine ran. However, if I print by clicking the Print button on the toolbar, I get no message at all, but the document still prints, indicating that the FilePrint routine is not running when the Print button on the toolbar is used. Is there a way to intercept the print operation when the user clicks the Print button on the toolbar? I've searched in the VB Help and have come up empty. Currently, the only solution I can think of is to create a custom toolbar that is identical to the Standard toolbar, except that the Print button would call the FilePrint macro. -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: wavy underlined content Tag: 58200
  - 9
    - Drop-down form field, can one create more than a 25 item list? I am a physician whose documentation requires certain drop-down form text fields to have drop-down pick lists longer than the default limit of only 25 items. Can anyone help me with the possibilty of creating drop-down pick lists longer than the default limit of only 25 items? Tag: wavy underlined content Tag: 58199
  - 10
    - How do I get mailing labels in Word into a sortable form? My organization has its mailing labels typed onto sheets of labels in Word. When we want to send out a mailing we need to sort by zip code by hand. It is very time consuming. Is there a way we can take the info from word and put it into an Excel or Access data base so that the labels can be sorted before they are printed? Thanks. Desparate for time. Tag: wavy underlined content Tag: 58198
  - 11
    - Automation of the Office "Equation Editor" Hello how can I make an Automation of the Office "Equation Editor". If it is possible what interfaces does this component have? Thanks Peter Tag: wavy underlined content Tag: 58197
  - 12
    - Best way to check if doc exists? I know there are a couple of different ways to see if a document exists (before I throw an error trying to do something with it!), but I'm wondering if there is a "best" way - that is, one most likely to behave nicely in just about any routine I stick it into. The path will always be the same on any user's computer - with their username inserted, of course - so I could use that. I've done different things - some quite by accident - in other code: set an object to a doc that isn't there and trap the lack of an object name; try to open it and trap the error; and such like. I tried Exists, but that doesn't seem to work for documents. Any suggestions? Ed Tag: wavy underlined content Tag: 58190
  - 13
    - Tables and Charts I am using a user form which will collect data from the user. Is there VBA code that can be used to take the data from the userform and create a table and a pie chart? Thanks Tag: wavy underlined content Tag: 58189
  - 14
    - Run-time error '4605': This method or property is not available... Hi, I'm getting the following message when trying to use the selection property in the Reviewing Pane in Word 2002: Run-time error '4605': This method or property is not available because the current selection is editing the reviewing pane. All I'm doing is letting the user select from a list and trying to insert the value such as this and I get the error when trying to execute the 'Selection.TypeText Text...' line: '***************** ' We will go through all of the values in our current list and check ' each one to see if it has been selected. If so, we will echo the ' associated text back into the document. For iArrValue = 0 To lstSelection.ListCount - 1 If lstSelection.Selected(iArrValue) = True Then Selection.TypeText Text:=arrResponse(iArrValue) End If Next '***************** If I record a macro in my main document or in the Reviewing Pane, just typing in text, the macro command is no different, using the selection property. It records fine and I can play it in my main document but not in the Reviewing Pane, as I'll get the error listed above. I can also manually type in the Reviewing Pane so it appears to be accessible. Either I am missing something or the selection property is not able to be used within the Reviewing Pane. Any ideas? Bill Tag: wavy underlined content Tag: 58187
  - 15
    - how do i write a simple computer program? I would like to know how to write a simple computer program Tag: wavy underlined content Tag: 58186
  - 16
    - VB Help Hi all, I`m trying to create a document with a text box and 3 combobox. Here is what I`m trying to do: TextBox shows today`s date. ComboBox1 shows value1 and value2 ComboBox2 shows value 3 and value4 ComboBox3 shows values 5,6,7,8 note: there is no connection between the comboboxes what so ever. first issue: I tried to use AddItem method undre private sub Document_Open - ComboBox1.Additem "value1" etc... After I save and close the document all the options from the ComboBoxes are gone. Second issue: I need to be "clean" when I open the document. Only the textbox should be filled with today`s date. I hope I`m clear here. Thank you so much for your time, Tom Tag: wavy underlined content Tag: 58185
  - 17
    - VBA-controlled mail preparation while using Word as mail editor In my Word VBA-application I would like to open Outlook with a partly prepared email that the user is expected to finish before sending it. However, this causes a problem when the user has chosen to use Word as the mail editor. Is there a simple way to temporarily cancel and then restore the users selection of editor? /BosseH Tag: wavy underlined content Tag: 58177
  - 18
    - Links should update when you "Save As"? I have links of the form: { LINK MyClass.Image Document1 "_1159793036\\Spot 1" \a \t \* MERGEFORMAT } (for example). The document I created to hold the links was called "Document1". When I save the document as, say, "gianttestreport.doc" and then reload it, Word says I have links referring to other documents in my file. I assume its because it doesn't automatically change "Document1" in the links to refer to the current documents new name after saving. Is there any way around this? Tag: wavy underlined content Tag: 58173
  - 19
    - XMLNodes in Headers & Footers Hi Iâ??m struggling to find the best way to update XMLNodes contained within a Word document header (or footer). I would have expected "document.SelectNodes(...)" to include nodes from the headers and footers but it doesnt. The only answer(ish) I've found is: foreach (Section sect in _doc.Sections) { foreach (HeaderFooter headfoot in sect.Headers) { if (headfoot.Range.XMLNodes.Count>0) { // headfoot.Range.XMLNodes.SelectNodes(...) } } foreach (HeaderFooter headfoot in sect.Footers) { if (headfoot.Range.XMLNodes.Count>0) { // headfoot.Range.XMLNodes.SelectNodes(...) } } } But (a) this seems a bit pants and (b) it doesnt seem to work anyway! Does anyone know how to do this the "official" way? Many thanks Jonathan Tag: wavy underlined content Tag: 58170
  - 20
    - Footnote Revisions refusing to go away even with code... Sorry for cross-posting but I didn't know where else to post this and really need the help so here goes... I've got a VB6 app that creates Word docs utilizing mail-merge. When this app is run on machines with Office 2000 or earlier, the docs print out fine in "Final" view with all the revisions hidden. I use the following code to do this: WordApp.ActiveDocument.Revisions.AcceptAll ' WordApp is a Word.Application Object When this app runs on a machine with Office 2003, the docs print out with all the revisions hidden except for the ones in the footer of the document. I've burned two days already on this problem and am hoping to salvage today. Does anyone know what's causing this and is there a workaround? Any help would be appreciated. Thanks In Advance, Steve. Tag: wavy underlined content Tag: 58169
  - 21
    - Intecepting Font & Font Size dropdowns from the 'Formatting Toolba I am putting together a template where I want to restrict the font to Arial and the font size from 8 to 11 point. How can I intercept the dropdowns located on the standard 'Formatting Toolbar'? -- Tim Shaffer Tag: wavy underlined content Tag: 58167
  - 22
    - break link VBA Dear all, Does anybody know how I can break links (coming from excel graphics)in word using VBA? the following solutions did not help me: ActiveDocument.Fields.Unlink Sub RemoveLinks() Dim aField As Object For Each aField In ActiveDocument.Fields aField.LinkFormat.BreakLink Next aField End Sub thanks, Jan Tag: wavy underlined content Tag: 58165
  - 23
    - Adding a button to a Word context menu What I want to do: I want to add a button to the shortcut menu (context menu/rightclick menu) that appears when a user right-clicks on a piece of text. I want it to be compatible with word 2000 and up I want to use Visual Basic .Net . So far I've started to fumble around with a shared add-in for a bit, but I have no idea if what I want is even possible nor how to do it. Can anyone point me in the right direction here? Tag: wavy underlined content Tag: 58158
  - 24
    - Adding a button to a Word context menu What I want to do: I want to add a button to the shortcut menu (context menu/rightclick menu) that appears when a user right-clicks on a piece of text. I want it to be compatible with word 2000 and up I want to use Visual Basic .Net . So far I've started to fumble around with a shared add-in for a bit, but I have no idea if what I want is even possible nor how to do it. Can anyone point me in the right direction here? Tag: wavy underlined content Tag: 58157
  - 25
    - Adding a button to a Word Shortcut menu What I want to do: I want to add a button to the shortcut menu (context menu/rightclick menu) that appears when a user right-clicks on a piece of text. I want it to be compatible with word 2000 and up. I want to use Visual Basic .Net . So far I've started to fumble around with a shared add-in for a bit, but I have no idea if what I want is even possible nor how to do it. Can anyone point me in the right direction here? Tag: wavy underlined content Tag: 58155
- Next
  - 1
    - Adding a button to a Word shortcut menu What I want to do: Add a button to the shortcut menu that appears when a user right-clicks on a piece of text. Compatible with Word 2000 and up Using Visual Basic .Net So far I've tried using a shared add-in project and tried a few things, but I'm really stuck and don't know for sure if it's even possible what I want to do. Can someone point me in the right direction here? Tag: wavy underlined content Tag: 58154
  - 2
    - Adding a button to a Word shortcut menu What I want to do: Add a button to the shortcut menu that appears when a user right-clicks on a piece of text. Compatible with Word 2000 and up Using Visual Basic .Net So far I've tried using a shared add-in project and tried a few things, but I'm really stuck and don't know for sure if it's even possible what I want to do. Can someone point me in the right direction here? Tag: wavy underlined content Tag: 58153
  - 3
    - Find.Execute not found in text boxes I need to use the find method to search a document for a certain string. I have found that the search does not include text boxes and I need it to. On my PC (using Word 2000) if I create a text box and populate it with the word 'Hello' and then use the find function, it is found in the text box. If I use vba to find, it does not find it in the text box. Even if I record a macro of the successful manual find, when I play the macro the find is not found. Can anyone shed any light on this? Tag: wavy underlined content Tag: 58148
  - 4
    - Find in Text Boxes I need to use the find method to search a document for a certain string. I have found that the search does not include text boxes and I need it to. On my PC (using Word 2000) if I create a text box and populate it with the word 'Hello' and then use the find function, it is found in the text box. If I use vba to find, it does not find it in the text box. Even if I record a macro of the successful manual find, when I play the macro the find is not found. Can anyone shed any light on this? Tag: wavy underlined content Tag: 58147
  - 5
    - Can't access second excel addins after executing first in word. The word macro contains few lines as: CopySMS.Application.Run ("labgraph.xla! _ Shrink.ParallelShrink") 'makes a excel plot and copies Selection.PasteSpecial Link:=False, _ DataType:=wdPasteOLEObject, _ Placement:=wdInLine, DisplayAsIcon:=False Selection.MoveDown Unit:=wdLine, Count:=2 CopySMS.Application.Run ("labgraph.xla!xlMain.CloseWorkbook") The problem is that it doesn't run the second addins and stops over there. But, if paste command is commented, it runs it. Somehow, this paste command is stopping the second addins to run. If anybody can help in this please. Thanks, Kislay Tag: wavy underlined content Tag: 58141
  - 6
    - Events with Application Object Word 2003 The &%*$&*% Help files! I am trying to use events with the Application object. The Help page entitled "Using Events with the Application Object" has the following as the last step: *************** Initialize the Declared Object Before the procedure will run, you must connect the declared object in the class module (App in this example) with the Application object. You can do this with the following code from any module. Dim X As New EventClassModule Sub Register_Event_Handler() Set X.App = Word.Application End Sub Run the Register_Event_Handler procedure. After the procedure is run, the App object in the class module points to the Microsoft Word Application object, and the event procedures in the class module will run when the events occur. ************** I copied the above code into an ordinary module. 1. First of all, where do you really put the Dim statement? If you copy/paste the code as is, the Dim statement ends up above the dividing line, directly below the "End Sub" line of the previous procedure. This results in a Compile error. 2. To get things moving, I moved the Dim statement below the "Sub Register_Event_Handler()" line (i.e to the second line of the code). This results in the following error: "User-defined type not defined." (For your reference, the Help page that this leads to is reproduced below.) MY QUESTION: What steps do I need to take to resolve this error? Which (if any) of the three choices on the Help page, below, is most appropriate? Thanks very much. Jay **********Help page************************* User-defined type not defined You can create your own data types in Visual Basic, but they must be defined first in a Type...End Type statement or in a properly registered object library or type library. This error has the following causes and solutions: - You tried to declare a variable or argument with an undefined data type or you specified an unknown class or object name. Use the Type statement in a module to define a new data type. If you are trying to create a reference to a class, the class must be visible to the project. If you are referring to a class in your program, you must have a class module of the specified name in your project. Check the spelling of the type name or name of the object. - The type you want to declare is in another module but has been declared Private. Move the definition of the type to a standard module where it can be Public. - The type is a valid type, but the object library or type library in which it is defined isn't registered in Visual Basic. Display the References dialog box, and then select the appropriate object library or type library. For example, if you don't check the Data Access Object in the References dialog box, types like Database, Recordset, and TableDef aren't recognized and references to them in code cause this error. ************************ Tag: wavy underlined content Tag: 58138
  - 7
    - How to delete from first page to start of the next section break Hi There, Would you please let me know how to delete from first page until the first section Break (Next page) in VBA? Any help would be great. Thanks, Tag: wavy underlined content Tag: 58137
  - 8
    - Find/Replace only supports alphabetic characters? I'm trying to do a find/replace by automating Word from a C# application. It works fine as long as my find/replace text is alphabetic. If I try to do a find/replace using a string such as "C#", I get an error: "The Find What text for a Find All Word Forms search can only contain alphabetic letters.". I tried enclosing the string in quotes, but that doesn't work either. That actually will cause the problem with text that otherwise works - it doesn't like the quotes either. Here's my code (this code highlights all instances of "text" in red/bold): Object oReplaceAll = Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll; Object oText = text; Object oReplaceText = text; wordDoc.Select(); msWord.Selection.Find.Text = oText.ToString(); msWord.Selection.Find.Replacement.Text = oReplaceText.ToString(); msWord.Selection.Find.Replacement.Font.Bold = 1; msWord.Selection.Find.Replacement.Font.Color = Microsoft.Office.Interop.Word.WdColor.wdColorRed; msWord.Selection.Find.Execute(ref oText, ref oFalse, ref oFalse, ref oFalse, ref oFalse, ref oTrue, ref oTrue, ref oFalse, ref oTrue, ref oReplaceText, ref oReplaceAll, ref oMissing, ref oMissing, ref oMissing, ref oMissing); You can do what I want from within word itself - how do you call find/replace and allow non-alphabetic characters? - Dave Tag: wavy underlined content Tag: 58132
  - 9
    - Is VBA/Word slow...or is it just the way I did it? I have created what I believe to be a rather complex document/program in word (I believe there are over 13000 total lines of code). I have quite a few auto-text entries that either are, or contain graphics. The overall size of my Word Template (one I created specifically for this purpose, not Normal.doc) is quite close to 8 Megs. The document doesn't seem like it takes excessivly long to open, or for the first UserForm to appear as a reault of the AutoNew Macro which calls the form. It seems like it takes excessively long for 1) items to be transferred from the userform comboboxes and text boxes to the FormFields in the template, 2) the userForm to unload, and 3) the 2nd userform to load. Then it seems to take excessively long for the same things to occur with the 2nd userform. Tag: wavy underlined content Tag: 58131
  - 10
    - How can I unlock a document for modifications? Tag: wavy underlined content Tag: 58130
  - 11
    - Template Macro to Save Documents Iâ??m recording a macro, within a template, that will save the values of the bookmarks as part of the file names. While Iâ??m recording I get the save as dialog box to show but the file type says template.dot. I donâ??t want to save the template file, .dot, within my macro, I want the .doc file to be saved. If I change the file type to .doc and change the file location, away from the template subdirectoy, the macro disappears when I go to reopen the template. Word doesnâ??t allow me to stop the macro when the SaveAs dialog box is open. Pressing the cancel button in the SaveAs dialog box, records the cancel within the macro. (Iâ??m also recording encryption in the Save As box but that seems to work fine.) How can I save the macro in the template and still save the file as a document? (Leaving the Save As dialog box open with the proper file location and file name where all the user has to do is press Save is great?) Thanks, Phil Tag: wavy underlined content Tag: 58129
  - 12
    - Adding shapes... How can I add a shape at the current cursor position using VBA? I would like to add a small rectangular box. Is this possible? Thanks Tag: wavy underlined content Tag: 58124
  - 13
    - PrivateProfileString Long Key Values I recently read several postings on how to create a GetINISetting function that would replace the System.PrivateProfileSetting function, which is limited to 255 characters. The function shown retrieved a long string value, which helped me out a lot. How can this be modified to 1) write to the INI file to append a new INI Key value that is longer than 255 characters or replace an existing INI Key value with a new value, that is longer than 255 characters? The original function was... Function getIniString(file As String, section As String, key As String) Dim nr As Long Dim curLine As String nr = FreeFile Open file For Input As nr ' read until section is found Do Until EOF(nr) Or LCase(curLine) = "[" & LCase(section) & "]" Line Input #nr, curLine Loop ' read until end of file or key is found Do Until EOF(nr) Line Input #nr, curLine ' key found? If LCase(curLine) Like LCase(key) & "=*" Then ' yes -> outta here getIniString = Mid(curLine, Len(key) + 2) Exit Do End If Loop Close nr End Function Thanks in advance for your help. Tag: wavy underlined content Tag: 58123
  - 14
    - Re: FileSystemWatcher getting Word temp file From: "zfeld" <zfeld100@hotmail.com> Subject: Re: FileSystemWatcher getting Word temp file Date: Tuesday, October 19, 2004 12:29 PM Thanks, What I discovered is that the temporary ~$documentName.doc never gets renamed, it is just deleted on close. However another file is created at the same time as the ~$documentName.doc that doesn't even have the .doc extension, which was why I wasn't seeing it, it is usually something like wrd005.tmp this then gets subsequently renamed into MyDocument.doc. I therefore had to ignore the creates of .doc files that start with ~ and catch renames from a .tmp extension to .doc extensions. "Chris Dunaway" <"dunawayc[[at]_lunchmeat_sbcglobal[dot]]net"> wrote in message news:1m8bffq8zpl5x$.pwpz8yof3ekv$.dlg@40tude.net... > On Mon, 18 Oct 2004 11:20:56 -0400, zfeld wrote: > >> My app is creating a word document which my app calls saveas() and saves >> it >> to a given directory that is being watched by a fileSystemWatcher. The >> problem is that the fileSystemEventHandler for creation is only called >> for >> the temporary filed created by word which shows up as ~$documentName.doc >> the >> real file named MyDocument.doc will never invoke the >> fileSystemEventHandler >> for creation. Now when the user closes Word the temporary file is deleted >> and my app only had a handle to that file. >> How come I am not getting any notification about the creation of the real >> file even though it was saved using saveas() and I do see it created in >> windows explorer? > > Off the top of my head, I would say that the temp file is being created > and > then renamed to the final filename. When a file is renamed, a create is > not fired for the new name. Try setting up your FileSystemWatcher to > handle the rename event. > > -- > Chris > > dunawayc[AT]sbcglobal_lunchmeat_[DOT]net > > To send me an E-mail, remove the "[", "]", underscores ,lunchmeat, and > replace certain words in my E-Mail address. Tag: wavy underlined content Tag: 58121
  - 15
    - fill in a new field using data from a field already filled out in. I have a contract that has multiple fields. This contract is protected and given to reps to fill out. They have to fill in the customer name several places in the document, and I would like for them to be able to fill it in once, and have the rest automatically fill in. How can this be done? Tag: wavy underlined content Tag: 58119
  - 16
    - Footer Update Hi I have a footer in my word document which display the document title - when I change the document title it does not update my footer automatically. I don't really want my users to have to open the footer and use F9 I added this procedure which was working fine but I guess I have accidentally changed something as it no longer works but shows me an error (No errors if I open the template but the following error msg if I open any docs based on the template) error msg is:- run time error 91 - object variable or with not set Please see my code below Private Sub Document_Open() 'move to page 2 of the document Selection.HomeKey unit:=wdStory Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1 'update fields in the header ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = True Selection.WholeStory Selection.Fields.Update 'update fields in the footer ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.HeaderFooter.LinkToPrevious = False Selection.WholeStory Selection.Fields.Update 'Close Header Footer view & return to the top of the doc ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Selection.HomeKey unit:=wdStory End Sub Tag: wavy underlined content Tag: 58111
  - 17
    - Saving file to new locating and deleting old file There are a large number of files in various locations that will have to be saved to a new location (C:\Employees). I was wondering if it was possible to create a macro that would save the currently open file to C:\Employees and then delete the file from the original location (for e.g. C:\Tom)? Any help would be greatly appreciated. Thank you. Tag: wavy underlined content Tag: 58108
  - 18
    - Word Context Menu's Getting some serious brain ache over this ;) (OS=XP Pro, Word=11.0) My set up is as follows. I've a document template (myForm.Dot) which contains code to add items to the Context menu's. The code for each item is as follows: Set cb_ctl = CommandBars(ShortCutMenu(i)).Controls.Add(msoControlButton) With cb_ctl .Caption = "Use ET" 'Changes for each button .OnAction = "=fUseET()" 'Changes for each button End With When I open a new document (based on the template) the menu items are added to the context menu (yay!)... however, when I click on each item I'm not as lucky. I receive the message (and apologies in advance for its length): ------------------------------ SNIP ---------------------------------------- You may encounter this error for the following reasons: Macro security is set to: Very High and the application encounters a signed macro, but the macro was automatically disabled. Use the following procedure to enable the macro: Select the Tools menu option and then select Macro and Security. In the resulting Security dialog, set the security level to High by clicking the High radio button. Close the file and any other instances of the application currently running on the computer (close all applications that also use the application you are currently running). Open the file again and examine the certificate of trust details and set the Always trust macros from this publisher box if you trust the certificate issued by the publisher. Click the Enable button to allow the macro to run. High and the application encounters a signed macro, but you selected Disable when prompted by the macro warning dialog when opening the file. Use the following procedure to enable the macro: Close the file and any other instances of the application currently running on the computer (close all applications that also use the application you are currently running). Open the file again and examine the certificate of trust details and set the Always trust macros from this publisher box if you trust the certificate issued by the publisher. Click the Enable button to allow the macro to run. High or Very High and the macro was not signed and was automatically disabled by the application. Use the following procedure to enable the macro, if you have verified you can trust the source of the unsigned macro: Select the Tools menu option and then select Macro and Security. In the resulting Security dialog, set the security level to Medium by clicking the Medium radio button. Close the file and any other instances of the application currently running on the computer. Open the file again and click the Enable button when prompted to allow for the unsigned macro to run. When you have accepted the macro, return the macro security level to its previous setting. Another instance of your application has a lock on the security settings and is disallowing any changes to security settings. It is recommended to close all Office related applications or other instances of the same application when you attempt to make changes to your security settings. Visual Basic for Applications (VBA) is not installed on your computer. If VBA is not installed, it is not possible to accept certificates of trust attached to VBA macros. Therefore, any VBA macro attempting to run, even with an attached certificate of trust, cannot be run because the necessary macro interpreter is not installed on the system. Two scenarios can cause this error: Your administrator chose not to install VBA The version of Office you are running does not install VBA by default If you are running an instance of Office that does not provide VBA as an installable feature, you will need to upgrade your version of Office to run VBA macros. The certificate of trust is invalid - (when this occurs, you cannot select the Enable button). The certificate is no longer trusted, was revoked by the issuing authority, or is damaged. There are several other possibilities which you may need to explore as to why the certificate is no longer recognized as valid by your system. It is recommended that you not trust or run a macro that has an invalid certificate. A troubleshooter help topic is available online regarding this issue. ------------------------------ SNIP ---------------------------------------- After revewing the items in the list, I conclude that none apply to my set up (Macro settings are medium, VBA obviously installed, certificates are valid etc). The Cruncher... where've I gone wrong! Also, just for kicks... how the heck do I add in images to these buttons through VBA? I cant seem to find any properties for this... As an alternative I've seen the PasteFace function that'll use the clipboard contents, but I've no idea how to get my icon file onto the clipboard, programatically. **************************************** Laugh, and the world laughs with you. Trip over in the middle of a busy shopping centre whilst briefly holding a thick vaniilla shake, and watch the world have hysterics at your expense.. Tag: wavy underlined content Tag: 58105
  - 19
    - Set Range using Find This seems simple but I'm struggling since I've always used selections rather than ranges. I want to set multiple ranges based on search criteria. For example, the macro will search for QUESTION 1.1. Then I want to set the range to be the pargraphs between QUESTION 1.1 and RESPONSE TO QUESTION 1.1. (Note I want to capture the question, not the response.) Thanks! Tag: wavy underlined content Tag: 58096
  - 20
    - Corrupt Form? Word 2000 In the last 2 days I have started getting the following error message when I try to save my project: The disk is full. Free some space on this drive, or save the document on another disk. Try one or more of the following: * Close any unneeded documents, programs, and windows. * Save the document on another disk. The problem is NOT with disk space (I currently have over 1 GB of free drive space). The problem is not with the hard drive itself (I ran ScanDisk and defragged). If I try saving to another drive, I get the same message. I noticed that if I remove a certain form from the project, the problem goes away. If I import that form again, then problem comes back. I can do this over and over, and the results are always repeatable--remove the form and the problem goes away, bring back the form and the problem comes back. So it looks like a problem with a corrupt form. I have a couple of questions: 1) Could it be something other than a corrupt form? Assuming that it is a corrupt form... 2) Is there a way to repair the form without rebuilding it from scratch, like by running a code cleaner on it? 3) Are there any practices that I should be following to make sure my forms don't become corrupt? Any other information that anyone can offer will be greatly appreciated. BTW: I'm currently in the process of moving everything into a new template in case this is an issue with a corrupt project, but this one form seems to be the stumbling block. It wouldn't be a big issue to rebuild the form completely, but I'd like to get answers to my questions anyway, if possible, just for my own knowledge if for no other reason. -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: wavy underlined content Tag: 58094
  - 21
    - WordBasis insert command -- text length limit I am using following code to insert text into the word document, using VB from excel. Any text which has length more than 240 characters is not getting inserted into the document. Any suggestions are highly appreciated. Thanks, ---------------------------------------------------------------------------- ------------------------------------ Sub GenerateADRFinding() ' Dimension the variables. Dim PokeRange As Object Dim Chan As Integer Dim i As Long Dim temps As String Dim insertS As String ' Create an range object to poke. Set PokeRange = Range("CheckList!a1") ' Initiate a channel to Word using a file as the topic. Chan = DDEInitiate("WinWord", templateFile) ' Execute a few WordBasic commands. DDEPoke Chan, "\StartOfDoc", PokeRange i = 0 Do While i < 240 9 '(> 240 does not work) temps = temps & "1" i = i + 1 Loop insertS = "[Insert "" " & temps & " "" ]""" DDEExecute Chan, insertS 'DDEExecute Chan, "[FileSaveAll]" DDEExecute Chan, "[FileExit]" ' Terminate the DDE channel. DDETerminate Chan Tag: wavy underlined content Tag: 58092
  - 22
    - Auto Configure Startup Folder Hi All, Is it possible to auto configure MSWord to find a Startup folder on a network drive when a new user logs onto a computer? Currently I have to explain to a new user how to configure Word to find the Startup folder on the network because Word defaults to the newly created personal folders on the Local HDD. John D. Tag: wavy underlined content Tag: 58091
  - 23
    - Word could not fire the event I'm trying to automate a Wordprogram. The asp part starts with Dim oApp Dim oDoc Dim oMergedDoc Set oApp = CreateObject("Word.Application") Set oDoc = oApp.Documents.Add The "CreateObject" statement seems to be very touchy. If another instance of WINWORD is left in the Processes, it causes Error 429: ActiveX component can't create object. Also, I found that the files Asyncfilt.dll, Oleaut32.dll, OlePro32.dll, and StdOle2.tlb should have the same build number; they did not and also caused Error 429. I found new versions of the first three files to download but not forStdOle2.tlb. CreateObject now works. Alas, the oApp.Documents.Add statement now gives error 6002, Word could not fire the event. So far the Knowledge Base has been no help. Does anyone have any suggestions? I'm running Windows XP Prof.(SP2), Office 2003 (SP1), FrontPage 2003(SP1), VB6.0 (SP6), Works Suite 2003, and have WindowsScript 5.6 installed. I have checked the Word.Application key in the registry and the Normal.dot template. Tag: wavy underlined content Tag: 58088
  - 24
    - FileSystemWatcher getting Word temp file My app is creating a word document which my app calls saveas() and saves it to a given directory that is being watched by a fileSystemWatcher. The problem is that the fileSystemEventHandler for creation is only called for the temporary filed created by word which shows up as ~$documentName.doc the real file named MyDocument.doc will never invoke the fileSystemEventHandler for creation. Now when the user closes Word the temporary file is deleted and my app only had a handle to that file. How come I am not getting any notification about the creation of the real file even though it was saved using saveas() and I do see it created in windows explorer? Tag: wavy underlined content Tag: 58082
  - 25
    - AP Modules - Are there any? I am searching for AP Modules to use with MS Word. Does anyone know of any available? I would appreciate any links, information, etc. that you have to offer on this topic. Many thanks. Tag: wavy underlined content Tag: 58080

Can I access just the wavy underlined words in word grammar errors through a
(visual basic) macro?

Re: wavy underlined content by Jonathan

Jonathan
Fri Oct 22 05:01:56 CDT 2004

"neurodgr" <neurodgr@discussions.microsoft.com> wrote in message
news:AB2E3C34-BE33-4EF0-AA79-A93BE6DC7CA3@microsoft.com...
> Can I access just the wavy underlined words in word grammar errors through
> a
> (visual basic) macro?

Hi neurodgr

The GrammaticalErrors collection is a collection of Range objects
corresponding to the wavy underlined text.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Top