noobshanghai.blogg.se

We all have different situations and it's impossible to account for every particular need one might have.

How Do I Modify This To Fit My Specific Needs?Ĭhances are this post did not give you the exact answer you were looking for. WordTable.AutoFitBehavior (wdAutoFitWindow) 'Autofit Table so it fits inside Word Document MyDoc.Paragraphs().Range.PasteExcelTable _ MyDoc.Paragraphs().Range.PasteAndFormat (wdFormatPlainText) MsgBox "Microsoft Word could not be found, aborting." 'Handle if the Word Application is not found If WordApp Is Nothing Then Set WordApp = CreateObject(class:="Word.Application") 'If MS Word is not already open then open MS Word Set WordApp = GetObject(class:="Word.Application") Set myLogo = ThisWorkbook.Worksheets(Sheet1.Name).Shapes("Logo_Image") Set myText = ThisWorkbook.Worksheets(Sheet1.Name).Range("B4:B5") Set tbl = ThisWorkbook.Worksheets(Sheet1.Name).ListObjects("Table1").Range

(VBE > Tools > References > Microsoft Word 12.0 Object Library) 'NOTE: Must have Word Object Library Active in Order to Run _ Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.'PURPOSE: Copy/Paste An Excel Table, Text, & Logo Image Into a New Word Document The RightMargin property is used to return and set the right margin setting. The LeftMargin property is used to return and set the left margin setting. The PageSetup object contains all the page setup attributes of a document (such as left margin, bottom margin, and paper size) as properties. The following example increases the left and right margins by 0.5 inch. The following example toggles bold formatting of the selected text. If the space-before value is anything other than 12, the SpaceBefore property is set to 12 points. The macro retrieves the current space before value, and if the value is 12 points, the space-before formatting is removed (the SpaceBefore property is set to zero). The following example toggles the space-before formatting of the first paragraph in the selection. Switching the space before a paragraph between 12 points and none Set rngFormat = ActiveDocument.Range(Start:=0, End:=0) The word "Title" is formatted with 24-point Arial font. The first paragraph is center-aligned and one half-inch space is added after the paragraph. The following example adds the word "Title" at the top of the current document. Inserting text and applying character and paragraph formatting ParagraphFormat.Alignment = wdAlignParagraphJustify Start:=ActiveDocument.Paragraphs(1).Range.Start, _Įnd:=ActiveDocument.Paragraphs(3).Range.End) The Range is formatted by applying properties of the Font object and the ParagraphFormat object. The following example defines a Range object that refers to the first three paragraphs in the active document. Use the Font property to access character formatting properties and methods and the ParagraphFormat property to access paragraph formatting properties and methods. The following example uses the Selection property to apply character and paragraph formatting to the selected text. This topic includes Visual Basic examples related to the tasks in the following sections.