brazerzkidaibbs.blogg.se - Change horizontal alignment in word

#Change horizontal alignment in word how to
#Change horizontal alignment in word code

Range(Cells(intRow, 2), Cells(intRow, 2)).HorizontalAlignment = xlCenter Private Sub ChangeFormat( ByVal strCommand As String, ByVal intRow As Integer) 'Changes the horizontal alignment of the cell in column B and row specified

intRow : The row to apply the changes to.

strCommand: This is the formatting to be applied, “Left”, “Right”, “Center”, ….

The function ChangeFormat() receives to parameters as input: Private Sub Worksheet_Change( ByVal Target As Range) 'triggers when changes are made to the worksheet The program uses a worksheet_change() event handler which executes when the user selects new values from the drop down lists: The list of items to populate the drop down list are in sheet2:įor more information about creating drop down lists in Excel please see Excel VBA Drop Down Lists. The drop down lists are created using data validation. Upon selecting a new horizontal alignment the horizontal alignment of the adjacent cell will change:

#Change horizontal alignment in word code

You can download the file and code related to this article here. The selected horizontal alignment will be applied to the cell adjacent to the drop down list. The user selects the horizontal alignment from a set of drop down lists.

#Change horizontal alignment in word how to

Selection.In this article I will provide an example on how to set the horizontal alignment of cells using VBA. Time to sleep soon, but I'll be tackling this again in the morning. I'm just posting the code for the table here, and I'll try to post it correctly this time. I have been trying to find someplace that will teach me the basics online, but honestly I'm a little pressed for time. I am very new to editing recorded code, so I'm stumbling a bit here. Everything needs to be formatted precisely so that the addresses can be seen through the envelope windows. The macro is supposed to open a new document, put in the fold lines (the line shapes in the macro), enter our return address in column 1, row 2, and then paste as unformatted text the contents of the clipboard in column 1, row 4. The secretary would highlight and copy the address where the letter is going and then activate the macro. I'm trying to write a macro that could go on everyone's QAT. The firm is currently using WordPerfect, but we're switching to Word 2007. The secretaries print out a sheet with our return address and the mailing address. I guess I could create a template.Īt work, we use a double-windowed envelope for mailings. Thank you for being so responsive! It kind of is a template, but I do want it to be a macro. Align./Text/Paragraphs fumei (TechnicalUser) 2 Sep 10 17:41 Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _Ī(msoConnectorStraight, 1.05, 101.65, _ With ActiveDocument.Tables(1).Rows(4).Cells(1) VerticalAlignment = wdCellAlignVerticalCenter With ActiveDocument.Tables(1).Rows(2).Cells(1) Selection.Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNoneĪctiveDocument.Tables(1).Rows(1).Height = InchesToPoints(7.13)ĪctiveDocument.Tables(1).Rows(2).Height = InchesToPoints(1.25)ĪctiveDocument.Tables(1).Rows(3).Height = InchesToPoints(0.18)ĪctiveDocument.Tables(1).Rows(4).Height = InchesToPoints(1.61) Selection.Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone Selection.Borders(wdBorderVertical).LineStyle = wdLineStyleNone Selection.Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone Selection.Borders(wdBorderRight).LineStyle = wdLineStyleNone Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleNone Selection.Borders(wdBorderLeft).LineStyle = wdLineStyleNone Selection.Borders(wdBorderTop).LineStyle = wdLineStyleNone Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1Ī Range:=Selection.Range, NumRows:=4, NumColumns:= _Ģ, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend I promise to post my results for everyone.ĭocuments.Add DocumentType:=wdNewBlankDocument When I get home tonight, I'll try tweaking the code and see if your fix is the magic answer. I just can't get it to do it in the table cell.įumei - Thanks! As you can see in my code below, I tried using extend to tell VBA where to format, but it didn't really work. Alternatively, sometimes when I tweak the code, it inserts all the text after the table and formats it too. Then it ignores all the insert text and "TypeParagraph" code. I had no trouble whatsoever creating a new blank document, setting the margins, creating the table, setting the vertical alignment for the rows and creating, coloring and placing two drawing shapes in the document however, when it hits the paragraph alignment center code it just stops or ignores it. I started the whole thing by recording it, and I've been debugging it ever since.