Hello -

I ran into an issue with the below - basically the goal is to copy whats on the sheet
and paste into a word document (need to keep the same formatting and to paste NOT as a table)
and fix the spacing before and after to be 0.
What its doing now is pasting in the Word document as a table and the spacing options
are not working for me. I tried pasting as Plain text but lost the
boldness I had already. Any help would be appreciated.

Dim strFile As String
Dim word_app As Word.Application
Set word_app = New Word.Application

With word_app
 .Visible = True
 .Activate
 .Documents.Add


'Range("A1", Range("A1").SpecialCells(xlCellTypeLastCell)).Copy
Worksheets("Sheet3").Activate
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
    Selection.Rows.AutoFit
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Rows.AutoFit
    Selection.Columns.AutoFit
Columns("A:A").ColumnWidth = 100
Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Copy

With .Selection
  .Paragraphs.Alignment = wdAlignParagraphLeft
  .Paragraphs.SpaceAfter = 0
  .Paragraphs.SpaceBefore = 0
  .Font.Size = 10
  .Font.Name = "Calibri"
End With

.Selection.Paste



SaveAsName = Environ("test") & "C:temp\file" & Format(now, "yyyy-mm-dd") & ".docx"
.ActiveDocument.SaveAs2 SaveAsName
.ActiveDocument.Close
.Quit
End With

strFile = SaveAsName
Thank you !