Hello,
I recently was able to fix my code by adding a table to Word From Excel with VBA However now if I want to add 2 or more tables then it gives me the Error " Run Time Error 462: The remote server machine does not exist when working with WORD via Excel VBA "
I am not sure how to fix this?
Code:
I recently was able to fix my code by adding a table to Word From Excel with VBA However now if I want to add 2 or more tables then it gives me the Error " Run Time Error 462: The remote server machine does not exist when working with WORD via Excel VBA "
I am not sure how to fix this?
Code:
Code:
Option Explicit
Sub CreateWordDoc()
Dim wdApp As New Word.Application, wdDoc As Word.Document, wdRng As Word.Range
Dim myCat As Long: myCat = InputBox("Enter your Category: ")
With wdApp
.Visible = True
Set wdDoc = .Documents.Add
With wdDoc.Range
.PageSetup.TopMargin = InchesToPoints(0.3)
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Font.Bold = True
.Font.Underline = True
.InsertAfter "FY 19 CAT " & myCat
.InsertParagraphAfter
Set wdRng = .Characters.Last
With wdRng
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.ParagraphFormat.LeftIndent = InchesToPoints(-0.7)
.ParagraphFormat.SpaceAfter = 5
.Font.Underline = False
.Font.Size = 11
.InsertParagraphAfter
.InsertAfter ("Grade Number:")
.InsertParagraphAfter
.InsertAfter ("Config #:")
.InsertParagraphAfter
.InsertAfter ("Grade Name:")
.InsertParagraphAfter
.InsertAfter (Chr(9) & "-" & "Dept:")
.InsertParagraphAfter
.InsertAfter (Chr(9) & "-" & "Class/Subclass:")
.InsertParagraphAfter
.InsertAfter (Chr(9) & "-" & "Season Code:")
.InsertParagraphAfter
.InsertAfter (Chr(9) & "-" & "TimeFrame:")
.InsertParagraphAfter
.InsertAfter (Chr(9) & "-" & "Grade Type:")
.InsertParagraphAfter
.InsertAfter (Chr(9) & "-" & "Index Breakpoint Bands by Volume Grade:")
.InsertParagraphAfter
.InsertBreak Type:=wdLineBreak
Worksheets("Sheet2").Range("K1", "Q2").Copy
.Paste
.Tables(1).Rows.Alignment = wdAlignRowCenter
.InsertParagraphAfter
.Collapse wdCollapseEnd
.InsertParagraphAfter
.InsertBreak Type:=wdLineBreak
.Collapse wdCollapseEnd
Worksheets("Sheet2").Range("A1", "B4").Copy
.Paste
.Tables(2).Rows.Alignment = wdAlignRowCenter
End With
End With
End With
End Sub
Last edited: