Identifying the button that activated the macro

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Get numbering text when several ListNum on same line Hi, I'm having trouble getting the numbering text of a ListNum field when it is not the first numbering field in a paragraph. I usually use the ListFormat.ListString property, but it doesn't work in this case, as this property (and ListFormat in general) always gets the first list entity in a paragraph. So if I had this in the document: "It happens fbecause: a) reason1, b) reason 2, c) reason 3" the ListFormat.ListString for any range in this line (including the listnum "Result" and "Code" ranges for any listnum field) would be "a)". The same happens if I have a listnum field after a bullet (don't ask me why anyone would this, it's not my document :)), the code character for the bullet is returned (whatever it is). So, how can I get the resulting text of a listnum field, or the listnum field immediately before the current selection (I have no trouble finding the field, just getting the text)? Hope you can help Thanks Tag: Identifying the button that activated the macro Tag: 80867
  - 2
    - VB cant find bookmark in Header Hello again I have bookmark in Header, When I try to get to it in VB with the code -- objWord.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.GoTo What:=wdGoToBookmark, Name:="HeaderPlanName" I get the error 5678 "Word cannot find the reuested bookmark." even though the above is generated by word it self (by recording macro). Help please!!! You guys have been great so far Tag: Identifying the button that activated the macro Tag: 80866
  - 3
    - How can I make all text between '/' and '/' bold? I'm writing something about phonetics and pronunciation. I've been cutting and pasting all the symbols. It's too much trouble to make them bold as I go through. I'd like to find all the things like this '/s/' in a document and make them bold. I think this must be possible, but I have no idea how to do it. I'm using MS Word 2002. Thanks for any help. Tag: Identifying the button that activated the macro Tag: 80864
  - 4
    - Pure Virtual Function Call R6025 Can any one help please. I keep getting this error Program: C:\Program Files\microsoft Office\Office 11\Winword.exe R6025 -Pure Virtual Fuction Call On a XP machine SP2 Office 2003 SP2. No other programs. Have tried reinstalling the service packs and making sure printer drivers are XP. Have aslo tried installing office 2002 but still get error. Happens on different word documents.Many thanks -- Ades Tag: Identifying the button that activated the macro Tag: 80863
  - 5
    - Pure Virtual Function Call R6025 Can any one help please. I keep getting this error Program: C:\Program Files\microsoft Office\Office 11\Winword.exe R6025 -Pure Virtual Fuction Call On a XP machine SP2 Office 2003 SP2. No other programs. Have tried reinstalling the service packs and making sure printer drivers are XP. Have aslo tried installing office 2002 but still get error. Happens on different word documents.Many thanks -- Ades Tag: Identifying the button that activated the macro Tag: 80862
  - 6
    - Bridge documents....Red Hearts and Diamonds, Balck Clubs and Spade How do I write tutorials for Bridge so word can type, autocorrect or insert the proper character with its proper color? Red Hearts and Diamonds, Balck Clubs and Spades are typed many many types, how can this be automated? Tag: Identifying the button that activated the macro Tag: 80858
  - 7
    - BuiltInDocumentProperties Hello I created a Word document template from a document created at another institution, and stupidly didn't notice that before there were hundreds of documents in my organization's file system with the other company's name in the "Company" BuiltInDocumentProperties. I wrote the routine below to traverse the file tree and update each file. I change the system time to the original modified time for each file so I don't end up setting every file to be modified now. HOWEVER, (A) this is insanely slow (even if I turn off Application.ScreenUpdating; and (B) I noticed that from Windows Explorer, you can modify these properties without opening the file. Does anyone know either: 1) How I could improve the performance in general; or 2) Achieve the same result without having Word open each document? Tx & rgds Bongo Sub Traverse(folderspec) Dim fs, f, fl, fc, s, company Dim realdate, realtime, filetime realdate = Date realtime = Time() Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files For Each fl In fc If fl.Type = "Microsoft Word Document" Then filetime = fl.DateLastModified Documents.Open FileName:=fl.Path company = Documents(fl.Name).BuiltInDocumentProperties("Company") If company = "OTHER COMPANY" Then Time = filetime Date = filetime Documents(fl.Name).BuiltInDocumentProperties("Company") = "MY COMPANY" Documents(fl.Name).BuiltInDocumentProperties("Keywords") = "" Documents(fl.Name).Save End If Documents(fl.Name).Close End If Next ' RECURSIVE PART, DISABLED FOR TESTING ' Set fc = f.subfolders ' For Each fl In fc ' Traverse (fl.Path) ' Next Time = realtime End Sub Tag: Identifying the button that activated the macro Tag: 80856
  - 8
    - Removing blank lines in report Hi, I have a report that produces a text file. When I open it in Word its about 3,000 pages long. This is because 60% of the report is blank lines. Is there a way to take out the blank lines using VBA? Once the file is reduced I hope to import it into Excel. Regards Garry Tag: Identifying the button that activated the macro Tag: 80852
  - 9
    - Using forms to collect information Hi, Thanks for your time. I'm using Word 2003. Wondering if there is a way to have users fill out a form in Word and then be able to collect the data somehow. I know conceptually there is, I've heard of it being done but I was wondering if anyone could point me in the right direction. For example if I wanted to create a survey for my users, create a form using the form toolbar in Word and then collect and analyze the data in a table or something like that. I believe you can do this in Adobe also, but I'd rather use Word if I can. Thanks! Tag: Identifying the button that activated the macro Tag: 80842
  - 10
    - how do I remove a line when a mergefield has no value Tag: Identifying the button that activated the macro Tag: 80840
  - 11
    - example code for Would someone have some example code for renaming a button on a custom toolbar called "schedule"? Tag: Identifying the button that activated the macro Tag: 80829
  - 12
    - Linking word Userform to excel using word vba I am trying to populate an excel workseet using a word Userform that I have developed. Everthing that is entered into the userform needs to be exported to excel. The problem that I ma having is trying to figure out to get the two programs to talk. I imagine that this is a basic thing to do if you know what your are doing, I do not. Please help Tag: Identifying the button that activated the macro Tag: 80828
  - 13
    - Normal.dot I'm just coming over from Office 97 to XP with Word 2003. Word's VBA macros used to be stored in Normal.dot. What's the deal with "Normal" now? And, why doesn't it prompt for module save confirmation when closing after a modification? Thanks, -- Trent Argante [DC.J(125)] Tag: Identifying the button that activated the macro Tag: 80823
  - 14
    - Delete a line which has a unique Style with a macro Hello, I am trying to find a way to delete many lines in a document, which all have a unique paragraph style. How can I do that? Thanks Octavee Tag: Identifying the button that activated the macro Tag: 80822
  - 15
    - Paper Tray Bin Selection macro I need to get the number assigned to paper trays on laser printers and copiers to add this to a macro for bin selection. I believe there may be a macro to find this out but not sure what this is. Have tried choosing File, Page Setup whilst running a macro and whilst this gives me the bin number on the copiers we use, when I put this code in my current macro, it doesn't select correct bin - just picks from the default tray. On our HP laser printers, when I select File, Page Setup, I just get Upper or Lower Tray in the code. I actually do have the numbers for the printers from our consultant who wrote the macro, but as we will probably be getting new models, I would like to know where/how to get the actual bin numbers. Thanks in advance. Tag: Identifying the button that activated the macro Tag: 80816
  - 16
    - Capture ALL movements...event? Currently I am trying to create my own StatusBar because the Word StatusBar doesn't display when you are using it with Internet Explorer. My question is what event do you use to capture every movement of the cursor(pointer) so I can display the current line, section, column, etc...? I've tried Me.SelectionChange but it only captures some of the movements. It doesn't capture when I hit the Enter button, etc... Any ideas? Thanks for your time! -- Brenda Tag: Identifying the button that activated the macro Tag: 80814
  - 17
    - Headers, Footers inserting text... Hi, I hope this is the correct forum for this question... Is there some trick to programmatically inserting text in the header and/or footer of a Word document? I'm working with Word 2003, and the documents are XML format. I created a schema and a XML data file and a XSL transform file. I pull the XML file into Word with the schema and XSL attached and everything gets formatted and populated correctly except the header and footer. The header and footer have the XML tags but the data that pops them isn't present. I need to be able to pop those header/footer tags programmatically but, they don't get populated even when I open the files manually. Any ideas? TIA! David Tag: Identifying the button that activated the macro Tag: 80813
  - 18
    - is it possible to create sequentialy numbering templets in word? I am creating work order templets and I am wondering if there is any way to generate a numbered identifier that will increase sequentialy as the work orders are generated? Tag: Identifying the button that activated the macro Tag: 80812
  - 19
    - Launch VBA form from toolbay buttom I have made a VBA program & exported it out to a .frm. Is there a way to create a toolbar button to run the .frm which in turn would run the code in the background? Tag: Identifying the button that activated the macro Tag: 80801
  - 20
    - Renaming a toolbar button Is there a way to programatically rename a toolbar button? Can I then access the name of that button as a string in another sub code? thanks, ck Tag: Identifying the button that activated the macro Tag: 80800
  - 21
    - Template Creation When creating a template for another user to fill in the blanks, how do you format and fix template only allowing for the answers to be put in the underlined blanks? Tag: Identifying the button that activated the macro Tag: 80796
  - 22
    - Identify Capital Paragraphs with VBA for word. Hi, How can I identify a paragraph that has all word in captial letters in Microsoft Word. For example: ROAD SAFETY SHOW We had a road safety show and we were walking along the road. Suddenly we started to dance and we got to know that a new ice cream shop has opened up. In the example above, I want to be able to identify "ROAD SAFETY SHOW" and then have the text formatted as shown below. #TITLE#ROAD SAFETY SHOW#/TITLE# We had a road safety show and we were walking along the road. Suddenly we started to dance and we got to know that a new ice cream shop has opened up. Can someone please help me with this? Thanks, Yash Tag: Identifying the button that activated the macro Tag: 80792
  - 23
    - Speed in opening word documents and executing the word application I work in an office with 25 users which were all "refreshed" with new computers and upgraded to Windows XP Professional. All the applications open immediatly with the exception of "Word". It takes around 20 seconds to execute the application and about 45 seconds to open documents no matter how small the size. This is frustrating as the previous version "Windows 2000" was much faster. Most docs opened immediatly. Excell, Access, PowerPoint, in XP, all execute upon a click of the icon so why is Word different. I have called our helpdesk for assistance and believe they cannot figure this out or my request has been buried. Does anyone have a clue as to why this is happening?? Tag: Identifying the button that activated the macro Tag: 80790
  - 24
    - Delete all shading Alright, now... i only ask questions when i really need help... so here goes. I have documents that have all this highlighting to help notify people of issues that may or may not be problematic, so i have this- Sub RemoveHighlights() Dim rngSearch As Word.Range Application.ScreenUpdating = False Set rngSearch = ActiveDocument.Range rngSearch.Find.ClearFormatting rngSearch.Find.Replacement.ClearFormatting With rngSearch.Find .Format = True .highLight = True .Replacement.highLight = False .Execute Replace:=wdReplaceAll End With Application.ScreenUpdating = True End Sub Well, i get a document, and it turns out a programmer has added shading, not highlighting. I've tried all kinds of things to delete shading using a range, and i can't figure it out. I searched through past threads and didn't find anything also. If anyone could help it'd be much appreciated. Thanks guys. Tag: Identifying the button that activated the macro Tag: 80789
  - 25
    - ActiveDocument.Fields.Add - Setting Font Color and Hidden? Is there a way to set the font when adding a new field? Set newfield = ActiveDocument.Fields.Add(Range:=Selection.Range, _ Type:=FieldType, Text:=FieldText, _ PreserveFormatting:=PreserveFormat) Add_Field = newfield.Index Want to set the font to be hidden for this field? Tag: Identifying the button that activated the macro Tag: 80788
