تبدیل اکسل به Word

[Amin_D]

با سلام

دوستان زحمت کشیدن این کد ها رو :

Private Sub CommandButton1_Click()
    inputfileSaveName = Application.GetSaveAsFilename(Range("f7"), fileFilter:="PDF Files (*.pdf), *.pdf")

MsgBox (inputfileSaveName)
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=inputfileSaveName, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False


End Sub 

برا تبدیل اکسل به PDF ، میخواستم ببینم دستوراتی هست که بشه فایل رو به Word تبدیل کرد؟

البته با در نظر گرفتن اینکه فایل Word ، هیدر و فوتر داره.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[alieddy0]

با سلام
شما ميتونيد از كد زير استفاده كنيد

Private Sub CommandButton1_Click()
Dim WdObj As Object, fname As String
fname = "Word"
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
Range("A1:I30").Select
Selection.Copy 'Your Copy Range
WdObj.Documents.Add
WdObj.Selection.PasteSpecial Link:=False, _
    DataType:=wdPasteText, Placement:= _
    wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
If fname <> "" Then 'make sure fname is not blank
With WdObj
   .ChangeFileOpenDirectory "c:\temp" 'save Dir
    .ActiveDocument.SaveAs Filename:=fname & ".doc"
End With
Else:
MsgBox ("File not saved, naming range was botched, guess again.")
End If
With WdObj
    .ActiveDocument.Close
    .Quit
End With
Set WdObj = Nothing
End Sub

فايل ورد در مسير C:\temp ذخيره ميشه و ميتونيد محدوده اطلاعاتتون رو تغيير بديد

[Amin_D]

با سلام
شما ميتونيد از كد زير استفاده كنيد

Private Sub CommandButton1_Click()
Dim WdObj As Object, fname As String
fname = "Word"
Set WdObj = CreateObject("Word.Application")
WdObj.Visible = False
Range("A1:I30").Select
Selection.Copy 'Your Copy Range
WdObj.Documents.Add
WdObj.Selection.PasteSpecial Link:=False, _
    DataType:=wdPasteText, Placement:= _
    wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False
If fname <> "" Then 'make sure fname is not blank
With WdObj
   .ChangeFileOpenDirectory "c:\temp" 'save Dir
    .ActiveDocument.SaveAs Filename:=fname & ".doc"
End With
Else:
MsgBox ("File not saved, naming range was botched, guess again.")
End If
With WdObj
    .ActiveDocument.Close
    .Quit
End With
Set WdObj = Nothing
End Sub

فايل ورد در مسير C:\temp ذخيره ميشه و ميتونيد محدوده اطلاعاتتون رو تغيير بديد

تشکر از جوابتون ،

چرا به صورت ورد 2003 ذخیره میشه؟

اطلاعات وارد شده به ورد قابل تغییر نیستند مثل حالت Image هستند.

[alieddy0]

با سلام مجدد
شما اگه روي تصوير 2 بار كليك بفرماييد ميتونيد تغييرات رو اعمال بفرماييد
براي ذخيره بصورت فايل ورد با ورژن بالاتر ميتونيد .doc رو به .docx تغيير بدين