How I can fix as Heading for third row into long table in Word?

Tutorials Win: Microsoft Windows Forum

- Previous
 - 1
 - Programmatical conversion of docx into doc We need to convert programmatically docx files into doc (xlsx into xls, pptx into ppt) server side, on-the-fly. Is there some converter component avalable? The target platform is windows (xp/2003/vista). The component should be DLL/COM in order to be used from VB6 code. Tag: How I can fix as Heading for third row into long table in Word? Tag: 108255
 - 2
 - Application.FileSearch.Filename anomaly setting beginning of filename Hi: The problem is that I want to find files like "'INV*.DOC", but I'm also picking up "xxINV*.DOC" files as well. DOS doesn't have this problem, but Application.FileSearch.Filename seems to have it. If I specifiy a wildcard for the file extension, it works OK, but not if I specify the extension. e.g. "INV*.*" doesn't pick up the "xxINV*.DOC" files. Indexing is turned off. Using Word 2003. I have seen that there are problems with this function, but I can't believe at Office11 this problem hasn't been sorted out. Code example below Thanks in advance for your help. -- Roy Zider Public Sub TestFileSearch() ' 12/3/2007 lsz ' Testing application.filesearch for start of filename problem with xxinv*.doc ' Test with three files: t1.txt, t2.txt and xxt3.txt Dim oFS As Object Dim i As Integer Set oFS = Application.FileSearch With oFS .LookIn = "C:\temp test\filesearch" .FileName = "t*.*" ' OK - xxt3.txt not found ' .FileName = "t*.txt" ' not OK -- finds xxt3.txt as well ' .FileName = "inv*.doc" ' not OK -- finds xxinv.doc If .Execute > 0 Then MsgBox "There were " & .FoundFiles.Count & _ " file(s) found." For i = 1 To .FoundFiles.Count MsgBox .FoundFiles(i) Next i Else MsgBox "There were no files found." End If End With End Sub Tag: How I can fix as Heading for third row into long table in Word? Tag: 108253
 - 3
 - Stop Loop and Get Value Hi, I have this loop (see code below) how can I get it to get the value and stop the loop and move on to the rest of the code which is in the With Doc. Thank you to anyone that helps, Happy Holidays. Ben Z. With WordDoc For Each oRow In oTbl.Rows If oRow.Cells(1).Range.Text = TargetText Then p = oRow.Cells(1).RowIndex & TextBox1.Text = p End If Next oRow End With End Sub Tag: How I can fix as Heading for third row into long table in Word? Tag: 108247
 - 4
 - Printer Toolbar Button I'd like to add a couple of printer buttons to my toolbar that I could use to print to different printers. Word XP keeps the printer I changed it to as my default. Ideally I'd like the macro/button to ( for clarity I will name the printers 933 (my default) and colour): Get the name of my default printer which is 933 Change to a different specific printer (colour) and print the document Change my default printer back to 933 Tks. Brenda Tag: How I can fix as Heading for third row into long table in Word? Tag: 108246
 - 5
 - Sendkeys vs. Selection.TypeText Hi: Out of old-timey recollection, I tried to use Sendkeys in Word 2003 to enter some text. But it didn't work, and I had to resort to Selection.TypeText. Code below. If someone would be kind enough to clarify why Sendkeys doesn't work in this context I would appreciate it very much. -- Roy Zider Sub PrintLayoutView() ' ' PrintLayoutView Macro ' Macro recorded 12/3/2007 by Roy Zider ' ' Developed to set invoice view to Print Layout View ' Selection.HomeKey Unit:=wdStory Selection.EndKey Unit:=wdLine ' .. this doesn't work: ' SendKeys "x", True ' SendKeys "{BS}", True ' .. this does: Selection.TypeText Text:="x" Selection.TypeBackspace If ActiveWindow.View.SplitSpecial = wdPaneNone Then ActiveWindow.ActivePane.View.Type = wdPrintView Else ActiveWindow.View.Type = wdPrintView End If ActiveWindow.Close End Sub Tag: How I can fix as Heading for third row into long table in Word? Tag: 108245
 - 6
 - AddIn-Symbols and Toolbars, Word 2007 High The toolbar from my Word 2003-Template is set in the far right corner by Word 2007 under the Menu "Add-Ins". How can I place Buttons/Macros in other Menus f. e. "Start" and/or under the main- office-button in the upper left corner (file new ...) everytime word starts? Thanks for any help. Best Regards, George Tag: How I can fix as Heading for third row into long table in Word? Tag: 108241
 - 7
 - saving workspace in 2007 Hello, I have a question. When I open up Word 2007, I would like all the files I have been working on to open automatically. Can this be done? I would appreciate any help. -Noah Walter Tag: How I can fix as Heading for third row into long table in Word? Tag: 108235
 - 8
 - how do I change a word into a macro 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? Tag: How I can fix as Heading for third row into long table in Word? Tag: 108233
 - 9
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108232
 - 10
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108225
 - 11
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108222
 - 12
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108218
 - 13
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108213
 - 14
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108210
 - 15
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108208
 - 16
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108199
 - 17
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108184
 - 18
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108175
 - 19
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108174
 - 20
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108170
 - 21
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108165
 - 22
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108162
 - 23
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108159
 - 24
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108158
 - 25
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108152
- Next
 - 1
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108128
 - 2
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108126
 - 3
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108117
 - 4
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108114
 - 5
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108110
 - 6
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108103
 - 7
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108102
 - 8
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108100
 - 9
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108092
 - 10
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108089
 - 11
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108082
 - 12
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108078
 - 13
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108076
 - 14
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108062
 - 15
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108061
 - 16
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108060
 - 17
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108057
 - 18
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108041
 - 19
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108040
 - 20
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108036
 - 21
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108033
 - 22
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108031
 - 23
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108029
 - 24
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108028
 - 25
 - 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 I can fix as Heading for third row into long table in Word? Tag: 108023