- Next
  - 1
    - Disable AutoOpen macro after saving document Hi, I have a macro (below) that puts document information in the header and footers of a document from an external application which works fine until the user saves the document then opens another document from the same program when they subsequently reopen the first documnet it now has the second documents details in it which is what I want to stop! (The information is written to the persons ini file on their C drive) Is there any way to stop the macro from running once the document has been saved? all the documents start with a name ~qw if thats any help. The user can also open the documents from the intranet which doesn't cause the same problem. Sub nofooter() ' With WordBasic .NormalViewHeaderArea Type:=0 End With ' End End Sub ' Sub HeaderLine() ' Selection.HeaderFooter.Shapes.AddLine(93.6, 57.6, 504#, 57.6).Select Selection.ShapeRange.Line.Weight = 2.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(128, 128, 128) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) End Sub Sub footerlines() ' Selection.HeaderFooter.Shapes.AddLine(93.6, 760#, 504#, 760#). _ Select Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph 'Second line !! Selection.HeaderFooter.Shapes.AddLine(93.6, 780#, 504#, 780#). _ Select Selection.ShapeRange.Line.Weight = 3# Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoTrue Selection.ShapeRange.Line.ForeColor.RGB = RGB(150, 150, 150) Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255) Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionParagraph End Sub Sub AutoOpen() ' Dim MyDate MyDate = Date ' MyDate contains the current system date. With WordBasic maxchar = 64 ' modification D B 02/09/04 if document comes from IE then load different INI file generated If Left(Application.ActiveDocument.Name, 10) = "IEDownLoad" Then Dim strIniName As String strIniName = Left(Application.ActiveDocument.Name, 60) & ".ini" Title$ = .[getPrivateProfileString$]("Document", "QWTitle", "\\Appsrv2\QWBINI_Files\" & strIniName) Ref$ = .[getPrivateProfileString$]("Document", "QWref", "\\Appsrv2\QWBINI_Files\" & strIniName) Rev$ = .[getPrivateProfileString$]("Document", "QWRev", "\\Appsrv2\QWBINI_Files\" & strIniName) Stat$ = .[getPrivateProfileString$]("Document", "QWStat", "\\Appsrv2\QWBINI_Files\" & strIniName) IDate$ = .[getPrivateProfileString$]("Document", "QWIssue", "\\Appsrv2\QWBINI_Files\" & strIniName) Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE", "\\Appsrv2\QWBINI_Files\" & strIniName) Else Title$ = .[getPrivateProfileString$]("Document", "QWTitle", "qwcs.ini") Ref$ = .[getPrivateProfileString$]("Document", "QWref", "qwcs.ini") Rev$ = .[getPrivateProfileString$]("Document", "QWRev", "qwcs.ini") Stat$ = .[getPrivateProfileString$]("Document", "QWStat", "qwcs.ini") IDate$ = .[getPrivateProfileString$]("Document", "QWIssue", "qwcs.ini") Typ$ = .[getPrivateProfileString$]("Document", "QWTYPE", "qwcs.ini") End If ' ' Get next issue date from RC ini file NIDate$ = .[getPrivateProfileString$]("Document", "Nissue", "\\appsrv1\qwb_pro\master\RC.ini") ' End With ' check for short or long date format Dim Findspace Findspace = Mid(IDate$, 9, 1) If Findspace = " " Then IDate$ = Left(IDate$, 8) Else IDate$ = Left(IDate$, 10) ' ' Check to see if document status is ISSUED Dim Issuestatus Issuestatus = Mid(Stat$, 1, 6) If Issuestatus <> "ISSUED" Then IDate$ = "" ' With WordBasic With ActiveDocument.PageSetup ' .FooterDistance = 35 End With header: .StartOfDocument .NormalViewHeaderArea Type:=0 .EditSelectAll .WW6_EditClear .Font "Arial" .FormatFont Points:=14, Bold:=1, Italic:=0, Color:=0 .Insert " " + Title$ Call HeaderLine '.StartOfDocument ' footer: '.StartOfDocument .NormalViewHeaderArea Type:=0 .Font "Arial" .NormalViewHeaderArea Type:=1 .EditSelectAll .WW6_EditClear .Font "Arial" .FormatFont Points:=8, Bold:=0, Italic:=1, Color:=0 .InsertPara ' 'Can't use word basic for this End With Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' ' check to see if the document is a form, and if it is then exit ! ' 'If Typ$ = "Form (F)" Then Call nofooter Else With WordBasic .Insert "Document administered by WPro. Uncontrolled copies valid until the next document issue on " + NIDate$ .InsertPara .InsertPara '.CharRight 100 .Font "Arial" .FormatFont Points:=8, Bold:=1, Italic:=0, Color:=0 .Insert "HFL " + Ref$ .Insert Chr(9) + "Revision " + Rev$ .Insert Chr(9) + "Page Number " .InsertField Field:="page \*arabic" .Insert " of " .InsertField Field:="numpages" .CharRight 10 .InsertPara .Insert "Status: " + Stat$ + " (" + IDate$ + ")" .Insert Chr(9) + "Issuing Authority: System Administrator" .Insert Chr(9) + "Date Printed " Selection.InsertDateTime Call footerlines .NormalViewHeaderArea Type:=0 End With End Sub Tag: Identifying the button that activated the macro Tag: 80770
  - 2
    - Macros error when launching an MS word Macros Document " microsoft visual basic sub or function not defined " Tag: Identifying the button that activated the macro Tag: 80769
  - 3
    - About Sequentially numbered documents? Hi I didn't know anything about macros and VBA for nowadays but I want to make my documents numbered sequentially and I looked at some related sites ( such as http://word.mvps.org/FAQs/MacrosVBA/NumberDocs.htm ). Also I read 70 pages about my subject at this site :) I changed the code as the following for me: Sub AutoNew() Order = System.PrivateProfileString("\\server\Counter.Txt", _ "MacroSettings", "Order") If Order = "" Then Order = 1 Else Order = Order + 1 End If System.PrivateProfileString("\\server\Counter.txt", "MacroSettings", _ "Order") = Order ActiveDocument.Bookmarks("Order").Range.InsertBefore Format(Order, "00#") ActiveDocument.SaveAs FileName:="\\server\DocumentName Ref-06-" & Format(Order, "00#") End Sub As you can see In my document I have a Ref-06-XXX part and everytime I opened the template document it adds one to Ref like â??Ref-06-001â??, â??Ref-06-002â??, â??Ref-06-003â??... and also it creates the document at â??\\server\â?? like â??DocumentName Ref-06-001â??, â??DocumentName Ref-06-002â??, â??DocumentName Ref-06-003â??... But the problem is it saves the document after it opens the new numbered document so if i made a mistake to open a new document i should delete the last document that was created and also change the order number in the â??Counter.txtâ?? to -1. I hope I had explained my problem well :) So I think about the problem and have some answers like; * Macro shouldn't save the document at the beginning (after the creation of the new document). It would save the document after I made changes on the document and I think that the document have that Ref number on it. So it should save the document after I made my changes on document (before closing the document). As I said at the beginning I donâ??t know VBA codes so I need help from you. I know that this is too easy for experts. Thanks for your help this very moment :) Tag: Identifying the button that activated the macro Tag: 80764
  - 4
    - Creating macro Good day Could someone please help me with a macro? I would like to paste text unformatted into Word. Thanks -- Ansie Tag: Identifying the button that activated the macro Tag: 80761
  - 5
    - modification to merge field before mail merge In mail merge I need to split one field form datasource into 3 parts (string will be separated by - sign) and put in different places in document. I can't modify datasource, so I need to do this in word, probably using macros? Tag: Identifying the button that activated the macro Tag: 80758
  - 6
    - Macro - not visible I have a document with a macro attached which if I open on my machine I can see and run however if I open the same document on another machine with same level of macro security can't see the macro. Any ideas why ? Tag: Identifying the button that activated the macro Tag: 80756
  - 7
    - Quick & clean way to select all following chars until colorchange? Hi, I'm trying to select all characters which have the same color as a certain character without any gaps example: bbbbbbbbbbbbbbbbbbbbbb<cursor is here>ggggggggggggggggggggggggggggggggggggggggbbbbbbbggggggggggg From the position of the cursor I would like to select all the green (g) charcters untill a blue (b) appears, so I don't want the second range of g's for now. at the moment I solve this by looping over the content and check the color of each char. On a colorchange I'll select the chars of the old color. This is pretty slow though and it seems primitive. There has to be a better way.... Thanks in advance, rVo Tag: Identifying the button that activated the macro Tag: 80754
  - 8
    - How do I print only one page in a document on MS Office Word 2003 I have a word document of 31 pages. I want to print only one of these pages (not the whole thing). When I select 'print', it just stars printing the whole document. It doesn't offer me the selection of what page to print, like I have in other applications. Is there anyway to do this, (just tell the printer to print only 1 specific page)???? Tag: Identifying the button that activated the macro Tag: 80746
  - 9
    - Shortcut This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C62D02.8E3C0340 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I posted the following in the DocManagement group to format words like = Smith as S-M-I-T-H. Sub myFormat() Dim oRng As Range Dim oChr As Word.Range Set oRng =3D Selection.Range oRng.Text =3D UCase(oRng.Text) oRng.MoveEndUntil Cset:=3D"ABCDEFGHIJKLMNOPQRSTUVWXYZ", _ Count:=3DwdBackward Set oChr =3D oRng.Characters.First Do oChr.InsertAfter "-" Set oChr =3D oChr.Next Loop Until oChr =3D oRng.Characters.Last End Sub I thought that I could use Cset:=3D"[A-Z]" but it didn't work. I suppose that there is nothign wrong with = "ABCD..." but was curious to know if there is a better way. Thanks --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0008_01C62D02.8E3C0340 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2900.2802" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#f8f2d6> <DIV>I posted the following in the DocManagement group to format words = like=20 Smith  as S-M-I-T-H.</DIV> <DIV> </DIV> <DIV>Sub myFormat()<BR>Dim oRng As Range<BR>Dim oChr As = Word.Range<BR>Set oRng =3D=20 Selection.Range<BR>oRng.Text =3D UCase(oRng.Text)<BR>oRng.MoveEndUntil=20 Cset:=3D"ABCDEFGHIJKLMNOPQRSTUVWXYZ", _<BR>    =20 Count:=3DwdBackward<BR>Set oChr =3D = oRng.Characters.First<BR>Do<BR>oChr.InsertAfter=20 "-"<BR>Set oChr =3D oChr.Next<BR>Loop Until oChr =3D = oRng.Characters.Last<BR>End=20 Sub</DIV> <DIV> </DIV> <DIV>I thought that I could use Cset:=3D"[A-Z]"</DIV> <DIV>but it didn't work.  I suppose that there is nothign wrong = with=20 "ABCD..." but was  curious to know if there is a better way.</DIV> <DIV> </DIV> <DIV>Thanks<BR>-- <BR>Greg Maxey/Word MVP<BR>See:<BR><A=20 href=3D"http://gregmaxey.mvps.org/word_tips.htm">http://gregmaxey.mvps.or= g/word_tips.htm</A><BR>For=20 some helpful tips using Word.<BR></DIV></BODY></HTML> ------=_NextPart_000_0008_01C62D02.8E3C0340-- Tag: Identifying the button that activated the macro Tag: 80742
  - 10
    - how to compile C++ code with input file using API I'm trying to compile a C++ file with the Microsoft C/C++ compiler in VBA. Thru the use of API (CreateProcess) I was able to compile the C++ file. However, as I tried to include input file, it doesn't work. The result is simply the compilation without an input file. Any help is appreciated. Thanks!! In main: ======== Call compileAndWriteOutput("cl " & "inputfile.txt" & " " & "program.cpp", outputFileName) VBA code ======== Option Explicit ' Contants Private Const STARTF_USESHOWWINDOW As Long = &H1 Private Const STARTF_USESTDHANDLES As Long = &H100 Private Const SW_HIDE As Integer = 0 ' Types Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type ' Declares Private Declare Function CreatePipe Lib "kernel32" (phReadPipe As Long, _ phWritePipe As Long, _ lpPipeAttributes As Any, _ ByVal nSize As Long) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _ lpBuffer As Any, _ ByVal nNumberOfBytesToRead As Long, _ lpNumberOfBytesRead As Long, _ lpOverlapped As Any) As Long Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, _ ByVal lpCommandLine As String, _ lpProcessAttributes As Any, _ lpThreadAttributes As Any, _ ByVal bInheritHandles As Long, _ ByVal dwCreationFlags As Long, _ lpEnvironment As Any, _ ByVal lpCurrentDriectory As String, _ lpStartupInfo As STARTUPINFO, _ lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 'Delete file using deleteFile API Private Declare Function DeleteFile Lib "kernel32.dll" Alias "DeleteFileA" (ByVal lpFileName As String) As Long ' Declaration '--------------------------------------------------- ' Call this sub to compile and write output thru a console app. Public Sub compileAndWriteOutput(ByVal sCommandLine As String, _ ByVal outputFile As String, _ Optional ByVal sStartInFolder As String = vbNullString) Const BUFSIZE As Long = 1024 * 10 Dim hPipeRead As Long Dim hPipeWrite As Long Dim sa As SECURITY_ATTRIBUTES Dim si As STARTUPINFO Dim pi As PROCESS_INFORMATION Dim baOutput(BUFSIZE) As Byte Dim sOutput As String Dim lBytesRead As Long Dim waitError As Long Dim aFile As Integer With sa .nLength = Len(sa) .bInheritHandle = 1 ' get inheritable pipe handles End With 'SA If CreatePipe(hPipeRead, hPipeWrite, sa, 0) = 0 Then Exit Sub End If With si .cb = Len(si) .dwFlags = STARTF_USESHOWWINDOW Or STARTF_USESTDHANDLES .wShowWindow = SW_HIDE ' hide the window .hStdOutput = hPipeWrite .hStdError = hPipeWrite End With 'SI If CreateProcess(vbNullString, sCommandLine, ByVal 0&, ByVal 0&, 1, 0&, ByVal 0&, sStartInFolder, si, pi) Then Call CloseHandle(hPipeWrite) Call CloseHandle(pi.hThread) hPipeWrite = 0 aFile = FreeFile Open outputFile For Output As #aFile Do DoEvents If ReadFile(hPipeRead, baOutput(0), BUFSIZE, lBytesRead, ByVal 0&) = 0 Then Exit Do End If sOutput = Strings.Left$(StrConv(baOutput(), vbUnicode), lBytesRead) Print #aFile, sOutput Loop Call CloseHandle(pi.hProcess) Close #aFile End If ' To make sure... Call CloseHandle(hPipeRead) Call CloseHandle(hPipeWrite) End Sub Tag: Identifying the button that activated the macro Tag: 80739
  - 11
    - mass conversion to PDF To convert multiple office files to multiple pdf files one has to 1. Set PDF as a default printer 2. Disable all PDF prompts for confirming file names, etc. This can be done under Acrobat settings or under PDF printer properties 3. Create a new folder named *my Documents* in ...Adobe/Acrobat/Distllr folder 4. Select files to be converted, e.g. in Windows Explorer, right click and click Print. Many thanks to Jezebel for helping with sorting this thing out. You saved me hours of boring work. The newly created PDF files are placed in the above mentioned my Document folder retaining their original name. Strangely, this folder is not created at the Acrobat installation, but without it, conversion to PDF via print command returns an error. -- JanAdam Tag: Identifying the button that activated the macro Tag: 80733
  - 12
    - disable macro on save Is it possible to delete or disable a macro when a document has been saved? Tag: Identifying the button that activated the macro Tag: 80716
  - 13
    - Stuffing text from Word into a VT100 terminal emulator Here's a challenge for you. I need to get some complex text into a legacy database running in a VT100 terminal emulator (please don't laugh). So I am generating the text in Word 97 using dropdown form fields, with VBA running in the background to conditionally alter other fields. Once done, I have a button that copies the text to the clipboard. The user switches to the VT100 terminal emulator and pastes the text in. There are two remaining things that I would like to do. 1) Preserve the bold and underline from the Word text. In the database, bold is switched on and off with key strokes <crtl-6><b> and underline with <ctrl-6><u>. 2) Also put data into other fields in the database. I could due this with a macro in the terminal emulator but I want the data vary depending on the contents of the Word file. So when I switch to the database, I am thinking that I need to be able to stuff the keyboard with a sequence of keystrokes. I realise that the solution may depend on the specifics of the VT100 terminal emulator that I am using. The terminal emulator runs macros which are held in files. One possibility is to have VBA write the macro to a file, switch to the terminal emulator and then run the macro that Word has just produced. -- Paul Bishop Tag: Identifying the button that activated the macro Tag: 80714
  - 14
    - Can a merge to print macro be created/used on a protected .dot? Created a fax template with a mail merge. Would like a macro toolbar button that can be used to "merge to printer" while the template/document is still protected. Is this possible? Tag: Identifying the button that activated the macro Tag: 80712
  - 15
    - temporary font install I am creating templates for use on our intranet using Word and Excel 2000 on Win 2000. I need a template to temporarily install a Type 1 font from our fileserver for use while the document is open; I cannot have users install fonts manually and I don't have a TrueType version. After much Googling, the following is what I have come up with. It throws no errors, but it always returns 0 (meaning no font installed) and the font list in Word never shows the font. Any suggestions or alternatives would be greatly appreciated. Thanks, Bruce '---------- Private Declare Function AddFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Private Declare Function RemoveFontResource Lib "gdi32" Alias "AddFontResourceA" (ByVal lpFileName As String) As Long Const FONTFILE = "\\server\share\folder\fontname.PFB|\\server\share\folder\fontname.PFM" Dim tmp As Long Private Sub Document_Close() tmp = RemoveFontResource(FONTFILE) MsgBox tmp End Sub Private Sub Document_New() MsgBox FONTFILE tmp = AddFontResource(FONTFILE) MsgBox tmp End Sub Private Sub Document_Open() tmp = AddFontResource(FONTFILE) MsgBox tmp End Sub Tag: Identifying the button that activated the macro Tag: 80699
  - 16
    - Word Form submit function I have created a form in Word 2003 for publishing on my website. The idea is that me or my colleagues fill this form in hit the submit button and then it e-mails the form and its contents to an e-mail address. I have uploaded it to my server and tested it but when I hit the submit button my outlook editor opens and nothing else happens. I want the form to be e-mailed stright to my colleagues inbox. Can someone assist me with this or should I go out and purchase some specialist software Thankyou in anticipation Tag: Identifying the button that activated the macro Tag: 80697
  - 17
    - Creating a visible field with a hidden component? I need to create a field that will be inserted via VBA code. This will be made up of nested fields. The outer field will use a Quote field with a visible text element that will show in the document. Along with this is a nested field which contains tags that I will parse for with another macro. The issue is I need to make the second nested field not visible and also easily parsable in code. I'm thinking of storing a delimited string in this field to contain the various elements need later. The only way I can think to do this is using the SEQ field with the \h. Is this the only/best approach? Here is what I want or similar: { QUOTE (CAUKEO) { SEQ AA-BB-CCCC \h } } So later on I want to parse out the SEQ field associated with the QUOTE and based on what it contains (i.e. does it include AA then..) do something in the macro. Any thoughts or insight on this approach? Tag: Identifying the button that activated the macro Tag: 80695
  - 18
    - Insert document body, but not header I am trying to insert a word document with this code: Selection.InsertFile FileName:=myfile, Link:=False It works fine with most documents, but when myfile have a section and uses header/footer the header from myfile overwrites my origin header. I only want the main body of myfile and not the header. I use Word 2003. Tag: Identifying the button that activated the macro Tag: 80692
  - 19
    - MS Office password, username I am trying to access WebDAV resources using MS Office client. It generally works however there is one problem. When I open the document I am prompted to enter user name and password. I open document using script and I already have credentials inside the script so I wonder if this is possible to pass the credentials to the Word, Excel, PowerPoint object somehow so I would not be promted again? Here is the code: if (url.indexOf(".doc")>-1 ||url.indexOf(".rtf")>-1||url.indexOf(".txt")>-1) //check if pdf document { var objWord = new ActiveXObject ("Word.Application"); //if not open in word formatter objWord.visible = true; objWord.Documents.Open("http://ntotlldev/livelinkedav/"+url); window.setTimeout('window.close()',5000); // alert("here") } else { document.location.href="http://something/WebDav/"+url; //otherwise open through the browser if (url.indexOf(".pdf")>-1) { window.resizeTo(screen.width,screen.height); } else window.setTimeout('window.close()',5000); }*/ Thanks Michael Tag: Identifying the button that activated the macro Tag: 80689
  - 20
    - Status Bar not showing in IE with Word Please follow this link to my question: http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=239128&SiteID=1 Any help would be great! Thanks! -- Brenda Tag: Identifying the button that activated the macro Tag: 80684
  - 21
    - Update Macro for Spell Check: Clarification Thanks to Graham for responding to my message previously. I tried your suggestion Graham and I am still having some problems with the code. I am not sure why, but now it not only does not update...it clears out the form field data as well. So adding the new code seemed to negate the wd protection code that maintains the filled in data. I am including the code....if you can help. Sub FormsSpellCheck() ' If document is protected, Unprotect it. If ActiveDocument.ProtectionType <> wdNoProtection Then ActiveDocument.Unprotect Password:="not2day" End If ' Set the language for the document. Selection.WholeStory Selection.LanguageID = wdEnglishUS ' Perform Spelling/Grammar check. If Options.CheckGrammarWithSpelling = True Then ActiveDocument.CheckGrammar Else ActiveDocument.CheckSpelling End If Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges oStory.Fields.Update If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Fields.Update Wend End If Next oStory Set oStory = Nothing ' ReProtect the document. If ActiveDocument.ProtectionType = wdNoProtection Then ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True End If End Sub Tag: Identifying the button that activated the macro Tag: 80683
  - 22
    - Inserting text at a specific point via VBA? I am currently doing the following to insert text at a specific point and it works fine but I'd rather just code the text directly rather than reference an autotext entry. How can I do this in a similar fashion to below? Only autotext seems to have the insert method. Set a = ActiveDocument.AttachedTemplate.AutoTextEntries("ORCON") a.Insert Where:=Selection.Range, RichText:=True Tag: Identifying the button that activated the macro Tag: 80666
  - 23
    - How to lock styles, remove protection, then protect doc in 2003? I'm trying to lock styles only, when the doc opens (user will be able to edit doc). Before saving, i want to remove the password protect, set all section protectionforforms to true, then reprotect doc as well as lock styles. When I try to set the protectionforforms, I get an error "Command not available because document is password-protected". I ran the below macros in the order from top to bottom for demo purposes and got the error. I have a work around (before I set the protectionforforms, I protect the document with Type:=wdAllowOnlyFormFields, unprotect it, set the protectionforforms, then reprotect.) It sounds kind of silly, so I'm asking if there's a better way. Public Sub Lock_Styles_Only() ActiveDocument.Protect Type:=wdNoProtection, _ noreset:=False, Password:="pass", enforcestylelock:=True End Sub Public Sub Remove_Protection() ActiveDocument.unprotect ("pass") End Sub Public Sub Protect_Doc_and_Lock_Styles() Dim sec As Section For Each sec In ActiveDocument.Sections sec.ProtectedForForms = True 'error occurs here Next sec ActiveDocument.Protect Type:=wdAllowOnlyFormFields, _ noreset:=False, Password:="lawp", enforcestylelock:=True End Sub Tag: Identifying the button that activated the macro Tag: 80665
  - 24
    - create/chaning forms and objects from code Is that possible? If I want to create text boxes on the fly for instance? /e Tag: Identifying the button that activated the macro Tag: 80663
  - 25
    - Code in Excel macro to get all open Word docs? What would I use in Excel 2000 VBA to get all the currently open Word docs? Or, even better, break out of the code to allow the user to choose his doc and select a specific position in the doc? I have a Word macro that takes a selection copied from Excel and pastes it into my Word report with certain formatting. Some of my coworkers could make use of this macro as well, but it would be easier to put the macro in an Excel workbook I already distribute with macros than to get them to add it into Word. To make it work , though, they would have to be able to get it into the right Word doc from Excel - much different than having the doc open and pulling it off the clipboard. Any help is appreciated. Ed Tag: Identifying the button that activated the macro Tag: 80660

Is there a way tell tell what the .ID of the button was that started a macro?
I have several toolbar buttons running the same code, doing slightly
different things determined by their .ID

Top

Re: Identifying the button that activated the macro by Helmut

Helmut
Fri Feb 10 08:43:38 CST 2006

Hi Charlie,

I think that this is the question for:
"What code is being executed right now?"

I don't know of a way except
declaring in each macro a string with the name of that macro.

Then you can check, which button has
an onaction-property that equals the name of the macro.
Where the name, it seems, must include the module.

By the way, you can execute different code
for the same button by using the API-function "shiftstate".
So that "shift-button" would do something different
from "control-button" etc...

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

Top

Re: Identifying the button that activated the macro by Tony

Tony
Sat Feb 11 10:05:16 CST 2006

CommandBars.ActionControl

will give you a reference to the toolbar button, if that is how your nacro
was invoked. You can pick up it's ID or any other property from there,

--
Enjoy,
Tony

"Charlie" <Charlie@discussions.microsoft.com> wrote in message
news:A73320AA-D435-4EC7-BA7D-D8ACBC2177BF@microsoft.com...
> Is there a way tell tell what the .ID of the button was that started a
macro?
> I have several toolbar buttons running the same code, doing slightly
> different things determined by their .ID

Top