how do I change a word into a macro

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Office 2007: frustrating Digital ID prompt I'm just starting to use Word 2007, and I've created a couple of macros in my normal.dot. Now whenever I try to run them, I get a prompt: "Get a Digital ID" - which asks me to either buy a Digital ID or create one of my own. I don't want to do either, I just want to use my macros. Can someone help me get rid of this dialog? I have created a couple of trusted loctaions, and set up the security setting to "disable macros except when run from a trusted location" - but I still get this dialog even when the file is in a trusted location. Help! Thanks, Darren Tag: how do I change a word into a macro Tag: 108232
 - 2
 - Insert excel as ole object into word doc Hi there, I'm merging word documents into a word doc report using selection.insertfile command. I also want to insert excel files as ole objects nto the word report. How do I go about it? Thanks Garth Tag: how do I change a word into a macro Tag: 108225
 - 3
 - Word 2007 View When I use VBA to access one of the header or footer storyranges from the main storyrange, the view allows switches from PrintView to Draft. For example if the IP is in the maintext story and I run this code the header text will be selected but the view will shift to Draft.. Sub Test() ActiveDocument.StoryRanges(7).Select End Sub Does anyone know how to prevent this shift in view? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: how do I change a word into a macro Tag: 108222
 - 4
 - Example of Elsif needed to evaluate text variants Dear all, I'm still busy evaluating strings. I want to evaluate these strings: ". " " ." ", " " " & vbCr "." & vbCr vbCr vbTab etcetera, And then define an action for each possibility. I wonder is an Elsif statement is a good way to do this. Maybe I can avoid many (nested) If's that way. Could someone give me an example of such a structure? Best regards Shirley Tag: how do I change a word into a macro Tag: 108218
 - 5
 - How force a document open as Read Only Hi, I have Word 2003 and we are using a document management system (DM5) and I am trying to figure out if there is a way using DDE commands to force Word to open a document as Read Only. At first I was going to try and use command line switches to do this but I now realize that there is no such switch. We currently use the following DDE to open a document in Word: [DDE.DDEOpen(%"1"%)] This works well but I would like to force the document to be read only. Any help would be appreciated (or even point me to a good DDE reference page). Thanks David Neesen Tag: how do I change a word into a macro Tag: 108213
 - 6
 - Force to SaveAS .txt I have a button that prompts the SaveAs dialog box. How can I get the user to be forced to save the file only as .txt Tag: how do I change a word into a macro Tag: 108210
 - 7
 - SendKeys use for Hotkey? I run an application (WinAmp) that allows me to set up hotkeys. I want to write a macro that will send such a key stroke so that it will be sent from Word, interpreted as a hotkey usage and thus intercepted by the hotkey application. (Context: I'm doing transcription of audio files and will use toolbar buttons and voice commands to do things like Play, Pause, etc so that my hands won't have to control audio playback; I can keep typing and simply say "back" to "rewind" as my fingers catch up.) All the overhead works (toolbars, voice commands, etc) but using the SendKeys function doesn't get the job done because it sends the simulated keyboard use directly to Word. It never gets processed as a potential hotkey. The only workaround I've found is finding the hotkey's application, switching it to the foreground and sending the keystroke that way. Although this works for the hotkey, it fails overall because I can't keep typing ("catching up") once Word loses focus. Is there any way to use SendKeys or a similar function so that the simulated keystoke can be intercepted as a hotkey? Tag: how do I change a word into a macro Tag: 108208
 - 8
 - Macro to print to PDF and save using bookmark name I am using Word 97 and would like to write a macro that achieves the following in an active document: 1. Active document is printed in PDF format (usually this involves going to File -> Print -> Adobe PDFwriter) 2. When prompted to put in the filename for the PDF file, the filename is taken from a bookmark (named 'filename') in the active document. I would greatly appreciate any suggestions. Tag: how do I change a word into a macro Tag: 108199
 - 9
 - Moving code from MSWord to MSAccess This is a multi-part message in MIME format. ------=_NextPart_000_0006_01C83365.540730D0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I have a macro in Word that I want to move to my MSAccess app and run = from MSAccess. It merges a form file with a data file to a new screen, = then prints and exits: Application.ScreenUpdating =3D False =20 Documents.Open FileName:=3D"K:\legalper\mergform.doc", = ConfirmConversions:=3D _ False, ReadOnly:=3DFalse, AddToRecentFiles:=3DFalse, = PasswordDocument:=3D"", _ PasswordTemplate:=3D"", Revert:=3DFalse, = WritePasswordDocument:=3D"", _ WritePasswordTemplate:=3D"", Format:=3DwdOpenFormatAuto With ActiveDocument.MailMerge .Destination =3D wdSendToNewDocument .Execute End With ' PRINT AND EXIT Application.PrintOut FileName:=3D"", = Range:=3DwdPrintAllDocument, Item:=3D _ wdPrintDocumentContent, Copies:=3D1, Pages:=3D"", = PageType:=3DwdPrintAllPages, _ ManualDuplexPrint:=3DFalse, Collate:=3DTrue, = Background:=3DFalse, PrintToFile:=3D _ False, PrintZoomColumn:=3D0, PrintZoomRow:=3D0, = PrintZoomPaperWidth:=3D0, _ PrintZoomPaperHeight:=3D0 ActiveDocument.Close SaveChanges:=3DwdDoNotSaveChanges Application.Quit SaveChanges:=3DwdDoNotSaveChanges =20 Thanks to RM, I have successfully revised as follows, but it's jamming = with my Application.PrintOut options in bold below: Public Function Env() Dim wd As Object Dim wdActiveDoc As Object 'RM: Added this to help ensure that you're 'working on the document you intend to. Dim wdField As Object 'RM: Note the change in name here to avoid 'ambiguity with the Field object in both Word = and 'Access. As well, I changed the type, since '(like Word.Application), you have to use late 'binding. =20 Set wd =3D CreateObject("Word.Application") wd.Visible =3D True wd.Application.ScreenUpdating =3D False =20 Set wdActiveDoc =3D wd.Documents.Open("K:\legalper\mergform.doc", = False, False, _ False, "", "", False, "", "", 0) =20 With wdActiveDoc.MailMerge .Destination =3D 0 .Execute End With wd.Windows("mergform.doc").Activate wd.ActiveWindow.Close 0 ' PRINT AND EXIT: PLEASE HELP ME HERE: wd.Application.PrintOut =3D "", 0, 0, 1, "", 0, False, True, = False, _ False, 0, 0, 0, 0 ------=_NextPart_000_0006_01C83365.540730D0 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.6000.16544" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV>I have a macro in Word that I = want to move=20 to my MSAccess app and run from MSAccess. It merges a form file with a = data file=20 to a new screen, then prints and exits:</DIV> <DIV> </DIV> <DIV> <BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px"> <BLOCKQUOTE dir=3Dltr style=3D"MARGIN-RIGHT: 0px"> Application.ScreenUpdating =3D False <?xml:namespace = prefix =3D o ns=20 =3D "urn:schemas-microsoft-com:office:office" /><o:p> </o:p> <FONT=20 size=3D2>   =20 Documents.Open FileName:=3D"K:\legalper\mergform.doc",=20 ConfirmConversions:=3D _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 False, ReadOnly:=3DFalse, AddToRecentFiles:=3DFalse,=20 PasswordDocument:=3D"", _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 PasswordTemplate:=3D"", Revert:=3DFalse, = WritePasswordDocument:=3D"",=20 _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 WritePasswordTemplate:=3D"", = Format:=3DwdOpenFormatAuto <FONT=20 size=3D2>    = With=20 ActiveDocument.MailMerge <FONT=20 size=3D2>      =20 .Destination =3D wdSendToNewDocument <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 .Execute <FONT=20 size=3D2>    = End=20 With   <FONT=20 size=3D2>    = ' PRINT AND=20 EXIT   <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 Application.PrintOut FileName:=3D"", = Range:=3DwdPrintAllDocument, Item:=3D=20 _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 wdPrintDocumentContent, Copies:=3D1, Pages:=3D"",=20 PageType:=3DwdPrintAllPages, _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 ManualDuplexPrint:=3DFalse, Collate:=3DTrue, = Background:=3DFalse,=20 PrintToFile:=3D _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 False, PrintZoomColumn:=3D0, PrintZoomRow:=3D0, = PrintZoomPaperWidth:=3D0,=20 _ <FONT=20 size=3D2><SPAN=20 style=3D"mso-spacerun: = yes">       =20 PrintZoomPaperHeight:=3D0 <FONT=20 size=3D2>   =20 ActiveDocument.Close=20 SaveChanges:=3DwdDoNotSaveChanges <FONT=20 size=3D2>   =20 Application.Quit SaveChanges:=3DwdDoNotSaveChanges<SPAN=20 style=3D"mso-spacerun: yes">   =20 </BLOCKQUOTE></BLOCKQUOTE> <o:p> Thanks to RM, I have successfully revised as = follows, but=20 it's jamming with my Application.PrintOut options in bold=20 below:</o:p> <o:p></o:p>  <o:p>Public Function Env()</o:p> <o:p>    Dim wd As Object     Dim = wdActiveDoc=20 As Object 'RM: Added this to help ensure that=20 you're           &nb= sp;           &nbs= p;      =20 'working on the document you intend to.     Dim = wdField As=20 Object 'RM: Note the change in name here to=20 avoid           &nbs= p;           &nbsp= ;  =20 'ambiguity with the Field object in both Word=20 and            =             &= nbsp; =20 'Access.  As well, I changed the type,=20 since           &nbs= p;           &nbsp= ;  =20 '(like Word.Application), you have to use=20 late           &nbsp= ;            =   =20 'binding.         Set wd =3D=20 CreateObject("Word.Application")     wd.Visible =3D=20 True</o:p> <o:p>    wd.Application.ScreenUpdating =3D=20 False       Set wdActiveDoc =3D=20 wd.Documents.Open("K:\legalper\mergform.doc", False, False,=20 _            &n= bsp;           =20 False, "", "", False, "", "", 0)     =    =20 With wdActiveDoc.MailMerge         = .Destination =3D 0        =20 .Execute     End With    =20 wd.Windows("mergform.doc").Activate     = wd.ActiveWindow.Close=20 0</o:p> <o:p></o:p>  <o:p>    ' PRINT AND EXIT: PLEASE HELP ME=20 HERE:</o:p> <o:p></o:p>  <o:p>       =20 wd.Application.PrintOut =3D "", 0, 0, 1, "", 0, False, True, False,=20 _         False, 0, 0, 0,=20 0</o:p></DIV></BODY></HTML> ------=_NextPart_000_0006_01C83365.540730D0-- Tag: how do I change a word into a macro Tag: 108184
 - 10
 - Question for Greg Masey on Conditional Headers and footers Greg your conditional header/footer great when pages are numbered the same as the pagenumber. But... when you have front matter numbered like i,ii, etc or when you have appendices that use numbers starting again at "1" then in the first case the conditional header does not update and in the later you get, I thing, the highest classification mark on the two page 1's. Any thoughts on how to avoid these issues? Tag: how do I change a word into a macro Tag: 108175
 - 11
 - Mail Merge data Hi, This is my first post on this forum so please excuse me if I am in the wrong group. I need to create a data base that I can print envelopes from. The data was originally typed into the label areas of a multiple label form. There are about 1100 records that I need to get into a list that can be managed. sorted by Zip, printed on envelopes, etc. I have been able to get some of the records to print, but because there are varying numbers of fields, the merge is not successful. I have copied and pasted the records into Excel and the name, street address, and city-state-zip get placed in separate cells in columns. I would like to get the data from Word into Excel and setup so that I can work with it. The list is for a friend, a 70 year old widow, who mails support letters for her missionary son who is living in Europe. Currently she prints on peel and stick labels, and then peels and sticks 1100 labels. Any help will be appreciated. Thanks in advance. Tag: how do I change a word into a macro Tag: 108174
 - 12
 - Nest If Statements in REF Field I am trying to set up multiple conditions for filling in a REF Field but am having trouble getting them all to work. I have two bookmarks: ReferringPhysician and AttentionLine. Depending on which bookmarks have information in them, I want to reference that particular information in the REF fields for the bookmarks. There are three choices: 1. If AttentionLine has information in the bookmark, I want to use that variable in the REF field. 2. If AttentionLine is blank and ReferringPhysician is not blank, I want to use the ReferringPhysician variable in the REF field. 3. If both AttentionLine and ReferringPhysician are blank, I want the REF field to be blank so that it does not generate an Error! message. This is the code I came up with for the IF statement, but obviously there is something wrong with the nesting: { IF { REF AttentionLine } <>"" {REF AttentionLine } { IF { REF AttentionLine } = "" AND { REF ReferringPhysician } <>"" { REF ReferringPhysician } "" } } Basically, this is how I want it to look: Attention: (variable AttentionLine) Referring Physician: (variable ReferringPhysician) Dear {REF AttentionLine} or {REF ReferringPhysician} or blank The "Dear REF" is what I am trying to address here. Hope this is clear and someone can help. Thank you! -- singeredel Tag: how do I change a word into a macro Tag: 108170
 - 13
 - Using Cross-Reference to Replicate Bookmark Text Hi all -- I'm a self-taught VBA newbie learning as I go, so please bear with me. I am currently using a UserForm to fill in Bookmarks in Word 2007. That part is working great. However, the inputted text in "Text1" also needs to reappear in several other locations in the resulting Word document. It is my understanding that if I insert a cross-reference, select Reference Type: Bookmark and Insert Reference To: Bookmark Text, then select the Text1 bookmark under For Which Bookmark:, the previously inputted text should reappear in the cross-referenced location in the document. Do I also need to include specific code in my With ActiveDocument area to accomplish this? Thanks for any guidance you all can provide! url:http://ureader.com/gp/1022-1.aspx Tag: how do I change a word into a macro Tag: 108165
 - 14
 - Find Style: Added Format I am relatively new to VBA. I want my macro to search for "Heading 2" but each time it runs additional formatting is added, and the style is not found. I recorded the macro, and left the default settings: Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Heading 2") Selection.Find.ParagraphFormat.Borders.Shadow = False With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute When I look at the find dialog, it shows: Style: Heading 2, Border: Top: (Single solid line, Auto, 0.75 pt Line Width)... I have tried using different templates too. Any help would be appreciated. Thanks John Tag: how do I change a word into a macro Tag: 108162
 - 15
 - OrganizerCopy fails, half remedy found but cause unknown Hello. I'd appreciate your help with the following. I am using COM interoperability libraries (JACOB) in Java to create Word instances and manipulate Word documents programmatically. I am using Microsoft Word 2003 Pro (11.6359.6360) SP1, Greek edition. Basically there is a template A somewhere on my drive, and a number of different B templates somewhere else. I create lots of documents from the B templates, and then copy parts of A template to them with OrganizerCopy. In particular, I copy a certain macro module and a toolbar. We do this copying for every new document - currently it's not the right time to judge why. So, ... after random periods of time (sometimes it's a month, and sometimes a few days) and while everything seems to have been working alright, OrganizerCopy suddenly fails, particularly when copying the toolbar (it runs okay for the macro module), and keeps failing each time it is invoked (for the toolbar), until I delete the Data key in the registry. (according to KB191178 (http://support.microsoft.com/kb/191178)). After this everything continues to run smoothly. The thing is that i don't understand why it happens, and what to do to avert this thing happening.. After some research we discovered that at the time of failure, the data key in the registry (when we export it in a Registry Hive file, binary form) is exactly 1069056 bytes long, while when we delete it, and it is recreated by word, it is almost 10 times smaller. I saw that it grows slowly, and (it seems) randomly - although when i open it in the editor, among chunks of unreadable bytes, you can decipher the filenames where we copy the toolbars... Does Word stores them in some way in the registry? How do I turn this off? I already tried to turn off the MRU list, but it doesn't help. Maybe i do something wrong - e.g. leaving some files open etc. and then word writes info to the Data key and makes it grow, - maybe it eventually reaches 1MB size, and can't grow any more, so OrganizerCopy fails? Any idea? Thanks a lot. Andrew Tag: how do I change a word into a macro Tag: 108159
 - 16
 - Merge 2 Word XML Files Hi, I am trying to merge 2 word XML files. I don't know if it is possible. If it is, how would I do that? Any Help would be appreciated. Thanks Tag: how do I change a word into a macro Tag: 108158
 - 17
 - Header and Footer StoryRanges Does anyone know why shapes in the header or footer story ranges are treated differently than shapes contained in the main text story? If I put two shapes containing text (text containing one spelling error) in the main text story and two shapes containing similar text in the header of a document and run this code: Sub CheckForErrors1() Dim pRange As Word.Range Dim oShp As Shape Dim i As Long For Each pRange In ActiveDocument.StoryRanges Do i = i + pRange.SpellingErrors.Count Set pRange = pRange.NextStoryRange Loop Until pRange Is Nothing Next MsgBox i End Sub This msgbox response is 2. The correct response should be 4 which is the results of running this code: Sub CheckForErrors2() Dim pRange As Word.Range Dim oShp As Shape Dim i As Long For Each pRange In ActiveDocument.StoryRanges Do Select Case pRange.StoryType Case 6, 7, 8, 9, 10, 11 i = i + pRange.SpellingErrors.Count If pRange.ShapeRange.Count > 0 Then For Each oShp In pRange.ShapeRange If oShp.TextFrame.HasText Then i = i + oShp.TextFrame.TextRange.SpellingErrors.Count End If Next oShp End If Case Else i = i + pRange.SpellingErrors.Count End Select Set pRange = pRange.NextStoryRange Loop Until pRange Is Nothing Next MsgBox i End Sub Why do shapes in storyrange type 6, 7, 8, 9, 10 and 11 have to be treated separately and individually? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: how do I change a word into a macro Tag: 108152
 - 18
 - Variance in word count Hi All I have an ordinary document where if I look at File - Properties - Stats, my wordcount is 256. This agrees with Tools -WordCount. In VB I execute x = ActiveDocument.Words.Count and x is 331. 256 is the correct word count. Can anyone explain how x becomes 331. It's not counting spaces because I have 244 of them, and I'm showing hidden text. Can VBA get the count from "File - Properties - stats" figure? TIA Ian B Tag: how do I change a word into a macro Tag: 108128
 - 19
 - Need program to convert plain text in doc into Word 2007 para Has anyone written a program that will scan through a word document that contains pasted plain text and removes the paragraph that is at the end of multi-line paragraphs? When I cut and paste from a plain text document into word, I get line lengths on each line that are determined by a paragrah mark (no word wrap). I've scoured the forums and help files & it appears that Word versions prior to 2007 had an autoformat feature that would do something like this. However, Word 2007 dropped that feature. I'm not a Word programmer. Can someone help with this? -- Thanks Dave Tag: how do I change a word into a macro Tag: 108126
 - 20
 - Error if macro "Run", No error if single stepped! Help? It was a reliable piece of code, and stuff around it has changed but the key point is that if I "Run" the macro (which copies from a bookmark in one doc and pastes the text into another) the pastespecial fails (empty clipboard), but if I single step through the code it all works perfectly (NB I have over-ridden the Ctrl-V keyboard shortcut for paste, but what should that have to do with it?). I removed all the modules from Normal.dot and then re-imported them (not sure if I quit in-between though) but on this occasion it made no difference... have I missed a trick? Ideas? TIA Julian Tag: how do I change a word into a macro Tag: 108117
 - 21
 - if Error, Pause or Loop Is there a way to, If Error then loop back and try again. This is a live file which is connected to my file and I have it save every 13 seconds but if the live link is saving, it errors out. '///////////////////////////////////////////////// Sub UpdateLinks() ActiveWorkbook.UpdateLink Name:= _ "\\DTCNAS-ILSP002\Tesing\LiveLink.xls" _ , Type:=xlExcelLinks Range("A1").Select Call UpdateTime End Sub Sub UpdateTime() Application.OnTime Now + TimeValue("00:00:13"), "UpdateLinks" End Sub -- ca1358 Tag: how do I change a word into a macro Tag: 108114
 - 22
 - Starting MSWord Merge from MSAccess I am collecting info from an MSAccess record and trying to merge it in Word. I would like this to work with any version of Word that the user may have installed. My MSAccess app will be a runtime app that I will be putting on various machines in different workplaces. Here is the code I am running from MSAccess: Public Function AddressBlock() As Boolean Dim wd As Object Dim wdActiveDoc As Object 'RM: Added this to help ensure that you're 'working on the document you intend to. Dim wdField As Object 'RM: Note the change in name here to avoid 'ambiguity with the Field object in both Word and 'Access. As well, I changed the type, since '(like Word.Application), you have to use late 'binding. Set wd = CreateObject("Word.Application") wd.Visible = True wd.Application.ScreenUpdating = False Set wdActiveDoc = wd.Documents.Open("K:\legalper\merge_ad.doc ", False, False, _ False, "", "", False, "", "", 0) With wdActiveDoc.MailMerge .Destination = 0 .Execute End With wd.Windows("merge_ad.doc ").Activate wd.ActiveWindow.Close 0 'It bombs here with "Automation error: The object invoked has disconnected from its clients", and the next line is highlighted. 'What I'm trying to do here is open merge_ad.doc, merge it, close merge_ad.doc, then save the 'resulting merged doc as "merged_ad.doc" wdActiveDoc.saveas Filename:="K:\legalper\merged_ad.doc", FileFormat:=0 Thanks in advance, Kathy Tag: how do I change a word into a macro Tag: 108110
 - 23
 - Link to external graphic file or insert/delete graphic I have a macro which I use to toggle certain graphics on or off. I have inserted the relevant piece of code below. The problem is that all my documents have mushroomed to 800+ kb in size from 40kb previously. My question is it possible to link to a graphic based in a permanent location rather than the graphic residing in each document? If not, is it possible to insert the file and delete it instead of toglling visible/hidden? I would need the graphic to be a precise size and at a precise location. Thanks. The current code is: With ActiveDocument ' Check current status - it's in fax format if graphics are visible boolFax = .Sections(1).Headers(wdHeaderFooterFirstPage).Shapes(1).Visible ' Show/Hide the graphics With .Sections(1) For Each aShape In .Headers(wdHeaderFooterFirstPage).Shapes aShape.Visible = Not boolFax Next aShape End With Tag: how do I change a word into a macro Tag: 108103
 - 24
 - Evaluating the previous and following character in a Search and Replace Hi all, Is there a way to evaluate the character before and after the found string in a routine like this: With rTmp.Find .ClearFormatting .Text = var1 .MatchWholeWord = True .MatchWildcards = False 'evaluate character here? .Replacement.ClearFormatting .Replacement.Text = var2 .Execute Replace:=wdReplaceAll End With Something like: If 'prevous charecter is a tab or a carriage return or ". " Then 'use a capital for the first character in the replacement string Else 'use no initial capital in the replacement string End If Best regards, Shirley Tag: how do I change a word into a macro Tag: 108102
 - 25
 - icon message box I have created a macro that shows a dialog box with all my installed printers where I work. My question is if there is any way to have the macro icon's yellow message box show the name of the currently selected printer when the user hovers the mouse over it? This would be similar to what now happens when I hover my mouse above the printer icon in Word. How would I go about controlling the message box for an macro's icon? TIA, Art® Tag: how do I change a word into a macro Tag: 108100
- Next
 - 1
 - UserForms to Populate FormFields I would like to use UserForms to Populate formfields rather then bookmarks is ths Possible? or is there a way for the bookmaks to hold a specific section of a document without disturbing the rest? With ActiveDocument .Bookmarks("tklarm1").Range _ .InsertBefore TextBox1 .Bookmarks("tklarm2").Range _ .InsertBefore TextBox2 End With UserForm14.Hide Tag: how do I change a word into a macro Tag: 108092
 - 2
 - Search and replace predefined sets of strings? Dear all, I need to build a code to search a predefined set of strings in a document and replace them by another predefined set of strings. Example: strS is (vssen | vsen | vss | vss. | vs. | vs | v. | v ) strR is (vÿerÿssen | vÿerÿsen | etcetera...) strS (search strings) and strR (replacement strings) have the same number of elements. The first element of strS should be replaced by the first element of strR, etcetera, but 1) how do I set a string variable to a limited list of search/replacement strings. Would that be an array? and 2) why does the .HighlightColorIndex = wdNoHighlight not compile in my first attempt (see below)? Sub Vop() Dim rTmp As Range Set rTmp = ActiveDocument.Range 'declare variables for search and replace texts Dim strS, strR As String Dim lngC As Long 'for loop to execute F&R with all strings With rTmp.Find .Text = strS .Replacement.Text = strR 'add .HighlightColorIndex = wdNoHighlight -> does not compile .MatchWholeWord = True .MatchCase = False .MatchWildcards = False While .Execute rTmp.start = rTmp.End rTmp.End = ActiveDocument.Range.End Wend End With End Sub Best regards - Shirley Nomey Tag: how do I change a word into a macro Tag: 108089
 - 3
 - Inserting images into a table, Having trouble inserting in next ce Hi, I am using late binding and trying to insert e.g. 9 images into a table (3x3) in Word. I am having trouble moving to the next cell; VB throws an error on 'wrdSelection.moveright 'Unit:=wdCell' - 'Bad command'. Are there any specific constants for wdCell or not? code extract: --------------- Dim WrdApp As Object Dim WrdDoc As Object Set WrdApp = CreateObject("Word.Application") Dim wrdSelection As Object Set wrdSelection = WrdApp.Selection Dim sPic As Object ... '1st Pic Set sPic = WrdDoc.InlineShapes.AddPicture(FileName:="C:\1.jpg", LinkToFile:=False, SaveWithDocument:=True) 'Move on 1 column wrdSelection.moveright wrdSelection.moveright 'wrdSelection.moveright 'Unit:=wdCell, Count:=1, Extend:=wdMove 'wdCell throws err msg 'Bad Command' 'WrdDoc.tables(1).Cell(2, 1).Range.Select ' just selects the column but does not affect next image insert '2nd Pic Set sPic = WrdDoc.InlineShapes.AddPicture(FileName:="C:\1.jpg", LinkToFile:=False, SaveWithDocument:=True) .... Thanks any help would be greatly appreciated! Cheers, Hendrik Tag: how do I change a word into a macro Tag: 108082
 - 4
 - I need a macro to search across multiple files Hello, I need to do search and replace across multiple doc files, and be prompted before each replace. Is there such a utility, macro? Thank you. T.I. Tag: how do I change a word into a macro Tag: 108078
 - 5
 - Add to listbox with multiple columns Using an Access Form with two listboxes... List1 and list2 with two columns in each list. when I click an item in list1 I want the data on that row to go into list2 with the columns reversed. IndexNum = 0 List1.column(1, List1.Listindex) into List2.column(0, IndexNum) & List1.column(0, List1.Listindex) into List2.column(1, IndexNum) I can enter List1.column(1, Listi.listindex) into the first column of List2 but do not know how to enter data into the second column of List2. Any ideas? Tag: how do I change a word into a macro Tag: 108076
 - 6
 - acces & word I have to fill documents from tables in access. Actually i have 3 choices: 1. Mailmerge in vb with the tables field 2. using a routine replacing all the parts i need using numbers like 1____ and 2_____ and so on So i can do a for next replacing the index & "_" using find (.MatchWildcards and so on) 3. using bookmarks and replacing them What do you suggest me as best solution? Tag: how do I change a word into a macro Tag: 108062
 - 7
 - Insert Bullet and Text Hi, Below is userform code im working on and I believe im close .. but just can't seem to get it to work. I know my code isint proffesional at all, but I hope you get the idea of what I was doing. Code Objective: Open a document which contains a table , search col1 for the word that matches a textbox in the userform (which becomes the target row) then depending on what the user selects in the dropdown deteminds the target Col to add a bullet to the list. *Note opening the doc and every thing works just not the inserting a bullet Thank you to anyone that helps. Happy Holidays! Ben Z. CODE: Private Sub CommandButton1_Click() 'Works with custom toolbar Dim sendbar As CommandBar Dim sendbox As CommandBarControl Set sendbar = Application.CommandBars("Todays-Task") Set sendbox = sendbar.Controls(2) Set sendtopic = sendbar.Controls(1) Dim Word As New Word.Application Dim WordDoc As New Word.Document Word.Visible = True 'Only true during testing' Dim strPath As String 'Open word doc' C = ActiveDocument.CustomDocumentProperties("Task").Value strPath = "C:\MyDocuments\" & T & "\Planning\2007\Todos.doc" Set WordDoc = Word.Documents.Open(strPath) With WordDoc System.Cursor = wdCursorWait Dim oTbl As Table Dim oCll As Cell '<><><><><>Search Col(1) For Keyword<><><><><><><>' Set oTbl = WordDoc.Tables(1) With oTbl For Each oCll In .Columns(1).Cells If oCll.Range.Text = sendtopic.Text Then p = oCll.RowIndex End If Exit For Next End With '<><><><> Based on userform info<><><>' If ComboBox2.Text = "Pay" Then Set oTbl = WordDoc.Tables(1) Set Selec = oTbl.Cell(p, 4) With Selec .EndOf Unit:=wdCell .TypeText Text:=sendbox.Text End With WordDoc.SAVE WordDoc.Application.Quit System.Cursor = wdCursorNormal MsgBox "Task Updated" End Sub Tag: how do I change a word into a macro Tag: 108061
 - 8
 - Bold a list of words in a given document Hi, I have a list of words in a doc say List.doc where I have listed a number of words one below the other like: Microsoft Word SAP E-business Suite Salesforce.com Iam currently using the below mentioned macro: Sub Mymacro() Dim sCheckDoc As String Dim docRef As Document Dim docCurrent As Document Dim wrdRef As Object sCheckDoc = "D:\List.doc" Set docCurrent = Selection.Document Set docRef = Documents.Open(sCheckDoc) docCurrent.Activate With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Replacement.Font.Bold = True .Replacement.Text = "^&" .Forward = True .Format = True .MatchWholeWord = True .MatchCase = False .MatchWildcards = False End With For Each wrdRef In docRef.Words If Asc(Left(wrdRef, 1)) > 32 Then With Selection.Find .Wrap = wdFindContinue .Text = wrdRef .Execute Replace:=wdReplaceAll End With End If Next wrdRef docRef.Close docCurrent.Activate End Sub The problem here is that when I run this macro in another document having these terms it does runs but BOLDS the letters "Microsoft", "Word", "E", "Business", "Suite", "Salesforce" ".com" separately along with the full letters i.e., Microsoft Word, E-business Suite, Salesforce.com. I want only the full letters to be bolded. Kindly help me out in this. Thanks, Prashanth KR. Tag: how do I change a word into a macro Tag: 108060
 - 9
 - Temperature conversion macro I am trying to write a macro which searches through a document for a temperature value such as 395 Â°F and will convert it to celcius and display both values in the format 395 Â°F (xxx Â°C). I have tried all sorts of things and cannot get the code to find the temperature values and process it. Does anyone have any suggestions? Public Sub macro4() Dim oRg As Range Set oRg = ActiveDocument.Range Dim sText With oRg.Find .ClearFormatting .Replacement.ClearFormatting .Format = False .MatchWildcards = True .Text = ("[0-9]{1-4} Â°F") .Forward = True .Wrap = wdFindContinue Do While .Execute oRg.Text = ((5 / 9) * ((Left(oRg.Text, Len(oRg.Text) - 3)) - 32)) oRg.Collapse Direction:=wdCollapseEnd Loop End With End Sub This code works if I have it find a specifc value, but not if I use the [0-9]{1-4} values. Also, my output does not put it in the format I specified above, I just want to get it to work first. Also, I would like the output to be no more than one decimal place. Thanks for the help Tag: how do I change a word into a macro Tag: 108057
 - 10
 - VB.Net Word Automation Can anyone tell me why I am getting a blank page in my word document using the code below? I have a checklistbox on my form and for each checked item I want the same amount of pages in my word document. For instance, 3 items checked = 3 MS Word pages but its giving me 4 pages instead with the second page in the document being blank. As you can see below I am not necessarily using the VSTO add-in for VS Pro but I figured someone here would be able to point something out to help. Thanks in advance. I hope that made sense. Anyway here is my code: Dim dt As DataTable dt = XSdSponsor.GetData() Dim wdApp As New Word.Application wdApp.Visible = True wdApp.Documents.Open("d:\testing.doc") Dim pagebreak As Object = Word.WdBreakType.wdPageBreak Dim checked_items As CheckedListBox.CheckedItemCollection checked_items = cboMailMerge.CheckedItems Dim item As Object Dim bVal As Boolean = True Dim Rng As Word.Range For Each item In checked_items Dim str As String = item.ToString() For i As Integer = 0 To dt.Rows.Count - 1 If dt.Rows(i)("orgName").ToString() = str Then Dim rng1 As Word.Range = wdApp.ActiveDocument.Bookmarks("ContactName1").Range() Dim rng2 As Word.Range = wdApp.ActiveDocument.Bookmarks("CompanyName").Range() Dim rng3 As Word.Range = wdApp.ActiveDocument.Bookmarks("StreetAddress").Range() Dim rng4 As Word.Range = wdApp.ActiveDocument.Bookmarks("City").Range() Dim rng5 As Word.Range = wdApp.ActiveDocument.Bookmarks("State").Range() Dim rng6 As Word.Range = wdApp.ActiveDocument.Bookmarks("ZipCode").Range() Dim rng7 As Word.Range = wdApp.ActiveDocument.Bookmarks("ContactName").Range() Dim rng8 As Word.Range = wdApp.ActiveDocument.Bookmarks("EventName").Range() If bVal = True Then rng1.Text = dt.Rows(i)("orgFname").ToString() & " " & dt.Rows(i)("orgLname").ToString() rng2.Text = dt.Rows(i)("orgName").ToString() rng3.Text = dt.Rows(i)("orgSaddress").ToString() rng4.Text = dt.Rows(i)("orgCity").ToString() rng5.Text = dt.Rows(i)("orgState").ToString() rng6.Text = dt.Rows(i)("orgZipcode").ToString() rng7.Text = dt.Rows(i)("orgFname").ToString() & " " & dt.Rows(i)("orgLname").ToString() rng8.Text = dt.Rows(i)("ReqEvent").ToString() Else Rng = wdApp.ActiveWindow.Selection.Bookmarks("\page").Range() Rng.Select() Rng.Document.ActiveWindow.Selection.Copy() Rng.Select() Rng.Collapse(Word.WdCollapseDirection.wdCollapseEnd) Rng.Select() Rng.InsertBreak(pagebreak) Rng.Paste() rng1.Text = dt.Rows(i)("orgFname").ToString() & " " & dt.Rows(i)("orgLname").ToString() rng2.Text = dt.Rows(i)("orgName").ToString() rng3.Text = dt.Rows(i)("orgSaddress").ToString() rng4.Text = dt.Rows(i)("orgCity").ToString() rng5.Text = dt.Rows(i)("orgState").ToString() rng6.Text = dt.Rows(i)("orgZipcode").ToString() rng7.Text = dt.Rows(i)("orgFname").ToString() & " " & dt.Rows(i)("orgLname").ToString() rng8.Text = dt.Rows(i)("ReqEvent").ToString() End If wdApp.ActiveDocument.Bookmarks.Add("ContactName1", CType(rng1, Word.Range)) wdApp.ActiveDocument.Bookmarks.Add("CompanyName", CType(rng2, Word.Range)) wdApp.ActiveDocument.Bookmarks.Add("StreetAddress", CType(rng3, Word.Range)) wdApp.ActiveDocument.Bookmarks.Add("City", CType(rng4, Word.Range)) wdApp.ActiveDocument.Bookmarks.Add("State", CType(rng5, Word.Range)) wdApp.ActiveDocument.Bookmarks.Add("ZipCode", CType(rng6, Word.Range)) wdApp.ActiveDocument.Bookmarks.Add("ContactName", CType(rng7, Word.Range)) wdApp.ActiveDocument.Bookmarks.Add("EventName", CType(rng8, Word.Range)) bVal = False Exit For End If Next Next item Tag: how do I change a word into a macro Tag: 108041
 - 11
 - Can't exit design mode because Control 'TextBox' cannot be created I get the following VBA message when I try to switch from the design mode of a text box in a Word document: Can't exit design mode because Control 'TextBox' cannot be created I initially inserted a text box from the control toolbox in word and was able to input text. Upon opening the document later, Word converted the textbox into a picture. I receive the above message when I click on this picture and try to bring it out of design mode. support.microsoft.com recognizes this as a bug, but refers to this problem only in the context of when a control toolbox is added to the normal template, not to a regular document. Any ideas? Thanks in advance. Tag: how do I change a word into a macro Tag: 108040
 - 12
 - Nested If result based on combo box value I've been trying to figure out (with no luck) a way to return a string value to a text box based on a result from a combo box. To try and keep it simple: If Combobox = Value.A then textbox.value = Result.A If Combobox = Value.B then textbox.value = Result.B If Combobox = Value.C then textbox.value = Result C I tried to do a select case but i obviously had the syntax wrong. Any assistance is kindly appreciated. Tag: how do I change a word into a macro Tag: 108036
 - 13
 - PDF Documents in WORD list Why does a PDF document not show up on my WORD 2002 list of documents? It shows up if I go to Windows Explorer and open the file that has all of my documents, but NOT if I just click on WORD - file - open - My Documents. I'm using Windows XP Home with SP2. Thanks in advance for any suggestions. Tag: how do I change a word into a macro Tag: 108033
 - 14
 - using word as a WScript object I have a script that uses word as an object runs it with a certain file open and then prints it, however, it does not print in color. Can anyone tell me how to set an option to print in color? The script that prints with no color: Set app = Wscript.CreateObject("Word.Application") app.Documents.Open("\\\server\share\document.doc") app.Options.PrintBackground = False app.ActiveDocument.PrintOut: Tag: how do I change a word into a macro Tag: 108031
 - 15
 - new idea To microsoft Company The security of trading via internet is considerably crucial and professional fishers and hackers are just waiting for mis using the mistakes maden by the users and discharging their electronic accounts. I'm Mr.Ali Noor Mohammadi from Iran.I have a plan that to a great extent ensures the security of user name and password of the users from being misused by the fishers and hackers. Regarding that i can't launch this plan to the net and necessarily the implimentation of that can only be done by large companies , specially by the companies that are active in designing and launching the operation systems made me to write to you about the implementation of that. I do know that your company is the most advanced in this field. 1-The income from the increase in reliability of credit cards such as visa and master card , etc. 2- the income from the monthly or annual payment of the companies that are active in the fields of purchasing and selling , for the increasing security coefficient of users. 3-getting control over the security market. At the end regarding what i mentioned above , please let me know if you want to cooperate. khoshtip118@gmail.com ---------------- 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=df8f06e7-6754-427b-850d-476bd5a20bf6&dg=microsoft.public.word.vba.general Tag: how do I change a word into a macro Tag: 108029
 - 16
 - What is the best way to read Word text looking for patterns? Hi All I have a file system full of Word documents. All the documents have identifiers that follow a proscribed form : CJS/<number>/<number> e.g. CJS/10/1023 and CJS/10/2023 I need to find which documents reference other documents in their body text. I am an intermediate Excel VB programmer and hope to do this in Word VB with the following pseudo-code for a single document: * open the document * read the text in some fashion in some sort of chunk per iteration * scan this text for text that looks like the above described document number pattern * compile the list as I go and output to Excel Is this all possible in Word VB? It seems to me the trickest part would be to work out how to read the text in...... Does anyone have any hints or ideas to get me started on this one? I have the code to open a Word file but that is it at this time. What is the best way to read the text from a Word document into a VB program? Thanks for any ideas. Chrisso Tag: how do I change a word into a macro Tag: 108028
 - 17
 - What is the best way to read Word text looking for patterns? Hi All I have a file system full of Word documents.. All the documents have identifiers that follow a proscribed form : CJS/<number>/<number> e.g. CJS/10/1023 and CJS/10/2023 I need to find which documents reference other documents in their text. I am an intermediate Excel VB programmer and hope to do this in Word VB with the following pseudo-code for a single document: * open the document * read the text in some fashion in some sort of chunk per iteration * scan this text for text that looks like the above described document number pattern * compile the list as I go and output to Excel Is this all possible in Word VB? It seems to me the trickest part would be to work out how to read the text in...... Does anyone have any hints or ideas to get me started on this one? I have the code to open a Word file but that is it at this time. What is the best way to read the text from a Word document into a VB program? Thanks for any ideas. Chrisso Tag: how do I change a word into a macro Tag: 108023
 - 18
 - Turn off replacement status indicator when running a VBA macro I created a word macro (word 2003, windows XP) that uses replace to get rid of space characters in tables. Some of these tables are large and there are a lot of replacements. A replacement status indicator shows up at the bottom of the word pane which greatly slows the execution of the macro. I have tried turning off screen updating, alerts, status bar and cannot make it go away. Does anyone know how to stop displaying this indicator? It also shows repagination status if that's any help. Tag: how do I change a word into a macro Tag: 108017
 - 19
 - VBA to delete a row based on rows being filled. Here is my code. I move information from one sheet to another. This part works fine. I then woudl like to delete rows if there is nothing in columns J, M, S, and V. Someone had given me the code to go through the sheet. Hopefully someone can help me. Jay Sub Offset() Dim myCount As Integer Dim NextRow As Long Dim Datei As Date Datei = Range("E1") Range("A7:C26, V7:Am26, Bm7:Bp26").Copy Application.ScreenUpdating = False Workbooks.Open Filename:="G:\DPE-IPE\DPE REVISIONS\All Press Ips.xls" NextRow = Range("D65536").End(xlUp).Row + 1 Sheets("Offset").Range("D" & NextRow).PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False Dim i As Long With Sheets("Offset") ' Loop through the rows For i = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row ' Test cells in columns J, M, S &V If .Cells(i, 10).Value = "0" And .Cells(i, 13).Value = "0" And .Cells(i, 19).Value = "0" _ And .Cells(i, 22).Value = "0" Then .Cells(i, 1).EntireRow.Delete Next i End With End Sub Tag: how do I change a word into a macro Tag: 108008
 - 20
 - Location of incorrect place in the incorrect xml file Hi All, I am programming in VBA for Word and use Microsoft XML v6,0 xml library for working with xml files. Sometimes xml files are incorrect and xml parser does not create node structure for such files. I need to know line in the xml file there is error is present. Error can be: 1. Unclosed tag. 2. Merged tags as : <tag1><tag2>Some text<tag1><tag2>. 3. e.t.c. May be anybody know how to get such information from MSXML or other library included in the Office package or Windows? May be any free library is present for it that can be used from macro? Thank you, Anton Tag: how do I change a word into a macro Tag: 108005
 - 21
 - Custom rules for words to not spell check Is there any way that I can tell Word not to not spell check words starting with $? Motivation: I'm writing a document in Word 2003 / Win XP Pro, which document has PHP computer code interspersed. Variable names are uniformly indicated by a dollar sign ($) prefixing the variable name (eg. $myVar). These should be ignored for purposes of spell checking. I noticed that under Tools \ Spelling and Grammar \ Options there is the possibility to ignore words in UPPERCASE and words with numbers. So I'm asking can I, possibly with VBA, expand upon this? Thanks, Csaba Gabor from Vienna Tag: how do I change a word into a macro Tag: 108004
 - 22
 - How to read/Encrypt Word Document without opening document? Hi, I want to read/Encrypt word document withour opening the document through Ole or oleload. I am able to get document properties using structred storage but not able to read/Encrypt data without opening document? SSD Tag: how do I change a word into a macro Tag: 108001
 - 23
 - Delete or reset values for all custom document properties As part of an automated document cleanup process, I created a VBA userform that lets the user select up to 14 kinds of things to be removed from a Word document (tracked changes, comments, hidden text, etc.) This is kind of an ersatz Remove Hidden Data tool. I would like to be able to include in this form the option to remove any custom document properties that have been set in a Word document before we send the document outside the office. We sometimes send many dozens of files at once and each may have many custom document properties set for it. We have received files from outside the office that contained custom document properties that I know the sender would not have wanted us to see and I want to make sure we avoid that same problem. The problem is I can't find a way to automatically remove all custom properties. These can be of two kinds: the custom document properties that are already in the document (from the template - I can manually delete the value but the name remains) and those created by document users (I can manually delete both the property name and the value for these). While it is quite easy to add new custom document properties and property values with VBA, I cannot find a way to automatically delete all custom document properties or their values. I can automatically remove the values for those custom document properties that are in the template (since I know each property's name) but I cannot find a way to delete or at least remove the value for a custom property created by a user. It would be sufficient for me to reset the value of a user-created custom document property to no data or a space or some other text, but I have been unable to get anything to work. Although just removing the value might leave the user-created custom property name visible in the document properties, at least the value would be gone. At this point, I don't need to choose to keep any custom document properties. It appears that it will be sufficient to just remove all and I don't need the option to preserve some of the custom properties for the files we send out. I have searched several groups and through the VBA help but can't find a solution. I would appreciate help with some VBA code that would handle all the custom document properties. Thanks. Tag: how do I change a word into a macro Tag: 107996
 - 24
 - converting a file Have a rtf file saved as a word.doc no good for locate. No matter how I try to use this file code will not locate file. Is there a way to convert this file so it is a reconizable word.dco? It opens with word ok. I am useing office 2000. Thanks Tag: how do I change a word into a macro Tag: 107995
 - 25
 - Delete Rows based on information in column I had asked for help on another Group, I think i am in the right one now. I have copied info from one workbook to another. Now that it is here, I need to delete the entire row if the cells in columns J, M, S and V are empty. All fo the cells need to be empty inorder for the row to be deleted. Thanks in advance, Jay Tag: how do I change a word into a macro Tag: 107992

I accidently told Word to open a documetn titled PicMacs.bas to open in word
and now it to open as PicMacs.bas. How do I get it to do that?

Top

RE: how do I change a word into a macro by GauravKothari

GauravKothari
Mon Dec 03 03:45:11 PST 2007

Right click on file Picmacs.bas with holding Shift key,
Select Openwith, Select desired application (for eg : visual basic in your
case),
select Always use this.......,

:)

"lil_miss_aries" wrote:

> I accidently told Word to open a documetn titled PicMacs.bas to open in word
> and now it to open as PicMacs.bas. How do I get it to do that?
>

Top