Question

我有一个Excel，它的特定列在每个单元格中的多行中都有文本。我想将该多行文本作为单词以句子格式复制到Word文档中。我尝试了一些代码，但是所有代码都复制了excel范围，并以完全相同的方式粘贴到excel中（包括单元格边框）。我不要细胞边界。我希望将文本复制为句子/段落。有人可以帮我吗？

这是我使用的代码：

Public Sub CommandButton1_Click()
    On Error GoTo ErrorHandler

Dim wApp As Word.Application
Dim wDoc As Word.Document

Set wApp = CreateObject("Word.Application.8")
wApp.Visible = True
Const strPath1 As String = "D:\Template.docx"
Set wDoc = wApp.Documents.Add(Template:=strPath1, NewTemplate:=False, DocumentType:=0)

Worksheets("Sheet2").Range(ActiveCell, ActiveCell.End(xlDown)).Copy

With wDoc.Paragraphs(wDoc.Paragraphs.Count).Range
         .Paste
End With

ErrorHandler:
        Resume Next
End Sub

Answer 1

您不想使用复制和粘贴，需要使用Excel VBA对象模型来引用所需的单元格，然后使用cell.Value访问文本。

您必须已经在使用Excel.Application，并且由于已经复制并粘贴了该值，因此您必须已经引用了该单元格，因此必须将要复制和粘贴的代码与要使用cell.value的代码交换。

不幸的是，我不在我的电脑上，因此无法测试，但是您想用类似的代码替换您的代码

add_action('admin_init', 'ms_category_images');
function ms_category_images() {
$ms_tags =  get_tags();
$ms_taxonomies = get_taxonomies();

if (is_array($ms_taxonomies)) { 
    foreach ($ms_taxonomies as $ms_taxonomy) {
        add_filter( 'manage_edit-' . $ms_taxonomy . '_columns', 'ms_taxonomy_columns' );
        add_filter( 'manage_' . $ms_taxonomy . '_custom_column', 'ms_taxonomy_column', 10, 3 );
       }
    }
if (is_array($ms_tags)) { 
    foreach ($ms_tags as $ms_taxonomy) {
    **//line no 408 is the one below**
    add_filter( 'manage_edit-' . $ms_taxonomy . '_columns', 'ms_taxonomy_columns' ); //line no 408
    add_filter( 'manage_' . $ms_taxonomy . '_custom_column', 'ms_taxonomy_column', 10, 3 );
    }
}

将文本从Excel复制到单词作为没有单元格边框的句子

1 个答案: