Runtime Click event for a Inline Shape button on Word

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Expand cells Hi, I want to add some extra spaces after text in a cell so the cell expands. The following does not work: Selection.Typetext " " or Selection.InsertSymbol Font:="Garamond", _ CharacterNumber:=32, Unicode:= _ True Selection.InsertSymbol Font:="Garamond", _ CharacterNumber:=32, Unicode:= _ True Selection.InsertSymbol Font:="Garamond", _ CharacterNumber:=32, Unicode:= _ True The code produces thre extra spaces, but the cell does not expand. If I type extra letters, for example Selection.TypeText "123", then the cell expands. / Ulf Tag: Runtime Click event for a Inline Shape button on Word Tag: 55678
  - 2
    - TabOrder after field validation I am trying to use a tab order macro to move between form fields but with validation in some cases to check that a value has in fact been updated. I am receiving the following VB error dialogue when moving out of the fCurrency field "This Command is not available because no document is open"... this appears after the MsgBox has been shown... fCurrency and fPaymentTerms are DropDown List form fields ================= Sub TabOrder() Dim StrCurFFld As String, StrFFldToGoTo As String If Selection.FormFields.Count = 1 Then StrCurFFld = Selection.FormFields(1).Name ElseIf Selection.FormFields.Count = 0 And Selection.Bookmarks.Count > 0 Then StrCurFFld = Selection.Bookmarks(Selection.Bookmarks.Count).Name End If Select Case StrCurFFld Case "fShippingContactTel" StrFFldToGoTo = "fOurRef" Case "fOurRef" StrFFldToGoTo = "fYourRef" Case "fYourRef" StrFFldToGoTo = "fCurrency" MsgBox "The order total will be displayed automatically once you have completed this form in full" Case "fCurrency" If FormFields("fCurrency").Result = "Currency" Then MsgBox "Please select the currency from the dropdown list." StrFFldToGoTo = "fCurrency" Else StrFFldToGoTo = "fPaymentTerms" End If Case "fPaymentTerms" If FormFields("fPaymentTerms").Result = "SPECIAL TERMS as below" Then StrFFldToGoTo = "fSpecialTerms" Else StrFFldToGoTo = "fDeliveryTime" End If Case "fSpecialTerms" StrFFldToGoTo = "fDeliveryTime" Case "fDeliveryTime" StrFFldToGoTo = "fContractTerms" End Select ActiveDocument.Bookmarks(StrFFldToGoTo).Range.Fields(1).Result.Select End Sub ================= This is driving me nuts so any input will be most appreciated... Simon Tag: Runtime Click event for a Inline Shape button on Word Tag: 55677
  - 3
    - Selecting fields/section How do I approve the changes of all the fields (docvariable fields, mergefields) which are on the first section/page of a template? Here is what I have right now, but I have tried SEVERAL combinations! The rest of the document needs to keep the changes tracked/marked - but the title page needs "ok'd". Thanks! Dim ofield As Field oDoc.Sections(1).Range.Select For Each ofield In ActiveDocument.Range oDoc.Range.Revisions.AcceptAll Next Tag: Runtime Click event for a Inline Shape button on Word Tag: 55672
  - 4
    - Memory not freed after closing Word Documents Hi, I've written a process using VBA to convert a bunch of word documents into RTF files. I'm not using the Batch Conversion wizard that comes with MS Word because the docs are password protected. I ran a test run and all worked well, except for one problem. After closing each document, the memory doesn't seem to be freed up, and gradually the used memory ramps up till the system chokes. This started to happen processing 2000 documents and I have about 100,000 documents to process. My code is attached below, any help on how I can free up the memory would be appreciated, failing that I'm going to try to convert the program to full VB so I can totally close down the Word Application to free up the memory without interrupting the processing. ++++++++++++++++++++++++++++++++++++++++++ Private Sub btn_Convert_Click() On Error GoTo PROC_ERR Dim inFile Dim outFile Dim from_Path Dim to_Path Dim passwd Application.WindowState = wdWindowStateMinimize 'get files from the selected path 'and insert them into the doc from_Path = txt_From_Path.Text to_Path = txt_To_Path.Text passwd = txt_passwd.Text Open to_Path & "convert.log" For Output As #1 Open to_Path & "filenames.dat" For Output As #2 inFile = Dir$(from_Path & "*.doc") Print #1, "Reading *.doc from " & from_Path Print #1, "Writing *.rtf to " & to_Path Do While inFile <> "" outFile = Left(inFile, Len(inFile) - 3) & "rtf" ChangeFileOpenDirectory from_Path Documents.Open fileName:=inFile, ConfirmConversions:= _ False, ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:=passwd _ , PasswordTemplate:="", Revert:=False, WritePasswordDocument:=passwd, _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto ChangeFileOpenDirectory to_Path ActiveDocument.SaveAs fileName:=outFile, FileFormat:= _ wdFormatRTF, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False Documents.Close 'Also tried activedocument.close Print #1, "Time: " & Format$(Now(), "dd-mmm-yyyy hh:mm:ss AM/PM") & " File " & inFile & " converted to " & outFile & " successfully." Print #2, outFile inFile = Dir Loop PROC_EXIT: On Error Resume Next Close #1 Close #2 Unload Me Exit Sub PROC_ERR: lError = Err.Number sError = Err.Description If lError = 5180 Then Resume Else Print #1, "!!!!! File " & inFile & " LOAD FAILED !!!!!!" Print #1, "Error: " & lError & " - " & sError GoTo PROC_EXIT End If End Sub +++++++++++++++++++++++++++ Tag: Runtime Click event for a Inline Shape button on Word Tag: 55664
  - 5
    - Word delete section breaks I would like to delete any section breaks at the end of the document, if there are any. Assuming that I have an open document object, how would I go about this? This is what I have so far: 6030 Set objTarget = GetObject(str_CombinedFileName) 6040 Set objApp = objTarget.Application 6041 objApp.Visible = True 6042 objApp.Activate Tag: Runtime Click event for a Inline Shape button on Word Tag: 55656
  - 6
    - TOC is picking up extra styles In Word 2002, I recorded the following code to insert a TOC. Note that it is only supposed to pick up four styles "C-Heading 1, C-Heading 2, C-Heading 3, and C-Table Step 2." The problem is that it is also picking up styles "C-Heading 4" and "C-Table Step 3." All of the "C-Heading" styles are based on to C-Heading 1 as part of an outline numbering scheme. The "C-Table" styles are based on the C-Heading styles of the same number and are then modified (for example, C-Table Step 3 is based on C-Heading 3). How can I modify the code to prevent it from picking up C-Heading 4 and C-Table Step 3 in the TOC? With ActiveDocument .TablesOfContents.Add _ Range:=Selection.Range, _ RightAlignPageNumbers:=True, _ UseHeadingStyles:=False, _ IncludePageNumbers:=True, _ AddedStyles:="C-Heading 1,1,C-Heading 2,2,C-Heading 3,3,C-Table Step 2,2", _ UseHyperlinks:=True, _ HidePageNumbersInWeb:=True, _ UseOutlineLevels:=False .TablesOfContents(1).TabLeader = wdTabLeaderSpaces .TablesOfContents.Format = wdIndexIndent End With TIA, Vivian Tag: Runtime Click event for a Inline Shape button on Word Tag: 55648
  - 7
    - Macrofield Hello when I put a macrofield with text content in a document there is always a space at the end of this field and if you make a font.StrikeThrough the line is one character (the space) longer than the word. How can I avoid this? Thanks Peter Tag: Runtime Click event for a Inline Shape button on Word Tag: 55643
  - 8
    - Click event in the document Hello I put in a document some formfield with text to be able that an event can be fired with the mouse. But there is a double-click needed. Does any field or object exist which is for the user a word in the document (with content) and when he clicks on this object an event is fired? Thanks Peter Tag: Runtime Click event for a Inline Shape button on Word Tag: 55642
  - 9
    - ini or reg- where can I find path to templates and desktop? If anyone has a code snippet that would be fine too, but I'm not opposed to spending additional hours trying to wrestle this to death...I'm a slow learner, but eventually brute force attempts get me something that works... I had a template that worked fine on Win95 and Win98 (untested on Win2K). When we were upgraded to XP, one of the things that broke was the installation routine (tries to write to the template directory) and the other thing that broke was my ability to create and append information to a .txt file on the desktop, because in XP the desktop has a different path (I was hardcoding the path before). Given the numerous versions of both Win OS and Word that are all operating now (I need to be backward compatible to Word97 on Win95, and upward to the most current stuff) what is the most reliable method to identify where a .dot should install itself (yes, I use a routine so if the activated dot is _not_ in the template directory, it installs a copy of itself then closes) and also to locate the path to the desktop of whatever machine it is on? Many thanks, Keith -- The enclosed questions or comments are entirely mine and don't represent the thoughts, views, or policy of my employer. Any errors or omissions are my own. Tag: Runtime Click event for a Inline Shape button on Word Tag: 55639
  - 10
    - Insert Picture/Graphics Filter problem In Word 2002, I used the code below in one template and it works fine. Now I have put the same code into a new template and when it gets to the ".Execute" line I get error code 5382 "Graphics filter unable to onvert this file...". (Same computer, same version of Word 2002.) I am able to insert the picture into the template manually using Insert, Picture, from File. What do I need to do to the code to make it insert the chosen picture? TIA, Vivian With Dialogs(wdDialogInsertPicture) 'If the user picks a file, insert it If .Display = -1 Then .Execute 'If the user clicks Cancel, close the dialog and end the macro Else Exit Sub End If End With Tag: Runtime Click event for a Inline Shape button on Word Tag: 55637
  - 11
    - Can VBA tell which format a document was last saved in? The subject line is the whole question: Is there a way of testing in VBA whether a file was last saved in Word, RTF, WinWord 2.0, WordPerfect 5.x, or some other format? Many thanks for any help. Edward Mendelson Tag: Runtime Click event for a Inline Shape button on Word Tag: 55633
  - 12
    - Arguments (I think that is what they are called) Is there a way of finding a list of the various arguments a method can have. I stumbled around for over an hour the other day trying to find the correct "=wdDoNotSaveChanges" to replace "wdPromtToSaveChanges" found in the following VBA Help example for the Close method. ActiveDocument.Close _ SaveChanges:=wdPromptToSaveChanges, _ OriginalFormat:=wdPromptUser Since there doesn't appear to be a auto suggestion feature for these "wd...." type elements and the help file only listed this one example, how do you learn what works other than repeated guessing at what might work? Thanks. -- Greg Maxey A peer in "peer to peer" support Rockledge, FL To e-mail, edit out the "w...spam" in gmaxey@whamspammvps.org Tag: Runtime Click event for a Inline Shape button on Word Tag: 55631
  - 13
    - run-time error 91 in word 2003 Tag: Runtime Click event for a Inline Shape button on Word Tag: 55617
  - 14
    - How to add items to Right Click menu Hi, Can anybody point me to information that will help work out how to add additional items to the right click men that appears? I have the rightclick event being catpured abd can display my own tool bar I created, but then the default right click word menu still appears after the commandbar has been dismissed. What I'd like to do is add my menu items to the default right click menu that appears. I cannot find any information on how to do this so if anyboyd knows your assistance is greatly appreciated. regards Shane Parkinson Tag: Runtime Click event for a Inline Shape button on Word Tag: 55615
  - 15
    - icon to userform titlebar Using Word 2002 and 2003. Trying to put an icon in the titlebar of a Word userform. I got code for this that works nicely in Excel, but in Word the icon shows as an empty space, without the picture. This is the code I have: Option Explicit Private Declare Function FindWindow _ Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex _ As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "user32" _ (ByVal hWnd As Long) As Long Sub PastePictures() Dim hIcon Dim frm As Long Dim wHandle As Long On Error Resume Next If Val(Application.Version) >= 9 Then wHandle = FindWindow("ThunderDFrame", frmNotes.Caption) Else wHandle = FindWindow("ThunderXFrame", frmNotes.Caption) End If If wHandle = 0 Then Exit Sub Else hIcon = frmNotes.imgPict.Picture SendMessage wHandle, &H80, True, hIcon SendMessage wHandle, &H80, False, hIcon frm = GetWindowLong(wHandle, -20) frm = frm And Not &H1 SetWindowLong wHandle, -20, frm DrawMenuBar wHandle End If End Sub Perhaps one of the API arguments (&H80 or -20) has to be different. Thanks for any advice. RBS Tag: Runtime Click event for a Inline Shape button on Word Tag: 55614
  - 16
    - Help With Error Handling Please I have code that I can't work out the error handling. It is used to find text and replace with AUTOTEXT. There is an error handler that will detect an incorrect process for inserting the AUTOTEXT when the dialog opens. Basically you select the entry in the dialong and press insert. If OK or Canel is pressed the handler displays a message and then starts again at the beginning. All works well, the first time a User goons ups the insert. However, I deal will very talented goons and if the Users messes up a second time then a Run Time Error "The method or property is not available because the object is empty." I can't figure out 1) Why the existing error handler can't deal with this and 2) How to code an error handler that will. Thanks. Sub ReplaceWithAUTOTEXT() Dim FindText, ReplaceText As String FindText = InputBox("Enter the text string you want to find", Find) GetInput: On Error GoTo Oops 'Handle incorrect AutoText request 'Create scratch pad Documents.Add Dialogs(wdDialogEditAutoText).Show 'Cut the inserted entry to the clipboard Selection.HomeKey Unit:=wdStory, Extend:=wdExtend Selection.Cut 'crumple up scratch pad :-) ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges 'Replace the requested text with the clipboard contents. Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = FindText .Replacement.Text = "^c" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Oops: ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges MsgBox Prompt:="Reselect the autotext entry and click 'Insert'", _ Buttons:=vbExclamation, _ Title:="Incorrect autotext insertion" GoTo GetInput End Sub -- Greg Maxey A peer in "peer to peer" support Rockledge, FL To e-mail, edit out the "w...spam" in gmaxey@whamspammvps.org Tag: Runtime Click event for a Inline Shape button on Word Tag: 55605
  - 17
    - Overflow Error Word 2000 This question may be a little difficult to answer just from the small snippet of code that I'm posting, but I'll try to explain what is happening. I have the following code: While RecordEnd < cbDataLength AddToLocatesCollection = True FindMessageMarker RecordEnd = InStr(RecordStart, cbData, MessageMarker) + MarkerLength + 1 RecordLength = RecordEnd - RecordStart + 1 cbDataClip = Mid(cbData, RecordStart, RecordLength) GetRecordNumber CheckForClearedTag If AddToLocatesCollection Then CheckRecordExclusionsCollection If AddToLocatesCollection Then CheckLocatesCollection If AddToLocatesCollection Then CheckDocument If AddToLocatesCollection Then LocatesCollection.Add (cbDataClip) RecordStart = RecordEnd + 1 Wend Basically, the contents of cbData come from the clipboard (read in by another routine), so cbData can contain a HUGE chunk of information. So I chop up the data and feed it in pieces into cbDataClip. I then pull out a number of important pieces of information (GetRecordNumber and CheckForClearedTag), and then run several tests on the data to see if I want to add it to a collection. The collection that data gets added to is eventually processed again, and all the items in the collection are pasted into the document. It all works pretty well. Tonight, I did my first large scale test of the program, and I encountered the following error: Runtime error '6': Overflow In debugging the program I found that I had declared RecordStart as and integer, and the the value of RecordStart was exceeding the limit for an integer. I was able to fix the bug by declaring RecordStart as Long. This should work because RecordStart, in practical use, should never exceed the limit for an integer (my test was purposely the hairiest scenario I could devise, so was beyond what would be seen in normal use by a factor of probably about 100), let alone the limit for a Long data type. My test string of data was almost 45,000 character in length. In practice, the data being processed at any one time will rarely exceed 1,000 characters, and I don't know of any instances where it has ever exceeded 5,000 characters. I thought about redefining cbData each time through, so that it would throw out the data that has just been processed and, in essence, move everything remaining in cbData forward. This would prevent RecordStart from ever exceeding the limit for an integer. So here's my question. Would it be better to redefine cbData and avoid the problem of hitting the maximum for an integer, or is my solution good enough? -- Tom MT DOJ Help Desk Making the world a safer place. Tag: Runtime Click event for a Inline Shape button on Word Tag: 55604
  - 18
    - Can't get into Word. I had to delete everything on my hard drive about a week ago. I reloaded everything that I have but when I went into Word it asked me for my product key. I don't have this number. What do I do? Or what can I do? Thanks! Tag: Runtime Click event for a Inline Shape button on Word Tag: 55602
  - 19
    - Word macros failing after installing XP SP2 I just installed XP SP2 on XP Pro. A bunch of macros that I was using in Word 97 and Word 2003 immediately before the service pack install are no longer working. I don't have an exhaustive list of what's not working, but here are a couple I ran into right away: left() and mid() are gone. Error is "Can't find Project or Library," thrown during compilation phase. The statement Selection.style = ActiveDocument.Styles("Normal") gives the error "Could not open macro storage" during execution. The version of Word is Word 97 SR-2. Word 2003 11.6113.5606 was installed in a separate directory, long after installing Word 97. All was fine before XP SP2. Ironically, I'm trying to write an article about the changes people should expect to see on installing SP2. Any advice and direction on this would be greatly appreciated. Brian Tag: Runtime Click event for a Inline Shape button on Word Tag: 55591
  - 20
    - Flow many lines into 1 very long line I need to flow several lines together. The data looks like this, only there are over 1000 lines. 100010206116W502 100010207506W500 100010503204W502 it needs to become IN(100010206116W502,100010207506W500,100010503204W502) to be pasted into a "canned" SQL filter in another program. How can I tell VBA to go to the line end and add a comma, remove the return, repeat to the end of the file and add the ")"? Thank-you. Tag: Runtime Click event for a Inline Shape button on Word Tag: 55589
  - 21
    - how avoid changing of template Hello I've written a VB6-application for word-automation. The App starts word and creates a new doc which is based on a word-template. After filling out the doc with text and formfields I interrupt the reference from the VB6 to word. After saving the document and closing them I am asked if the changing of the template should be save too. What can be the reason that the template is be changed and how can I avoid the dialog? In the code there is no line which touches the content of this template. Thanks Peter Tag: Runtime Click event for a Inline Shape button on Word Tag: 55585
  - 22
    - form drop-down values fail to save as text Word 2003 form drop-down values fail to save as text. My "status" drop-down saves as: [status]</status> It should save as: [status]mystatus</status> The following workaround failed: Microsoft Knowledge Base Article - 212100 http://support.microsoft.com/default.aspx?scid=kb;en-us;212100 It does work if I open in Word 2000 and save from there. But my users are using Word 2003. Can't find the answer anywhere. I could use tools\options\save\"save data for forms only" but that will require me to rewrite a lot of code. Issac Tag: Runtime Click event for a Inline Shape button on Word Tag: 55582
  - 23
    - Best practice re list templates? Hi all I'd really appreciate some best practice advice re using VBA for setting up list templates and styles for outline/paragraph numbering. We're getting ready for a major format/style conversion and I'd like to make sure we get paragraph numbering right. We're staying with Word 2000 for the time being but working with documents that were originally created in Word 2000 as well as WordPerfect (a variety of versions) and Word 97. We have a master "Normal" template with the new formatting and new styles. I've developed a macro that uses .UpdateStyles (3 times) to try to update the styles in the documents to be converted. Unfortunately .UpdateStyles (x3) doesn't seem to update outline numbering on relevant styles reliably or correctly. I've tried using .OrganizerCopy and that seems to do a better job but even that doesn't seem to get the outline numbering right -- sometimes it copies the outline linking correctly sometimes it doesn't and there doesn't seem to be any particular pattern: it will get certain styles right in one document but not in the next. (I don't know if that's a problem with lurking legacy incompatibilities in the documents or what.) I'm thinking that the only way to make sure that outline numbering and linked styles in the styles in the converted documents are uniform and match the styles in the new Normal template is to do it through VBA, by setting up a macro (or series of macros) that define each and every style. Is that a good idea or is there another way to do it? BTW here's the code I've been using to try to get the styles copied over just in case anyone can see something wrong in what I've been doing. Thanks in advance for any advice! Chuck Sub UpdateStyles() Dim oLT As ListTemplate Dim oStyle As Style Dim sLKStyle As Variant Dim i As Integer Dim sStyleTemplate As String On Error GoTo errorhandler sStyleTemplate = "C:\Program Files\Microsoft Office\Templates\NewNormal.dot" With ActiveDocument .AttachedTemplate = sStyleTemplate .UpdateStyles .UpdateStyles .UpdateStyles End With For i = 1 To 5 Application.OrganizerCopy _ Source:=sStyleTemplate, _ Destination:=ActiveDocument.Path & "\" & ActiveDocument.Name, _ Name:="Level " & i, _ Object:=wdOrganizerObjectStyles Next i For i = 1 To 5 Application.OrganizerCopy _ Source:=sStyleTemplate, _ Destination:=ActiveDocument.Path & "\" & ActiveDocument.Name, _ Name:="NA - LEVEL " & i, _ Object:=wdOrganizerObjectStyles Next i 'And so on, going through a number of different 'defined style/numbering hierarchies 'Relink levels to styles Set oLT = ActiveDocument.Styles("Level 1").ListTemplate For i = 1 To 5 sLKStyle = "Level " & i oLT.ListLevels(i).LinkedStyle = sLKStyle Next i Set oLT = ActiveDocument.Styles("NA - LEVEL 1").ListTemplate For i = 1 To 5 sLKStyle = "NA - LEVEL " & i oLT.ListLevels(i).LinkedStyle = sLKStyle Next i 'And so on, re-linking each number level to its LinkedStyle MsgBox "Styles in this document have been updated.", _ vbOKOnly + vbInformation, "Styles Updated" Exit Sub errorhandler: Select Case Err.Number Case 91 MsgBox "Check " & sLKStyle & " to make sure " & _ "numbering and linked styles are correct.", _ vbExclamation + vbOKOnly, _ "Problem with numbering styles encountered" Case Else MsgBox Err.Number & " " & Err.Description End Select Resume Next 'Exit Sub End Sub Tag: Runtime Click event for a Inline Shape button on Word Tag: 55581
  - 24
    - TOC Automation problem Hi all, I have a VB6 app that creates a document based on a template. This template has a TOC on the first page and an autotext entry with various bookmarks is set up. The first field on the autotext enty (ie. the first bookmark) is a Name field and is set up to print a new page break before. The TOC is set up to use the Name bookmark instead of the heading fields. I generate the document, but the TOC is out of sync. The entry names are fine and in order but the page numbers are funny. The first is 3, for example, and the other are all 2. Do I need to configure the TOC in another way? Thanks, Ivan Tag: Runtime Click event for a Inline Shape button on Word Tag: 55578
  - 25
    - Word Document VBA Question Hi, I have an application that creates a report using a third party tool which has the ability to export to a RTF (Word) document. The problem I am running into is the report has lines to seperate certain sections however the export does not support lines. I am looking for a solution in where I create a Word Macro and create the lines in Word. Or I was thinking of creating a word document and use it as a template. The report is basically a quote form generated for sales and sales needs to have the ability to edit it. Basically, the lines are used to hold the line items and give it a professional look. I was thinking that the Word document could have a textbox for the line items and I just pass the info in and would shrink or grow as the data grows. I do not have alot of experience with VBA and Word so I am just looking for some suggestions or comments. Thanks Tag: Runtime Click event for a Inline Shape button on Word Tag: 55575
