Renaming a toolbar button

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - 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: Renaming a toolbar button Tag: 80796
  - 2
    - 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: Renaming a toolbar button Tag: 80792
  - 3
    - 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: Renaming a toolbar button Tag: 80790
  - 4
    - 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: Renaming a toolbar button Tag: 80789
  - 5
    - 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: Renaming a toolbar button Tag: 80788
  - 6
    - 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: Renaming a toolbar button Tag: 80770
  - 7
    - Macros error when launching an MS word Macros Document " microsoft visual basic sub or function not defined " Tag: Renaming a toolbar button Tag: 80769
  - 8
    - 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: Renaming a toolbar button Tag: 80764
  - 9
    - Creating macro Good day Could someone please help me with a macro? I would like to paste text unformatted into Word. Thanks -- Ansie Tag: Renaming a toolbar button Tag: 80761
  - 10
    - 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: Renaming a toolbar button Tag: 80758
  - 11
    - 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: Renaming a toolbar button Tag: 80756
  - 12
    - 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: Renaming a toolbar button Tag: 80754
  - 13
    - 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: Renaming a toolbar button Tag: 80746
  - 14
    - 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: Renaming a toolbar button Tag: 80742
  - 15
    - 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: Renaming a toolbar button Tag: 80739
  - 16
    - 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: Renaming a toolbar button Tag: 80733
  - 17
    - disable macro on save Is it possible to delete or disable a macro when a document has been saved? Tag: Renaming a toolbar button Tag: 80716
  - 18
    - 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: Renaming a toolbar button Tag: 80714
  - 19
    - 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: Renaming a toolbar button Tag: 80712
  - 20
    - 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: Renaming a toolbar button Tag: 80699
  - 21
    - 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: Renaming a toolbar button Tag: 80697
  - 22
    - 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: Renaming a toolbar button Tag: 80695
  - 23
    - 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: Renaming a toolbar button Tag: 80692
  - 24
    - 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: Renaming a toolbar button Tag: 80689
  - 25
    - 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: Renaming a toolbar button Tag: 80684
