Limit in "Find -- Replace"

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Paragraph and sentence number of revision object I would like to identify the paragraph and sentence number of a revision object within a range of a document. Is this possible? I do not see any properties of the revision object for doing this unless it is possible to use the range property or the parent property in some why. Any suggestions would be appreciated. John Wirt Tag: Limit in "Find -- Replace" Tag: 42707
  - 2
    - In table? How can I test whether the current range is in a table or not? Thanks. John Wir Tag: Limit in "Find -- Replace" Tag: 42706
  - 3
    - Word 2000 vs 97: User Forms Modal? Can anyone tell me if there was a change from Word97 to Word2000, where when I create a User Form and have it Shown, it will always be Modal? In Word2000, I can have my User Form loaded on top of my Document and I am able to click around in the Document making changes or if I want to debug my VBA code, I am able to step (F8) through my code and watch the changes take place on my document. However, in Word97, with the exact same form and code, I am not able to do this - the User Form appears to be Modal. I am unable to click anywhere in my document - focus is always on the UserForm. Thank you. Tag: Limit in "Find -- Replace" Tag: 42681
  - 4
    - Combo Box List Problems I developed a user form in Word using a list box, which populated great from a 3 column table. Code follows. Now boss wants a combo box not a list box, and I can't get the 3 columns to load. I want the first column to be the options to choose from in the combo box (list of names) and then populate two text boxes (textbox1 and textbox2) with the information from columns 2 and 3 going with the name selected from column one. I just can't make it work, can anyone help. Here is the listbox code that does work: Private Sub CommandButton2_Click() Dim Msg, Style 'set dim for message box when Exit is pressed Msg = "Please wait while program shuts down" ' define message Style = vbYesOk + vbCritical + vbDefaultButton2 ' define message response buttons Response = MsgBox(Msg, Style) ' Display message If True Then Unload UserForm1 Application.DisplayAlerts = False Word.Application.Quit End Sub Private Sub UserForm_Initialize() Dim MyArray() As String RowCount = ActiveDocument.Tables(1).Rows.Count RowCount = ActiveDocument.Tables(1).Rows.Count ColCount = ActiveDocument.Tables(1).Columns.Count ReDim MyArray(RowCount - 1, ColCount - 1) For i = 1 To RowCount For j = 1 To ColCount 'Select each cell in the table Celldata = ActiveDocument.Tables(1).Cell(i, j) 'Remove the paragraph and end-of-cell markers 'as we lod the array MyArray(i - 1, j - 1) = Left(Celldata, Len (Celldata) - 2) Next Next ListBox1.ColumnCount = ColCount ListBox1.List() = MyArray Dim MyArrayExternal() As String RowCount = ActiveDocument.Tables(2).Rows.Count RowCount = ActiveDocument.Tables(2).Rows.Count ColCount = ActiveDocument.Tables(2).Columns.Count ReDim MyArrayExternal(RowCount - 1, ColCount - 1) For m = 1 To RowCount For n = 1 To ColCount 'Select each cell in the table Celldata = ActiveDocument.Tables(2).Cell(m, n) 'Remove the paragraph and end-of-cell markers 'as we load the array MyArrayExternal(m - 1, n - 1) = Left(Celldata, Len(Celldata) - 2) Next Next ListBox2.ColumnCount = ColCount ListBox2.List() = MyArrayExternal End Sub Private Sub ListBox1_Click() For x = 0 To ListBox1.ListCount If ListBox1.Selected(x) = True Then MsgBox "Name:" & " " & ListBox1.List(x) & (Chr(13)) & "Office Symbol:" & ListSeparator & " " & ListBox1.List(x, 1) & (Chr (13)) & "Project(s):" & ListSeparator & " " & ListBox1.List(x, 2) End If Next x End Sub Private Sub ListBox2_Click() For x = 0 To ListBox2.ListCount If ListBox2.Selected(x) = True Then MsgBox "Name:" & " " & ListBox2.List(x) & (Chr(13)) & "Office Symbol:" & ListSeparator & " " & ListBox2.List(x, 1) & (Chr (13)) & "Project(s):" & ListSeparator & " " & ListBox2.List(x, 2) End If Next x End Sub I've tried replacing ListBox1.Selected(x) with a MatchFound for the ComboBox, but it wouldn't work. Where am I missing the boat. Tag: Limit in "Find -- Replace" Tag: 42680
  - 5
    - Append a template several times to a document Hi I'm new to Word Automation and would need some help I have a template with bookmarks I would like to append several times to my main document. Here is what i try to do, question is in "Do... Loop" statement. Dim oWordApp As New Word.ApplicationClass Dim oMainDoc As Word.DocumentClass Dim oTemplate As Word.DocumentClass oMainDoc = oWordApp.Documents.Add() oTemplate = oWordApp.Documents.Add("c:\\test\\template.dot") oMainDoc.Activate() Do ' First I update the bookmarks on my oTemplate ' Then I want to append it's complete content to oMainDoc ' But how do I do that??? ' I know I could save oTemplate to a temp document ' and then use ' oWordApp.Selection.InsertFile("temp_document_fullpath") ' But think there must be a better way of doing it ' If I only wanted the text in the template I could ' use ' oWordApp.Selection.TypeText(oTemplate.Content.Text()) ' But I want it complete with all styles, tables and stuff Loop While foo = 1 Thanks in advance, Henrik Tag: Limit in "Find -- Replace" Tag: 42678
  - 6
    - How to create buttons Does anybody know how to create a reset buton (to clear text in the form) in MS Word XP? Thank you Tag: Limit in "Find -- Replace" Tag: 42674
  - 7
    - VB.NET?? Folks what is the language behind VB.NET? Tag: Limit in "Find -- Replace" Tag: 42667
  - 8
    - Word2000: AppendMenu API to add Minimize Button to Title Bar Has anyone had any success using the AppendMenu API function to add the Minimize and Maximize button to a Word Form title bar? My sample code is below which does not seem to add anything. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long ' Window styles constants Private Const WS_MINIMIZEBOX As Long = &H20000 'Style to add a Minimize box on the title bar Private Const WS_MAXIMIZEBOX As Long = &H10000 'Style to add a Maximize box to the title bar Public Function ShowMinMaxButtons(sTitle As String) Dim sClass As String Dim lAppHandle As Long Dim hWndForm As Long ' Get the Handle to the Form that we want to add the button to. Use the Caption of the Form (sTitle). hWndForm = FindWindow(vbNullString, sTitle) If hWndForm = 0 Then Exit Function ' Get the Class Name of the Window Handle sClass = sClassName(hWndForm) lAppHandle = FindWindow(sClass, vbNullString) AppendMenu hWndForm, WS_MINIMIZEBOX , 1, "Minimze" AppendMenu hWndForm, WS_MAXIMIZEBOX , 2, "Maximize" End Function Public Function sClassName(ByVal hWindow As Long) As String Dim lLen As Long Dim sClass As String * 128 lLen = GetClassName(hWindow, sClass, 127) If lLen Then sClassName = Left$(sClass, lLen) Else sClassName = "" End If End Function Tag: Limit in "Find -- Replace" Tag: 42665
  - 9
    - Determine full paragraph number string Hello all Is it at all possible to return the full paragraph number from an outline numbered paragraph. The ListString property only returns the text of the number of the given para - I want all it's higher numbers as well. For example, in: 5. some text a) more text i) even more I want to return "5.a.i" for the "even more" paragraph. Here's hoping Trevor Tag: Limit in "Find -- Replace" Tag: 42661
  - 10
    - Updating database from excel sheet with macro Hi I am trying to write a macro that generates report by two diffrent ms-querys. Part of data that came from ms query1 is read only for the user(if user change this data it is not effecting on the database) The second part of data came from ms query2 and that part should be able to update the database if the data change Should I call to this ms query2 in a diffrent way and the data automaticly will be sincronized? then how??? Or should I call to this ms query2 regular and then add a button that update the database after all changes? then how??? thanks Suzana Tag: Limit in "Find -- Replace" Tag: 42660
  - 11
    - 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: Limit in "Find -- Replace" Tag: 42659
  - 12
    - Open document at point user last was working? Is it possible to have Word open a document and go straight to the point the user was last editting? I'm thinking about saving selection object data in a custom property during the BeforeSave event and then read it during DocumentOpen. Any ideas? Thanks, B Tag: Limit in "Find -- Replace" Tag: 42658
  - 13
    - Software protection for VB and VBA ? Hello, I'm searching software protection for Microsoft Visual Basic & VBA project, I have found a new protection from Ionworx, it's SerialShield, (http://www.ionworx.com/serialshield.html), anyone has tried it ? else have you any suggestions ? Thank you Dexter Tag: Limit in "Find -- Replace" Tag: 42650
  - 14
    - rtf file formatting Hi All, How can I format existing .rtf file programmatically without using the Rich Edit control ? what api i have to use? Thanks & Regards Srinivas Tag: Limit in "Find -- Replace" Tag: 42639
  - 15
    - Disable the macro Hi, Is there any way to tell the macro to only run once, or disable it in some way after the auto-save, then maybe pop-up windows only be seen once? Thanks! Ken Tag: Limit in "Find -- Replace" Tag: 42636
  - 16
    - Word document format Is there a way that I can obtain documentation on the format of a Word document file? I need to write a file conversion program in VB. I've tried using the OLE object model, but it's very slow for my purpose. Tag: Limit in "Find -- Replace" Tag: 42630
  - 17
    - doc.close causing application to quit background: In access, I'm looping through a recordset to populate generate Word documents (one per row) problem: after calling doc.saveAs([filename]) and then doc.close, my Word object becomes 'unhinged' here's a snippet of code: Dim objWord As Word.Application Dim objDoc As Word.Document 'Document Object Set objWord = CreateObject("Word.Application") While Not rsSource.EOF set objDoc = objWord.Documents.Add ' skipping actual formfield populating code objDoc.saveAs strFilename objDoc.close rsSource.MoveNext wend watching the local variables, I see objWord = "Microsoft Word" up until I call objDoc.close. If I add objWord.Visible = True I can even see my documents being populated and then when closing the doc, Word app itself also quits. I've even tried opening up a second temporary doc so that it'll stick around but with Visible=True, I see that both docs get closed. Any help would be appreciated. Thanks Billy Tag: Limit in "Find -- Replace" Tag: 42629
  - 18
    - Word 97: How to Insert a Table into an Existing Table Cell Does anyone know how I can insert a New Table into a cell of another table? In Word 2000, I can issue the following code when I am within a cell of a table and the table gets inserted correctly: Dim rRange As Range, myTable As Table With Selection Set rRange = .Range Set myTable = rRange.Tables.Add(Range:=.Range, NumRows:=2, NumColumns:=4) End With However, in Word97, I am not able to do this. I get an error telling me that a table already exists. Has anyone had any success with being able to insert a new table into a cell of an existing table without doing a lot of cell/row inserts and cell merges? Tag: Limit in "Find -- Replace" Tag: 42627
  - 19
    - The subject is not trusted for the specified action. The rich text control will no longer load into a VBA form now that we have installed Outlook 2003. When you open the form the rich text control is non longer on the form and when you try to add that control to the form you receive the following error. The subject is not trusted for the specified action. Any help would be appreciated. Mark Baird Tag: Limit in "Find -- Replace" Tag: 42624
  - 20
    - Calculation on Bookmark and re-insert result at different bookmark I've got a number of MS Word forms that are initially filled with information from a SQL Script. I want to perform calculations on some of the keyfields filled in from the SQL script and then put those results into other bookmarks in the form. I've got code that allows me to do the proper calculations in a table, but the form doesn't lend itself to having tables in it. Dim r As Row Dim strReturnDate As String Dim strOrder_Amount As String For Each r In ActiveDocument.Tables(1).Rows If Not r.IsFirst Then ' this gets you the cell content strReturnDate = r.Cells(1).Range.Text strOrder_Amount = r.Cells(3).Range.Text ' but you have to get rid of the end of cell marker) strReturnDate = Left(strReturnDate, Len (strReturnDate) - 1) strOrder_Amount = Left(strOrder_Amount, Len (strOrder_Amount) - 1) r.Cells(2).Range.Text = CStr(DateAdd("w", -30, CDate(strReturnDate))) cOrder_Amount = CInt(strOrder_Amount) r.Cells(4).Range.Text = CStr(cOrder_Amount / 10) End If Next Any suggestions are greatly appreciated. Tag: Limit in "Find -- Replace" Tag: 42623
  - 21
    - visual basic text form field properties Word 2000: What code can I use to access the "properties" in a text form field? Field1 is named TelsetCount and Field2 is named VMailCount. I can never have more voice-mailboxes than telephones, so when I exit Field1-TelsetCount I want to make VMailCount.Default = TelsetCount.Value. Obviously, my syntax is incorrect. Any suggestions?????? Tag: Limit in "Find -- Replace" Tag: 42612
  - 22
    - visual basic text form field properties Word 2000 Tag: Limit in "Find -- Replace" Tag: 42611
  - 23
    - Thank you Thanks Charlie for taking the time. Most appreciated. Wayne Tag: Limit in "Find -- Replace" Tag: 42607
  - 24
    - Calling applications from word Hi All, We created a PDF creation macro. It copies the word document to a UNC path where the PDF creation is getting handled. It the polls the Directory awaiting the conversion and provides a message box stating the PDF awas created. We now want Word to open the PDF document but don`t know how to caal acrobat from within Word. Regards, Vingertop. Tag: Limit in "Find -- Replace" Tag: 42602
  - 25
    - Inline shapes are not visible - becomes black squares Office 2000 / Word 2000 Hi, I have an odd problem. Graphics - content of my inlineshapes are not visible - the object is just marked by the six black squares in the corners. (this only happens when they are "in line with text") Other shape types are fully visible. Does anyone know if there's a reg key or any other type of setting that controls this? - or if there is some way that I can change this "feature". Thanks ;o)) Henrik Tag: Limit in "Find -- Replace" Tag: 42601
- Next
  - 1
    - menu bar on Word VBA form Hi, Is it possible to create a menubar (to put on File, Edit, Help, ...) on a form in a Word VBA application? (BTW I do NOT mean: creating an extra menubar in Word) I don't find any feature to do so. thanks for any help, Ward Tag: Limit in "Find -- Replace" Tag: 42597
  - 2
    - Convert this VB code to VBA Hello, What will be the equivalent VBA code for the following VB code?? (The code prints RichTextBox control). Private Sub cmdDirPrint_Click() ComDiaPropPrint.Flags = cdlPDReturnDC + cdlPDNoPageNums If rtbPropDirections.SelLength = 0 Then ComDiaPropPrint.Flags = ComDiaPropPrint.Flags + cdlPDAllPages Else ComDiaPropPrint.Flags = ComDiaPropPrint.Flags + cdlPDSelection End If ComDiaPropPrint.ShowPrinter printer.Print "" rtbPropDirections.SelPrint printer.hDC printer.enddoc End Sub Thanks Kumar Tag: Limit in "Find -- Replace" Tag: 42588
  - 3
    - NOT updating date fields automatically at open I've got an app that opens and prints to image large numbers of Word docs. Does anyone know of a way to keep the date fields from updating when I open/print the document? I want to preserve the original date in the document. Thanks much- Tom Tag: Limit in "Find -- Replace" Tag: 42584
  - 4
    - Word as E-mail editor using Macros I have written macros to send active word documents and active e-mails to a folder for archive purposes. I am having a problem when Word is the e-mail editor. Outlook uses the Word macros (both have different descriptions and coding). I had thought about taking the information off the "Word" e-mail, pening outlook with Set objApp = CreateObject("Outlook.Application") and transferring the information to the Outlook e-mail, but I cannot figure out how to code pulling the data off of the "Word" e-mail. If anyone has any possible suggestions please let me know...Thank Tag: Limit in "Find -- Replace" Tag: 42583
  - 5
    - Lanquaqe Settings I have received a document from a client that has to be processed down to HTML. The problem is with a bug in Microsoft's HTML filter which mistakeningly removes all spaces surrounded by the <span style='mso-fareast-font- family:"Arial Unicode MS"'> </span>. Is there a means to reset this in the document itself through VBA so that this tag is not output in the HTML? Thanks Mark Baird Tag: Limit in "Find -- Replace" Tag: 42581
  - 6
    - controlling tab destination I have created a form in Word with many blanks to fill in. I want to dictate the order the cursor will advance to when the tab key is hit. I understand that this has to be done in VB. I am not VB savy... is there a simple script someone can share to accomplish this proceedure? Please help and thanks. Tag: Limit in "Find -- Replace" Tag: 42580
  - 7
    - inserting HTML in word Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Limit in "Find -- Replace" Tag: 42579
  - 8
    - Word 2000: TypeParagraph causes Font to Change Does anyone know how I can issue a .TypeParagraph on my selection object without having the font change to my Default Font? I have a template where I am inserting text into the document. In my Template, the entire document has been formatted to use Arial font. However, my Default Font is "Times New Roman" for my Microsoft Word (Select Format/Font from the main menu). My sample code is below: With Selection ' Enter some dummy text - the font is Arial at this point .TypeText Text:="This font is Arial" ' Now issue a new paragraph - just like pressing the ENTER key .TypeParagraph ' Now my Font is my default font - Times New Roman .TypeText Text:="Now my font is Times New Roman, NOT Arial" End With Why is my font changing? If I go into blank document and start typing my sample text with Arial font, and press the ENTER key, my font does not change, why is it changing here when I issue the .TypeParagraph? According to the following MSDN article on the TypeParagraph, http://msdn.microsoft.com/library/default.asp?url=/library/en-us/office97/html/output/F1/D4/S5ADCE.asp, "This method corresponds to the functionality of the ENTER key". Has something changed from Office97 to Office 2000? Tag: Limit in "Find -- Replace" Tag: 42578
  - 9
    - FileSearch macro returning incorrect docs? I have a macro in an Excel workbook that takes the values in certain cells to create a search string. The macro then searches all the Word docs in a single folder for docs containing that string. Normally it works well - normally, though, I use only single words. Today, however, I used phrases, and the search returned two documents that didn't fit what I thought my criteria were! I stepped through this and moused over my variables, and they all looked correct. In cell E9, I had "Blackbox Code: 1.9" - this is the one that caused the false returns. One document had "Blackbox Code: 1.7.9.2", which I guess is close; the other had "Blackbox Code: 1.3.5" - it did not contain "1.9" anywhere! One of the other cell values was "XM/SC Class: ABD", and it gave me no problems. Additional note: the three variables were put in the search string with ANDs. If anyone can make suggestions on improving this code to keep this from happening again, I would be most grateful. Ed Sub z() Dim lngIndex As Long Dim strSearchFor As String Dim strLocation As String Dim rngFiles As Range Dim strName As String Dim ListEnd As String strLocation = ThisWorkbook.Path If Range("B15") <> "" Then ListEnd = Range("B65536").End(xlUp).Row Range("B15:B" & ListEnd).ClearContents End If strLocation = ThisWorkbook.Path If Range("E5") <> "" Then strSearchFor = Range("E5").Text If Range("E7") <> "" Then If Range("D6") = "And" Then strSearchFor = strSearchFor & " and " & Range("E7").Text Else strSearchFor = strSearchFor & " or " & Range("E7").Text End If If Range("E9") <> "" Then If Range("D8") = "And" Then strSearchFor = strSearchFor & " and " & Range("E9").Text Else strSearchFor = strSearchFor & " or " & Range("E9").Text End If End If End If End If If strSearchFor = "" Then MsgBox "Nothing to search for", vbExclamation Exit Sub End If strName = Range("E3").Text With Application.FileSearch .NewSearch .LookIn = strLocation .SearchSubFolders = False .TextOrProperty = strSearchFor .MatchTextExactly = True .Filename = "L5-" & strName & "*.doc" .Execute Set rngFiles = Range("B15") rngFiles.Offset(0, 0) = "Found " & .FoundFiles.Count & " containing " & .TextOrProperty For lngIndex = 1 To .FoundFiles.Count ActiveSheet.Hyperlinks.Add Anchor:=rngFiles.Offset(lngIndex, 0), Address:=.FoundFiles.Item(lngIndex) Next End With End Sub Tag: Limit in "Find -- Replace" Tag: 42577
  - 10
    - Message Boxes Please could someone help. I am trying to get a message box to give an A or B option. In otherwords if you choose A it would save into Town or B into Country. I only know how to get a Yes No situation. Could anyone help please. I have put the example of what I am trying to get to work below. Margaret Dim intMsgBoxResult As Integer intMsgBoxResult = MsgBox("Town or Country", vbYesNo + _ vbQuestion, "Current Status") If intMsgBoxResult = vbYes Then With Dialogs(wdDialogFileSaveAs) .Name = "C:\My Documents\Town Details 2003\" .Show End With Else With Dialogs(wdDialogFileSaveAs) .Name = "C:\My Documents\Country Details 2003\" .Show End With End If Tag: Limit in "Find -- Replace" Tag: 42576
  - 11
    - Information From Excel97 into Word97 I recieve several Excel spreadsheets on a daily basis containing technical information, this information is then extracted from the spreadsheet and placed into a Word document. A seperate Word document gets created for each spreadsheet which is exactly what I want and the data that gets extracted from Excel always comes from the same cells. I can use copy and paste special etc. in order to insert the information into the Word template however I have to do this each time. 1. As I am using a word template and the data in the spreadsheet will always be in the same cells is it possible to just update all of the 'paste special' links in one go, in order to point it at a different spreadsheet ? 2. When I use the 'paste special' function to paste text into word from merged cells (Formatted Text RTF and paste it as a link this is required), a tab gets inserted after the text for each of the merged cells. Is there any way around this ? Thanks Tappie Tag: Limit in "Find -- Replace" Tag: 42575
  - 12
    - do not display changes I am trying to create a table in word using VBA (macro) I do not want the users to see as the table is being created.. How do I make the changes not visible untill the entire processed is finished? someting similar to the following command in Excel ExecuteExcel4Macro "echo(false)" any help would be appreciated.. thanks Tag: Limit in "Find -- Replace" Tag: 42574
  - 13
    - Difference between running and stepping makro Hi I have written a macro for Word that fills text from textfiles into specific places in my word-document. My problem is, that if I step through the code in the debugger, then everything works just fine, but if I run the macro then it fails. My document looks like this: 2.1 Headline 2.1.1 Subheadline 2.1.2 Subheadline 2 2.2 Headline 2 2.3 Headline 3 2.4 Headline 4 My problem is that it is only in 2.4 it doesn't work. The output is supposed to be like this: 2.4 Headline 4 text, more text and a lot of more text But the output is actually something like 2.4 2.5 text, more tet and a lot of more text 2.6 Headline 4 But only when running the macro and not when I step through it. Does anyone have any ideas? Thanks in advance! -- Jan Eliasen, representing himself and not the company he works for. Tag: Limit in "Find -- Replace" Tag: 42570
  - 14
    - Constant problem Hi NG! Im trying to automate Word from Access and it works Ok, except for this line: wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Apparently Access VBA will not recognize wdAlignParagraphRight as a word constant, and think of it as a Variable. I have set a reference to the Word 10.0 Object library. If I declare it as a Variable in Access, it expects it to have a value. Do you know how i can do this? All I really want to do is to right aling one paragraph, then reset to left alignment. Regards Jan Tag: Limit in "Find -- Replace" Tag: 42566
  - 15
    - Word 2000, 2002 and 2003? Hi Folks, Can anyone point me in the direction of in depth information about these products please? I'm looking to get into the Object model level of these products and the changes between versions (which I know there are) but can't seem to find any helpful resources with the level of documenttaion I need. I know there have been changes in the selection and range objects between 2000 and 2002/3 and I would like to know about any problems encountered between versions. Also the database side of things would be nice to find out about too! file formats, conversion issues etc and how this relates to an comercial enterprise with a large network running different platforms. Any pointers appreciated J Tag: Limit in "Find -- Replace" Tag: 42565
  - 16
    - Index/Concordance problem I'm creating an index using a concordance file. The index creates fine, but it seems to randomly miss entries and sub-entries. Any suggestions on what could be occuring? Also, in a 2 column format, is there a way to get the second index page to use only the first column on the second page?? Word splits what's left over into 2 columns and I'd like to get it to just put the entries in the first column THX Tag: Limit in "Find -- Replace" Tag: 42554
  - 17
    - AutoOpen - How to Hide it from Alt-F8 I have an AutoNew subroutine that is declared as Public, so that when a user creates a new document from our template, this code will be the first thing to run. How can I have this subroutine hidden from the list of available Macros that the user can run? If the user clicks Alt-F8, they are presented with a list of Macros, including my "AutoNew" macro. If I change it to a Function, it will not show, however, by changing it to a Function will prevent it from running when the user creates a new document. Tag: Limit in "Find -- Replace" Tag: 42553
  - 18
    - Find/Replace with special characters The following snippet of code will replace occurences of these SGML entities with special characters that are pretty close to the original output: ' Entities ' Handles &circle; entity Selection.HomeKey unit:=wdStory With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "&circle;" While .Execute Selection.Range.InsertSymbol _ Font:="Wingdings 2", CharacterNumber:=-3943, _ Unicode:=True Wend End With ' Handles &bullet; entity Selection.HomeKey unit:=wdStory With Selection.Find .ClearFormatting .MatchWildcards = False .Text = "&bullet;" While .Execute Selection.Range.InsertSymbol _ Font:="Wingdings 2", CharacterNumber:=-3944, _ Unicode:=True Wend End With So far so good. But how can I code this so that occurences of these entities are replaced in the header/footer? -Yeager Tag: Limit in "Find -- Replace" Tag: 42546
  - 19
    - Macro errors after installing Q822036 Am I the only one who had macros fail after installing the latest security patch. 822036 More Details: Fully patched WinXP and OfficeXP. Running macros in Word that look for a footer on the last page of a document as in Q 209220. If the footer is found it is removed. All of a sudden I have two errors. 1. I get a run-time error 4605 saying "This command is not available." 'ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument' OR 2. The macro finishes, but I can not switch "views" by using the four little view buttons on the Lower Left hand corner of the Word window, these are the "Normal view, Web Layout view, Print Layout view, Outline view". Once I switch from Word to another program then switch back into Word these buttons are working again. Anybody else see any problems with the new pacthes. Matt Tag: Limit in "Find -- Replace" Tag: 42544
  - 20
    - vba word question Hi all, I am trying to figure out how to write some string "as HTML" In word using vbscript. For instance, if you copy some formatted html from IE and then do a past in word, it shows up as Formatted HTML with the tags rendered properly. I want to manually build an HTML string and render it to the document so that it displays as rendered HTML and not the "<tag> text <tag>" raw HTML. I am stuck on this for quite some time. I am building the word document programmatically on the client using vbscript and cannot seem to get this last bit working. I've scoured VBA articles(I've mostly ported VBA examples to vbscript for the project so far). Any help GREATLY appreciated! Thanks, Chris Tag: Limit in "Find -- Replace" Tag: 42543
  - 21
    - Word Object Hello All! I need help for programming Equation Object example. I paste to Word document new Equation Object Selection.InlineShapes.AddOLEObject ClassType:="Equation.3", LinkToFile:= _ False, DisplayAsIcon:=False and I'll must program my new object with some rules 1. 10 Q= ------- A 2. 100*d Q= ----------- A*b Can I program Equation.object? And Where I can find help files about methods or properties of Equation.object. Thanks. Stas. Tag: Limit in "Find -- Replace" Tag: 42540
  - 22
    - ActiveDocument.SaveAS I'm using Office 2000, Win98. I've developed a UserForm and trying write the code to save it before it closes. The code I've written is: ActiveDocument.SaveAs ("C:\WINDOWS\Desktop\Debi & ' " & strLastSave & " " & strFirstSave & " " & strDateSave & " ' "), wdFormatDocument I've double checked this Path several times but I keep getting this error message: "Run-time error 5152 "This is not a valid File name Try one or more of the following: *Check the path to make sure it is typed correctly. *Select a File from the list of Files and Folders." I've copied and pasted the path from Window's Explorer, so I know the path is correct. I can do this in Visual Basic 6.0 and I know that VBA is not quite like VB6.0, but could someone help me code a SaveAs? I greatly appreciate the time and effort put into any help you give. Debi Tag: Limit in "Find -- Replace" Tag: 42538
  - 23
    - out of memory error 7 When I click on a form object/control in VBA word during programming I get the error 7 message. It is not a 64k limit issue or other memory issues. I am using word 2002 alone with NT home edition. Any ideas???? Please help..... Tag: Limit in "Find -- Replace" Tag: 42537
  - 24
    - Arrays I wonder if someone could direct me to a simple use of an array. I can't make any sense out of the material on arrays in Word 97 VBA Help. I would just like to get a idea of what they are and what a practical use of them would be. Larry Tag: Limit in "Find -- Replace" Tag: 42536
  - 25
    - The RichText box problem in Word2003 Re the problem with a RichText box not showing up on the UserForm in Word 2003, this is a Microsoft Rich Textbox Control 6.0 (SP4). Isn't this part of Visual Studio? From my partner: Yes the ocx is on the machine. It appears in References. Security has been set to low. It works on ther versions of Word, so registering should not be an issue. If anyone can point out further ways to figure this out, we would really appreciate it. Tag: Limit in "Find -- Replace" Tag: 42532

Hi everyone,

I am writing a program that searches for a especific text in a Word document
and replaces it with another text. I am finding that there is a limit in the
length of the text that will replace the original text.

Does anyone know what is this limit, and if there's a way to get over this
limit?

Thanks, from Spain

Juan

Top

Re: Limit in "Find -- Replace" by Klaus

Klaus
Fri Dec 12 10:30:42 CST 2003

Hi Juan,

The "official" limit is 255 characters. Any string longer than that will
give you a "Run-time error '5854': String too long".

But I've noticed crashes with strings that were a bit shorter, so I would be
careful even with strings close to 255 bytes.

As a work-around, you can copy text to the clipboard and use ^c in the
Replacement text, or use "Find" to locate the text and insert your string:

While Selection.Find.Execute
Selection.Text = String(300, "x")
Selection.Collapse (wdCollapseEnd)
Wend

Greetings,
Klaus

"Juan" <juan_magana@hotmail.com> schrieb:
> Hi everyone,
>
> I am writing a program that searches for a especific text in a Word
> document and replaces it with another text. I am finding that there
> is a limit in the length of the text that will replace the original text.
>
> Does anyone know what is this limit, and if there's a way to get
> over this limit?
>
> Thanks, from Spain
>
> Juan

Top