可以，VBA代码：Setfd=Application.FileDialog(msoFileDialogFolderPicker)点击就可以选择要打开的WORD文件了。

Setwdoc=wdapp.documents.Open("D:\CR\&rg&.doc")是不是应该改成Setwdoc=wdapp.documents.Open("D:\CR\”&rg&“.doc")

Selection.Copy'将选中的区域进行复制WordObject.Application.Activate'将后台运行的Word激活为当前窗口WordObject.ActiveWindow.Selection.Paste'将刚才从Excel中复制进剪贴板中的内容粘贴进word中来WordObject.Saved=True...

一、打开word文件代码：Setwo=CreateObject("Word.Application")\x0d\x0awo.Documents.OpenThisWorkbook.Path&"\流程.doc"\x0d\x0awo.Visible=True\x0d\x0a二、打开ppt文件代码：方法1：\x0d\x0aSet...

1.1打开excelvba界面1.2选中其中的一个Module1.3选择菜单，Tools-->References在打开的对话框中选择类似"MicrosoftWord14.0ObjectLibrary".1.4点击OK保存配置。2.打开文档SetwordApplication...

在有word文件的文件夹中新建一个excel工作簿，打开工作簿，按Alt+F11，把下面的代码复制进去，按F5执行。代码会复制work文件的前300个字符到excel中。Subtest()Dimi%,myName$,myPath$,AppWordAsObjectSet...

*.doc;*.docx")IfFilePath="False"ThenMsgBox"您没有选择文件，将退出程序。":ExitSubWithCreateObject("word.application")With.Documents.Open(FilePath,True,True)S1=.Content...

'excel控制word,生成新文件,插入图片和文件名,保存'office2003,VBA工具/引用中要勾选MicrosoftWord11.0ObjectLibrary'office2007,VBA工具/引用中要勾选MicrosoftWord12.0ObjectLibrary'...Range("A1:B13").Copy'复制...

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下Ctrl+C复制;步骤二、打开Word，然后选择菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“MicrosoftOfficeExcel工作表对象”然后确定;此时...

'首先要在vba中引用MicrosoftWord11.0ObjectLibraryDimWdappAsWord.ApplicationDimWdDocumentAsWord.DocumentDimUserFileAsStringPrivateSubCommandButton1_Click()SetWdapp=NewWord.ApplicationU...