- Next
  - 1
    - 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: Renaming a toolbar button Tag: 80683
  - 2
    - 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: Renaming a toolbar button Tag: 80666
  - 3
    - 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: Renaming a toolbar button Tag: 80665
  - 4
    - create/chaning forms and objects from code Is that possible? If I want to create text boxes on the fly for instance? /e Tag: Renaming a toolbar button Tag: 80663
  - 5
    - 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: Renaming a toolbar button Tag: 80660
  - 6
    - multiple .doc files conversion to multiple pdf I need to create many PDF files from many Word and Power Point documents. I have Acrobat 6.0, Office 2003 pro installed under W2K pro (can have Adobe CS with the newest Acrobat). In Acrobat 6, there is an option of converting many files into a single PDF. But I need to convert them one to one. I thus think I have to do it via vba code, but run into problems. Following hints from this group I can loop through all the files I need to convert via: For Each filFile In fdrFolder.Files strFileName = fso.GetFileName(filFile) â??code to convert strFileName to PDF Next filFile I am not sure what should be the command to do the conversion. When recorded a macro to see how it is done, I see that it does not use the file name at all, but this is a single file conversion from an active word document. Also, the Acrobat is asking for accepting to save the new file as whatever, which I would like to automate as well. I have over two hundred files to convert. I would like to do it like filename1.doc -> filename1.pdf and so on. If the PDF files could go to a different folder than the source folder it would be nice, but this is can easily be done manually or via a macro that I think I can write. Your help will again be much appreciated. -- JanAdam Tag: Renaming a toolbar button Tag: 80644
  - 7
    - send document on screen via email Does any one know how to send the document on the screen via email? I don't want to send it as an attachment - I want to send it as text inside the email itself, but I need to maintain font changes (colors, etc.) I have been using Redemption to send emails, but I am limited to attachments or text only emails without formatting. I thought I'd try directly from Word itself. Thank you! Tag: Renaming a toolbar button Tag: 80632
  - 8
    - Attached Template reference removed on close File Server - Windows 2000 Terminal Desktops - Windows XP Software - Office XP In our environment we have precedents stored on the network and templates stored on user's PC. Recently all precedents with a particular template attached have lost the template after the generated precedent is closed (no difference if precedent saved to network or locally). Example - User runs "Letter to Joe.doc". Attached template = "Letter.dot" Users saves letter as 8FebLtr.doc. Attached template = "Letter.dot" User closes doc and later re-opens. Attached template = "Letter to Joe.doc" The template has customised toolbars, etc that are needed. If anyone can help me discover why this is happening I would be very grateful. Tag: Renaming a toolbar button Tag: 80627
  - 9
    - how to disable command buttons like word does? I have noticed that if I open 2 word documents so that I can see them both at the same time and select some text in just one of them, that the COPY commandbutton is enabled on the document with the selection, but not on the one without. I want to replicate this, but when I try with a custom commandbutton, the buttons on both documents are either enabled or disabled. how can i get the same behaviour as words built in buttons? how can I get it to display both states? Thanks in advance. Jason. Tag: Renaming a toolbar button Tag: 80624
  - 10
    - add a dissable auto formating/correcting that actually works first the option doesn't stop the auto-correcting i disabled every option on the tab and clicked ok and it still auto-corrected, i disabled the auto-correct spelling, formating and everything else that said "auto-correct" no results, second you hide the option so that only advanced users can disable anything. what ever happened to wysiwyg? ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=6c747646-a71a-4336-9ab4-9e5b401a231a&dg=microsoft.public.word.vba.general Tag: Renaming a toolbar button Tag: 80623
  - 11
    - DownAndAccrossTableSorter This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C62C16.5D12E5A0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I scrathed together the following today in response to a post in the = tables group. I searched Google groups for a similiar solution and = since I didn't see anything, I wanted to share it here. As alwasy = constructive criticism is welcomed. Objective is to sort a word table down and accross. Put cursor is table = to be sorted and run the following. Option Explicit Sub DownAndAccrossTableSorter() Dim i As Long Dim j As Long Dim k As Long Dim oCell As Cell Dim oTmpTable As Table Dim oRng As Word.Range i =3D Selection.Tables(1).Range.Cells.Count 'Insert a temporary 1 column/multi-row table at the end of the document With ActiveDocument.Paragraphs.Last .Range.Paragraphs.Add .Range.Tables.Add .Range, i, 1 End With 'Define this table Set oTmpTable =3D = ActiveDocument.Tables(ActiveDocument.Range.Tables.Count) 'Fill oTmpTable with contents of table to be sorted For Each oCell In Selection.Tables(1).Range.Cells With oTmpTable .Cell(i, 1).Range.Text =3D Left(oCell.Range.Text, = Len(oCell.Range.Text) - 2) End With i =3D i - 1 Next 'Sort oTmpTable.Sort 'Redefine selected table contents based on sort With Selection.Tables(1) For i =3D 1 To .Range.Columns.Count For j =3D 1 To .Range.Rows.Count k =3D k + 1 Set oRng =3D oTmpTable.Cell(k, 1).Range .Cell(j, i).Range.Text =3D Left(oRng.Text, Len(oRng.Text) - 2) Next j Next i End With 'Clean up. oTmpTable.Delete Set oRng =3D Nothing Set oTmpTable =3D Nothing End Sub --=20 Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. ------=_NextPart_000_0008_01C62C16.5D12E5A0 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 scrathed together the following today in response to a post in = the tables=20 group.  I searched Google groups for a similiar solution and = since I=20 didn't see anything, I  wanted to share it here.  As alwasy=20 constructive criticism is welcomed.</DIV> <DIV> </DIV> <DIV>Objective is to sort a word table down and accross.  Put = cursor is=20 table to be sorted and run the following.</DIV> <DIV> </DIV> <DIV>Option Explicit<BR>Sub DownAndAccrossTableSorter()<BR>Dim i As = Long<BR>Dim=20 j As Long<BR>Dim k As Long<BR>Dim oCell As Cell<BR>Dim oTmpTable As = Table<BR>Dim=20 oRng As Word.Range<BR>i =3D = Selection.Tables(1).Range.Cells.Count<BR>'Insert a=20 temporary 1 column/multi-row table at the end of the document<BR>With=20 ActiveDocument.Paragraphs.Last<BR>  .Range.Paragraphs.Add<BR>  = .Range.Tables.Add .Range, i, 1<BR>End With<BR>'Define this table<BR>Set=20 oTmpTable =3D = ActiveDocument.Tables(ActiveDocument.Range.Tables.Count)<BR>'Fill=20 oTmpTable with contents of table to be sorted<BR>For Each oCell In=20 Selection.Tables(1).Range.Cells<BR>  With = oTmpTable<BR>   =20 .Cell(i, 1).Range.Text =3D Left(oCell.Range.Text, Len(oCell.Range.Text) = -=20 2)<BR>  End With<BR>  i =3D i -=20 1<BR>Next<BR>'Sort<BR>oTmpTable.Sort<BR>'Redefine selected table = contents based=20 on sort<BR>With Selection.Tables(1)<BR>  For i =3D 1 To=20 .Range.Columns.Count<BR>    For j =3D 1 To=20 .Range.Rows.Count<BR>       k =3D k +=20 1<BR>       Set oRng =3D oTmpTable.Cell(k, = 1).Range<BR>      .Cell(j, i).Range.Text =3D=20 Left(oRng.Text, Len(oRng.Text) - 2)<BR>    Next = j<BR>  Next=20 i<BR>End With<BR>'Clean up.<BR>oTmpTable.Delete<BR>Set oRng =3D = Nothing<BR>Set=20 oTmpTable =3D Nothing<BR>End Sub</DIV> <DIV><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_01C62C16.5D12E5A0-- Tag: Renaming a toolbar button Tag: 80622
  - 12
    - how to insert a non-standard Field -ie. day before today Is there a formula/code in order to insert a Field that will automatically input the Full Month Before the current Date's Month (the date you're working on the doc)? Any ideas? For example, this is for a Monthly Report - I want to be able to put the field in the Heading/title to be the Monthly Report for the Month PRIOR to when I'm filling the report out. Tag: Renaming a toolbar button Tag: 80614
  - 13
    - How do I save the click event for web browser I have saved a document which includes hyperlinks on command buttons as html. when I open them in browser the click event does not open the hyperlinked page. Instead I have to click and then hit ENTER. Tag: Renaming a toolbar button Tag: 80608
  - 14
    - Place value into Header I have created a Word document from an Access database and now I wish to place in the Word Header the date that the database was last updated (that information is part of the database). I was hoping use the document object I created (m_docReport) and use one of its properties, such as: m_docReport.header.value="2/7/2006". But that's not an option. My question is how do I get this value into the header of the document I've created? Tag: Renaming a toolbar button Tag: 80602
  - 15
    - HELP ?????? . How do I go from paypal after payment to my thank you and download page. I do not know how to link this. Is hyperlink the answer Thanks Tag: Renaming a toolbar button Tag: 80600
  - 16
    - VB appl crashes on opening word doc Hi All, I have a VB application which opens a word file to search for some text strings. At home there is no problem but when I try this code at work on a win2000 machine with office 2000 installed it crashed somewhere at this line: Do Until sFile = "" sFileoud = sFile Tekst1.Text = sFileoud Tekst3.Text = "" Me.Refresh lCounter = lCounter + 1 Set olWordDocs = olApplication.Documents.Open(FileName:=oDisk + sFile, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _ PasswordDocument:="", PasswordTemplate:="", Revert:=False, _ WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _ wdOpenFormatAuto) If olApplication.ActiveDocument.ProtectionType <> wdNoProtection Then olApplication.ActiveDocument.Unprotect End If olApplication.Selection.Find.ClearFormatting With olApplication.Selection.Find .Text = "MSGID" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With olApplication.Selection.Find.Execute olApplication.Selection.MoveRight Unit:=wdCharacter, Count:=3 olApplication.Selection.EndKey Unit:=wdLine, Extend:=wdExtend sRefnr = "" sRefnr = olApplication.Selection Does anyone know what is wrong here? Regards Marco Tag: Renaming a toolbar button Tag: 80599
  - 17
    - How do I set design mode (web tools) as off when a file is opened I have created a doc with dropdown boxes and text boxes and everytime I open the file it starts in web desin mode. How do I set design mode to default as off when the file is opened. Tag: Renaming a toolbar button Tag: 80598
  - 18
    - Hyperlink to the next(or previous) bookmark I know how to add a hyperlink to a bookmark, and I know that I can use Selection.Goto to move to the next or previous bookmark in my document, what I want to do is somehow combine these so that when the user clicks on the hyperlink it will goto the next or previous bookmark. How can I do this? Tag: Renaming a toolbar button Tag: 80586
  - 19
    - replacing xyz with a manual line break (white line) Hi all, In Excel, with vba, is there a way to search and replace all ocurrences of a string, say xyz, in a table cell with a manual line break. Or can this be done without vba? Best regards, Shirley Tag: Renaming a toolbar button Tag: 80584
  - 20
    - I used CTRL + ENTER to divide my table but the header dissappear. Hello. My name is Esther, I work with your program to much. I teach course and I have problem with I have to divide table. I like to use page break, but when I have Header in my table this dissappear. You can help me. Thanks. Prof. Esther Barbosa Tag: Renaming a toolbar button Tag: 80580
  - 21
    - drop down form fields I have a form which contains a number of entries as drop down form fields (to allow users to select from a drop down list) and simple text fields. Data from the Word document then needs to be extracted and loaded into an Excel spreadsheet. I am using Word bookmarks to pass data into a VBA variable and into a function which calls an instance of Excel, opens the appropriate workbook and worksheet and fills out the relevant columns and rows - that bit is not a problem. However, whilst the data from the text form field is passing across quite happily and is available to Excel, the data from the drop down form field arrives as a blank (probably an unprintable) and not the selected item from the dropdown. How can I get the selected item from the list into a variable in order to pass it properly into Excel? There is probably a really simple solution, but it escapes me. Incidentally, I would prefer to keep the drop down box - the contents change and this is a really simple way for a naive user to maintain the lists within the template form. Tag: Renaming a toolbar button Tag: 80576
  - 22
    - How do I assign a task by using smarttags? I am trying to prgram a smart tag in word so that you can easily assign tasks to people mentioned in the doc. Does anyone have an idea how to do this? Tag: Renaming a toolbar button Tag: 80571
  - 23
    - MS Word Process and Templates Hallo, I am using a template with allmost all of my doc's, but now I need to use a standards ms word. The problem is (most of the time) I need to use them both at the same time..! That means 2 process of winword.exe in the same machine! ( I think !). Can u help. Thanks. Tag: Renaming a toolbar button Tag: 80568
  - 24
    - unique commandbar per document? Hi all, I would like to alter a custom commandbar in word depending on values stored in the currently opened document. this bit I can do except that the commandbar always changes for all the currently open documents. does anyone know if its possible? I've been trying with variations on this: (other detail omitted) Application.CustomizationContext = ThisDocument Set myCommandBarButton = ActiveDocument.CommandBars.FindControl_(Type:=msoControlButton, tag:=tag) If Not myCommandBarButton Is Nothing Then myCommandBarButton.Delete Set myCommandBarButton = ActiveDocument.CommandBars("mycommandbar") _.Controls.Add(Type:=msoControlButton) this appeared to work for a while but I suspect it was just word being flakey. I've also tried various attempts with creating/deleting commandbars instead of buttons but to no avail. any thoughts greatfully accepted. thanks in advance. Tag: Renaming a toolbar button Tag: 80565
  - 25
    - HOW CAN I ACCESS OUTLOOK EXPRESS TO PRINT ENVELOPES IN WORD HOW CAN I ACCESS OUTLOOK EXPRESS TO PRINT ENVELOPES IN WORD Tag: Renaming a toolbar button Tag: 80549

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

