when i click on a pictures my format tab opens but the picture st.

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Find the index of selected bookmark (Wd 2002 +) I have a bookmark spanning a selection. I place the insertion point within the bookmark. I need to use VBA to determine the name of the bookmark containing the insertion point. Sounds simple, but I can't get the index, which I need to get the name. As a last resort I could note the range of insertion point, and search all bookmarks for one spanning that range, but that's a bit "heavy". Any help much appreciated TIA Ian B Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106434
 - 2
 - Load Data from ListBox into Word Doc. BoundColumn? From Wordâ??s help menu, I can tell that the BoundColumn identifies the column of associated data values stored for the control. There doesnâ??t seem to be a whole lot of documentation on this subject, but I am pretty sure it does what I want it to do. Thanks to some slick code provided by Doug Robbins, I can get data from an Excel workbook to populate my ListBox, but I canâ??t seem to get the code form the ListBox into my Word document. The code that I am currently working with is shown below: Sub CommandButton1_Click() Set NewDoc = ActiveDocument With NewDoc cmbFirstName.BoundColumn = 1 .Variables("varFirstName") = cmbFirstName.Value End With UserForm1.Hide End Sub Private Sub Click() Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "DOCVARIABLE FirstName ", PreserveFormatting:=True Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "DOCVARIABLE LastName ", PreserveFormatting:=True End Sub In my word document, I have several fields such as this: Error! No document variable supplied. Error! No document variable supplied. I keep getting this message when I hit Ctrl+F9: Error! No Document variable Supplied. What am I doing wrong? Cordially, Ryan--- -- RyGuy Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106431
 - 3
 - Show my own hlp file I want to show some help context either by clicking a userform commandbutton or a commandbar chained to a macro. Can someone show me a code snippet how to do that. I suppose I have to compile af hlp file, or is there another way? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106429
 - 4
 - How to select in whole document all first words in sentences? There is a document. In this document I need to select all first words in every sentences. And then I need apply some style to these words. How I can do it? Thank you. Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106426
 - 5
 - Need code for prompt and find/replace macro - help! Hello - total newbie to this, want to start doing more... I'm trying to set up a macro attached to a document that, after using a hotkey combination, prompts them for replacement text (for example, ABC Company replaced with XYZ Corporation). Basically, an automated way to engage the find/replace feature with a prompt for replacement text. I only understand the very basics of the code I've tried to create using the Record feature, so I need some very basic instructions for my confused brain. Can you tell me what I need? Many thanks!! -Mike Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106402
 - 6
 - Ask the working path to the user Hi, I would like to pop up a form when the document open and asking user the working folder by browsing until the folder. Store the folder path into a public variable. Thanks Stephane Vial Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106397
 - 7
 - The "new page" or "soft page break" event Hello, everyone. When content fills a page and passes the bottom page margin, a new page is automatcially added (i.e., a "soft" page break). What is the event causing this behavior? I would like to modify it to do more than add a page. I'm using Word 2000 (on W2K) and Word 2003 (on XP). Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106395
 - 8
 - Control A Series of Templates From a Master Document I have a Master Document which provides the user with a form to input data which is then held in an ini file). This data is then - currently - accessed by other templates when I call those other templates on an individual basis. For example, I have a number of letter templates that are sent off regularly to my clients . The templates pick up the name and address and other specific data for that particular letter from the ini file. There ar also templates for in-house records, for faxes etc What I would like to do is to be able to access these other templates from this master document by clicking on a button on the master document, which would then present me with the desired template. I am sure ths is a trivial problem, but it's one that has confounded me for a while. Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106393
 - 9
 - Delete Everything EXCEPT Items in a Table Does anyone have a macro that will delete everything in a word document EXCEPT items in a table? Thanks, Ryan--- -- RyGuy Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106386
 - 10
 - how is "/mMacroName" supposed to work? The documentation says to use "/mMacroName" to run a macro when starting Word (from cmd line). But this doesn't work for me. Word starts and then just sits there doing nothing. I have "MacroName" in a .dot file in the Word startup dir (not a Normal.dot file). It's not in a user's startup dir. Is this setup supposed to work? -Christopher Allen Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106385
 - 11
 - Help with Range.TextRetrievalMode? Just come across this oddity... (Word 2002, under Vista HP) I don't seem to be able to change the values for TextRetrievalMode (includehiddentext or includefields) when the range it is applied to is a comment's range (mycomment.range)... Trying different view types on the TextRetrievalMode object doesn't help either. And for different comments the TextRetrievalMode settings seem different (and inconsistent - so I can't compare comments for their "normal" text) any ideas? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106381
 - 12
 - Protect/unprotect header/footer Can you protect/unprotect a header/footer? Are these sections to which one could apply .protect and .unprotect? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106379
 - 13
 - Find Keyword, Copy Table, and Place in New Document (almost workin I am working with the code below to find all files in a directory, with a certain name, open each, find a keyword, and copy/paste (at append) a table that contains this keyword, to a summary document. This almost works, but not quite. I am looking for the text â??Additional Informationâ?? in one or many tables, in each document in a certain folder on out firmâ??s network drive. I can import all docs in the folder, but not just the tables that contain the text â??Additional Informationâ??. What am I doing wrong? I believe the problem occurs between the two lines marked '************ My code is below: Sub Append() Dim i As Long Application.ScreenUpdating = False Documents.Add With Application.FileSearch .LookIn = "F:\" .SearchSubFolders = False .FileName = "*Summary*.doc" .Execute For i = 1 To .FoundFiles.Count If InStr(.FoundFiles(i), "~") = 0 Then '************************************* Selection.Find.ClearFormatting With Selection.Find .Text = "Additional Information" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute '************************************* Selection.InsertFile FileName:=(.FoundFiles(i)), _ ConfirmConversions:=False, Link:=False, Attachment:=False Selection.InsertBreak Type:=wdPageBreak End If Next i End With End Sub Regards, Ryan--- -- RyGuy Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106377
 - 14
 - Deleting styles with leading spaces in their names I need to programmatically delete styles whose names begin with a space character. I know that it's not possible for a user to create such a thing intentionally -- the style modification/creation dialogue suppresses such leading spaces. But the paragraph/character hybrid style logic that Word 2003 and later uses can lead users to accidentally create styles with names of " Char Char", " Char Char Char", and so on. If you record a macro, delete a " Char Char" style by hand, and then look at what you have recorded, you'll see: ActiveDocument.Styles(" Char Char").Delete But simply running this as a VBA command does not actually work: "The requested member of the collection does not exist". It also does not work to declare a style variable and use For Each logic to try to catch it: Dim myStyle As Style For Each myStyle In ActiveDocument.Styles If (myStyle.NameLocal = " Char Char") Then Debug.Print "", "_Deleting " & myStyle.NameLocal myStyle.Delete End If Next (Interestingly, myStyle.NameLocal does resolve correctly in the debug.print statement.) I've tried escaping the space in the style name, and using a character reference instead of a literal space, but I can't find the magic bullet. Any ideas out there? TIA.... Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106374
 - 15
 - Find/Replace 2 col table insert tables, logos ^p (keep richttext when replacement text) This is a multi-part message in MIME format. ------=_NextPart_000_005B_01C80D17.666D30E0 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable Beginner vba user - completely stuck and could do with some assistance = please regarding using replacement text which holds its format. I have simple code that selects find [variable] 1st column table and = selects replacement text from 2nd column. The replacement text is = formatted sometimes within the cell and has tables (nested in the cell) = and inline graphic or addresses with returns or paragraphs with returns = (^p). The active document is on screen and the find/replace inserts the = replacement text but does not insert nested tables (these become just = text with faint square blocks), nor paragraph marks these also turn into = faint square blocks and the table of course does not insert. How do I enable my code to allow the text or nested table or inline = graphic or address with pilcrow returns insert as the replacement text = and hold format? Any ideas how I can achieve this please that would allow my replacement = text to be richtext desperate newbie... Sub ReplaceListv3() Dim vFindText As Variant Dim vReplText As Variant Dim sFindText As Range Dim sReplText As Range Dim i As Long Dim SourceFile As String Dim Source As Document Dim Target As Document Set Target =3D ActiveDocument 'The document in which the replacements = are to be made Dim Msg, Style, Title, Response Msg =3D "Do you want to use the default replacements file ?" ' Define = message. Style =3D vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title =3D "Select Source File" ' Define title. ' Display message. Response =3D MsgBox(Msg, Style, Title) If Response =3D vbYes Then ' User chose Yes. Set Source =3D Documents.Open("c:\documents\basic.doc") 'Open the = document containing the table of 'replacements to be made. It assumes that there is a header row in the = table. 'Modify the path and filename to suit. Else ' User chose No. Display the FileOpen dialog With Dialogs(wdDialogFileOpen) If .Display <> -1 Then SourceFile =3D "" MsgBox "You did not select a file." Exit Sub Else SourceFile =3D WordBasic.FileNameInfo$(.Name, 1) End If Set Source =3D Documents.Open(SourceFile) 'Open the selected = document End With End If With Source.Tables(1) For i =3D 2 To .Rows.Count Set sFindText =3D .Cell(i, 1).Range sFindText.End =3D sFindText.End =96 1 Set sReplText =3D .Cell(i, 3).Range sReplText.End =3D sReplText.End - 1 Target.Activate =91Target.content.select =91reinforce grab right = document With Selection.Find .Forward =3D True .Wrap =3D wdFindContinue .MatchWholeWord =3D True .MatchWildcards =3D False .MatchSoundsLike =3D False .MatchAllWordForms =3D False .Format =3D True .MatchCase =3D False .Text =3D sFindText =91Text=3D=94^p=94 .Replacement.Text =3D sReplText .Execute Replace:=3DwdReplaceAll End With Next i End With Source.Close wdDoNotSaveChanges Target.Activate ;Target.content.select =91reinforce grab right document End Sub ------=_NextPart_000_005B_01C80D17.666D30E0 Content-Type: text/html; charset="Windows-1252" 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=3Dwindows-1252"> <META content=3D"MSHTML 6.00.6000.16544" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV> <DIV>Beginner vba user = - completely stuck and=20 could do with some assistance please regarding using = replacement text which=20 holds its format.</DIV> <DIV> </DIV> <DIV>I have simple code that selects find = [variable] 1st=20 column table and selects replacement text from 2nd column. The = replacement=20 text is formatted sometimes within the cell and has tables (nested in = the=20 cell) and inline graphic or addresses with returns or paragraphs = with=20 returns (^p).</DIV> <DIV> </DIV> <DIV>The active document is on screen and = the=20 find/replace inserts the replacement text but does not insert nested = tables=20 (these become just text with faint square blocks), nor paragraph marks = these=20 also turn into faint square blocks and the table of course does not=20 insert.</DIV> <DIV> </DIV> <DIV>How do I enable my code to allow the = text or nested=20 table or inline graphic or address with pilcrow returns insert as the=20 replacement text and hold format?</DIV> <DIV> </DIV> <DIV>Any ideas how I can achieve this please = that=20 would  allow my replacement text to be richtext</DIV> <DIV> </DIV> <DIV>desperate newbie...</DIV> <DIV> </DIV> <DIV> </DIV> <DIV> Sub=20 ReplaceListv3()<?xml:namespace prefix =3D o ns =3D=20 "urn:schemas-microsoft-com:office:office" = /><o:p></o:p> Dim vFindText=20 As Variant<o:p></o:p> Dim vReplText=20 As Variant<o:p></o:p> Dim sFindText=20 As Range<o:p></o:p> Dim sReplText=20 As Range<o:p></o:p> Dim i As=20 Long<o:p></o:p> Dim SourceFile=20 As String<o:p></o:p> Dim Source As=20 Document<o:p></o:p> Dim Target As=20 Document<o:p></o:p> Set Target =3D=20 ActiveDocument 'The document in which the replacements are to be=20 made<o:p></o:p> Dim Msg, Style,=20 Title, Response<o:p></o:p> Msg =3D "Do you=20 want to use the default replacements file ?"<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 message.<o:p></o:p> Style =3D vbYesNo=20 + vbCritical + vbDefaultButton2<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 buttons.<o:p></o:p> Title =3D "Select=20 Source File"    = ' Define=20 title.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = '=20 Display message.<o:p></o:p> Response =3D=20 MsgBox(Msg, Style, Title)<o:p></o:p> If Response =3D=20 vbYes Then    ' = User chose=20 Yes.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Set Source =3D=20 Documents.Open("c:\documents\basic.doc") 'Open the document containing = the table=20 of<o:p></o:p> 'replacements=20 to be made. It assumes that there is a header row in the=20 table.<o:p></o:p> 'Modify the=20 path and filename to suit.<o:p></o:p> Else<SPAN=20 style=3D"mso-spacerun: yes">    ' User chose No. = Display the=20 FileOpen dialog<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    With=20 Dialogs(wdDialogFileOpen)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = If=20 .Display <> -1 Then<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D ""<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 MsgBox "You did not select a = file."<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 Exit Sub<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Else<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D WordBasic.FileNameInfo$(.Name,=20 1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 If<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 Source =3D Documents.Open(SourceFile) 'Open the selected=20 document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    End=20 With<o:p></o:p> End=20 If<o:p></o:p> With=20 Source.Tables(1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    For i =3D 2 To=20 .Rows.Count<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sFindText =3D .Cell(i, 1).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sFindText.End =3D sFindText.End =96 = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sReplText =3D .Cell(i, 3).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sReplText.End =3D sReplText.End - = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri><SPAN=20 style=3D"mso-spacerun: yes">       =20 =91Target.content.select<SPAN=20 style=3D"mso-tab-count: = 1">          =20 =91reinforce grab right document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = With=20 Selection.Find<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Forward =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Wrap =3D wdFindContinue<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWholeWord =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWildcards =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchSoundsLike =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchAllWordForms =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Format =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchCase =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Text =3D sFindText<o:p></o:p> <FONT=20 size=3D3>=91Text=3D=94^p=94<SPAN=20 lang=3DEN-GB style=3D"mso-ansi-language: = EN-GB"><o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Replacement.Text =3D = sReplText<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Execute = Replace:=3DwdReplaceAll<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 With<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Next=20 i<o:p></o:p> End=20 With<o:p></o:p> Source.Close=20 wdDoNotSaveChanges<o:p></o:p> <FONT=20 face=3DCalibri>Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri>;Target.content.select<SPAN=20 style=3D"mso-tab-count: 1">   =91reinforce grab right=20 document<o:p></o:p> End=20 Sub<o:p></o:p></DIV> <DIV> </DIV></DIV></BODY></HTML> ------=_NextPart_000_005B_01C80D17.666D30E0-- Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106368
 - 16
 - Find/Replace nested table, format from cell in replacement text column! This is a multi-part message in MIME format. ------=_NextPart_000_034A_01C80D0F.CD29D340 Content-Type: text/plain; charset="Windows-1252" Content-Transfer-Encoding: quoted-printable Beginner vba user - completely stuck and could do with some assistance = please regarding using replacement text which holds its format. I have simple code that selects find [variable] 1st column table and = selects replacement text from 2nd column. The replacement text is = formatted sometimes within the cell and has tables (nested in the cell) = and inline graphic or addresses with returns or paragraphs with returns = (^p). The active document is on screen and the find/replace inserts the = replacement text but does not insert nested tables (these become just = text with faint square blocks), nor paragraph marks these also turn into = faint square blocks and the table of course does not insert. How do I enable my code to allow the text or nested table or inline = graphic or address with pilcrow returns insert as the replacement text = and hold format? Any ideas how I can achieve this please that would allow my replacement = text to be richtext desperate newbie... Sub ReplaceListv3() Dim vFindText As Variant Dim vReplText As Variant Dim sFindText As Range Dim sReplText As Range Dim i As Long Dim SourceFile As String Dim Source As Document Dim Target As Document Set Target =3D ActiveDocument 'The document in which the replacements = are to be made Dim Msg, Style, Title, Response Msg =3D "Do you want to use the default replacements file ?" ' Define = message. Style =3D vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons. Title =3D "Select Source File" ' Define title. ' Display message. Response =3D MsgBox(Msg, Style, Title) If Response =3D vbYes Then ' User chose Yes. Set Source =3D Documents.Open("c:\documents\basic.doc") 'Open the = document containing the table of 'replacements to be made. It assumes that there is a header row in the = table. 'Modify the path and filename to suit. Else ' User chose No. Display the FileOpen dialog With Dialogs(wdDialogFileOpen) If .Display <> -1 Then SourceFile =3D "" MsgBox "You did not select a file." Exit Sub Else SourceFile =3D WordBasic.FileNameInfo$(.Name, 1) End If Set Source =3D Documents.Open(SourceFile) 'Open the selected = document End With End If With Source.Tables(1) For i =3D 2 To .Rows.Count Set sFindText =3D .Cell(i, 1).Range sFindText.End =3D sFindText.End =96 1 Set sReplText =3D .Cell(i, 3).Range sReplText.End =3D sReplText.End - 1 Target.Activate =91Target.content.select =91reinforce grab right = document With Selection.Find .Forward =3D True .Wrap =3D wdFindContinue .MatchWholeWord =3D True .MatchWildcards =3D False .MatchSoundsLike =3D False .MatchAllWordForms =3D False .Format =3D True .MatchCase =3D False .Text =3D sFindText =91Text=3D=94^p=94 .Replacement.Text =3D sReplText .Execute Replace:=3DwdReplaceAll End With Next i End With Source.Close wdDoNotSaveChanges Target.Activate ;Target.content.select =91reinforce grab right document End Sub ------=_NextPart_000_034A_01C80D0F.CD29D340 Content-Type: text/html; charset="Windows-1252" 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=3Dwindows-1252"> <META content=3D"MSHTML 6.00.6000.16544" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY bgColor=3D#ffffff> <DIV>Beginner vba user = - completely stuck and=20 could do with some assistance please regarding using = replacement text which=20 holds its format.</DIV> <DIV> </DIV> <DIV>I have simple code that selects find = [variable] 1st=20 column table and selects replacement text from 2nd column. The = replacement=20 text is formatted sometimes within the cell and has tables (nested in = the=20 cell) and inline graphic or addresses with returns or paragraphs = with=20 returns (^p).</DIV> <DIV> </DIV> <DIV>The active document is on screen and = the=20 find/replace inserts the replacement text but does not insert nested = tables=20 (these become just text with faint square blocks), nor paragraph marks = these=20 also turn into faint square blocks and the table of course does not=20 insert.</DIV> <DIV> </DIV> <DIV>How do I enable my code to allow the = text or nested=20 table or inline graphic or address with pilcrow returns insert as the=20 replacement text and hold format?</DIV> <DIV> </DIV> <DIV>Any ideas how I can achieve this please = that=20 would  allow my replacement text to be richtext</DIV> <DIV> </DIV> <DIV>desperate newbie...</DIV> <DIV> </DIV> <DIV> </DIV> <DIV> Sub=20 ReplaceListv3()<?xml:namespace prefix =3D o ns =3D=20 "urn:schemas-microsoft-com:office:office" = /><o:p></o:p> Dim vFindText=20 As Variant<o:p></o:p> Dim vReplText=20 As Variant<o:p></o:p> Dim sFindText=20 As Range<o:p></o:p> Dim sReplText=20 As Range<o:p></o:p> Dim i As=20 Long<o:p></o:p> Dim SourceFile=20 As String<o:p></o:p> Dim Source As=20 Document<o:p></o:p> Dim Target As=20 Document<o:p></o:p> Set Target =3D=20 ActiveDocument 'The document in which the replacements are to be=20 made<o:p></o:p> Dim Msg, Style,=20 Title, Response<o:p></o:p> Msg =3D "Do you=20 want to use the default replacements file ?"<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 message.<o:p></o:p> Style =3D vbYesNo=20 + vbCritical + vbDefaultButton2<SPAN=20 style=3D"mso-spacerun: yes">    ' Define=20 buttons.<o:p></o:p> Title =3D "Select=20 Source File"    = ' Define=20 title.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = '=20 Display message.<o:p></o:p> Response =3D=20 MsgBox(Msg, Style, Title)<o:p></o:p> If Response =3D=20 vbYes Then    ' = User chose=20 Yes.<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Set Source =3D=20 Documents.Open("c:\documents\basic.doc") 'Open the document containing = the table=20 of<o:p></o:p> 'replacements=20 to be made. It assumes that there is a header row in the=20 table.<o:p></o:p> 'Modify the=20 path and filename to suit.<o:p></o:p> Else<SPAN=20 style=3D"mso-spacerun: yes">    ' User chose No. = Display the=20 FileOpen dialog<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    With=20 Dialogs(wdDialogFileOpen)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = If=20 .Display <> -1 Then<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D ""<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 MsgBox "You did not select a = file."<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 Exit Sub<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Else<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 SourceFile =3D WordBasic.FileNameInfo$(.Name,=20 1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 If<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 Source =3D Documents.Open(SourceFile) 'Open the selected=20 document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    End=20 With<o:p></o:p> End=20 If<o:p></o:p> With=20 Source.Tables(1)<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    For i =3D 2 To=20 .Rows.Count<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sFindText =3D .Cell(i, 1).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sFindText.End =3D sFindText.End =96 = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = Set=20 sReplText =3D .Cell(i, 3).Range<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 sReplText.End =3D sReplText.End - = 1<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">       =20 Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri><SPAN=20 style=3D"mso-spacerun: yes">       =20 =91Target.content.select<SPAN=20 style=3D"mso-tab-count: = 1">          =20 =91reinforce grab right document<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = With=20 Selection.Find<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Forward =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Wrap =3D wdFindContinue<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWholeWord =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchWildcards =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchSoundsLike =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchAllWordForms =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Format =3D True<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .MatchCase =3D False<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Text =3D sFindText<o:p></o:p> <FONT=20 size=3D3>=91Text=3D=94^p=94<SPAN=20 lang=3DEN-GB style=3D"mso-ansi-language: = EN-GB"><o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Replacement.Text =3D = sReplText<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: = yes">           =20 .Execute = Replace:=3DwdReplaceAll<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">        = End=20 With<o:p></o:p> <SPAN=20 style=3D"mso-spacerun: yes">    Next=20 i<o:p></o:p> End=20 With<o:p></o:p> Source.Close=20 wdDoNotSaveChanges<o:p></o:p> <FONT=20 face=3DCalibri>Target.Activate<o:p></o:p> <FONT=20 face=3DCalibri>;Target.content.select<SPAN=20 style=3D"mso-tab-count: 1">   =91reinforce grab right=20 document<o:p></o:p> End=20 Sub<o:p></o:p></DIV> <DIV> </DIV></BODY></HTML> ------=_NextPart_000_034A_01C80D0F.CD29D340-- Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106365
 - 17
 - Move object with text Having many small screen shots to put into a Word document I prefer to let the objects dictate where the text goes rather that the other way round. I therefore have to un-tick 'Move object with text'. I have tried to record a macro but 'greyed' commands prevent that. Can you help please? Francis Hookham Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106360
 - 18
 - SENDTO ? I created a form in HTM format in WORD. I can add a hyperlink to MAILTO: some people. But, is there a way to change this hyperlink to send the page, opening up a new email, have it already addressed and all I have to do now is SEND? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106356
 - 19
 - Detecting the end of a row In a mixed selection that begins in a paragraph and ends in the first row of a table, the range.paragraphs contains the end-of-row marker as a para. If I select that para range, range.information(wdatendofrowmarker) is false. If I collapse the range, it's true. Is there any other way I could detect that the para was the end-of-row marker without collapsing it or creating a working range to collapse and test? In other words, is there any way to test that the end of row marker is selected aside from range.information? Bear -- Windows XP, Word 2000 Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106353
 - 20
 - UserForm Controls and Bookmarks I have a word document with approx 20 bookmarks in it. I have a UserForm that populates those bookmarks. I would like the code to be generic but am having a problem - the following code returns an error "Invalid Qualifier" with reference to the textBox field name. I would really appreciate somehelp on this <code> Dim Bmk() As String Dim y As Integer, J As Integer Dim txtFieldName As String y = ActiveDocument.Bookmarks.Count ReDim iniarray(y) For J = 1 To y Bmk(J) = ActiveDocument.Bookmarks(J).Name Trim(txtFieldName) = CStr(Bmk(J)) ActiveDocument.Bookmarks(Bmk(J)).Range.Text = txtFieldName.Text Next J </code> Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106351
 - 21
 - Argument names in subs and functions When naming arguments for use in a sub or function, should I adhere to my usual naming format? E.G. Sub LOParas(ByRef rngWork As Range, strAction As String) or is Sub LOParas(ByRef Range As Range, Action As String) okay? Bear -- Windows XP, Word 2000 Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106346
 - 22
 - Error on updating fields Group, While trying to update fields in a document, I am continuously getting the error: "One or more of the fields in the selection could not be updated". I've done the same steps for months, (ie, type the doc, insert the fields, ctrl+a, F9 to update). When I print my documents, it truly is not updating the fields, I've deleted the fields and re-entered, and still the same error. This error is not only appearing on one field, but several. Any suggestions on what this problem could be related to? Diane Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106345
 - 23
 - Change a word throughout the document in one step I have a 75 page document that has a few words that need to be changed throughout it. For example: If I have a word like Chicago on many pages and I want to change it to Denver. How can I create a command so that if I change the first Chicago to Denver, the rest of the Chicago's throughout the document will change as well? I'm not real familiar with macro's and I don't want to use the find and replace command. Trying to make this user friendly. -- Thanks for any assistance you can provide. RH Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106344
 - 24
 - How to find out if a style has been used in a given Section? Hello, I need to check to find out if a specific style, (e.g., "Heading 1"), is in use in a given section of a document. The catch is, I cannot use the Range.Find method to do this. This code is running during Word's WindowSelectionChange event. And if the user happened to double-click the Format Painter before moving the selection, the Range.Find.Execute cancels out the FormatPainter mode. Also, it is not practical for me to loop all paragraphs in the section to check for the style, because it may be a very large document, and checking each paragraph may cause an hourglass and visible delay when the user moves the cursor around. Does anyone know of a trick to get what I need under this scenario? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106342
 - 25
 - Fill In One Field in a doc and appear elsewhere on the same doc Hello, I have designed a form in MSWord. I want to take the input contents of a Text Form Field on page one and have it also show up on page two automatically. This is probably easy but I'm not phrasing the question properly for the Office Assistant to locate an answer. Help me. Thanks, -- Michael "I just wanna know" Cryderman Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106341
- Next
 - 1
 - Enter Values from a ListBox I am almost done (I think) with a project for my supervisor. I am now trying to get values, that show in a ListBox, to enter into a Word document. The document has many MergeField elements in it, some of which include First_Name, Last_Name, Address, City, Zip, Number (which is a unique ID number.) These are located throughout the document and I think MergeFields are the best choice for formatting purposes (as far as I know Bookmarks donâ??t give users much control over formatting). The data comes from an Excel sheet, which has several named ranges to identify data in each column. Doug gave me code to get most of this running (thanks a lot). Now, I am just trying to get the data, that is displayed in the ListBox, into the appropriate MergeFields in the document. Does anyone here have any idea how to do this? Iâ??ve seen a few examples online, but not many, and the ones that I did see donâ??t seem to be helpful at all. As an aside, Doug game me some code before, which was great for another project where I used a Bookmark to reserve a location for a reference that I used for another project. The code is: Private Sub CommandButton1_Click() Dim i As Integer, Addressee As String Addressee = "" For i = 1 To ListBox1.ColumnCount ListBox1.BoundColumn = i Addressee = Addressee & ListBox1.Value & vbCr Next i ActiveDocument.Bookmarks("Addressee").Range.InsertAfter Addressee UserForm1.Hide End Sub This is pretty much what I want to do with my MergeFields. The code that I need may be very similar to this, but Iâ??m not sure because Iâ??ve never used MergeFields before. I tried the Macro Recorder; it didnâ??t help much. Any guidance would be greatly appreciated. Regards, Ryan--- -- RyGuy Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106338
 - 2
 - Editing the target or multiple hyperlinks I have a large group of files that will all exist in a single folder. I want to open each document. Go through and change every hyperlink by deleting the first portion of the link. Then save the document, close the document and move on to the next one in the folder. What this is doing is changing the hyperlinks from fully qualified to relative. Let me give this as an example. Every hyperlink in every doc is the same and looks like this. http://servername/applicationname/appname.exe/open/docID# I want them to all go to /applicationname/appname.exe/open/docid# Each Document ID number is unique. The portion to remove is acutally 33 characters. This will allow for users on different servers to view the documents without authenticating to another server. Thanks for all of your help. LWhite Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106337
 - 3
 - Hyperlinks from Word into a PDF? Is there any way to make hyperlinks in a Word.doc that will jump the user seamlessly into a bookmarked section of text within a PDF displayed in Acrobat? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106336
 - 4
 - Find and Create Range Problem I'm using Word 2007 on WinXP SP2. I have several document which have instances of things like: [BEGIN BOXED TEXT] (some paragraphs) [END BOXED TEXT] I need a macro to search the document for each such instance, and select it (or create a range) - I can do the rest (probably!). The method I have at the moment is below and has two problems: one, after the first loop, the selected range gets too big, and two, it keeps repeating the first instance of FIND, rather than jumping through them all. Thanks in advance, Darren Sub StyleReset() ' ' StyleReset Macro ' ' CTRL+ALT+` ' (I've snipped out some lines that aren't relevant here FormatChange "[BEGIN BULLETED LIST]" FormatChange "[BEGIN BOXED TEXT]" FormatChange "[BEGIN SIDEBAR]" FormatChange "[BEGIN TABLE]" End Sub Sub FormatChange(FindChar As String, Optional FindStyle As String = "") Dim MyRange As Range, StartRange As Range Selection.GoTo What:=wdGoToBookmark, Name:="TextStart" Selection.Collapse Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = FindChar .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Do While Selection.Find.Execute Select Case FindChar ' I've snipped out the Cases that are working ok - ' it's the next Case I'm having trouble with Case "[BEGIN SIDEBAR]", "[BEGIN TABLE]", "[BEGIN BOXED TEXT]", "[BEGIN BULLETED LIST]" ' need to select the area ' find the first "[END" - set a range within ' Set MyRange = Selection.Range MyRange.SetRange Start:=Selection.MoveStart(wdLine, 1), End:=MyRange.End MyRange.Collapse wdCollapseStart Set StartRange = MyRange.Duplicate With MyRange.Find .Forward = True .Wrap = wdFindStop .Text = "[END" .Replacement.Text = "" .Execute If .Found Then ''Extend the range from the found item back to the start of the original range MyRange.Start = StartRange.Start MyRange.Select Selection.MoveEnd Unit:=wdLine, Count:=-1 Set MyRange = Selection.Range ' do stuff here End If End With Case "<s>" ' this is a small table. Need to find the first paragraph that doesn't contain a tab mark. Case Else End Select Loop End Sub Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106331
 - 5
 - Help with inline shapes Hello, I am trying to make a DOT file with a number of text boxes set up as inlineshapes. I can get them in the document fine (names in property list of TBox1, Tbox2 etc), and they work with the dblclick event just fine but I can not refer to them outside of the doubleclick event sub as inlineshapes "don't have names". The textbox has a name (like TBox1) and I can refer to it's name, but when I try to pass it to another sub to work on the text, it fails - generally telling me that the (name) method/property isn't valid. I tried to refer to the textbox with the index from the inlineshapes collection, but I can not find out which index number corresponds to the textbox. Any help/directions is appreciated. Jim Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106327
 - 6
 - Fill One form and auto-populate another form. Hi, I have two forms. One form is for the company to keep and the other is a government agency form which I have to e-mai/fax to governemnt agency. Both are MS Word forms. What I want to do is populate one form (company form) and then auto-populate the second form (government form). Since about half of the data for the company form is the same as the government form i want to be able to pupulate the government form when user enter the information in the company form. Is this possible to do? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106325
 - 7
 - adding attachment to form prior to email Is there a way a browse button can be added to a protected form to allow for attachments to be added prior to the form being e-mail (via a command button). Thanks for your help. Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106313
 - 8
 - Problem with routing slip I have a protected form that I'm having folks fill out and e-mail to me via a command button on the form. One of the field on the form is "current date". If I set the properties to prefill current date, the form errors....if I just have the properties set to date, not current date, it works fine. Am I missing something in the code. The code behind the button is below Private Sub CommandButton1_Click() ActiveDocument.HasRoutingSlip = True With ActiveDocument.RoutingSlip .Subject = "Updates" .AddRecipient "JLORD@xxxxxxxx.com" .Delivery = wdAllAtOnce End With ActiveDocument.Route End Sub Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106310
 - 9
 - Mail Merge office 2003 from SQL 2000 Database I am working for a client on SQL Server 2000. They have an urgent requirement regarding Mail Merge and I simply do not have the knowledge to help. Here is the problem as sent to me, can anyone assist (apparently it worked fine from ASP with Office 2000) : I am looking for someone to solve the problem described under 'Requirement' below: Database: SQL 2000 Contains 2 tables with data: TableA: contains all the data TableB: contains 2 fields: Field1: Unique Identifier to line in TableA Field2: Staff Number Staff select records to be mail merged using a search and select process through our Intranet. Their selection list is recorded in TableB. This Table is then joined to TableA for the merge (ie in a View) Requirement: To mail merge the selection list against their staff number into Word 2003 using a selected template (we could end up with several different template layouts). Several staff could be using the system at the same time. I need this to be as automated as possible. Staff using the system should not have to go through the mail merge system currently offered in Word 2003. Ideally they should be able to select a template, click on it, type in their staff number and then the mail merge should be automatic from that point to delivering the result in Word. The mail-merge also needs to deal with a couple of conditional if statements, based on a confidential indicator (values 0 â?? 4), two fields can either be shown or not dependant of the Indicator value. Pointers of assistance greatly appreciated. TIA Trev Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106307
 - 10
 - what is word processing? What is word processing? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106302
 - 11
 - Splitting doc by header style Hello, Ive got a word doc that is basically in this format with no page breaks Page Title(Heading 2) Page Data(Table) Page Title(Heading 2) Page Data(Table) Page Title(Heading 2) Page Data(Table) etc... Im using .net to loop through the doc by Paragraph and Table and Im able to get to the plain text of the objects via a paragraph loop but i cant seem to narrow down the data formatted as Heading 2 and just get the next table as html or similar so that I can create some pages based on them. Id like to do something similar to this although it's obviously not right ( i have 40 items marked with heading 2 but the headers loop only runs 3 times.) For Each h As Word.HeaderFooter In s.Headers '?PageTitle=h.range.Text '?BodyText = '?Table and Text Next Ive seen this type of functionalty in tools like robohelp(split document into web pages based on defined formatting) before but im not sure what the proper logic would be do get to these pieces of data I appreciate any insight you have and would be glad to clarify further. Thanks in Advance DrewG Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106289
 - 12
 - macro to intersperse numbered lists Hi, I need a macro to move numbered answers from a long list to immediately follow the test question with the same number. Here is how the document looks (see below). This is a shortened version. Most of the tests have about 33 questions total, so there would be more matching, true/false, and multiple choice questions, numbered from 1-33. There are tabs before and after each number. The matching section is a little different from the rest of the test. The matching answers are not to be interspersed with the questions. They are just to follow the questions in a list. This is difficult to explain, so also included below is what the final document needs to look like. Perhaps if someone can help get me started, I can modify the macro as needed. Thanks for your help. Also, these files are .txt files and do not contain any auto-numbering. Chapter Title Name Date Period Score Chapter 3 Test Matching: Match the following terms and identifying phrases. 1. People who buy and use finished products. 2. The process of finding or creating a profitable market for specific goods or services. 3. Intangible activities or benefits that are performed and have value. A. business cycle B. competition C. consumers True/False: Circle T if the statement is true or F if the statement is false. T F 4. Fashion-related businesses are crucial to the U.S. economy through the materials and services they buy, produce, and sell, and the wages and taxes they pay. T F 5. Goods are either products or services. T F 6. In a free-market system, companies with products to sell can charge any price and sell to anyone willing to pay that price. Multiple Choice: Choose the best response. Write the letter in the space provided. 7. Retailers are companies that _____. A. make goods B. sell merchandise in small quantities to consumers C. offer products for sale to industrial businesses D. sell goods in bulk to limited numbers of customers 8. In a free-market system, _____. A. the government and individuals make key economic decisions equally B. people freely choose what to buy in the marketplace C. there is heavy government control of what is bought and sold D. None of the above. 9. When there is more competition, _____. A. the profits per item sold are lower for the businesses involved B. products tend to be of a higher quality and more innovative C. prices for similar products are lower for customers D. All of the above. Essay Questions: Provide complete responses to the following questions or statements. 10. Describe the market structures of pure competition and monopoly. 11. List at least three advantages and three disadvantages of the corporate form of business ownership. 12. Briefly explain the four main elements of a marketing mix. Chapter 3 Test 1. C 2. E 3. I 4. T 5. F 6. T 7. B 8. B 9. D 10. Pure competition is a market structure in which no company in an industry is extremely large or powerful enough to influence or control prices. Monopoly is a market structure in which there are no direct competitors in an industry; one company controls it. 11. (See 3-11 in the text under â??Corporation.â??) 12. product: bringing the goods and/or services that are in demand into existence and to the market; price: pricing the products at the level that maximizes overall profits; place: how and where products are offered to customers; the distribution of selling and delivery into the hands of customers; promotion: nonpersonal activity to a large audience that furthers the sale of goods or services This is what the final test needs to look like. The numbers before each answer needs to be replaced with ANS:, except the matching section is a little different. Chapter Title Name Date Period Score Chapter 3 Test Matching: Match the following terms and identifying phrases. A. business cycle B. competition C. consumers 1. People who buy and use finished products. 2. The process of finding or creating a profitable market for specific goods or services. 3. Intangible activities or benefits that are performed and have value. 1. ANS: C 2. ANS: E 3. ANS: I True/False: Circle T if the statement is true or F if the statement is false. 4. Fashion-related businesses are crucial to the U.S. economy through the materials and services they buy, produce, and sell, and the wages and taxes they pay. ANS: T 5. Goods are either products or services. ANS: F 6. In a free-market system, companies with products to sell can charge any price and sell to anyone willing to pay that price. ANS: T Multiple Choice: Choose the best response. Write the letter in the space provided. 7. Retailers are companies that _____. A. make goods B. sell merchandise in small quantities to consumers C. offer products for sale to industrial businesses D. sell goods in bulk to limited numbers of customers ANS: B 8. In a free-market system, _____. A. the government and individuals make key economic decisions equally B. people freely choose what to buy in the marketplace C. there is heavy government control of what is bought and sold D. None of the above. ANS: B 9. When there is more competition, _____. A. the profits per item sold are lower for the businesses involved B. products tend to be of a higher quality and more innovative C. prices for similar products are lower for customers D. All of the above. ANS: D Essay Questions: Provide complete responses to the following questions or statements. 10. Describe the market structures of pure competition and monopoly. ANS: Pure competition is a market structure in which no company in an industry is extremely large or powerful enough to influence or control prices. Monopoly is a market structure in which there are no direct competitors in an industry; one company controls it. 11. List at least three advantages and three disadvantages of the corporate form of business ownership. ANS: (See 3-11 in the text under â??Corporation.â??) 12. Briefly explain the four main elements of a marketing mix. ANS: product: bringing the goods and/or services that are in demand into existence and to the market; price: pricing the products at the level that maximizes overall profits; place: how and where products are offered to customers; the distribution of selling and delivery into the hands of customers; promotion: nonpersonal activity to a large audience that furthers the sale of goods or services Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106277
 - 13
 - Macro to automatically bold or italicize specific text I'm working with a 3rd party document generation system that only stores plain text. Rather than having to manually go through the document and bold/italicize certain phrases every time I'd like to automate the process. How would I write a macro to do it? I'd like to use HTML style tags to indicate the formatting but am flexible in that regard. before the macro is run: This sentence contains bold and italic text. After the macro was run the text would look like this but with the words bold and italic bolded and italicized respectively: This sentence contains bold and italic text. Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106271
 - 14
 - Embed styles in Word template or create them on the fly - pros and cons? Hi All Shauna Genius has provided me with some great code to get round my background colours issue in my VB6 to MS Word table using VBA, but involves creating some bespoke styles. My question is, would I benefit from pre-creating the styles in my Word doc template file or would it make no difference if I created these styles via VBA at runtime? I'm going to need about 20 different styles at any one time, so I'm waying up the odds which is best option. Thanks Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106269
 - 15
 - Skipping in a loop Does anyone know a way to loop through all instances in a collection, but *skip* doing something to unqualified members? I know I could go For Each objPara in Selection.Paragraphs If [Disqualifier] = False Then Do the stuff for qualified members Endif Next objPara But I'm looking for something more like For Each objPara in Selection.Paragraphs If [Disqualifier] = True Then GoTo Skip Endif Do the stuff for qualified members Skip: Next objPara Bear -- Windows XP, Word 2000 Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106267
 - 16
 - how add many strings and vbcrlf in the same string Hello!. I have a word 2003 and sp3 My userform fill 3 strings with data, and then create one string with these three. The result is send to textbox str1="aaaaa" str2="bbbb" str3="cccc" str_last= str1 + vbCrLf + str2 + vbCrLf + str3 desired result: aaaa bbbb cccc real result: aaaabbbbcccc what is the correct procedure to obtain the desired result???? Thanks!!!!! sam Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106265
 - 17
 - 5904 - Cannot Edit Range Hi All I'm looping an array of text into a number of cells in 1 x MS Word table via my VB6 app. To make sure each text value is on a new line of the table cell I put a carriage return/paragraph marker after it. To start with I used oDoc.Range.Text = oDoc.Range.Text & vbCrLf, but for some reason this always creates an extra return/blank line. So not to be out-done by this I thought I would use the oDoc.Range.InsertParagraph or oDoc.Range.InsertParagraphAfter commands, but for some reason even though the loop works fine for all of the other values the last text value to be put into the table always causes this 5904 error. Any ideas? Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106263
 - 18
 - XML Conversion to HTML in Word 2007 I am converting an application we use to edit text and write it back to an MS SQL DB through a com object. The current environment is in Office/Word 2000 using VBA and we are moving this to VS2005 to VSTO2005SE Office/WORD 2007 One of my requirements is to write back HTML to the SQL DB and I was able to do so using this command in VBA. MyStr = ActiveDocument.HTMLProject.HTMLProjectItems(1).Text Does anyone have a suggestion on how to perform the same operation with .NET -- Jeff Lawrence McClatchy Washington Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106262
 - 19
 - How can I just change the text background colour using VBA? Hi All Developing a VB6 app that writes text and a bit of formatting to a table in a MS Word template doc via VBA. I can change the text colour, bold, italic and underline params fine on my text, but I can't get the background colour of my text to change. Formatting the bg colour for a whole cell in a table is no good to me and I've just found that the paragraph format is also no good, as I need to format the bg colour of text on a line by line basis. For example cell 1 might look like the following: Fred Bloggs < bg colour needs to be blue Bilbo Bloggs <bg colour needs to be untouched, ie white Barry Bloggs <bg colour needs to be red etc Move onto next cell. The code that I am currently using is: oNewDoc.Tables(1).Cell(intRow, intCol).Range.Paragraphs(intLine).Range.ParagraphFormat.Shading.BackgroundPatternColor = wdColorRed Which doesn't really work because if cell 1 has 2 names in it then cell 4 with one name has 2 lines of the same colour. I need 1 line of colour that covers just the name. I've noticed that the highlight option might do it, but you appear to be limited to 15 or so colours (with most being too dark). Am I wrong? I'd prefer some form of TextFormat.Shading etc format as it opens the colours up for me, but there doesn't seem to be an option. Note I have to work with Office 2000/2003 users. Thanks Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106249
 - 20
 - Finding out if a paragraph is in a table I have some long documents (400+ pages) in which most of the text is in tables. There are around 80,000 paragraphs including those in tables I am only interested in the paragraphs that are not in tables. Does anyone know of a way to efficiently either form such a collection or to test if a paragraph is within a table. Something like For Each myPara In ParagraphsNotInTables ....... Next or If myPara IsInTable Then 'ignore Else .... many thanks in advance Rod Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106247
 - 21
 - checkbox status Hi! I am working with VBA in word 2003 and sp3. the values for any checkbox are: 0 / false -> unselected 1 / true -> selected 2 / -> selected AND greyed Exists any value to set the checkbox unselected and greyed? And any property to deny allow change? I like to view the checkbox without the option to access it for change his value Thanks!!!!! Sam Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106246
 - 22
 - how do i connect to the endnote program using word 2007? in word 2003 i pressed alt F1 and got connected to the endnote program. for some reson i can't connect directly when i am using word 2007... what do i do??? thanks a lot for any help Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106243
 - 23
 - Deleting Shapes in Document Header Last night I stumbled on what I consider odd behaviour while using VBA to delete shapes in a document header. I had a multi-section document with headers unlinked and first page, odd/even headers. All together there aret 15 shapes in the various headers. It appears to me that the following code should only process and delete shapes that are in the primary header of section 3. What I consider odd is that it processes all shapes in all sections and all header types (i.e., it deletes all 15 shapes) Sub Test() Dim oShp As Shape For Each oShp In ActiveDocument.Sections(3).Headers(3).Shapes oShp.Delete Next End Sub The same thing happens if I change the Section and Headers index to "1." I ran this code: Sub Scratchmacro() MsgBox ActiveDocument.Sections(2).Headers(1).Shapes.Count End Sub I expected a return of 2 which is how many shapes are in fact in Section 2 firstpage header but the result I got was 15!! I scratched up this code which does process only the designated header, but I don't understand what is happenning in the code above. Thanks for any explanation you may provide. Sub Test2() Dim oRng As Word.Range Dim oShp As Shape Set oRng = ActiveDocument.Sections(3).Headers(3).Range For Each oShp In oRng.ShapeRange oShp.Delete Next End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106242
 - 24
 - Word 2003 I have automated a print maco using code: ActiveDocument.print This always worked in Word XP but now I have migrated the code (well re-written actually but code is the same) in Word 2003 - when we print - any borders in the document around text do not print. The print drawing objects tick is on in print options - any ideas please? Thanks GwenP Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106240
 - 25
 - MYSTERY: Saving template deletes bookmark G'day! Has anyone encountered this before? I insert a bookmark in the main story of my template. As far as I can tell there's nothing special about the template or the bookmark - altho I can't say for certain; I inherited the template from a long-departed source. Every time I save the template the bookmark gets deleted automagically. Bit of a buggar that 'cuz I really need that bookmark to be there in the final document. BTW, it's only the bookmark in the main story of the template that gets deleted. I have 6 or 7 more in the header and footer and those don't get touched. Any Sherlocks out there that can solve this mystery? -- Cheers! The Kiwi Koder In Deep Mourning for the ABs :( Tag: when i click on a pictures my format tab opens but the picture st. Tag: 106234

When I click on a picture within a document my format tab opens but the
pictures styles button is not on there so how do I get it on there so I can
change the effect of the picture in my word processing class please help me
figure out how to get it so I can do my work. Thanks Sam

Top

RE: when i click on a pictures my format tab opens but the picture st. by Peter

Peter
Mon Oct 22 08:29:07 PDT 2007

I am having the EXACT same problem, I really want my picture styles part
back! Please help asap.

Top

Re: when i click on a pictures my format tab opens but the by Russ

Russ
Mon Oct 22 10:09:27 PDT 2007

Peter,
On my MacWord, I would go to menu Tools/Customize/Customize Toolbars and
Menus. The list on the left pane of the dialog box should have a checkmark
next to Picture.

> I am having the EXACT same problem, I really want my picture styles part
> back! Please help asap.

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Top

Re: when i click on a pictures my format tab opens but the picture by Peter

Peter
Mon Oct 22 10:35:01 PDT 2007

Hey Russ,

Sorry for my naievity but where are you finding tools? On the menu I could
only find word options and then I lost you, please advise, thanks.
"Russ" wrote:

> Peter,
> On my MacWord, I would go to menu Tools/Customize/Customize Toolbars and
> Menus. The list on the left pane of the dialog box should have a checkmark
> next to Picture.
>
> > I am having the EXACT same problem, I really want my picture styles part
> > back! Please help asap.
>
> --
> Russ
>
> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>
>

Top

Re: when i click on a pictures my format tab opens but the picture by Russ

Russ
Mon Oct 22 11:23:29 PDT 2007

Peter,
I'm currently using a Mac, so the menu structure might be different from
what I recall for Windows. You could look at all your drop down menus for a
choice or Tools or Customize.
You can use Word Help to find the menu. Use the Help menu and type in
toolbar, then select "create toolbar". The resulting help should tell you
how to get to the dialog box I was talking about.
Also a lot of toolbars already on screen, will have, on the far right, a
drop down menu listing customize as a choice.

>
> Hey Russ,
>
> Sorry for my naievity but where are you finding tools? On the menu I could
> only find word options and then I lost you, please advise, thanks.
> "Russ" wrote:
>
>> Peter,
>> On my MacWord, I would go to menu Tools/Customize/Customize Toolbars and
>> Menus. The list on the left pane of the dialog box should have a checkmark
>> next to Picture.
>>
>>> I am having the EXACT same problem, I really want my picture styles part
>>> back! Please help asap.
>>
>> --
>> Russ
>>
>> drsmN0SPAMikleAThotmailD0Tcom.INVALID
>>
>>

--
Russ

drsmN0SPAMikleAThotmailD0Tcom.INVALID

Top