- Next
  - 1
    - Programming toolbar buttons Hi Folks, I'm using the code below to create toolbars based on toolbar settings in another template (for my own reasons) which are stored in an ini file. Everything works great (toolbars are created with all the appropriate details) except they do not execute my required styles. The buttons which have macros assigned to them work fine but the buttons I used for style shortcuts do not. I assumed that the name of the style assigned to a macro being the same as a style would be enough but it seems I'm a muppet. Any pointers?? Cheers J CustomizationContext = ActiveDocument i = 0 For x = 0 To UBound(strMainCBInfo()) - 1 Set oCMdBar = CommandBars.Add(Name:=strMainCBInfo(i, 2), Position:=msoBarFloating, Temporary:=False) j = 1 With oCMdBar .Height = strMainCBInfo(i, 0) .Left = strMainCBInfo(i, 1) .Name = strMainCBInfo(i, 2) .NameLocal = strMainCBInfo(i, 3) .Position = strMainCBInfo(i, 4) .RowIndex = strMainCBInfo(i, 5) End With y = 1 For j = 0 To UBound(strControlInfo()) - 1 If strControlInfo(j, 1, i) <> "" Then With oCMdBar .Controls.Add Type:=msoControlButton With .Controls.Item(y) .BeginGroup = strControlInfo(j, 0, i) .Caption = strControlInfo(j, 1, i) .DescriptionText = strControlInfo(j, 2, i) .Enabled = True .FaceId = strControlInfo(j, 3, i) .Height = strControlInfo(j, 4, i) '.ID = strControlInfo(j, 5, i) .OnAction = strControlInfo(j, 6, i) .Parameter = strControlInfo(j, 7, i) .Priority = strControlInfo(j, 8, i) .ShortcutText = strControlInfo(j, 9, i) .State = strControlInfo(j, 10, i) .Style = strControlInfo(j, 11, i) .Tag = strControlInfo(j, 12, i) .TooltipText = strControlInfo(j, 13, i) .Width = strControlInfo(j, 14, i) End With .Visible = True End With End If y = y + 1 Next j i = i + 1 Next x Tag: Runtime Click event for a Inline Shape button on Word Tag: 55570
  - 2
    - how do you copy a user form I've got a user form (in Word 2002) that has a number of controls and labels in it. I need to make several similar forms in the same document, but rather than build each of these other forms from scratch, I'd rather clone my existing form, and treak it into the copies I need. I've looked for a way to copy the form, but I can't find anything in the Project Explorer, toolbars or menus that look like a way to copy the form. Can anyone tell me how I can accomplish this? Thanks in advance. Paul Tag: Runtime Click event for a Inline Shape button on Word Tag: 55567
  - 3
    - Undo command? In the "Immediate" Area, I set the deletedtextmark = wdeletedtextmarkhidden and now I'd like to know how to undo what I did but have no idea where to delete this command. Help? Tag: Runtime Click event for a Inline Shape button on Word Tag: 55564
  - 4
    - Parsing string on clipboard Hi folks, Sorta a followon from my "on focus clipboard" message. I want to parse the data on the clipboard into textbox of a userform. The data looks like: Pers ID: 20456035839 Master RNS: 5476121 (Real) SMITH, MICHAEL JOHN (Contact Address) 8 FORD ROAD, WHITTAMS, AUCKLAND CITY 1750 I had a go myself and ended up hardcoding everyting - it was pretty ugly. lines like RNS = Mid(clipbd_string, InStr(clipbd_string, "Master RNS: ") + Len("Master RNS: "), 8) 'RNS max length is 8 Surname_name = Mid(clipbd_string, 52, (InStr(clipbd_string, ",") - 52)) Anyone have any better ideas? -Al -----= Posted via Newsfeeds.Com, Uncensored Usenet News =----- http://www.newsfeeds.com - The #1 Newsgroup Service in the World! -----== Over 100,000 Newsgroups - 19 Different Servers! =----- Tag: Runtime Click event for a Inline Shape button on Word Tag: 55562
  - 5
    - On focus - check clipboard Hi guys, I want a dialog box to check for data that fits a specific format when it gets focus (after the user returns to word from another application. It does not have to constantly monitor for this data - only after a user returns to word. Any idea how to do this? Cheers -Al -----= Posted via Newsfeeds.Com, Uncensored Usenet News =----- http://www.newsfeeds.com - The #1 Newsgroup Service in the World! -----== Over 100,000 Newsgroups - 19 Different Servers! =----- Tag: Runtime Click event for a Inline Shape button on Word Tag: 55547
  - 6
    - VB/Word - Making lines read only Hi, I'm trying to write an Visual Basic application that starts Microsoft Word to allow a user to edit a text file. However the first line is a header and the last line is a trailer and I don't want the user to delete these lines. Also when the user exits from Word (closes the file or exits Word) I want the control to be returned to the VB application so that I can update the trailer. I am new to VB with Word so please bear with me. There are not many resources on the Web to assist. What I need to know is: 1) Is there an easy way to make the line read-only? Line in this case is the same as the Sentences object. If not would I have to trap all the insert/replace/delete events and beep if the user is on the first or last line? 2) Is there some sample code showing how I can start Word in VB AND take back control when the user closes the file? Thanks for any assistance Tag: Runtime Click event for a Inline Shape button on Word Tag: 55542
  - 7
    - Word 2003: phantom temp files in startup folder Hi all, I have two Word add-ins that have been well-behaved for a long while on several PCs running Word 2000 or Word 2002. Today I installed them in a PC running Word 2003. They still work fine, but after closing Word, the two matching temp files ("~%restofname.dot") are still there in the Startup folder with the real files. And they stay there. Even after a reboot. Is anything wrong? It doesn't seem to affect performance, but this certainly hasn't been standard behavior in the past. The files are identical to those installed with earlier Word versions, and Outlook is *not* using Word as its email editor. All PCs are running WinXP Pro. Any ideas? -- Mark Tangard "Life is nothing if you're not obsessed." --John Waters Tag: Runtime Click event for a Inline Shape button on Word Tag: 55539
  - 8
    - Retrieving the Auto Number Does anybody know how I could the auto number in a selection: Example: 1. Blah 2. Blah blah. '1' and '2' are automatically inserted using the auto numbering feature in word. When I select (say) 'Blah'; I cannot, of course, select '1' along with it ('1' is an auto number). So, is there a VBA code where I can get the auto number which is associated with the text as well? Thanks & regards, vince Tag: Runtime Click event for a Inline Shape button on Word Tag: 55536
  - 9
    - Use IF to Loop or not? AND IF w/ error codes? I had an idea, and thought I would post it here to see if it survived scrutiny. A line in my macro errored because another process wasn't completely done. Is it possible and would it be okay to use On Error Resume Next and the error code with an IF to loop back through the missed instruction until it completes? I'm thinking something like: Do On Error Resume Next ' Do This If Err.Number <> 0 Then Loop Else Exit Do End If On Error GoTo 0 Ed Tag: Runtime Click event for a Inline Shape button on Word Tag: 55529
  - 10
    - ListTemplate index - how to get? Hi all I'm trying to figure out how to get the ListTemplate index/name for a specific style -- I'd like to be able to modify the style's LinkedStyle and in order to do that it seems I have to specify the Style's ListTemplate first. Just to test if I can identify it, I tried the following code Set mystyle = ActiveDocument.Styles("Level 1") MsgBox ActiveDocument.ListTemplates(mystyle.ListTemplate.Name). _ ListLevels(1).LinkedStyle I don't get an error but the result of "mystyle.ListTemplate.Name" is "" (ie nothing). Any pointers? Thanks in advance! Chuck Tag: Runtime Click event for a Inline Shape button on Word Tag: 55523
  - 11
    - Apply Multiple Templates? What's the right approach? I am generating word 2002 docs based on a custome template that includes a customized toolbar that runs VBA routines. Using bookmarks I've pre- populated a lot of basic info in the doc. I then need to pass off these generated docs to someone that fills in the balance of the document info. That person has a set of 50 templates that she has been using to fill in sections of the starting doc based on certain criteria. I'm pretty unfamiliar with Word templates and what I am running up against, surprisingly, is that if she applies one of her custom dot files to what I pass her, her access to the custom toolbar in my original dot is lost. I'm not sure how to deal with this. As far as I can tell, a word doc can only be attached to one dot at a time. This would seem to imply that I'd have to add my VBA code and toolbar to all of her 50 specail dot files for her to retain access to the them. I could do this but the maint seems onerous. Is there an alternate approach? For instance, another way that the second stage text mods could be implemented besides using the 50 custom dot files? Tag: Runtime Click event for a Inline Shape button on Word Tag: 55516
  - 12
    - Excel Has anyone tried to open a Excel file from Word ? I know that in the 2000 Word program you were able to open Excel from that location .In Office 2003 Professional Edition you have to go outside of Word and into Excel to copy or transfer information . How about in the same area does Word update if a change was made in the Excel files / if the two are linked togather as it did in the 2000 version ? Tag: Runtime Click event for a Inline Shape button on Word Tag: 55513
  - 13
    - Storing large amounts of (hidden) data within a single word document? Hi all- thanks in advance for your help; using Word97 on Win98SE... I'm looking for the best way to store this large amounts of information (essentially several manually-built flat file database tables) in a word document without it being accessable to the user; I remember reading (but can't find) a post talking about this subject, and I think Custom DocProperties were the suggested solution... however, in my tests, the document properties (including custom ones) are available to any user via the document property interface, which is undesirable for me. Does anyone have other ideas on how to handle this? Can I suppress the custom docproperties information from showing in the user interface? What about (noting: Word97/ Win98SE) saving the information in some sort of low level encryption to avoid the property 'value' from being read, even if the user looks at the property dialog? Essentially I need to store data (away from user's eyes) without putting the data in the document or in a separate file. I am thinking that maybe I could do this by writing the data in XML format (using whatever XML command is available for encryption?) and that might also make it easier to work with the data, but I haven't messed with XML yet, so I'll wait to hear if that is possible/desirable in Word97 before I start a whole new learning curve... Many thanks, Keith -- The enclosed questions or comments are entirely mine and don't represent the thoughts, views, or policy of my employer. Any errors or omissions are my own. Tag: Runtime Click event for a Inline Shape button on Word Tag: 55512
  - 14
    - create section break after a table hi, i'm trying to create a section break with the type wdSectionBreakContinuous after a table. how can i do that in vba for word xp? thank you. william -- Tag: Runtime Click event for a Inline Shape button on Word Tag: 55507
  - 15
    - Why is there no color on monitor I have Office '03 (I think). While it will print in color, it will not show any colors on the monitor. Does anyone know why? Tag: Runtime Click event for a Inline Shape button on Word Tag: 55500
  - 16
    - Why doesn't the Table object have an Index property Hi, I'm wondering why the Table object does not have an Index property? This object belongs to a collection (Tables), so it should have one. What is the reason this object, just like Document or Paragraph does not have that property? Thanks in advance. Raph Tag: Runtime Click event for a Inline Shape button on Word Tag: 55498
  - 17
    - Emailing Word Document Using Macro Hi All, I hope someone can help me, We have a word document for requesting a courier service, the user currently has to open the document from our Intranet, enters the data then sends it as an attachment to our stores dept. I am trying to set-up a macro that will do this automatically, when I try to record a new macro it gets as far as opening the new message window with the attachment but it does not populate the To: field and does not send the e-mail. Could anybody point me in the right direction of any websites etc.. Many Thanks Paul Tag: Runtime Click event for a Inline Shape button on Word Tag: 55495
  - 18
    - Automation error Hello, I use VBScript Regular expression (VBScript.dll\3) for 'pattern matching and replacements' concepts in my "Word to XML" tool. the code... Function RExpReplace(ptrn As String, Sstr As String, rStr As String, iCase As Boolean, gCase As Boolean) As String Set regEx = New RegExp ' Create regular expression. regEx.Pattern = ptrn ' Set pattern. regEx.IgnoreCase = iCase ' Set case sensitivity. regEx.Global = gCase ' Set Global search regEx.MultiLine = True RExpReplace = regEx.Replace(Sstr, rStr) ' Make replacement. End Function On my machine this function works fine. But with other machines, it invoke the following error.. Automation error The object invoked has disconnected from its clients. Its works fine, when i changed the code in debug mode, by using breakpoint at 'RExpReplace = regEx.Replace(Sstr, rStr)' the code... Dim temp as String temp = regEx.Replace(Sstr, rStr) ' Make replacement. RExpReplace = temp I find, Microsoft Knowledge Base Article - 813120 relates to my problem, but not exactly. please let me know where is the problem. regards, senthil Tag: Runtime Click event for a Inline Shape button on Word Tag: 55494
  - 19
    - Which formfield has the focus Hello, in an template which creates various numbers of formfields (automaticly) each field has got the same EntryMacro and ExitMacro (named Got_Focus and Lost_Focus). When the EntryMacro or ExitMacro - event occurs and for example the Got_Focus routine is called, how can I determine which FormField has got the focus (and for the Lost_Focus which FormField lost the focus)? Thanks Peter Tag: Runtime Click event for a Inline Shape button on Word Tag: 55483
  - 20
    - Remove Leading Spaces Hi I have a txt document that has been opened in Word that has a series of leading spaces. These leading spaces (always seven of them) are scattered throughout the document. How do I remove these quickly. Look forward to any assistance. -- Regards mg Tag: Runtime Click event for a Inline Shape button on Word Tag: 55482
  - 21
    - Grabbing specific text using vba How can i retrieve a specific text from an opened word document starting from a specific position and moving to the right until a specific character is found,using vba? Pls, its urgent!!!!!!! --- Message posted from http://www.ExcelForum.com/ Tag: Runtime Click event for a Inline Shape button on Word Tag: 55480
  - 22
    - ByRef question Hello all, Here's my scenario. I have an Access app that needs to grab data from an Excel worksheet. What I've done is create a function in Access that simply calls excel.run(myproc(arg1, arg2)). The excel proc needs to return a bunch of numbers so I pass ByRef. I can't think of a cleaner way of doing this without updating the db in excel itself. My question: In Access, when I declare my excel object as an object, the byref works, but if I declare it as Excel.Application then it doesn't work. Why? In both tests, I use set xlsApp = new excel.application, the only difference is in the actualy dim statement. Am I missing something here, cause I'd really like to bind early, it's just cleaner. Thx, Bodi Tag: Runtime Click event for a Inline Shape button on Word Tag: 55479
  - 23
    - Check for Bookmark then run userform I want to write some code that will check to see if a bookmark exists and if it does, run a userform. Once the user has filled in the userform and clicked OK, I want the code to find the bookmark and delete it. If the bookmark doesn't exist, then I don't want the code to run... I have the following code: Sub Autonew() If ActiveDocument.Bookmarks.Exists("new") = True Then FrmOutwardLetter.Show End If End Sub and within the userform code I have the following code to delete the bookmark: ActiveDocument.Bookmarks("new").Select Selection.Delete BUT nothing seems to be working! The userform doesn't show anymore - What am I doing wrong? (It's probably all wrong!). I was trying to create a custom boolean property, set its value to false and change it to true once the userform runs. Then always check for the value of the said property when document is opened, and if it is true, do not run the code. Wasn't sure how to do this as this is all new to me... :o( Thanks in advance Lee Tag: Runtime Click event for a Inline Shape button on Word Tag: 55476
  - 24
    - Extracting Endnotes Number Hi all, I am required to get the number of an endnote and check if it is present in the main document. To elaborate further, assuming I have something like: 3 For a historical description of the... 3 being the superscripted end note number that word automatically assigns. I will need to extract the text '3' out of the end note. When I copy and paste any endnote, I get '[1]' instead of '3'. Also, when I just do a msgbox(selection.text), I get a funny character instead of the endnote number. Is there anyway, I can retreive the endnote number? After I reetrieve it, I will have to check if it is present in the main document which is fairly easy. It's the text extracting part that's eating my brain (however limited!) away. Hope someone can help me out. Thanks & Regards, Vince Tag: Runtime Click event for a Inline Shape button on Word Tag: 55475
  - 25
    - Certificate of Security Hi As my security settings are medium, I am always being asked if I want to activate my macros. So I installed SelfCert.exe and run it (apparently successfully according to a window) But it didn't make any difference and my name didn't not appear in the security window as a reliable source. I've also tried running it with my main macro document open and with .dot open but nothing gives. What is the procedure for running SelfCert.exe please? Thanks Tag: Runtime Click event for a Inline Shape button on Word Tag: 55468