Top

Re: Renaming a toolbar button by Jonathan

Jonathan
Thu Feb 09 10:56:31 CST 2006

"Charlie" <Charlie@discussions.microsoft.com> wrote in message
news:C101E03D-676A-4F81-9BED-1F3DF10870FA@microsoft.com...
> 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

Each toolbar button is a CommandbarButton object, a member of the
CommandbarControls collection of a CommandBar object. The CommandbarButton
has a range of properties, but Name is not one of them. Maybe you mean the
Caption? If so, yes the Caption property is read/write.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Top

Re: Renaming a toolbar button by Charlie

Charlie
Thu Feb 09 11:20:30 CST 2006

Yes, the caption is what I want to work with. Can someone give me a simple
example of how to change the caption name to MyString. And then how to
excess it for later use? I'm new at this.
thanks so much.
charlie

"Jonathan West" wrote:

>
> "Charlie" <Charlie@discussions.microsoft.com> wrote in message
> news:C101E03D-676A-4F81-9BED-1F3DF10870FA@microsoft.com...
> > 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
>
> Each toolbar button is a CommandbarButton object, a member of the
> CommandbarControls collection of a CommandBar object. The CommandbarButton
> has a range of properties, but Name is not one of them. Maybe you mean the
> Caption? If so, yes the Caption property is read/write.
>
>
> --
> Regards
> Jonathan West - Word MVP
> www.intelligentdocuments.co.uk
> Please reply to the newsgroup
> Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org
>
>

Top

Re: Renaming a toolbar button by Charlie

Charlie
Thu Feb 09 11:20:28 CST 2006

Oh, my toolbar is called Schedule. the button to change has the caption
"Worker".
thanks,
ck

Top