I have a long table (on 5 pages). I want to fix for third row type
like Headings (from menu Table). But it include also first and second
rows. Can I fix only third row as Heading? Thank you.
Sorry for my bed English...

Top

Re: How I can fix as Heading for third row into long table in Word? by Stefan

Stefan
Tue Dec 04 06:12:23 PST 2007

No, only one or more successive rows can be formatted as table headings. You
will have to fake this: First, show nonprinting marks (you can press
Ctrl+Shift+8). Then split the table after the second row. Make the third row
(now the first row in a new table) into a table heading. Format the
paragraph mark between tables as 1 pt of font size, 1 pt of line spacing,
and zero spacing before/after.

--
Stefan Blom
Microsoft Word MVP

"avkokin" wrote in message
news:1fd6b256-16de-45da-87ab-0e7352f67d00@s36g2000prg.googlegroups.com...
>I have a long table (on 5 pages). I want to fix for third row type
> like Headings (from menu Table). But it include also first and second
> rows. Can I fix only third row as Heading? Thank you.
> Sorry for my bed English...

Top

Re: How I can fix as Heading for third row into long table in Word? by avkokin

avkokin
Tue Dec 04 06:51:32 PST 2007

On Dec 4, 5:12 pm, "Stefan Blom" <no.s...@please.xyz> wrote:
> No, only one or more successive rows can be formatted as table headings. You
> will have to fake this: First, show nonprinting marks (you can press
> Ctrl+Shift+8). Then split the table after the second row. Make the third row
> (now the first row in a new table) into a table heading. Format the
> paragraph mark between tables as 1 pt of font size, 1 pt of line spacing,
> and zero spacing before/after.
>
> --
> Stefan Blom
> Microsoft Word MVP
>
> "avkokin" wrote in message
>
> news:1fd6b256-16de-45da-87ab-0e7352f67d00@s36g2000prg.googlegroups.com...
>
> >I have a long table (on 5 pages). I want to fix for third row type
> > like Headings (from menu Table). But it include also first and second
> > rows. Can I fix only third row as Heading? Thank you.
> > Sorry for my bed English...

Thank you. I just in case do. But I want to improve and use some macro
for it.

Top