Hi,
I am adding click event for dynamically generated inline shape command
buttons in following way to the module
ActiveDocument.VBProject.VBComponents(1).CodeModule.AddFromString
strGenerateQtypeEvent

where strGenerateQtypeEvent is a string having click event generated code

This gives application error /crash, When I trying to Protect document after
the execution of code.

Can anybody suggest me a general way to call event for the runtime generated
buttons.
Or plese suggest me how to proceed with causing of error

Thanks

Top

Re: Runtime Click event for a Inline Shape button on Word by Gene

Gene
Mon Aug 30 10:54:38 CDT 2004

You should use the button on the Control Toolbox Toolbar. When you add a
button from her you can select it and click the View Code option on the same
toolbar to set your click events.

-Gene

"naveen" <naveen@discussions.microsoft.com> wrote in message
news:F6217DD9-8FCA-42C7-9D23-91558433B809@microsoft.com...
> Hi,
> I am adding click event for dynamically generated inline shape command
> buttons in following way to the module
> ActiveDocument.VBProject.VBComponents(1).CodeModule.AddFromString
> strGenerateQtypeEvent
>
> where strGenerateQtypeEvent is a string having click event generated code
>
> This gives application error /crash, When I trying to Protect document
after
> the execution of code.
>
> Can anybody suggest me a general way to call event for the runtime
generated
> buttons.
> Or plese suggest me how to proceed with causing of error
>
> Thanks

Top